/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 13)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
/******************************************************************************/
(instance public rm013 of Rm
	(properties
		picture 13
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
        (aKing: init())
		(switch(gPreviousRoomNumber)
			(default
            (send gTheMusic:
			prevSignal(0)
			stop()
			number(48)
			loop(-1)
			play()
		)
			)
		)
       (aMan: init())
          (aMan1: init())
        (aMan2: init())
               (aMan3: init())
        (aMan4: init())
       (send gEgo:init() posn(105 180) loop(3))
       ProgramControl()

	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
  (method (changeState newState)
  = state newState
  (switch (state)
    (case 0
= cycles 1
 (send gGame:setSpeed(5))

    )
    (case 1
Print("Lord Bather...May I interrupt you, master?" #title"Alien:" #icon 777 0 1)
Print("If you must..."#title"Lord Bather:" #icon 777 0 2)
    (aMan:setCycle(Walk) setMotion(MoveTo 124 120 RoomScript))
    (send gEgo:setCycle(Walk) setMotion(MoveTo 105 120 RoomScript))
       )
       (case 2
Print("I found this alien near the Entrance." #title "Alien:" #icon 777 0 1)
Print("So...Earth man...what are you doing here?" #title"Lord Bather:" #icon 777 0 2)
Print("I was just exploring the environment." #title "Dr.Jummybummy:" #icon 777 0 19)
Print("You're lying! You're here because you want to stop our plan to destroy your lousy planet!"#title"Lord Bather:" #icon 777 0 2)
Print("WHAT??!!" #title "Dr.Jummybummy:" #icon 777 0 19)
Print("Throw him into the dungeon!" #title"Lord Bather:" #icon 777 0 2)
Print("Yes master sir Lord Bather! Move it Dr Jum...whatever!" #title "Alien:" #icon 777 0 1)
   (aMan:setCycle(Walk) setMotion(MoveTo 124 188 RoomScript))
    (send gEgo:setCycle(Walk) setMotion(MoveTo 105 188 RoomScript))
    )
    (case 3
     (send gEgo: hide())
     (aMan: hide())
     )
     (case 4
     Wait(15)
     (send gRoom: newRoom(14))


    )
    )
    )
)
(instance aKing of Act
(properties
view 33
x 120
y 85
))
(instance aMan of Act
(properties
view 32
loop 3
x 124
y 188
))
(instance aMan1 of Act
(properties
view 362
loop 0
cel 0
x 174
y 130
))
(instance aMan2 of Act
(properties
view 362
loop 0
cel 1
x 70
y 130
))
(instance aMan3 of Act
(properties
view 362
loop 0
cel 0
x 184
y 165
))
(instance aMan4 of Act
(properties
view 362
loop 0
cel 1
x 60
y 165
))
/******************************************************************************/
