/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 154)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
(local
answer
)
/******************************************************************************/
(instance public rm154 of Rm
	(properties
		picture 154
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
       ProgramControl()
		(SL:disable())
		(TheMenuBar:hide())
  (send gTheMusic: stop() number(401) loop(1) play())
  = gTimeSeconds 0
    SetUpEgo()
      ProgramControl()
    SaveSpeed(5)
    (send gEgo: init() posn(320 145) setMotion(MoveTo 170 120 RoomScript))
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
  (method (changeState newState)
  = state newState
  (switch (state)
    (case 0
= cycles 1
 (send gGame:setSpeed(5))

    )
    (case 2
    (send gEgo: setMotion(MoveTo 170 122 RoomScript))
    
    )
   (case 3
 Print("Hello! My name is Dr.Jummybummy, in case you didn't know that already." #title "Dr.Jummybummy:" #icon 777 0 18 #at 55 20)
 Print("Eigen made me come up here and say goodbye to you. He's dumb." #title "Dr.Jummybummy:" #icon 777 0 18 #at 55 20)
 Print("I heard that!          " #title "Eigen:" #icon 777 0 5 #at 170 130)
 Print("Anyway, I really hope that you enjoyed playing the game. Well, I enjoyed acting in it. At least, in some parts I did." #title "Dr.Jummybummy:" #icon 777 0 18 #at 55 20)
 Print("But I couldn't do it all alone. There were a lot of other characters in the game too, who played an important role in the story. Come up here everyone!" #title "Dr.Jummybummy:" #icon 777 0 18 #at 55 20)
 Print("Yeah right, we will! Who is stupid enough to make an extra act for no cash." #title "The rest of the cast:" #at 5 60)
 Print("Ha haa ....       " #title "Eigen:" #icon 777 0 5 #at 170 130)
 Print("Eigen!! I thought we had an agreement ..." #title "Dr.Jummybummy:" #icon 777 0 18 #at 55 20)
 Print("I lost the contract." #title "Eigen:" #icon 777 0 5 #at 170 130)
 Print("You are all dumb! I'm out of here!" #title "Dr.Jummybummy:" #icon 777 0 18 #at 55 20)
    (send gEgo: setMotion(MoveTo 320 150 RoomScript))
   )
   (case 4
   (send gEgo: view(667) setMotion(MoveTo 315 150 RoomScript))
   )
   (case 5
 Print("Well, I guess we'll all be seeing you in the next adventure. Right?" #title "Eigen:" #icon 777 0 5 #at 170 130)
= answer Print("Will we see you play the next episode?" #button "Shaa! Of course." 1 #button "Fat chance!" 0)
(if(== answer 1)
Print("In that case: Thank you for playing and see you again soon!" #title "Eigen:" #icon 777 0 5 #at 75 130)
(send gGame: newRoom(159))
//= gQuitGame TRUE
return
)
Print("I really hope that you didn't say what I think you did. If you did, then get out of here." #title "Eigen:" #icon 777 0 5 #at 80 130)
Print("Thank you, and come again!" #title "Eigen-Ind-Ham:" #icon 777 0 5 #at 125 130)
= gQuitGame TRUE
)
)
)
)
/******************************************************************************/
