(version 2)
(include "sci.sh")
(exports
    0 rm310
    1 meeting
)
(use "Main")
(use "Scaler")
(use "PolyPath")
(use "Polygon")
(use "CueObj")
(use "n958")
(use "StopWalk")
(use "Grooper")
(use "Sound")
(use "Cycle")
(use "Game")
(use "User")
(use "View")
(use "Obj")
(script 310)


(local
    local0
    local1
    local2
    local3 =     150
    local4 =     150
    local5
    local6[3]

)
(instance public rm310 of Rm
    (properties
        noun 21
        picture 310
        picAngle 290
        vanishingY 10
    )

    (method (init)
        proc958_0(128 310 35 40)
        (chestLid:
            init()
            setPri(10)
            approachVerbs(4 10)
            stopUpd()
        )
        (sky:init())
        (super:init())
        (if (<> gGClientModNum 300)
            (send gLongSong:
                number(300)
                setLoop(-1)
                play(64)
            )
        )(else
            (send gLongSong:fade(64 5 5 0))
        )
        (if (== gGClientModNum 360)
            (send gOwner:
                view(35)
                loop(0)
                cel(8)
                x(56)
                y(124)
                init()
                setScale(Scaler 122 95 160 130)
            )
            (self:setScript(dreaming))
        )(else
            (send gOwner:
                init()
                normalize()
                x(3)
                y(160)
                setScale(Scaler 122 95 160 130)
                setMotion(PolyPath 20 160)
            )
        )
        (send global2:addObstacle((send ((Polygon:new())):
                type(2)
                init(0 0 319 0 319 189 0 189 16 186 29 187 43 186 37 179 67 171 90 174 97 185 135 186 147 175 167 173 183 178 198 186 317 186 316 169 302 157 267 143 232 152 175 133 195 129 183 124 150 130 133 126 111 129 101 130 94 132 67 110 12 115 23 138 0 141)
                yourself()
            )
))
        (if ((<= 750 global120) and (<= global120 1200))
            (sun:
                init()
                x(+ 256 (/ (- global120 750) 6))
                y(- 71 (/ (- global120 750) 6))
                setLoop(2)
                setStep(1 1)
                moveSpeed(1500)
                setPri(0)
                setMotion(MoveTo 331 -4)
            )
        )
        (if (proc0_6(130))
            (self:setScript(meeting))
        )
        (if ((<= 3000 global120) and (<= global120 3450))
            (moon:
                init()
                x(+ 256 (/ (- global120 3000) 6))
                y(- 71 (/ (- global120 3000) 6))
                setLoop(5)
                setStep(1 1)
                moveSpeed(1500)
                setPri(0)
                setMotion(MoveTo 331 -4)
            )
        )
        (if (global121)
            (flame:
                init()
                cycleSpeed(10)
                setCycle(Fwd)
                setPri(15)
            )
        )
        (bed:
            init()
            approachVerbs(4)
        )
        (chest:
            init()
            approachVerbs(4 10)
        )
        (northCushion:
            init()
            approachVerbs(4)
        )
        (eastCushion:
            init()
            approachVerbs(4)
        )
        (table:init())
        (pot:init())
        (urn:init())
        (plant:init())
        (mountains:init())
        (outsideWindow:init())
        (pillar:init())
        (curtainright:init())
        (leftcurtain:init())
        (alcove:init())
        (rug:init())
        (send gQg3Walkers:addToFront(global2))
        (if ((<> gGClientModNum 360) and not proc0_6(130))
            proc0_3()
        )
    )


    (method (doit)
        (if (script)
            0
        )(else
            (if (<= (send gOwner:x) 2)
                (self:setScript(exit310))
            )(else
                (if ((not local2 and (< (send gOwner:y) 131)) and (< (send gOwner:x) 88))
                    = local2 1
                    (send (ScriptID(7 2)):init())
                )(else
                    (if (local2)
                        (self:setScript(getOffBed))
                    )(else
                        (if ((send gOwner:mover) and (== (send gOwner:view) 40))
                            (if ((send gOwner:loop))
                                (self:setScript(standEast))
                            )(else
                                (self:setScript(standNorth))
                            )
                        )
                    )
                )
            )
        )
        (super:doit())
    )


    (method (dispose)
        (send gQg3Walkers:delete(global2))
        DisposeScript(29)
        UnLoad(128 310)
        UnLoad(128 35)
        UnLoad(128 40)
        (super:dispose())
    )


    (method (doVerb theVerb)
        return 
            (switch (theVerb)
                (case 74
                    (if ((== (send gOwner:x) 20) and (== (send gOwner:y) 140))
                        = local1 1
                    )(else
                        = local1 0
                    )
                    (self:setScript(goToBed))
                )
                (case 84
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(28)))
                        (send (ScriptID(31 0)):init((send gOwner:x) (+ (send gOwner:y) 1) 80))
                    )
                )
                (case 82
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(26)))
                        (self:setScript(ScriptID(37 0)))
                        return 1
                    )
                )
                (case 81
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(25)))
                        (self:setScript(ScriptID(32 0) self 81))
                    )
                )
                (case 83
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(27)))
                        (self:setScript(ScriptID(32 0) self 83))
                    )
                )
                (case 75
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(19)))
                        proc0_14((send ((User:curEvent)):x) (send ((User:curEvent)):y))
                        (send gOwner:setScript(ScriptID(13) 0 chest))
                    )
                )
                (case 88
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(32)))
                        (self:setScript(ScriptID(32 0) self 88))
                    )
                )
                (case 80
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(24)))
                        (send gOwner:setScript(ScriptID(12 0) 0 80))
                        (super:doVerb(80))
                    )
                )
                (case 86
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(30)))
                        (send gOwner:setScript(ScriptID(62 0)))
                    )
                )
                (case 78
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(22)))
                        (send gOwner:setScript(ScriptID(12 0) 0 78))
                    )
                )
                (case 76
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(20)))
                        (send gOwner:setScript(ScriptID(12 0) 0 76))
                    )
                )
                (case 77
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(21)))
                        (send gOwner:setScript(ScriptID(12 0) 0 77))
                    )
                )
                (case 85
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(29)))
                        (sFx:
                            number(943)
                            play()
                        )
                        (self:setScript(ScriptID(12 0) 0 85))
                    )
                )
                (case 87
                    (send gOwner:addHonor(-5))
                    (if ((send gOwner:castSpell(31)))
                        (send gOwner:setScript(ScriptID(46 0)))
                    )
                )
                (case -77
                    (send gQg3Messager:say(0 0 2 1 0 12))
                )
                (case -76
                    (send gQg3Messager:say(0 0 1 1 0 12))
                )
                (case -80
                    (send gQg3Messager:say(0 0 4 1 0 12))
                )
                (case 3
                    (egoActions:doVerb(3))
                )
                (default 
                    (super:doVerb(theVerb))
                )
            )
    )

)
(instance public meeting of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (self:setScript(goToBed self))
            )
            (case 1
                (send global2:setScript(exit310))
                (self:dispose())
            )
        )
    )

)
(instance dreaming of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                = cycles 5
            )
            (case 1
                (send gQg3Messager:say(19 6 2 0 self))
            )
            (case 2
                (send gOwner:setCycle(Beg self))
            )
            (case 3
                (send gOwner:
                    normalize(6)
                    cel(6)
                    x(31)
                    y(123)
                    setMotion(PolyPath 28 135 self)
                )
            )
            (case 4
                (if (proc0_6(13))
                    (send gOwner:setMotion(PolyPath -10 140 self))
                )(else
                    proc0_3()
                    (self:dispose())
                )
            )
            (case 5
                (send gQg3Messager:say(19 6 3 0 self))
            )
            (case 6
                (send global2:newRoom(340))
            )
        )
    )

)
(instance exit310 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gOwner:setMotion(PolyPath -30 (send gOwner:y) self))
            )
            (case 1
                (if (proc0_6(130))
                    (send gQg3Messager:say(0 6 1 0 self))
                )(else
                    (self:cue())
                )
            )
            (case 2
                (send gOwner:
                    x(302)
                    y(33)
                )
                (if (proc0_6(130))
                    proc0_5(130)
                    (send gLongSong:fade())
                    (send global2:newRoom(340))
                )(else
                    (send gLongSong:fade(127 5 5 0))
                    (send global2:newRoom(300))
                )
            )
        )
    )

)
(instance sitNorth of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (CueObj:client(0))
                (northCushion:approachVerbs())
                proc0_2()
                (send gOwner:
                    setPri(14)
                    setMotion(MoveTo 66 179 self)
                )
            )
            (case 1
                (send gOwner:
                    view(40)
                    setLoop(0)
                    cel(0)
                    x(67)
                    y(179)
                    setCycle(End self)
                )
                (if ((send gOwner:looper))
                    (send ((send gOwner:looper)):dispose())
                    (send gOwner:looper(0))
                )
            )
            (case 2
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance sitEast of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (CueObj:client(0))
                (eastCushion:approachVerbs())
                proc0_2()
                (send gOwner:
                    setPri(14)
                    setMotion(MoveTo 172 183 self)
                )
            )
            (case 1
                (send gOwner:
                    view(40)
                    setLoop(3)
                    cel(0)
                    x(170)
                    y(183)
                    setCycle(End self)
                )
                (if ((send gOwner:looper))
                    (send ((send gOwner:looper)):dispose())
                    (send gOwner:looper(0))
                )
            )
            (case 2
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance standNorth of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gOwner:setMotion(0))
                (if (<> (send gMainIconBar:curIcon) (send gMainIconBar:at(1)))
                    (if ((CueObj:client))
                        (if (== (CueObj:client) northCushion)
                            (self:dispose())
                        )(else
                            (if ((send ((CueObj:client)):approachX))
                                = local5 1
                            )
                        )
                    )
                )(else
                    = local5 0
                )
                (self:cue())
            )
            (case 1
                (if (not client)
                    proc0_2()
                )
                (northCushion:approachVerbs(4))
                (send gOwner:
                    setMotion(0)
                    setCycle(Beg self)
                )
            )
            (case 2
                (send gOwner:
                    normalize(5)
                    setPri(14)
                    cel(0)
                    x(66)
                    y(179)
                    setMotion(MoveTo 58 167 self)
                )
            )
            (case 3
                (if (local5)
                    (send gOwner:
                        setPri(-1)
                        setMotion(PolyPath (send ((CueObj:client)):approachX) (send ((CueObj:client)):approachY) CueObj)
                    )
                )(else
                    (send gOwner:
                        setPri(-1)
                        setMotion(PolyPath local3 local4 self)
                    )
                )
                (if (not client)
                    proc0_3()
                )
                (self:dispose())
            )
        )
    )

)
(instance standEast of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gOwner:setMotion(0))
                (if (<> (send gMainIconBar:curIcon) (send gMainIconBar:at(1)))
                    (if ((CueObj:client))
                        (if (== (CueObj:client) eastCushion)
                            (self:dispose())
                        )(else
                            (if ((send ((CueObj:client)):approachX))
                                = local5 1
                            )
                        )
                    )
                )(else
                    = local5 0
                )
                (self:cue())
            )
            (case 1
                (if (not client)
                    proc0_2()
                )
                (eastCushion:approachVerbs(4))
                (send gOwner:
                    setMotion(0)
                    setCycle(Beg self)
                )
            )
            (case 2
                (send gOwner:
                    normalize(5)
                    setPri(14)
                    cel(0)
                    x(180)
                    y(183)
                    setMotion(MoveTo 191 176 self)
                )
            )
            (case 3
                (if (local5)
                    (send gOwner:
                        setPri(-1)
                        setMotion(PolyPath (send ((CueObj:client)):approachX) (send ((CueObj:client)):approachY) CueObj)
                    )
                )(else
                    (send gOwner:
                        setPri(-1)
                        setMotion(PolyPath local3 local4 self)
                    )
                )
                (if (not client)
                    proc0_3()
                )
                (self:dispose())
            )
        )
    )

)
(instance useChest of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (sFx:
                    number(311)
                    play()
                )
                (chestLid:setCycle(End self))
            )
            (case 1
                (send (ScriptID(29 0)):init())
                = cycles 1
            )
            (case 2
                (sFx:
                    number(312)
                    play()
                )
                (chestLid:setCycle(Beg self))
            )
            (case 3
                (chestLid:stopUpd())
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance fillChest of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (sFx:
                    number(311)
                    play()
                )
                (chestLid:setCycle(End self))
            )
            (case 1
                (send (ScriptID(29 1)):init(local0))
                = cycles 1
            )
            (case 2
                (sFx:
                    number(312)
                    play()
                )
                (chestLid:setCycle(Beg self))
            )
            (case 3
                (chestLid:stopUpd())
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance goToBed of Script
    (properties)

    (method (changeState newState)
        (var temp0)
        (switch (= state newState)
            (case 0
                (if (not proc0_6(130))
                    proc0_2()
                )
                (if (local1)
                    (self:cue())
                )(else
                    (if (== (send gOwner:view) 40)
                        = local3 28
                        = local4 128
                        (CueObj:client(0))
                        (if ((send gOwner:loop))
                            (self:setScript(standEast self))
                        )(else
                            (self:setScript(standNorth self))
                        )
                    )(else
                        (send gOwner:setMotion(PolyPath 28 128 self))
                    )
                )
            )
            (case 1
                (send gOwner:setMotion(PolyPath 31 123 self))
            )
            (case 2
                (send gOwner:
                    view(35)
                    loop(0)
                    cel(0)
                    x(56)
                    y(124)
                    setCycle(End self)
                )
            )
            (case 3
                = temp0 PalVary(pvGET_CURRENT_STEP)
                (if (temp0)
                    (if ((< 0 (= temp0 PalVary(pvGET_CURRENT_STEP))) and (< (= temp0 PalVary(pvGET_CURRENT_STEP)) 64))
                        PalVary(pvCHANGE_TICKS 3)
                        (if (< temp0 30)
                            = seconds 6
                        )(else
                            = seconds 3
                        )
                    )(else
                        (self:cue())
                    )
                )(else
                    PalVary(pvINIT 310 3)
                    = seconds 6
                )
            )
            (case 4
                (if ((< global120 500) or (> global120 2199))
                    (if (not (send gGQg3KDHandler:contains(moon)))
                        (moon:
                            init()
                            x(256)
                            y(71)
                            setLoop(5)
                            setStep(1 1)
                            moveSpeed(6)
                            setPri(0)
                            setMotion(MoveTo 331 -4 self)
                        )
                    )(else
                        (moon:
                            moveSpeed(6)
                            setMotion(MoveTo 331 -4 self)
                        )
                    )
                )(else
                    = seconds 2
                )
            )
            (case 5
                (if (< PalVary(pvGET_CURRENT_STEP) 0)
                    PalVary(pvCHANGE_TICKS 3)
                )(else
                    PalVary(pvREVERSE 3)
                )
                proc0_5(81)
                = seconds 3
            )
            (case 6
                (sun:
                    init()
                    x(256)
                    y(74)
                    setLoop(2)
                    setStep(1 1)
                    moveSpeed(10)
                    setPri(0)
                    setMotion(MoveTo 260 70 self)
                )
            )
            (case 7
                (sun:
                    moveSpeed(1500)
                    setMotion(MoveTo 331 -4)
                )
                (if ((send gGQg3KDHandler:contains(moon)))
                    (moon:dispose())
                )
                (send (ScriptID(7 7)):init(5 40))
                (send gOwner:setCycle(Beg self))
            )
            (case 8
                (send gOwner:
                    normalize(6)
                    cel(6)
                    x(31)
                    y(123)
                    setMotion(PolyPath 28 135 self)
                )
            )
            (case 9
                (if (not proc0_6(130))
                    proc0_3()
                )(else
                    (send gOwner:changeGait(0))
                )
                = local2 0
                (self:dispose())
            )
        )
    )

)
(instance getOffBed of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gOwner:setMotion(PolyPath (send gOwner:x) (+ (send gOwner:y) 15) self))
            )
            (case 1
                proc0_3()
                = local2 0
                (self:dispose())
            )
        )
    )

)
(instance chestLid of Prop
    (properties
        x 265
        y 123
        noun 12
        sightAngle 40
        approachX 204
        approachY 143
        view 310
        signal $4000
    )

    (method (doVerb theVerb param2)
        (chest:doVerb(theVerb rest param2))
    )

)
(instance flame of Prop
    (properties
        x 101
        y 170
        noun 18
        view 310
        loop 1
        signal $4000
    )
)
(instance sun of Actor
    (properties
        noun 16
        yStep 1
        view 938
        loop 2
        signal $6000
        xStep 1
    )
)
(instance sky of View
    (properties
        x 296
        z -62
        noun 20
        view 310
        loop 2
        signal $6011
    )

    (method (doit)
        (var temp0, temp1)
        (super:doit())
        (if (proc0_6(6))
            = temp0 Abs(PalVary(pvGET_CURRENT_STEP))
            = temp1 
                (if ((<= 0 temp0) and (<= (= temp0 Abs(PalVary(pvGET_CURRENT_STEP))) 8))
                    0
                )(else
                    (if ((<= 9 temp0) and (<= temp0 16))
                        1
                    )(else
                        (if ((<= 17 temp0) and (<= temp0 24))
                            2
                        )(else
                            (if ((<= 25 temp0) and (<= temp0 32))
                                3
                            )(else
                                (if ((<= 33 temp0) and (<= temp0 40))
                                    4
                                )(else
                                    (if ((<= 41 temp0) and (<= temp0 48))
                                        5
                                    )(else
                                        (if ((<= 49 temp0) and (<= temp0 56))
                                            6
                                        )(else
                                            (if ((<= 57 temp0) and (<= temp0 64))
                                                7
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            (if (<> temp1 cel)
                (self:
                    setCel(temp1)
                    stopUpd()
                )
            )
        )
    )

)
(instance moon of Actor
    (properties
        noun 17
        yStep 1
        view 938
        loop 5
        signal $6000
        xStep 1
    )
)
(instance table of Feature
    (properties
        x 108
        y 184
        noun 1
        nsTop 179
        nsLeft 51
        nsBottom 189
        nsRight 166
        sightAngle 180
    )
)
(instance pot of Feature
    (properties
        x 240
        y 182
        noun 2
        nsTop 175
        nsLeft 219
        nsBottom 189
        nsRight 262
        sightAngle 180
    )
)
(instance urn of Feature
    (properties
        x 110
        y 109
        noun 3
        nsTop 95
        nsLeft 104
        nsBottom 124
        nsRight 116
        sightAngle 180
    )
)
(instance plant of Feature
    (properties
        x 232
        y 118
        z 50
        noun 4
        nsTop 59
        nsLeft 223
        nsBottom 77
        nsRight 241
        sightAngle 180
    )
)
(instance mountains of Feature
    (properties
        x 261
        y 91
        z 20
        noun 5
        nsTop 66
        nsLeft 241
        nsBottom 77
        nsRight 281
        sightAngle 180
    )
)
(instance outsideWindow of Feature
    (properties
        x 257
        y 72
        noun 6
        nsTop 42
        nsLeft 207
        nsBottom 102
        nsRight 307
        sightAngle 180
    )
)
(instance pillar of Feature
    (properties
        x 161
        y 73
        noun 7
        nsTop 32
        nsLeft 147
        nsBottom 114
        nsRight 175
        sightAngle 180
    )
)
(instance curtainright of Feature
    (properties
        x 93
        y 99
        noun 8
        nsTop 74
        nsLeft 83
        nsBottom 125
        nsRight 104
        sightAngle 180
    )
)
(instance leftcurtain of Feature
    (properties
        x 10
        y 104
        noun 9
        nsTop 72
        nsLeft 1
        nsBottom 136
        nsRight 20
        sightAngle 180
    )
)
(instance alcove of Feature
    (properties
        x 54
        y 89
        noun 10
        nsTop 73
        nsLeft 19
        nsBottom 106
        nsRight 89
        sightAngle 180
    )
)
(instance rug of Feature
    (properties
        x 69
        y 140
        noun 11
        nsTop 129
        nsLeft 26
        nsBottom 151
        nsRight 113
        sightAngle 180
    )
)
(instance chest of Feature
    (properties
        x 226
        y 129
        noun 12
        nsTop 114
        nsLeft 187
        nsBottom 144
        nsRight 265
        sightAngle 40
        approachX 204
        approachY 143
    )

    (method (doVerb theVerb param2)
        (if (== theVerb 4)
            (chestLid:setScript((useChest:new())))
        )(else
            (if (== theVerb -75)
                (chestLid:setScript((useChest:new())))
            )(else
                (if ((< 9 theVerb) and (< theVerb 62))
                    (if (>= theVerb 39)
                        = local0 (- theVerb 11)
                    )(else
                        = local0 (- theVerb 10)
                    )
                    (chestLid:setScript((fillChest:new())))
                )(else
                    (super:doVerb(theVerb rest param2))
                )
            )
        )
    )

)
(instance bed of Feature
    (properties
        x 50
        y 98
        noun 13
        nsTop 73
        nsLeft 12
        nsBottom 124
        nsRight 88
        sightAngle 40
        approachX 28
        approachY 135
    )

    (method (doVerb theVerb param2)
        (if ((== theVerb 3) or (== theVerb 4))
            (send (ScriptID(7 2)):init())
        )(else
            (super:doVerb(theVerb rest param2))
        )
    )

)
(instance eastCushion of Feature
    (properties
        x 173
        y 182
        noun 14
        nsTop 175
        nsLeft 145
        nsBottom 190
        nsRight 201
        sightAngle 40
        approachX 188
        approachY 176
    )

    (method (doVerb theVerb param2)
        (if (== theVerb 4)
            (if (<> (send gOwner:view) 40)
                (rm310:setScript(sitEast))
            )(else
                (super:doVerb(rest param2))
            )
        )(else
            (super:doVerb(theVerb rest param2))
        )
    )

)
(instance northCushion of Feature
    (properties
        x 68
        y 177
        noun 15
        nsTop 171
        nsLeft 42
        nsBottom 180
        nsRight 95
        sightAngle 40
        approachX 58
        approachY 170
    )

    (method (doVerb theVerb param2)
        (if (== theVerb 4)
            (if (<> (send gOwner:view) 40)
                (rm310:setScript(sitNorth))
            )(else
                (super:doVerb(rest param2))
            )
        )(else
            (super:doVerb(theVerb rest param2))
        )
    )

)
(instance egoActions of Actions
    (properties)

    (method (doVerb theVerb)
        return 
            (switch (theVerb)
                (case 3
                    (if ((send global2:script))
                        0
                    )(else
                        (if ((== (send gOwner:x) 67) and (== (send gOwner:y) 179))
                            = local3 (send ((User:curEvent)):x)
                            = local4 (send ((User:curEvent)):y)
                            (send global2:setScript(standNorth))
                            return 1
                        )(else
                            (if ((== (send gOwner:x) 170) and (== (send gOwner:y) 183))
                                = local3 (send ((User:curEvent)):x)
                                = local4 (send ((User:curEvent)):y)
                                (send global2:setScript(standEast))
                                return 1
                            )
                        )
                    )
                )
                (default 
                    (super:doVerb(theVerb))
                )
            )
    )

)
(instance stopGroop of Grooper
    (properties)

    (method (doit param1)
        (if (IsObject((send gOwner:cycler)) and (send ((send gOwner:cycler)):isKindOf(StopWalk)))
            (send gOwner:view((send ((send gOwner:cycler)):vWalking)))
        )
        (super:doit(rest param1))
    )

)
(instance sFx of Sound
    (properties)
)
