(version 2)
(include "sci.sh")
(exports
    0 rm014
)
(use "Main")
(use "Class_255_0")
(use "Sound")
(use "Cycle")
(use "Game")
(use "TheMenuBar")
(use "Feature")
(use "Obj")
(script 14)


(local
    local0
    local1
    local2
    local3

)
(procedure (localproc_2008)
    (pilot:
        loop(1)
        setPri(15)
        posn(150 189)
        stopUpd()
    )
    = global203 0
)


(procedure (localproc_2029)
    (pilot:
        loop(0)
        setPri(10)
        posn(161 114)
        stopUpd()
    )
    = global203 1
)


(instance public rm014 of Rm
    (properties
        picture 14
        style 0
    )

    (method (init)
        (var temp0[150])
        (if (not 
        (if ((== global176 5) and global179)
            global181
        )
)
            (if (not 
            (if ((== global206 2) and (== global207 2))
                == global12 17
            )
)
                (self:setRegions(701))
            )
        )
        Load(128 31)
        Load(128 28)
        Load(128 65)
        Load(132 31)
        Load(132 33)
        Load(132 59)
        Load(132 83)
        (pilot:init())
        (super:init())
        (if (<> global12 31)
            (TheMenuBar:draw())
            (SL:enable())
        )
        (switch (global12)
            (case 2
                (wallA:
                    init()
                    setLoop(4)
                    setCel(0)
                )
                localproc_2029()
            )
            (case 8
                (wallA:
                    init()
                    setLoop(1)
                    setCel(0)
                )
                (wallB:
                    init()
                    setLoop(1)
                    setCel(1)
                )
                (wallC:
                    init()
                    setLoop(1)
                    setCel(2)
                )
                localproc_2008()
            )
            (case 16
                localproc_2008()
                (if (== global210 0)
                    (wallA:
                        init()
                        setLoop(1)
                        setCel(0)
                    )
                    (wallB:
                        init()
                        setLoop(1)
                        setCel(1)
                    )
                    (wallC:
                        init()
                        setLoop(1)
                        setCel(2)
                    )
                )(else
                    (if (((((== global210 1) or (== global210 2)) or (== global210 3)) or (== global210 7)) or (== global210 4))
                        (wallA:
                            init()
                            setLoop(4)
                            setCel(0)
                        )
                    )(else
                        (if (== global210 5)
                            (wallA:
                                init()
                                setLoop(2)
                                stopUpd()
                            )
                        )(else
                            (if (== global210 6)
                                (wallA:
                                    init()
                                    setLoop(3)
                                    stopUpd()
                                )
                            )(else
                                (if (== global210 8)
                                    (wallA:
                                        init()
                                        setLoop(5)
                                        stopUpd()
                                    )
                                )
                            )
                        )
                    )
                )
                (if (== global209 6)
                    Load(132 69)
                    (TheMenuBar:hide())
                    (SL:disable())
                    (lp1:init())
                    (lp2:init())
                    (lp3:init())
                    (lp4:init())
                    (send gLongSong:
                        number(69)
                        loop(-1)
                        play()
                    )
                )
            )
            (case 17
                localproc_2029()
                (if (== global210 0)
                    (wallA:
                        init()
                        setLoop(1)
                        setCel(0)
                    )
                    (wallB:
                        init()
                        setLoop(1)
                        setCel(1)
                    )
                    (wallC:
                        init()
                        setLoop(1)
                        setCel(2)
                    )
                )(else
                    (if (((((== global210 1) or (== global210 2)) or (== global210 3)) or (== global210 7)) or (== global210 4))
                        (wallA:
                            init()
                            setLoop(4)
                            setCel(0)
                        )
                    )(else
                        (if (== global210 5)
                            (wallA:
                                init()
                                setLoop(2)
                                stopUpd()
                            )
                        )(else
                            (if (== global210 6)
                                (wallA:
                                    init()
                                    setLoop(3)
                                    stopUpd()
                                )
                            )(else
                                (if (== global210 8)
                                    (wallA:
                                        init()
                                        setLoop(5)
                                        stopUpd()
                                    )
                                )
                            )
                        )
                    )
                )
                (if ((== global210 1) and ((== global209 2) or (== global209 3)))
                    (if (not 
                    (if (== global213 69)
                        == global214 82
                    )
)
                        (if (not 
                        (if (== global213 82)
                            == global214 69
                        )
)
                            (if (not 
                            (if ((== global176 5) and global179)
                                global181
                            )
 and not global178)
                                proc0_10()
                                (if (== global209 2)
                                    proc255_0(14 0)
                                )(else
                                    proc255_0(14 1)
                                )
                            )
                        )
                    )
                )
                (if (== global209 6)
                    Load(132 69)
                    (TheMenuBar:hide())
                    (SL:disable())
                    (lp1:init())
                    (lp2:init())
                    (lp3:init())
                    (lp4:init())
                    localproc_2029()
                    (send gLongSong:
                        number(69)
                        loop(-1)
                        play()
                    )
                )
            )
            (case 20
                (wallA:
                    init()
                    setLoop(4)
                    setCel(0)
                )
                localproc_2029()
                = global210 1
                = global207 1
            )
            (case 21
                localproc_2029()
                (if (== global210 5)
                    (wallA:
                        init()
                        setLoop(2)
                        stopUpd()
                    )
                    = local3 "Ortega"
                )(else
                    (if (== global210 6)
                        (wallA:
                            init()
                            setLoop(3)
                            stopUpd()
                        )
                        = local3 "Phleebhut"
                    )(else
                        (if (== global210 8)
                            (wallA:
                                init()
                                setLoop(5)
                                stopUpd()
                            )
                            = local3 "Pestulon"
                        )
                    )
                )
                proc0_10()
                (send gLongSong:stop())
                (powerDown:play())
                = global208 0
                ShakeScreen(10 3)
                proc255_0(Format(@temp0 14 2 local3))
            )
            (case 28
                (wallA:
                    init()
                    setLoop(4)
                    setCel(0)
                )
                localproc_2029()
                = global158 1
                = global210 2
            )
            (case 31
                (if (== global209 6)
                    Load(132 69)
                    (TheMenuBar:hide())
                    (SL:disable())
                    (lp1:init())
                    (lp2:init())
                    (lp3:init())
                    (lp4:init())
                    localproc_2029()
                    (send gLongSong:
                        number(69)
                        loop(-1)
                        play()
                    )
                )(else
                    localproc_2029()
                    (wallA:
                        init()
                        setLoop(4)
                        setCel(0)
                    )
                    proc0_10()
                    (if (== global209 2)
                        proc255_0(14 0)
                    )(else
                        proc255_0(14 1)
                    )
                )
            )
            (case 49
                (wallA:
                    init()
                    setLoop(3)
                    stopUpd()
                )
                localproc_2008()
                (send gLongSong:fade())
                = local1 1
                = global210 6
                = global206 0
                (self:setScript(rampScript))
            )
            (case 62
                (wallA:
                    init()
                    setLoop(2)
                    stopUpd()
                )
                localproc_2008()
                (send gLongSong:fade())
                = local1 1
                = global210 5
                = global206 0
                (self:setScript(rampScript))
            )
            (case 80
                (wallA:
                    init()
                    setLoop(5)
                    stopUpd()
                )
                localproc_2008()
                (send gLongSong:fade())
                = local1 1
                = global210 8
                = global206 0
                (self:setScript(rampScript))
            )
            (case 94
                = global178 1
                (self:setScript(ScriptID(22 0)))
                = global102 22
                (wallA:
                    init()
                    setLoop(4)
                    setCel(0)
                )
                localproc_2029()
                proc255_0(14 3)
                = global175 60
                = global218 1
                = global210 7
                = global206 3
                = global179 1
                = global208 2
            )
        )
        (if (global178 and (<> global12 94))
            (if (((== global176 5) and global179) and global181)
                (self:setScript(ScriptID(24 0)))
                = global102 24
            )(else
                (self:setScript(ScriptID(23 0)))
                = global102 23
            )
        )
        (if (not proc0_13(3) or not proc0_13(1))
            (floorPanel:init())
        )
        (if (((== global206 0) or (== global206 3)) and (<> global102 24))
            proc0_3()
        )
        = global100 0
        = global159 0
    )


    (method (doit)
        (if (global167 and not script)
            (self:setScript(arrivalScript))
        )
        (if (global258)
            (self:newRoom(99))
        )
        (super:doit())
    )


    (method (dispose)
        (if (local0)
            (send local0:dispose())
        )
        (super:dispose())
    )


    (method (handleEvent pEvent)
        (super:handleEvent(pEvent))
        (if ((send pEvent:claimed))
            return 
        )
        (switch ((send pEvent:type))
            (case 1
                (if ((== global203 0) and not global155)
                    (if ((((<= 143 (send pEvent:x)) and (<= (send pEvent:x) 180)) and (<= 63 (send pEvent:y))) and (<= (send pEvent:y) 117))
                        (send pEvent:claimed(1))
                        localproc_2029()
                    )(else
                        (if ((((<= 263 (send pEvent:x)) and (<= (send pEvent:x) 319)) and (<= 59 (send pEvent:y))) and (<= (send pEvent:y) 142))
                            (send pEvent:claimed(1))
                            proc0_12()
                            (send global2:newRoom(16))
                        )(else
                            (if (((((== global210 0) and (<= 105 (send pEvent:x))) and (<= (send pEvent:x) 215)) and (<= 0 (send pEvent:y))) and (<= (send pEvent:y) 17))
                                (send pEvent:claimed(1))
                                (send global2:newRoom(8))
                            )(else
                                (if ((((<= 276 (send pEvent:x)) and (<= (send pEvent:x) 301)) and (<= 160 (send pEvent:y))) and (<= (send pEvent:y) 177))
                                    (send pEvent:claimed(1))
                                    proc0_12()
                                    (if (== global203 0)
                                        (if (((== global210 5) or (== global210 6)) or (== global210 8))
                                            (self:setScript(rampScript))
                                        )(else
                                            (if (== global210 0)
                                                proc255_0(14 4)
                                                (send global2:newRoom(8))
                                            )(else
                                                proc255_0(14 5)
                                            )
                                        )
                                    )(else
                                        proc255_0(14 6)
                                    )
                                )
                            )
                        )
                    )
                )(else
                    (if (((((((== global203 1) and not global155) and not (== global209 6)) and (<= 105 (send pEvent:x))) and (<= (send pEvent:x) 215)) and (<= 131 (send pEvent:y))) and (<= (send pEvent:y) 189))
                        (send pEvent:claimed(1))
                        localproc_2008()
                    )
                )
            )
            (case 128
                (if (Said('/motivator'))
                    proc255_0(14 7)
                )(else
                    (if (Said('press,disembark,disembark,open,(get<out)[/ramp,door,button,craft]'))
                        (if (== global203 0)
                            (if (((== global210 5) or (== global210 6)) or (== global210 8))
                                (self:setScript(rampScript))
                            )(else
                                (if (== global210 0)
                                    proc255_0(14 4)
                                    (send global2:newRoom(8))
                                )(else
                                    proc255_0(14 5)
                                )
                            )
                        )(else
                            proc255_0(14 6)
                        )
                    )(else
                        (if (Said('close/door,door,ramp'))
                            proc255_0(14 8)
                        )(else
                            (if ((Said('(turn<on),use,begin,fly/engine,craft') or Said('launch,land,park[/craft]')) or Said('shoot[/gun]'))
                                proc255_0(14 9)
                            )(else
                                (if (Said('enter,go,(sit[<down,in]),get/chair<passenger'))
                                    (if (== global203 1)
                                        proc255_0(14 10)
                                    )(else
                                        (if (global178)
                                            proc255_0(14 11)
                                        )(else
                                            proc255_0(14 12)
                                        )
                                    )
                                )(else
                                    (if (Said('sit[<down]') or Said('enter,go,(sit[<down,in]),get/chair,cabin'))
                                        (if (== global203 1)
                                            proc255_0(14 10)
                                        )(else
                                            localproc_2029()
                                        )
                                    )(else
                                        (if (Said('(get<up),stand[<up]') or Said('disembark/chair,cabin'))
                                            (if (== global203 0)
                                                proc255_0(14 13)
                                            )(else
                                                (if (== global209 6)
                                                    proc255_0(14 14)
                                                )(else
                                                    localproc_2008()
                                                )
                                            )
                                        )(else
                                            (if (Said('use,wear,drop[<on]/panties'))
                                                (if (not (send gEgo:has(5)))
                                                    proc255_0(14 15)
                                                )(else
                                                    (if (global182)
                                                        proc255_0(14 16)
                                                    )(else
                                                        (if (== global203 1)
                                                            proc255_0(14 17)
                                                        )(else
                                                            proc255_0(14 18)
                                                            (send global1:changeScore(10))
                                                            = global182 1
                                                        )
                                                    )
                                                )
                                            )(else
                                                (if (Said('remove,get[<off]/panties'))
                                                    (if (not (send gEgo:has(5)))
                                                        proc255_0(14 15)
                                                    )(else
                                                        (if (global182)
                                                            proc255_0(14 19)
                                                        )(else
                                                            proc255_0(14 20)
                                                        )
                                                    )
                                                )(else
                                                    (if (Said('explore/cushion,chair'))
                                                        (if (== global203 0)
                                                            proc255_0(14 21)
                                                        )(else
                                                            (if (not global150)
                                                                proc255_0(14 22)
                                                                (send global1:changeScore(10))
                                                                = global154 (+ global154 7)
                                                                (send gEgo:get(8))
                                                                = global150 1
                                                            )(else
                                                                proc255_0(14 23)
                                                            )
                                                        )
                                                    )(else
                                                        (if (Said('remove,hoist,open,get/tile,compartment,(console[<video])'))
                                                            (if (<> global136 4)
                                                                proc255_0(14 24)
                                                            )(else
                                                                proc255_0(14 25)
                                                            )
                                                        )(else
                                                            (if (Said('close/tile,compartment,deck,(console[<video])'))
                                                                (if (<> global136 4)
                                                                    proc255_0(14 26)
                                                                )(else
                                                                    proc255_0(14 27)
                                                                )
                                                            )(else
                                                                (if (Said('converse/man,man'))
                                                                    (if (global178)
                                                                        proc255_0(14 28)
                                                                    )(else
                                                                        proc255_0(14 29)
                                                                    )
                                                                )(else
                                                                    (if (Said('look>'))
                                                                        (if (Said('/cavity,compartment'))
                                                                            (switch (global136)
                                                                                (case 4
                                                                                    proc255_0(14 27)
                                                                                )
                                                                                (case 3
                                                                                    proc255_0(14 30)
                                                                                )
                                                                                (case 2
                                                                                    proc255_0(14 31)
                                                                                )
                                                                                (default 
                                                                                    proc255_0(14 32)
                                                                                )
                                                                            )
                                                                        )(else
                                                                            (if (Said('/tile'))
                                                                                (if (<> global136 4)
                                                                                    proc255_0(14 33)
                                                                                )(else
                                                                                    proc255_0(14 34)
                                                                                )
                                                                            )(else
                                                                                (if (Said('/deck') or Said('<down'))
                                                                                    (if (<> global136 4)
                                                                                        proc255_0(14 35)
                                                                                    )(else
                                                                                        proc255_0(14 36)
                                                                                    )
                                                                                )(else
                                                                                    (if (Said('/console'))
                                                                                        (if (== global203 1)
                                                                                            proc255_0(14 37)
                                                                                        )(else
                                                                                            (if (<= global136 1)
                                                                                                proc255_0(14 38)
                                                                                            )(else
                                                                                                (if (== global136 3)
                                                                                                    proc255_0(14 30)
                                                                                                )(else
                                                                                                    (if (== global136 2)
                                                                                                        proc255_0(14 31)
                                                                                                    )(else
                                                                                                        proc255_0(14 39)
                                                                                                    )
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )(else
                                                                                        (if (Said('/comp<access'))
                                                                                            (if (== global209 6)
                                                                                                proc255_0(14 40)
                                                                                            )(else
                                                                                                (if (== global203 0)
                                                                                                    (send global2:newRoom(16))
                                                                                                )(else
                                                                                                    proc255_0(14 41)
                                                                                                )
                                                                                            )
                                                                                        )(else
                                                                                            (if (Said('/(comp[<scum]),control') or Said('/comp[<comp]'))
                                                                                                (if (== global209 6)
                                                                                                    proc255_0(14 40)
                                                                                                )(else
                                                                                                    (if (== global203 0)
                                                                                                        proc0_12()
                                                                                                        (send global2:newRoom(16))
                                                                                                    )(else
                                                                                                        (if (proc0_13(3) and proc0_13(1))
                                                                                                            proc0_12()
                                                                                                            (send global2:newRoom(17))
                                                                                                        )(else
                                                                                                            proc255_0(14 42)
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )(else
                                                                                                (if (Said('/partition'))
                                                                                                    proc255_0(14 43)
                                                                                                )(else
                                                                                                    (if (Said('/man,prize,scott'))
                                                                                                        (if (global178)
                                                                                                            proc255_0(14 44)
                                                                                                        )(else
                                                                                                            proc255_0(14 45)
                                                                                                        )
                                                                                                    )(else
                                                                                                        (if (Said('/cushion'))
                                                                                                            (if (== global203 0)
                                                                                                                proc255_0(14 21)
                                                                                                            )(else
                                                                                                                proc255_0(14 46)
                                                                                                            )
                                                                                                        )(else
                                                                                                            (if (Said('/cabin'))
                                                                                                                (if (== global203 1)
                                                                                                                    proc255_0(14 47)
                                                                                                                )(else
                                                                                                                    proc255_0(14 48)
                                                                                                                )
                                                                                                            )(else
                                                                                                                (if (Said('/pane'))
                                                                                                                    (switch (global210)
                                                                                                                        (case 0
                                                                                                                            proc255_0(14 49)
                                                                                                                        )
                                                                                                                        (case 1
                                                                                                                            (if (== global209 6)
                                                                                                                                proc255_0(14 50)
                                                                                                                            )(else
                                                                                                                                proc255_0(14 51)
                                                                                                                            )
                                                                                                                        )
                                                                                                                        (case 2
                                                                                                                            proc255_0(14 52)
                                                                                                                        )
                                                                                                                        (case 3
                                                                                                                            proc255_0(14 53)
                                                                                                                        )
                                                                                                                        (case 4
                                                                                                                            proc255_0(14 54)
                                                                                                                        )
                                                                                                                        (case 7
                                                                                                                            proc255_0(14 55)
                                                                                                                        )
                                                                                                                        (case 5
                                                                                                                            proc255_0(14 56)
                                                                                                                        )
                                                                                                                        (case 6
                                                                                                                            proc255_0(14 57)
                                                                                                                        )
                                                                                                                        (case 8
                                                                                                                            proc255_0(14 58)
                                                                                                                        )
                                                                                                                        (default 
                                                                                                                            proc255_0(14 59)
                                                                                                                        )
                                                                                                                    )
                                                                                                                )(else
                                                                                                                    (if (Said('/chair<passenger'))
                                                                                                                        (if (global178)
                                                                                                                            proc255_0(14 11)
                                                                                                                        )(else
                                                                                                                            proc255_0(14 12)
                                                                                                                        )
                                                                                                                    )(else
                                                                                                                        (if (Said('/chair'))
                                                                                                                            (if (== global203 1)
                                                                                                                                proc255_0(14 60)
                                                                                                                            )(else
                                                                                                                                (if (global178)
                                                                                                                                    proc255_0(14 11)
                                                                                                                                )(else
                                                                                                                                    proc255_0(14 12)
                                                                                                                                )
                                                                                                                            )
                                                                                                                        )(else
                                                                                                                            (if (Said('/star,eva'))
                                                                                                                                (if (== global210 1)
                                                                                                                                    proc255_0(14 61)
                                                                                                                                )(else
                                                                                                                                    proc255_0(14 62)
                                                                                                                                )
                                                                                                                            )(else
                                                                                                                                (if (Said('/ceiling') or Said('<up'))
                                                                                                                                    (if (== global203 0)
                                                                                                                                        proc255_0(14 63)
                                                                                                                                    )(else
                                                                                                                                        (if (== global210 0)
                                                                                                                                            proc255_0(14 64)
                                                                                                                                        )(else
                                                                                                                                            proc255_0(14 65)
                                                                                                                                        )
                                                                                                                                    )
                                                                                                                                )(else
                                                                                                                                    (if (Said('/ramp'))
                                                                                                                                        proc255_0(14 66)
                                                                                                                                    )(else
                                                                                                                                        (if (Said('/door'))
                                                                                                                                            proc255_0(14 67)
                                                                                                                                        )(else
                                                                                                                                            (if (Said('/button'))
                                                                                                                                                proc255_0(14 68)
                                                                                                                                            )(else
                                                                                                                                                (if (Said('/hal[<cable]') or Said('cable'))
                                                                                                                                                    (if ((send global5:contains(floorPanel)))
                                                                                                                                                        proc255_0(14 69)
                                                                                                                                                    )(else
                                                                                                                                                        proc255_0(14 70)
                                                                                                                                                    )
                                                                                                                                                )(else
                                                                                                                                                    (if (Said('[<around,at,in][/area,craft]'))
                                                                                                                                                        (if (== global203 1)
                                                                                                                                                            proc255_0(14 47)
                                                                                                                                                        )(else
                                                                                                                                                            (if (not global169)
                                                                                                                                                                = global169 1
                                                                                                                                                                proc255_0(14 71)
                                                                                                                                                            )(else
                                                                                                                                                                proc255_0(14 72)
                                                                                                                                                            )
                                                                                                                                                        )
                                                                                                                                                    )
                                                                                                                                                )
                                                                                                                                            )
                                                                                                                                        )
                                                                                                                                    )
                                                                                                                                )
                                                                                                                            )
                                                                                                                        )
                                                                                                                    )
                                                                                                                )
                                                                                                            )
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )
                                                                        )
                                                                    )(else
                                                                        (if (Said('go,look,(turn<on)/(comp[<scum]),control') or Said('/comp'))
                                                                            (if (== global203 0)
                                                                                proc0_12()
                                                                                (send global2:newRoom(16))
                                                                            )(else
                                                                                (if (proc0_13(3) and proc0_13(1))
                                                                                    proc0_12()
                                                                                    (send global2:newRoom(17))
                                                                                )(else
                                                                                    proc255_0(14 42)
                                                                                )
                                                                            )
                                                                        )(else
                                                                            (if (Said('replace,use,fix,place,insert,drop,afix,cable/[/cavity,compartment,deck,console,generator,cable]>'))
                                                                                (if (Said('/generator'))
                                                                                    (if (proc0_13(3))
                                                                                        proc255_0(14 73)
                                                                                    )(else
                                                                                        (if (not (send gEgo:has(3)))
                                                                                            proc0_9()
                                                                                        )(else
                                                                                            (if (== global203 0)
                                                                                                (self:setScript(reactorScript))
                                                                                            )(else
                                                                                                proc255_0(14 74)
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )(else
                                                                                    (if ((Said('/cable') or Said('<cable')) or Said('cable<use'))
                                                                                        (if (proc0_13(1))
                                                                                            proc255_0(14 73)
                                                                                        )(else
                                                                                            (if (not (send gEgo:has(1)))
                                                                                                proc0_9()
                                                                                            )(else
                                                                                                (if (== global203 0)
                                                                                                    (self:setScript(wireScript))
                                                                                                )(else
                                                                                                    proc255_0(14 74)
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )(else
                                                                                        (if (Said('/crystal') or Said('<crystal'))
                                                                                            (if (not (send gEgo:has(0)))
                                                                                                proc0_9()
                                                                                            )(else
                                                                                                proc255_0(14 75)
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )(else
                                                                                (if (Said('turn,switch[<on]/generator'))
                                                                                    proc255_0(14 76)
                                                                                )(else
                                                                                    (if (Said('get/generator'))
                                                                                        (if ((send gEgo:has(3)))
                                                                                            proc255_0(14 77)
                                                                                        )(else
                                                                                            (if (proc0_13(3 14))
                                                                                                proc255_0(14 78)
                                                                                            )(else
                                                                                                proc255_0(14 79)
                                                                                            )
                                                                                        )
                                                                                    )(else
                                                                                        (if (Said('get/cable'))
                                                                                            (if ((send gEgo:has(1)))
                                                                                                proc255_0(14 77)
                                                                                            )(else
                                                                                                proc255_0(14 78)
                                                                                            )
                                                                                        )(else
                                                                                            (if (Said('drop,use,afix[<on]/belt'))
                                                                                                (if (== global203 1)
                                                                                                    proc255_0(14 80)
                                                                                                )(else
                                                                                                    proc255_0(14 81)
                                                                                                )
                                                                                            )(else
                                                                                                (if (Said('open/console[<video]'))
                                                                                                    (if (<> global136 4)
                                                                                                        proc255_0(14 82)
                                                                                                    )(else
                                                                                                        proc255_0(14 83)
                                                                                                    )
                                                                                                )(else
                                                                                                    (if (Said('close,replace/console[<video]'))
                                                                                                        (if (<> global136 4)
                                                                                                            proc255_0(14 84)
                                                                                                        )(else
                                                                                                            proc255_0(14 8)
                                                                                                        )
                                                                                                    )(else
                                                                                                        (if (Said('go/compartment,cavity'))
                                                                                                            proc255_0(14 85)
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
    )


    (method (newRoom newRoomNumber)
        (if (global102)
            (send (ScriptID(global102 0)):dispose())
            DisposeScript(22)
            DisposeScript(23)
            DisposeScript(24)
        )
        (if (== (send gLongSong:number) 69)
            (send gLongSong:fade())
        )
        (super:newRoom(newRoomNumber))
    )

)
(instance reactorScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (pilot:
                    loop(2)
                    forceUpd()
                )
                = cycles 15
            )
            (case 1
                (if (proc0_13(1))
                    proc255_0(14 86)
                    = global136 4
                    (floorPanel:dispose())
                )(else
                    proc255_0(14 87)
                    = global136 3
                )
                (send ((send global9:at(3))):moveTo(14))
                (send global1:changeScore(5))
                = cycles 10
            )
            (case 2
                (pilot:
                    loop(1)
                    forceUpd()
                )
                proc0_3()
                (send global2:setScript(0))
            )
        )
    )

)
(instance wireScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (pilot:
                    loop(2)
                    forceUpd()
                )
                = cycles 15
            )
            (case 1
                (if (proc0_13(3))
                    proc255_0(14 88)
                    (floorPanel:dispose())
                    = global136 4
                )(else
                    proc255_0(14 89)
                    = global136 2
                )
                (send ((send global9:at(1))):moveTo(14))
                (send global1:changeScore(5))
                = cycles 10
            )
            (case 2
                (pilot:
                    loop(1)
                    forceUpd()
                )
                proc0_3()
                (send global2:setScript(0))
            )
        )
    )

)
(instance rampScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (if (local1)
                    (ramp:
                        init()
                        setLoop(
                            (if (== global210 5)
                                2
                            )(else
                                (if (== global210 6)
                                    3
                                )(else
                                    (if (== global210 8)
                                        5
                                    )
                                )
                            )
)
                        setCel(1)
                        stopUpd()
                    )
                    = seconds 2
                )(else
                    = cycles 10
                )
            )
            (case 1
                (if (local1)
                    (ramp:dispose())
                    = local1 0
                    (send global2:setScript(0))
                )(else
                    (ramp:
                        init()
                        setCel(1)
                        setLoop(
                            (if (== global210 5)
                                2
                            )(else
                                (if (== global210 6)
                                    3
                                )(else
                                    (if (== global210 8)
                                        5
                                    )
                                )
                            )
)
                        setCel(1)
                        stopUpd()
                    )
                    = cycles 5
                )
            )
            (case 2
                (send global2:newRoom(
                    (if (== global210 5)
                        62
                    )(else
                        (if (== global210 6)
                            49
                        )(else
                            (if (== global210 8)
                                80
                            )
                        )
                    )
))
            )
        )
    )

)
(instance arrivalScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = local0 proc255_0(14 90 67 -1 130 70 280 91)
                (send gLongSong:fade())
                = seconds 4
            )
            (case 1
                proc0_12()
                = local0 0
                (send global2:newRoom(17))
            )
        )
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )
        (self:changeState(1))
    )

)
(instance wallCScript of Script
    (properties)

    (method (doit)
        (super:doit())
        (if (== global206 2)
            (if (> (wallA:y) 161)
                (wallA:stopUpd())
            )
            (if (> (wallB:y) 166)
                (wallB:stopUpd())
            )
        )
        (if (== global206 1)
            (if (< (wallA:y) 120)
                (wallA:stopUpd())
            )
            (if (< (wallB:y) 123)
                (wallB:stopUpd())
            )
        )
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (if (== global206 2)
                    proc0_2()
                    (if (== global207 2)
                        (wallA:dispose())
                        (wallB:dispose())
                        (wallC:
                            setLoop(1)
                            setCel(2)
                            posn(161 98)
                        )
                        proc0_10()
                        proc255_0(14 91)
                        (send global2:setScript(0))
                        (send global2:newRoom(17))
                    )(else
                        = cycles 3
                    )
                )
                (if (== global206 1)
                    proc0_2()
                    (self:changeState(2))
                )
            )
            (case 1
                (thunder:play())
                ShakeScreen(15)
                (if (global601)
                    proc255_0(14 92 67 -1 130 70 280)
                )(else
                    proc255_0(14 93 67 -1 130 70 280)
                    = global601 1
                )
                = cycles 15
            )
            (case 2
                (wallC:setMotion(MoveTo 161 
                    (if (== global206 2)
                        98
                    )(else
                        67
                    )
 self))
                (wallB:setMotion(MoveTo 161 
                    (if (== global206 2)
                        181
                    )(else
                        119
                    )
))
                (wallA:setMotion(MoveTo 161 
                    (if (== global206 2)
                        209
                    )(else
                        118
                    )
))
            )
            (case 3
                (if (== global206 2)
                    (if (global207)
                        proc255_0(14 94 67 -1 130 70 280)
                        = global207 2
                        (send global2:newRoom(17))
                    )(else
                        (blowUp:play())
                        ShakeScreen(30)
                        proc255_0(14 95)
                        proc0_17(0 0 5 7)
                    )
                )(else
                    proc255_0(14 96)
                    (wallA:stopUpd())
                    (wallB:stopUpd())
                    (wallC:stopUpd())
                    = global206 0
                    proc0_3()
                    = global100 0
                )
            )
        )
    )

)
(instance pilot of View
    (properties)

    (method (init)
        (super:init())
        (self:
            view(31)
            ignoreActors(1)
        )
    )

)
(instance floorPanel of View
    (properties)

    (method (init)
        (super:init())
        (self:
            view(28)
            setLoop(0)
            setCel(0)
            ignoreActors()
            posn(95 190)
            stopUpd()
        )
    )

)
(instance ramp of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            view(28)
            setCel(1)
            setPri(14)
            ignoreActors(1)
            posn(159 189)
        )
    )

)
(instance lp1 of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            view(65)
            setLoop(0)
            ignoreActors(1)
            posn(160 83)
            setPri(6)
            setCycle(Fwd)
        )
    )

)
(instance lp2 of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            view(65)
            setLoop(2)
            ignoreActors(1)
            posn(160 83)
            setPri(6)
            setCycle(Fwd)
        )
    )

)
(instance lp3 of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            view(65)
            setLoop(1)
            ignoreActors(1)
            posn(160 83)
            setPri(6)
            setCycle(Fwd)
        )
    )

)
(instance lp4 of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            view(65)
            setLoop(3)
            ignoreActors(1)
            posn(160 83)
            setPri(6)
            setCycle(Fwd)
        )
    )

)
(instance wallA of Act
    (properties)

    (method (init)
        (super:init())
        (self:
            view(28)
            setCel(0)
            ignoreActors(1)
            x(161)
            y(
                (if (== global206 1)
                    210
                )(else
                    117
                )
)
            setPri(6)
            setStep(1 3)
            stopUpd()
        )
    )

)
(instance wallB of Act
    (properties)

    (method (init)
        (super:init())
        (self:
            view(28)
            ignoreActors(1)
            x(161)
            y(
                (if (== global206 1)
                    182
                )(else
                    120
                )
)
            setPri(5)
            setStep(1 2)
            stopUpd()
        )
    )

)
(instance wallC of Act
    (properties)

    (method (init)
        (super:init())
        (self:
            view(28)
            ignoreActors(1)
            x(161)
            y(
                (if (== global206 1)
                    98
                )(else
                    67
                )
)
            setPri(4)
            setStep(1 1)
            stopUpd()
            setScript(wallCScript)
        )
    )

)
(instance blowUp of Sound
    (properties
        number 33
        priority 1
    )
)
(instance thunder of Sound
    (properties
        number 31
        priority 1
    )
)
(instance powerDown of Sound
    (properties
        number 83
        priority 2
    )
)
