(include "sci.sh")
(use "Main")
(use "Print")
(use "Blink")
(use "Scaler")
(use "n958")
(use "Grooper")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 750)


(local
    local0
    local1 = 1
    local2
    local3
    local4
    local5
    local6
    local7
    local8[100]
    local108[4] = (46 180 240 300 )
    local112[15] = (40 49 58 67 76 85 94 103 112 121 130 139 148 157 166 )
    local127[3] = (45 115 300 )

)
(procedure (localproc_01a5 param1 param2 param3 param4 param5)
    localproc_0280(param1 param2 param3 param2 param5)
    localproc_0280(param3 param2 param3 param4 param5)
    localproc_0280(param3 param4 param1 param4 param5)
    localproc_0280(param1 param4 param1 param2 param5)
)


(procedure (localproc_01e2 param1 param2)
    proc999_4(+ (send param2:nsLeft) 1 + (send param2:nsTop) 1 - (send param2:nsRight) 1 - (send param2:nsBottom) 1 param1)
)


(procedure (localproc_021d)
    return not 
        (if ((((camera1:script) or (camera2:script)) or (camera3:script)) or (mainBW:script))
        )(else
            (send gRoom:script)
        )
)


(procedure (localproc_0253 param1)
    (var temp0, temp1, temp2, temp3)
    = temp2 0
    = temp0 0
    (while (< temp0 12)
        = temp1 0
        (while (< temp1 3)
            = temp3 
                (switch (temp1)
                    (case 0
                        (130  )
                    )
                    (case 1
                        (100  )
                    )
                    (case 2
                        (80 )
                    )
                )
            localproc_034f(local108[temp1] local112[temp0] 751 1 0 param1 ++temp2 20 temp3)
            ++temp1
        )
        ++temp0
    )
)


(procedure (localproc_02b6 param1)
    (var temp0, temp1, temp2, temp3, temp4)
    = temp2 0
    = temp0 0
    (while (< temp0 14)
        = temp1 0
        (while (< temp1 2)
            = temp3 
                (switch (temp1)
                    (case 0
                        (56  )
                    )
                    (case 1
                        (230 )
                    )
                )
            localproc_034f(local127[temp1] local112[temp0] 750 4 0 param1 ++temp2 20 temp3)
            (if (> temp2 27)
                = temp0 50
                = temp1 50
            )
            ++temp1
        )
        ++temp0
    )
)


(procedure (localproc_031e param1)
    (var temp0, temp1, temp2, temp3[2])
    = temp2 0
    = temp0 0
    (while (< temp0 12)
        localproc_034f(50 local112[temp0] 752 3 0 param1 ++temp2 20 270)
        ++temp0
    )
)


(procedure (localproc_034f param1 param2 param3 param4 param5 param6 param7 param8 param9 param10)
    GetMessage(0 param3 param4 param5 param6 param7 @local8)
    (if (== paramTotal 10)
        Display(@local8 100 param1 param2 105 1605 106 param9 102 param8 103 param10)
    )(else
        Display(@local8 100 param1 param2 105 1605 106 param9 102 param8)
    )
)


