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

		(switch(gPreviousRoomNumber)
			(default

			)
		)

      (aMan1: init())
      (aMan2: init())
      (aMan3: init())
      (aMan4: init())
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
 (method (changeState newState)
(var dyingScript)
  = state newState
  (switch (state)
    (case 0

    (aE: init() setMotion(MoveTo 55 1 RoomScript))
     )
     (case 1
     Print("Men, I have called you here to discuss the Moon Base project!" #title"Head General:" #icon 777 0 16)
     (aE: init() setMotion(MoveTo 0 1 RoomScript))
    )
    (case 2
    Print("Yes sir! The laser is almost operational. We only have one part missing." #title"Co-Jr. General:" #icon 777 0 17)
    (aE: init() setMotion(MoveTo  30 1 RoomScript))
    )
    (case 3
     Print("And what part would that be?" #title"Head General:" #icon 777 0 16)
     (aE: init() setMotion(MoveTo 70 1 RoomScript))
         )
    (case 4
    (aScreen: init() setCycle(Fwd))
    (aScreen2: init() setCycle(Fwd))
    Print("Have you heard about the Moon Stone? It's somewhere on this moon but our search-team has found nothing." #title"Co-Jr. General:" #icon 777 0 17)
    (aE: init() setMotion(MoveTo 10 1 RoomScript))
         )
    (case 5
    Print("So THAT prevents us from finishing the project?" #title"Head General:" #icon 777 0 16)
    (aE: init() setMotion(MoveTo 75 1 RoomScript))
             )
    (case 6
    Print("I'm afraid, yes." #title"Co-Jr. General:" #icon 777 0 17)
    (aE: init() setMotion(MoveTo 35 1 RoomScript))
             )
    (case 7
    Print("Then find it!!" #title"Head General:" #font 7 #icon 777 0 16)
    (aE: init() setMotion(MoveTo 54 1 RoomScript))
                 )
    (case 8
    Print("Yes sir!" #title"Co-Jr. General:" #icon 777 0 17)
    (aE: init() setMotion(MoveTo 15 1 RoomScript))
                 )
    (case 9
    Print("Consider it done!" #title"Chief:" #icon 777 0 17)
    (aE: init() setMotion(MoveTo 50 1 RoomScript))
                 )
    (case 10
    Print("We're on it!" #title"Technican:" #icon 777 0 17)
    (aE: init() setMotion(MoveTo 110 1 RoomScript))
                      )
    (case 11
    += gScore 1
    (send gRoom: newRoom(36))
    )
    )
   )
)
(instance aMan1 of Act
(properties
view 52
x 79
y 110
cel 0
)
)
(instance aMan2 of Act
(properties
view 52
x 166
y 124
cel 1
)
)
(instance aMan3 of Act
(properties
view 52
x 189
y 156
cel 2
)
)
(instance aMan4 of Act
(properties
view 52
x 130
y 180
cel 3
)
)
 (instance aE of Act
 (properties
 view 300
 x 1
 y 1
 ))
  (instance aScreen of Act
 (properties
 view 53
 x 123
 y 58
 ))
   (instance aScreen2 of Act
 (properties
 view 54
 x 119
 y 82
 priority 15
 ))
/******************************************************************************/
