/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 200)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(local
anim2 = FALSE
)
/******************************************************************************/
(instance public rm200 of Rm
	(properties
		picture scriptNumber
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))

		(switch(gPreviousRoomNumber)
			(default
				(send gEgo:
					posn(29 177)
					loop(3)
				)
			)
		)

		SetUpEgo()
		(send gEgo:init())
  ProgramControl()
  Print("What is this antenna? Got to have a closer look on that..." #title "Dr.Jummybummy:" #icon 777 0 0 #at 70 140)
  		(send gEgo:setMotion(MoveTo 180 143 ))
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
 (method(doit)
 (if(== (send gEgo: x) 179)
 ShipComes()
  Print("Weird technology.... negative polorisation has been replaced with ionic connection with hydronic interpolorisation..." #title "Dr.Jummybummy:" #icon 777 0 0 #at 70 140)
 )
 (if(== gTimeSeconds2 1 and (if(anim2)))
 = gTimeSeconds2 2
 DrawPic(201))
 (if(== gTimeSeconds2 3 and (if(anim2)))
 = gTimeSeconds2 4
 DrawPic(202))
 (if(== gTimeSeconds2 5 and (if(anim2)))
 = gTimeSeconds2 6
 DrawPic(203) Print("What is this?..." #at 100 140 #title "Dr.Jummybummy:" #icon 777 0 0))
 (if(== gTimeSeconds2 7 and (if(anim2)))
 = gTimeSeconds2 8
 DrawPic(204))
 (if(== gTimeSeconds2 9 and (if(anim2)))
 = gTimeSeconds2 10
 DrawPic(205) (send gEgo: view(197)) Print("What's going on?...??" #at 100 140 #title "Dr.Jummybummy:" #icon 777 0 0))
 (if(== gTimeSeconds2 11 and (if(anim2)))
 = gTimeSeconds2 12
 DrawPic(206))
 (if(== gTimeSeconds2 13 and (if(anim2)))
 = gTimeSeconds2 14
 DrawPic(207))
 (if(== gTimeSeconds2 15 and (if(anim2)))
 = gTimeSeconds2 16
 DrawPic(208) Wait(2) (send gRoom: newRoom(147)))

 )

)
(procedure public(ShipComes)
(send gGame: setSpeed(3))
= gTimeSeconds2 0
= anim2 TRUE
)
/******************************************************************************/
