/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 157)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
/******************************************************************************/
(instance public rm157 of Rm
	(properties
		picture 8
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
      ProgramControl()
		(SL:disable())
(TheMenuBar:hide())

/*Display(" Dr.Jummybummy's Space Adventure 2 Crew: " dsCOORD 19 6 dsCOLOUR 4 dsFONT 900)
Display(" Dr.Jummybummy's Space Adventure 2 Crew: " dsCOORD 18 5 dsCOLOUR 12 dsFONT 900)

Display("Programming" dsCOORD 16 51 dsCOLOUR 1 dsFONT 900)
Display("Backgrounds" dsCOORD 16 61 dsCOLOUR 1 dsFONT 900)
Display("Story" dsCOORD 16 71 dsCOLOUR 1 dsFONT 900)
Display("By Eigen \"Whatever\" Lenk" dsCOORD 131 61 dsCOLOUR 1 dsFONT 900)

Display("}" dsCOORD 106 56 dsCOLOUR 1 dsFONT 7)

Display("Musician" dsCOORD 16 101 dsCOLOUR 1 dsFONT 900)
Display("Chris \"Scorposer\" Moorson" dsCOORD 131 101 dsCOLOUR 1 dsFONT 900)

Display("Beta Tester" dsCOORD 16 141 dsCOLOUR 1 dsFONT 900)
Display("Nick \"b@dt@ste\" Olsen" dsCOORD 131 141 dsCOLOUR 1 dsFONT 900)

Display("Programming" dsCOORD 15 50 dsCOLOUR 9 dsFONT 900)
Display("Backgrounds" dsCOORD 15 60 dsCOLOUR 9 dsFONT 900)
Display("Story" dsCOORD 15 70 dsCOLOUR 9 dsFONT 900)
Display("By Eigen \"Whatever\" Lenk" dsCOORD 130 60 dsCOLOUR 9 dsFONT 900)

Display("}" dsCOORD 105 55 dsCOLOUR 9 dsFONT 7)

Display("Musician" dsCOORD 15 100 dsCOLOUR 9 dsFONT 900)
Display("Chris \"Scorposer\" Moorson" dsCOORD 130 100 dsCOLOUR 9 dsFONT 900)

Display("Beta Tester" dsCOORD 15 140 dsCOLOUR 9 dsFONT 900)
Display("Nick \"b@dt@ste\" Olsen" dsCOORD 130 140 dsCOLOUR 9 dsFONT 900)  */


= gTimeSeconds 0
(Artist: init())
Display("Background artist" dsCOORD 131 75 dsCOLOUR 4 dsFONT 900)
Display("    Eigen \"Eh?\" Lenk" dsCOORD 131 90 dsCOLOUR 4 dsFONT 900)
Display("Background artist" dsCOORD 132 76 dsCOLOUR 12 dsFONT 900)
Display("    Eigen \"Eh?\" Lenk" dsCOORD 132 91 dsCOLOUR 12 dsFONT 900)
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)

  	(method (handleEvent pEvent)
    (if( not (send pEvent:claimed) )
(if( (== (send pEvent:type) evKEYBOARD))
 (send gRoom: newRoom(154))

)))
 (method(doit)
(if(== gTimeSeconds 4)
+= gTimeSeconds 1
DrawPic(8)
(Artist: dispose())
(Programmer: init())
Display("Programmer" dsCOORD 22 135 dsCOLOUR 4 dsFONT 900)
Display("    Eigen \"Compiler\" Lenk" dsCOORD 22 150 dsCOLOUR 4 dsFONT 900)
Display("Programmer" dsCOORD 23 136 dsCOLOUR 12 dsFONT 900)
Display("    Eigen \"Compiler\" Lenk" dsCOORD 23 151 dsCOLOUR 12 dsFONT 900)
)
(if(== gTimeSeconds 9)
+= gTimeSeconds 1
DrawPic(8)
(Programmer: dispose())
(Music: init())
Display("Musician" dsCOORD 115 100 dsCOLOUR 4 dsFONT 900)
Display("    Chris \"Scorposer\" Moorson" dsCOORD 115 115 dsCOLOUR 4 dsFONT 900)
Display("Musician" dsCOORD 116 101 dsCOLOUR 12 dsFONT 900)
Display("    Chris \"Scorposer\" Moorson" dsCOORD 116 116 dsCOLOUR 12 dsFONT 900)
)
(if(== gTimeSeconds 13)
+= gTimeSeconds 1
DrawPic(8)
(Music: dispose())
(Tester: init())
Display("Beta Tester" dsCOORD 74 25 dsCOLOUR 1 dsFONT 900)
Display("    Nick \"b@dt@ste\" Olsen" dsCOORD 74 40 dsCOLOUR 1 dsFONT 900)
Display("Beta Tester" dsCOORD 75 26 dsCOLOUR 9 dsFONT 900)
Display("    Nick \"b@dt@ste\" Olsen" dsCOORD 75 41 dsCOLOUR 9 dsFONT 900)
 )
 
 (if(== gTimeSeconds 17)
 (send gRoom: newRoom(154))
 )
 )
)

(instance Programmer of Prop
(properties
view 407
cel 1
x 208
y 95
))
(instance Tester of Prop
(properties
view 407
cel 3
x 50
y 149
))
(instance Artist of Prop
(properties
view 407
cel 0
x 50
y 149
))
(instance Music of Prop
(properties
view 407
cel 2
x 54
y 80
))