(instance public rm750 of Rm
    (properties)

    (method (init)
        proc958_0(143 number)
        (self:setRegions(31))
        proc0_10(231 10)
        (if (proc0_1(22))
            (send gEgo:
                view(617)
                signal(16384)
                init()
                setLoop(-1)
                illegalBits(0)
                setPri(15)
                noun(19)
                moveSpeed(6)
                setScale(0)
                setCycle(Walk)
                setStep(6 6)
                cycleSpeed(2)
                setLoop(Grooper)
            )
            (if (not proc0_1(121))
                (send gEgo:posn(50 50))
                proc0_2(121)
            )
            (send gWalkHandler:addToFront(self))
        )
        (camera1:signal(16400))
        (camera2:signal(16400))
        (camera3:signal(16400))
        = local5 0
        (while (< local5 (send gAddToPics:size))
            (send local6:signal((& (send ((= local6 (send gAddToPics:at(local5)))):signal) $ffdf)))
            ++local5
        )
        (send gAddToPics:delete(gEgo))
        (send gAddToPics:eachElementDo(111))
        (send gSQ5:handsOn())
        = picture 
            (switch (gRegister)
                (case 0
                    (119  )
                )
                (case 4
                    (118  )
                )
                (case 5
                    (119  )
                )
                (case 6
                    (119  )
                )
                (case 7
                    (119  )
                )
                (case 8
                    (119  )
                )
                (case 1
                    (113  )
                )
                (case 2
                    (110  )
                )
                (case 3
                    (112 )
                )
            )
        = noun 
            (switch (gRegister)
                (case 0
                    (7  )
                )
                (case 4
                    (7  )
                )
                (case 5
                    (7  )
                )
                (case 6
                    (7  )
                )
                (case 7
                    (7  )
                )
                (case 8
                    (7  )
                )
                (case 1
                    (8  )
                )
                (case 2
                    (8  )
                )
                (case 3
                    (8 )
                )
            )
        = style 32868
        (super:init())
        (if (not proc0_1(22))
            (send gSq5IconBar:curIcon((send gSq5IconBar:at(2))))
            (send gSQ5:setCursor(982))
            (send gSq5IconBar:disable(4 7 5 6 0 3))
        )(else
            (send gSq5IconBar:disable(4 7 5 2 6 3))
        )
        (if ((== picture 119) and (<> gRegister 0))
            110
            (header:)
        )
        (if (proc999_5(picture 110 112 113))
            Palette(1 (send gRoom:picture) 2)
        )
        (switch (gRegister)
            (case 0
                (proc958_0(128 625) (send gRoom:setScript(sDanger))  )
            )
            (case 4
                (
                (if (proc0_1(120))
                    (send gRoom:setScript(sDoMainMenu))
                    = local3 1
                )(else
                    proc0_2(120)
                    (send gRoom:setScript(sReboot))
                )
 )
            )
            (case 5
                ((send gRoom:setScript(sDoSystems))  )
            )
            (case 6
                ((send gRoom:setScript(sDoLog))  )
            )
            (case 7
                ((send gRoom:setScript(sDoProjects))  )
            )
            (case 8
                ((send gRoom:setScript(sDoAccounting))  )
            )
            (case 1
                ((send gRoom:setScript(sDoSecurity3))  )
            )
            (case 2
                ((send gRoom:setScript(sDoSecurity2))  )
            )
            (case 3
                ((send gRoom:setScript(sDoSecurity1)) )
            )
        )
    )


    (method (doit)
        (switch (gRegister)
            (case 3
                (Palette(6 225 233 -1) Palette(6 234 240 -1)  )
            )
            (case 0
                (Palette(6 241 243 20 243 245 20) )
            )
        )
        (if (== (send gSq5IconBar:at(0)) (send gSq5IconBar:curIcon))
            (if (proc999_4(10 10 296 188 gPEventX gPEventY))
                (if (== (send ((send ((send gSq5IconBar:curIcon)):cursor)):view) 987)
                    (send ((send ((send gSq5IconBar:curIcon)):cursor)):view(980))
                    (send gSQ5:setCursor((send ((send gSq5IconBar:curIcon)):cursor)))
                )
            )(else
                (if (<> (send ((send ((send gSq5IconBar:curIcon)):cursor)):view) 987)
                    (send ((send ((send gSq5IconBar:curIcon)):cursor)):view(987))
                    (send gSQ5:setCursor((send ((send gSq5IconBar:curIcon)):cursor)))
                )
            )
        )
        (if (== (send gSq5IconBar:at(2)) (send gSq5IconBar:curIcon))
            (if (proc999_4(10 10 296 188 gPEventX gPEventY))
                (if (== (send ((send gSq5IconBar:curIcon)):cursor) 988)
                    (send ((send gSq5IconBar:curIcon)):cursor(982))
                    (send gSQ5:setCursor((send ((send gSq5IconBar:curIcon)):cursor)))
                )
            )(else
                (if (<> (send ((send gSq5IconBar:curIcon)):cursor) 988)
                    (send ((send gSq5IconBar:curIcon)):cursor(988))
                    (send gSQ5:setCursor((send ((send gSq5IconBar:curIcon)):cursor)))
                )
            )
        )
        (super:doit())
    )


    (method (dispose param1)
        (send gWalkHandler:delete(self))
        (if (proc0_1(22))
            (send ((send ((send gSq5IconBar:at(0))):cursor)):view(980))
        )(else
            (send ((send gSq5IconBar:at(2))):cursor(982))
        )
        (super:dispose(rest param1))
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 3
                (
                (if (== (send ((send ((send gSq5IconBar:curIcon)):cursor)):view) 987)
                    (send gUser:canControl(1))
                    (send gUser:canInput(1))
                    (send gRoom:newRoom(790))
                )(else
                    (send gEgo:setMotion(MoveTo gPEventX gPEventY))
                    ++local1
                )
 )
            )
            (case 4
                (
                (if (== (send ((send gSq5IconBar:curIcon)):cursor) 988)
                    (send gRoom:newRoom(790))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )

)
(instance sDanger of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((restartIcon:init()) Graph(11 103 40 165 313 1 9 -1 -1) Graph(13 103 40 165 313) = cycles 5  )
            )
            (case 1
                (GetMessage(0 750 2 0 0 2 @local8) Display(@local8 101 1 100 33 60 105 2407 106 280 102 12) GetMessage(0 750 2 0 0 3 @local8) Display(@local8 101 1 100 28 109 105 2510 106 290 102 12) GetMessage(0 750 2 0 0 4 @local8) Display(@local8 101 1 100 62 125 105 4115 106 220 102 12) GetMessage(0 750 2 0 0 5 @local8) Display(@local8 101 1 100 61 145 105 2510 106 220 102 12) = cycles 1  )
            )
            (case 2
                (= cycles 4  )
            )
            (case 3
                ((self:dispose()) )
            )
        )
    )

)
(instance sSelectButton of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= local2 1 (send client:setCel(1)) = seconds 2  )
            )
            (case 1
                ((send client:setCel(0)) = cycles 1  )
            )
            (case 2
                (= local2 0 (send gRoom:setScript(sDoNextScreen 0 register)) (self:dispose()) )
            )
        )
    )

)
(instance sReboot of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= local7 1 (send gSq5Music1:pause(1)) (send gSq5Music2:
                    number(618)
                    setLoop(1)
                    play(self)
                )
 (swoosh:init()) (weplygod:init()) (soYoudo:init())  )
            )
            (case 1
                ((send gSq5Music1:pause(0)) (starBurst:
                    init()
                    setCycle(End self)
                )
  )
            )
            (case 2
                ((wEyes:
                    init()
                    setCycle(End self)
                )
  )
            )
            (case 3
                (= seconds 1  )
            )
            (case 4
                ((swoosh:setCycle(End self)) (starBurst:dispose()) (wEyes:dispose())  )
            )
            (case 5
                ((swoosh:setMotion(MoveTo 340 48 self))  )
            )
            (case 6
                (= seconds 1  )
            )
            (case 7
                (DrawPic(118 9) (swoosh:dispose()) (weplygod:dispose()) (soYoudo:dispose()) = cycles 5  )
            )
            (case 8
                ((send gRoom:setScript(sDoMainMenu)) (self:dispose()) )
            )
        )
    )

)
(instance sDoNextScreen of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSq5Music2:
                    number(124)
                    setLoop(1)
                    play()
                )
 (send gCast:delete(dome1)) (send gCast:delete(dome2)) (send gCast:delete(dome3)) (send gCast:eachElementDo(303)) (send gCast:eachElementDo(111)) = gRegister register = cycles 1  )
            )
            (case 1
                ((send gRoom:init()) (self:dispose()) )
            )
        )
    )

)
(instance sDoSystems of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((backToMain:init()) (leftTop:
                    init()
                    addToPic()
                )
 (piece1:
                    init()
                    addToPic()
                )
 (dome1:
                    init()
                    hide()
                )
 (dome2:
                    init()
                    hide()
                )
 (dome3:
                    init()
                    hide()
                )
 (rightBottom:
                    init()
                    addToPic()
                )
 (leftBottom:
                    init()
                    addToPic()
                )
 (self:dispose()) )
            )
        )
    )

)
(instance sSelectDome of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((securityIcon:dispose()) (dome1:hide()) (dome2:hide()) (dome3:hide()) = ticks 5  )
            )
            (case 1
                (
                (switch (register)
                    (case dome1
                        ((dome1:show()) localproc_034f(49 131 752 1 0 0 1 31 86 67)  )
                    )
                    (case dome2
                        ((dome2:show()) localproc_034f(49 131 752 1 0 0 2 31 86 67)  )
                    )
                    (case dome3
                        ((dome3:show()) (securityIcon:init()) localproc_034f(49 131 752 1 0 0 3 31 86 67) )
                    )
                )
 (send gSq5Music2:
                    number(124)
                    setLoop(1)
                    play()
                )
 = ticks 5  )
            )
            (case 2
                ((self:dispose()) )
            )
        )
    )

)
(instance sDoSecurity1 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gUser:canControl(0)) (send gUser:canInput(0)) (camera2:init()) (camera1:init()) (mainBW:init()) (bigDoor:
                    init()
                    addToPic()
                )
 = ticks 1  )
            )
            (case 1
                (
                (if (proc0_1(22))
                    = ticks 1
                )(else
                    (cliffy:
                        init()
                        setCycle(End)
                    )
                    (send gUser:canControl(1))
                    (send gUser:canInput(1))
                    (self:dispose())
                    = seconds 2
                )
 )
            )
            (case 2
                (
                (if (proc0_1(26))
                    (myWD40:
                        init()
                        loop(3)
                    )
                    (myWD40Head:
                        init()
                        cycleSpeed(12)
                        setScript(sWoscillate)
                    )
                    (myCliffy:
                        init()
                        loop(2)
                        cycleSpeed(6)
                        setScript(sCycleCliffy)
                    )
                    = cycles 2
                )(else
                    (myWD40:
                        init()
                        cycleSpeed(6)
                        setCycle(End self)
                    )
                    (myCliffy:
                        init()
                        cycleSpeed(20)
                        setCycle(End)
                    )
                )
 )
            )
            (case 3
                (
                (if (proc0_1(26))
                    (send gUser:canControl(1))
                    (send gUser:canInput(1))
                    (self:dispose())
                )(else
                    (myWD40Head:
                        init()
                        cycleSpeed(12)
                        setScript(sWoscillate)
                    )
                    (myWD40:loop(3))
                    (myCliffy:
                        loop(2)
                        cycleSpeed(6)
                        setScript(sCycleCliffy)
                    )
                    = seconds 1
                )
 )
            )
            (case 4
                ((send gEgo:setMotion(MoveTo 100 160 self))  )
            )
            (case 5
                ((send gEgo:setMotion(MoveTo 170 85 self))  )
            )
            (case 6
                ((send gTestMessager:say(1 0 0 0 self 753))  )
            )
            (case 7
                (proc0_2(26) (send gUser:canControl(1)) (send gUser:canInput(1)) (self:dispose()) )
            )
        )
    )

)
(instance sDoSecurity2 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (Palette(1 (send gRoom:picture) 2) (send gUser:canControl(0)) (send gUser:canInput(0)) (camera1:init()) (camera3:init()) 
                (if (not (send gEgo:has(10)))
                    (comm:init())
                )
 (mainBW:init()) = ticks 1  )
            )
            (case 1
                (Palette(1 (send gRoom:picture) 2) (send gUser:canControl(1)) (send gUser:canInput(1)) (self:dispose()) )
            )
        )
    )

)
(instance sDoSecurity3 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (Palette(1 (send gRoom:picture) 2) (send gUser:canControl(0)) (send gUser:canInput(0)) (camera3:init()) (camera2:init()) (lever:init()) (mainBW:init()) 
                (if (proc0_1(27))
                    (send gUser:canControl(1))
                    (send gUser:canInput(1))
                    (self:dispose())
                )(else
                    (rogTrashFly:init())
                )
 = ticks 1  )
            )
            (case 1
                (Palette(1 (send gRoom:picture) 2) (rogTrashFly:setCycle(End self))  )
            )
            (case 2
                (proc0_2(27) (rogTrashFly:dispose()) (send gUser:canControl(1)) (send gUser:canInput(1)) (self:dispose()) )
            )
        )
    )

)
(instance sDoProjects of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((backToMain:init()) localproc_01a5(44 20 308 34 15) localproc_01a5(44 36 308 146 15) localproc_01a5(42 18 310 148 15) localproc_034f(57 24 752 2 0 0 local3 15 200) localproc_031e(local3) 
                (if (<> local3 1)
                    (prefIcon:init())
                )
 
                (if (== local3 9)
                    proc0_2(82)
                    proc0_2(102)
                    proc0_10(233 20)
                )
 
                (if (<> local3 10)
                    (nextIcon:init())
                )
 = cycles 2  )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance sDoAccounting of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((backToMain:init()) localproc_01a5(44 20 308 34 15) localproc_01a5(44 36 171 146 15) localproc_01a5(171 36 222 146 15) localproc_01a5(222 36 308 146 15) localproc_01a5(42 18 310 148 15) localproc_034f(100 24 751 1 0 0 2 15 200) proc0_10(232 15) localproc_0253(local3) 
                (if (<> local3 1)
                    (prefIcon:init())
                )
 
                (if (<> local3 3)
                    (nextIcon:init())
                )
 = cycles 2  )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance sDoLog of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((backToMain:init()) localproc_01a5(44 36 81 176 15) localproc_01a5(81 36 308 176 15) localproc_01a5(42 18 310 178 15) localproc_01a5(44 20 308 34 15) localproc_034f(57 24 750 3 0 0 1 15 100) localproc_034f(157 24 750 3 0 0 2 15 100) localproc_02b6(local3) 
                (if (<> local3 1)
                    (prefIcon:init())
                )
 
                (if (<> local3 4)
                    (nextIcon:init())
                )
 (self:dispose()) )
            )
        )
    )

)
(instance sDoMainMenu of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((but1:init()) (but2:init()) (but3:init()) (but4:init()) = cycles 3  )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance swoosh of Actor
    (properties
        x 239
        y 58
        view 625
        priority 3
        signal 24592
        cycleSpeed 10
        xStep 10
        moveSpeed 0
    )
)
(instance starBurst of Prop
    (properties
        x 242
        y 61
        view 625
        loop 1
        cel 3
        signal 16400
        cycleSpeed 10
    )
)
(instance security of Prop
    (properties
        x 7
        y 79
        view 625
        loop 11
        signal 16400
    )
)
(instance backToMain of Prop
    (properties
        y 78
        view 627
        loop 1
        priority 4
        signal 16400
    )

    (method (doit)
        (if ((proc0_1(22) and not local2) and localproc_01e2(gEgo self 1))
            (self:setScript(sSelectButton 0 4))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (send gRoom:setScript(sDoNextScreen 0 4))
                )
            )
        )
    )

)
(instance wEyes of Prop
    (properties
        x 240
        y 61
        view 625
        loop 2
        cel 4
        priority 4
        signal 16400
    )
)
(instance piece1 of View
    (properties
        x 48
        y 23
        view 627
        priority 4
        signal 16400
    )
)
(instance leftTop of View
    (properties
        x 185
        y 23
        view 627
        cel 1
        priority 4
        signal 16400
    )
)
(instance rightBottom of View
    (properties
        x 48
        y 115
        view 627
        cel 2
        signal 16400
    )
)
(instance leftBottom of View
    (properties
        x 184
        y 110
        view 627
        cel 3
        priority 4
        signal 16400
    )
)
(instance topWords of View
    (properties
        x 64
        y 12
        view 627
        loop 13
        priority 4
        signal 16400
    )
)
(instance securityIcon of Prop
    (properties
        y 93
        view 627
        loop 3
        priority 4
        signal 16400
    )

    (method (doit)
        (if ((proc0_1(22) and not local2) and localproc_01e2(gEgo self 1))
            (self:setScript(sSelectButton 0 1))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (self:setScript(sSelectButton 0 1))
                )
            )
        )
    )

)
(instance sideWord3 of View
    (properties
        y 109
        view 627
        loop 3
        priority 4
        signal 16400
    )
)
(instance but1 of Prop
    (properties
        x 47
        y 140
        view 625
        loop 4
        signal 16384
    )

    (method (doit)
        (if (proc0_1(22) and not local2)
            (if (localproc_01e2(gEgo but1 1))
                (but1:setScript(sSelectButton 0 5))
            )
            (if (localproc_01e2(gEgo but2 1))
                (but2:setScript(sSelectButton 0 6))
            )
            (if (localproc_01e2(gEgo but3 1))
                (but3:setScript(sSelectButton 0 7))
            )
            (if (localproc_01e2(gEgo but4 1))
                (but4:setScript(sSelectButton 0 8))
            )
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (but1:setScript(sSelectButton 0 5))
                )
            )
        )
    )

)
(instance but2 of Prop
    (properties
        x 103
        y 140
        view 625
        loop 5
        signal 16384
    )

    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (but2:setScript(sSelectButton 0 6))
                )
            )
        )
    )

)
(instance but3 of Prop
    (properties
        x 173
        y 140
        view 625
        loop 6
        signal 16384
    )

    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (but3:setScript(sSelectButton 0 7))
                )
            )
        )
    )

)
(instance but4 of Prop
    (properties
        x 227
        y 140
        view 625
        loop 7
        signal 16384
    )

    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (but4:setScript(sSelectButton 0 8))
                )
            )
        )
    )

)
(instance bigDoor of View
    (properties
        x 14
        y 102
        view 610
        signal 16400
    )
)
(instance weplygod of Prop
    (properties
        x 122
        y 116
        view 625
        loop 12
        signal 16400
    )
)
(instance soYoudo of Prop
    (properties
        x 97
        y 128
        view 625
        loop 13
        signal 16400
    )
)
(instance camera1 of Prop
    (properties
        x 17
        y 117
        view 613
        loop 2
        priority 14
        signal 16400
    )

    (method (doit)
        (if (((proc0_1(22) and localproc_021d()) and not local2) and localproc_01e2(gEgo self 1))
            (self:setScript(sSelectButton 0 1))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (self:setScript(sSelectButton 0 1))
                )
            )
        )
    )

)
(instance camera2 of Prop
    (properties
        x 17
        y 137
        view 613
        loop 3
        priority 14
        signal 16400
    )

    (method (doit)
        (if (((proc0_1(22) and localproc_021d()) and not local2) and localproc_01e2(gEgo self 1))
            (self:setScript(sSelectButton 0 2))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (self:setScript(sSelectButton 0 2))
                )
            )
        )
    )

)
(instance camera3 of Prop
    (properties
        x 17
        y 157
        view 613
        loop 4
        priority 14
        signal 16400
    )

    (method (doit)
        (if (((proc0_1(22) and localproc_021d()) and not local2) and localproc_01e2(gEgo self 1))
            (self:setScript(sSelectButton 0 3))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (self:setScript(sSelectButton 0 3))
                )
            )
        )
    )

)
(instance mainBW of Prop
    (properties
        x 17
        y 177
        view 613
        loop 5
        priority 14
        signal 16400
    )

    (method (doit)
        (if (((proc0_1(22) and localproc_021d()) and not local2) and localproc_01e2(gEgo self 1))
            (self:setScript(sSelectButton 0 4))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (self:setScript(sSelectButton 0 4))
                )
            )
        )
    )

)
(instance myWD40Head of Prop
    (properties
        x 208
        y 72
        noun 1
        view 609
        loop 4
        cel 2
        signal 16384
        cycleSpeed 40
    )

    (method (init)
        (super:init())
        (self:setScale(Scaler 124 55 167 80))
    )

)
(instance myCliffy of Prop
    (properties
        x 179
        y 104
        noun 1
        view 609
        cel 11
        signal 16384
        cycleSpeed 110
    )

    (method (init)
        (super:init())
        (self:setScale(Scaler 124 55 167 80))
    )

)
(instance myWD40 of Actor
    (properties
        x 202
        y 102
        noun 1
        view 609
        loop 1
        cel 15
        signal 16384
    )

    (method (init)
        (super:init())
        (self:setScale(Scaler 124 55 167 80))
    )

)
(instance rogTrashFly of Prop
    (properties
        x 114
        y 112
        noun 9
        view 613
        priority 14
        signal 16400
    )
)
(instance prefIcon of Actor
    (properties
        y 90
        view 627
        loop 6
        signal 16384
    )

    (method (doit)
        (if ((((proc0_1(22) and localproc_01e2(gEgo self 1)) and (< 1 local1)) and not (send gRoom:script)) and not local2)
            --local3
            (self:setScript(sSelectButton 0 gRegister))
            = local1 0
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    --local3
                    (send gRoom:setScript(sDoNextScreen 0 gRegister))
                )
            )
        )
    )

)
(instance nextIcon of Actor
    (properties
        y 104
        view 627
        loop 8
        signal 16384
    )

    (method (doit)
        (if ((((proc0_1(22) and localproc_01e2(gEgo self 1)) and (< 1 local1)) and not (send gRoom:script)) and not local2)
            = local1 0
            ++local3
            (self:setScript(sSelectButton 0 gRegister))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (switch (param1)
            (case 4
                (++local3 (send gRoom:setScript(sDoNextScreen 0 gRegister)) )
            )
        )
    )

)
(instance restartIcon of Prop
    (properties
        y 71
        view 627
        loop 7
    )

    (method (doit)
        (if ((proc0_1(22) and not local2) and localproc_01e2(gEgo self 1))
            (self:setScript(sSelectButton 0 4))
        )
        (super:doit())
    )


    (method (doVerb param1)
        (if (not proc0_1(22))
            (switch (param1)
                (case 4
                    (self:setScript(sSelectButton 0 4))
                )
            )
        )
    )

)
(instance dome1 of Prop
    (properties
        x 138
        y 268
        z 200
        onMeCheck 1024
        view 624
        priority 10
        signal 16400
    )

    (method (doit)
        (if (((proc0_1(22) and not (send gRoom:script)) and (& (self:signal) $0080)) and (& onMeCheck (send gEgo:onControl(1))))
            (send gRoom:setScript(sSelectDome 0 self))
        )
        (super:doit())
    )


    (method (handleEvent pEvent)
        return 
            (if (((send gUser:canControl()) and (self:onMe(pEvent))) and (& (send pEvent:type) $4000))
                (self:doVerb((send pEvent:message)))
                return (send pEvent:claimed(1))
            )(else
                return 0
            )
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                (
                (if ((& (self:signal) $0080) and not (send gRoom:script))
                    (send gRoom:setScript(sSelectDome 0 self))
                )
 )
            )
            (case 1
                (proc921_1("%d %d %d %d" proc0_1(22) not (send gRoom:script) & (self:signal) $0080 & onMeCheck (send gEgo:onControl(1)))  )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )


    (method (onMe param1 param2)
        (var temp0, temp1)
        (if (IsObject(param1))
            = temp0 (send param1:x)
            = temp1 (send param1:y)
        )(else
            = temp0 param1
            = temp1 param2
        )
        return 
            (if (((<= nsLeft temp0) and (<= temp0 nsRight)) and (<= nsTop temp1))
                <= temp1 nsBottom
            )(else
                0
            )
    )

)
(instance dome2 of Prop
    (properties
        x 220
        y 267
        z 199
        onMeCheck 2
        view 624
        priority 10
        signal 16400
    )

    (method (doit)
        (if (((proc0_1(22) and not (send gRoom:script)) and (& (self:signal) $0080)) and (& onMeCheck (send gEgo:onControl(1))))
            (send gRoom:setScript(sSelectDome 0 self))
        )
        (super:doit())
    )


    (method (handleEvent pEvent)
        return 
            (if (((send gUser:canControl()) and (self:onMe(pEvent))) and (& (send pEvent:type) $4000))
                (self:doVerb((send pEvent:message)))
                return (send pEvent:claimed(1))
            )(else
                return 0
            )
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                (
                (if ((& (self:signal) $0080) and not (send gRoom:script))
                    (send gRoom:setScript(sSelectDome 0 self))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )


    (method (onMe param1 param2)
        (var temp0, temp1)
        (if (IsObject(param1))
            = temp0 (send param1:x)
            = temp1 (send param1:y)
        )(else
            = temp0 param1
            = temp1 param2
        )
        return 
            (if (((<= nsLeft temp0) and (<= temp0 nsRight)) and (<= nsTop temp1))
                <= temp1 nsBottom
            )(else
                0
            )
    )

)
(instance dome3 of Prop
    (properties
        x 181
        y 333
        z 200
        onMeCheck 4096
        view 624
        signal 16384
    )

    (method (doit)
        (if (((proc0_1(22) and not (send gRoom:script)) and (& (self:signal) $0080)) and (& onMeCheck (send gEgo:onControl(1))))
            (send gRoom:setScript(sSelectDome 0 self))
        )
        (super:doit())
    )


    (method (handleEvent pEvent)
        return 
            (if (((send gUser:canControl()) and (self:onMe(pEvent))) and (& (send pEvent:type) $4000))
                (self:doVerb((send pEvent:message)))
                return (send pEvent:claimed(1))
            )(else
                return 0
            )
    )


    (method (doVerb param1 param2)
        (switch (param1)
            (case 4
                (
                (if ((& (self:signal) $0080) and not (send gRoom:script))
                    (send gRoom:setScript(sSelectDome 0 self))
                )
 )
            )
            (default 
                ((super:doVerb(param1 rest param2)) )
            )
        )
    )


    (method (onMe param1 param2)
        (var temp0, temp1)
        (if (IsObject(param1))
            = temp0 (send param1:x)
            = temp1 (send param1:y)
        )(else
            = temp0 param1
            = temp1 param2
        )
        return 
            (if (((<= nsLeft temp0) and (<= temp0 nsRight)) and (<= nsTop temp1))
                <= temp1 nsBottom
            )(else
                0
            )
    )

)
(instance header of View
    (properties
        x 132
        y 12
        view 627
        loop 13
        signal 16384
    )
)
(instance lever of Prop
    (properties
        x 121
        y 94
        view 613
        loop 1
        priority 8
        signal 16400
    )
)
(instance public rogTalker of Narrator
    (properties
        talkWidth 150
    )

    (method (init param1)
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(150)
            tailY(90)
            xOffset(65531)
            isBottom(0)
        )
        (super:init(rest param1))
    )


    (method (dispose param1)
        = gSq5Win gSq5Win_2
        (super:dispose(rest param1))
    )

)
(instance sWoscillate of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds 2  )
            )
            (case 1
                ((send client:setCycle(End self))  )
            )
            (case 2
                (= seconds 2  )
            )
            (case 3
                ((send client:setCycle(Beg self))  )
            )
            (case 4
                (= cycles 1 = state -1 )
            )
        )
    )

)
(instance sCycleCliffy of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds 2  )
            )
            (case 1
                ((send client:setCycle(CT 3 1 self))  )
            )
            (case 2
                (= seconds 2  )
            )
            (case 3
                ((send client:setCycle(End self))  )
            )
            (case 4
                (= seconds 2  )
            )
            (case 5
                ((send client:setCycle(CT 3 -1 self))  )
            )
            (case 6
                (= seconds 2  )
            )
            (case 7
                ((send client:setCycle(Beg self))  )
            )
            (case 8
                (= cycles 2 = state -1 )
            )
        )
    )

)
(instance comm of Prop
    (properties
        x 224
        y 125
        noun 5
        view 609
        loop 8
        signal 16384
    )
)
(instance cliffy of Actor
    (properties
        x 70
        y 154
        view 609
        loop 6
    )
)
