/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 156)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
(local
statt
)
/******************************************************************************/
(instance public rm156 of Rm
	(properties
		picture 8
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
    	(SL:disable())
		(TheMenuBar:hide())

  = gTimeSeconds2 0
     ProgramControl()
      Display("                 Congratulations!\n\n   Looks like you've finished the game!"
            dsCOORD 51 29
			dsCOLOUR 2
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
    Display("                 Congratulations!\n\n   Looks like you've finished the game!"
            dsCOORD 50 30
			dsCOLOUR 10
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)

	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
(method(doit)
(if(== gTimeSeconds2 3)
+= statt 1
= gTimeSeconds2 2
)

   (if(== statt 1)
            Display("What will happen next with Dr.Jummybummy?"
            dsCOORD 31 99
			dsCOLOUR 1
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
        Display("What will happen next with Dr.Jummybummy?"
            dsCOORD 30 100
			dsCOLOUR 9
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
  )
  (if(== statt 3)      Display("Why did the aliens leave?"
            dsCOORD 81 117
			dsCOLOUR 1
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
         Display("Why did the aliens leave?"
            dsCOORD 80 118
			dsCOLOUR 9
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		))
    (if(== statt 5)
      Display("Will Michael Schumacher win the title again?"
            dsCOORD 38 135
			dsCOLOUR 1
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
         Display("Will Michael Schumacher win the title again?"
            dsCOORD 37 136
			dsCOLOUR 9
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		))
    (if(== statt 8)
    DrawPic(8)
       Display("All those, and other questions will be answered"
            dsCOORD 39 29
			dsCOLOUR 2
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
     Display("in the next episode ..."
            dsCOORD 96 47
			dsCOLOUR 2
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
    
   Display("All those, and other questions will be answered"
            dsCOORD 38 30
			dsCOLOUR 10
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
     Display("in the next episode ..."
            dsCOORD 95 48
			dsCOLOUR 10
            dsFONT 1
			dsBACKGROUND clTRANSPARENT
		)
  )
    (if(== statt 11)
    = statt 12
     Display("Dr.Jummybummy's"
            dsCOORD 61 99
			dsCOLOUR 4
            dsFONT 7
			dsBACKGROUND clTRANSPARENT
		)
      Display("Space Adventure 3"
            dsCOORD 48 139
			dsCOLOUR 4
            dsFONT 7
			dsBACKGROUND clTRANSPARENT
		)
     Display("Dr.Jummybummy's"
            dsCOORD 60 100
			dsCOLOUR 12
            dsFONT 7
			dsBACKGROUND clTRANSPARENT
		)
      Display("Space Adventure 3"
            dsCOORD 47 140
			dsCOLOUR 12
            dsFONT 7
			dsBACKGROUND clTRANSPARENT
		)
        )
         (if(== statt 15)
       (if(>= gScore gMaxScore)
       Print("Looks like you've got all the possible points. So, you will see the 'special' ending. " #at 60 40)
        (send gRoom: newRoom(150))
       return
       )
        Print("Looks like you've not received all the possible points in the game. So, you will not see a special ending." #at 60 40)
         Print("Actually you do!" #title "I'm doing charity")
              (send gRoom: newRoom(150))
       )


 )
 )
/******************************************************************************/
