/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 158)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
/******************************************************************************/
(instance public rm158 of Rm
	(properties
		picture 158
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))

		(switch(gPreviousRoomNumber)

		)
      (send gTheMusic:
			prevSignal(0)
			stop()
			number(48)
			loop(-1)
			play()
		)
        = gTimeSeconds 2
 		ProgramControl()
       (aScreen1: init() cycleSpeed(4) setCycle(Fwd))
       SaveSpeed(4)
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
   (method (changeState newState)
  = state newState
  (switch (state)
    (case 1
 
  ShakeScreen(12 ssFULL_SHAKE)
  (aScreen1: loop(3))
 DrawPic(159)
   (aScreen2: init() setCycle(Fwd) cycleSpeed(2))
  = gTimeSeconds 45
  (aScreen3: dispose())
 )
 )
 )
 
 (method(doit)
 
 (if(== gTimeSeconds 3)
 += gTimeSeconds 1
 Print("Looks like someone is contacting you trough the communication line ... " #at 100 160)
 (aScreen1: loop(1))
 )
 (if(== gTimeSeconds 5)
 += gTimeSeconds 1
 Print("Earth man! Do you think you can get away from me?" #at 60 30 #title "Lord Bather:" #icon 365 1 0)
 )
 (if(== gTimeSeconds 8)
 += gTimeSeconds 1
 Print("NOBODY can stop me! Muhaaahaaaa!!" #at 60 30 #title "Lord Bather:" #icon 365 1 2)
 )
 (if(== gTimeSeconds 11)
 += gTimeSeconds 1
 Print("What can you do? I already escaped." #at 60 140 #title "Dr.Jummybummy:" #icon 777 0 0)
 )
  (if(== gTimeSeconds 14)
 += gTimeSeconds 1
 Print("This!" #at 60 30 #title "Lord Bather:" #icon 365 1 2)
 (aScreen3: init() setCycle(End RoomScript))
  )
   (if(== gTimeSeconds 48)  //45
  Print("It's time to get the hell out of here!")
  (send gRoom: newRoom(170))
   )
 )
 )
(instance aScreen1 of Act
(properties
view 365
x 182
y 132
))
(instance aScreen2 of Act
(properties
view 365
x 220
y 132
loop 2
))
(instance aScreen3 of Act
(properties
view 367
x 90
y 60
loop 0
))
