(version 2)
(include "sci.sh")
(exports
    0 rm230
    1 tMoneyChangerTalker
    2 wondering
    3 spBurst
    4 aFruitBasket
    5 aMoneyChanger
    6 aFruitMerchant
    7 aLeatherMerchant
)
(use "Main")
(use "TellerIcon")
(use "OccasionalCycle")
(use "Vendor")
(use "MerchantActor")
(use "GloryTalker")
(use "n233")
(use "PAvoider")
(use "PolyPath")
(use "Polygon")
(use "CueObj")
(use "n958")
(use "StopWalk")
(use "Chase")
(use "Timer")
(use "Sound")
(use "Cycle")
(use "Game")
(use "View")
(use "Obj")
(script 230)


(local
    local0
    theAFruitMerchant
    newView
    theTheVerb
    local4
    local5
    local6
    local7
    local8 =     4103
    local9
    local10 =     2
    local11
    local12
    gOwnerLoop
    newSpell
    newProp
    local16
    local17
    gOwnerCycleSpeed
    gOwnerMoveSpeed
    local20[8] = (0 1 0 2 0 3 2 1 )
    local28[8] = (2 3 0 3 0 1 2 3 )
    local36[15] = (0 -20 -23 -21 -22 -26 -57 -34 999 0 20 23 24 25 999 )
    local51[7] = (0 -2 1 5 -12 -73 999 )
    local58[4] = (0 3 4 999 )
    local62[6] = (0 50 29 -12 -75 999 )
    local68[6] = (0 28 29 12 30 999 )
    local74[5]
    local79[5]
    local84[4]
    local88[4]
    local92[8] = (0 1 2 3 2 3 0 1 )
    local100[3] = (0 -2 999 )

)
(class Spell of Actor
    (properties
        x 0
        y 0
        z 0
        heading 0
        noun 0
        modNum -1
        nsTop 0
        nsLeft 0
        nsBottom 0
        nsRight 0
        sightAngle 26505
        actions 0
        onMeCheck $6789
        approachX 0
        approachY 0
        approachDist 0
        _approachVerbs 0
        yStep 10
        view -1
        loop 0
        cel 0
        priority 0
        underBits 0
        signal $4000
        lsTop 0
        lsLeft 0
        lsBottom 0
        lsRight 0
        brTop 0
        brLeft 0
        brBottom 0
        brRight 0
        palette 0
        scaleSignal $0001
        scaleX 96
        scaleY 96
        maxScale 128
        cycleSpeed 0
        script 0
        cycler 0
        timer 0
        detailLevel 0
        scaler 0
        illegalBits $8000
        xLast 0
        yLast 0
        xStep 15
        origStep 770
        moveSpeed 0
        blocks 0
        baseSetter 0
        mover 0
        looper 0
        viewer 0
        avoider 0
        code 0
    )

    (method (init param1 param2)
        (var temp0)
        (super:init(rest param2))
        (switch (param1)
            (case 20
                = temp0 2
            )
            (case 81
                = temp0 0
            )
            (case 83
                = temp0 4
            )
        )
        (self:
            setLoop(temp0)
            setMotion(MoveTo global386 global387 self)
        )
    )


    (method (doit param1)
        (super:doit(rest param1))
        (if ((((> y (- (aHarami:y) 50)) and (< y (+ (aHarami:y) 1))) and (> x (- (aHarami:x) 21))) and (< x (+ (aHarami:x) 12)))
            (self:setMotion(0))
            = local10 1
            (send global2:setScript(onHisButt 0 (+ (self:loop) 1)))
            (self:dispose())
        )
    )


    (method (cue)
        (if ((((> global387 (- (aHarami:y) 50)) and (< global387 (+ (aHarami:y) 1))) and (> global386 (- (aHarami:x) 21))) and (< global386 (+ (aHarami:x) 12)))
            = local10 1
            (send global2:setScript(onHisButt 0 (+ (self:loop) 1)))
        )(else
            (self:dispose())
            (if (local16)
                (sfx:
                    number(930)
                    play()
                )
                (spBurst:
                    x(global386)
                    y(global387)
                    init()
                    setLoop(9)
                    setCycle(End spBurst)
                )
            )
            proc0_3()
        )
    )

)
(instance public rm230 of Rm
    (properties
        noun 7
        picture 230
        vanishingY -300
    )

    (method (init param1)
        (send gOwner:
            init()
            normalize()
            setScale(0)
            noun(2)
        )
        (if (global121 or proc0_6(135))
            (send global2:addObstacle((send ((Polygon:new())):
                    type(2)
                    init(0 156 0 0 319 0 319 115 302 115 275 126 229 111 178 121 161 103 105 97 82 103)
                    yourself()
                )
))
        )(else
            (send gLongSong:fade(40 10 5 0))
            (send global2:addObstacle((send ((Polygon:new())):
                    type(2)
                    init(65 108 0 142 0 0 319 0 319 141 279 135 240 116 198 111 182 120 170 114 158 125 72 118)
                    yourself()
                )
 (send ((Polygon:new())):
                    type(2)
                    init(100 189 95 176 106 150 157 154 151 163 169 170 184 167 208 181 222 177 251 176 260 189)
                    yourself()
                )
))
            = local74[0] @local36
            = local79[0] @local51
            = local79[1] @local58
            = local88[0] @local62
            = local84[0] @local68
            (aFruitBasket:init())
            (aLeatherMerchant:
                setPri(3)
                setCycle(OccasionalCycle self 1 30 110)
                init()
            )
            (aMoneyChanger:
                setPri(1)
                init()
            )
            (aFruitMerchant:
                init()
                setCycle(OccasionalCycle self 1 25 81)
            )
            (if (== global122 5)
                proc0_4(22)
            )
            (if (((not proc0_6(22) and (< global122 5)) and not global121) and not proc0_6(135))
                (aHarami:init())
                proc958_0(143 230)
                proc958_0(128 233)
                (aMoneyChanger:setCycle(OccasionalCycle self 1 20 150))
            )(else
                (self:setRegions(51))
            )
            (leatherA:
                init()
                addToPic()
            )
            (leatherB:
                init()
                addToPic()
            )
            (fruitA:
                init()
                addToPic()
            )
            (bananas:init())
            (fruit:init())
            (hides:init())
            (belts:init())
            (skinrugs:init())
            (zebrarug:init())
            (giraffe:init())
            (leopardskin:init())
            (money_sign:init())
            (hideracks:init())
            (watermelon:init())
            (basket:init())
            (pitcher:init())
            (roundtray:init())
            (peppers:init())
            (rectangletray:init())
            (redplate:init())
            (brassvase:init())
            (shoes:init())
        )
        (super:init(rest param1))
        (self:setScript(from240))
        (if (((not proc0_6(22) and (< global122 5)) and not global121) and not proc0_6(135))
            (send gGame:save(1))
            proc0_2()
        )
    )


    (method (dispose)
        (if (local6)
            (send local6:dispose())
        )
        (if (local7)
            (send local7:dispose())
        )
        (if (local5)
            (send local5:dispose())
        )
        UnLoad(143 230)
        UnLoad(128 233)
        proc958_0(0 47 55 40 231 232 233 234 235)
        (super:dispose())
    )


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 65
                (if (proc0_6(22))
                    (send (ScriptID(7 5)):init(global455))
                )(else
                    (send gQg3Messager:say(0 0 84))
                )
            )
            (case 1
                (send gQg3Messager:say(7 1 0 
                    (if (global121)
                        0
                    )(else
                        1
                    )
))
            )
            (case 20
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 66))
                )(else
                    (send gOwner:drop(10 1))
                    = theTheVerb theVerb
                    = global386 (send ((send gUser:curEvent)):x)
                    = global387 (send ((send gUser:curEvent)):y)
                    (send gOwner:setScript(castFlameDart 0 theVerb))
                )
            )
            (case 80
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    = theTheVerb theVerb
                    (send gOwner:setScript(calmCast))
                )
            )
            (case 81
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    = global386 (send ((send gUser:curEvent)):x)
                    = global387 (send ((send gUser:curEvent)):y)
                    = theTheVerb theVerb
                    (send gOwner:setScript(castFlameDart 0 theVerb))
                )
            )
            (case 83
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    = global386 (send ((send gUser:curEvent)):x)
                    = global387 (send ((send gUser:curEvent)):y)
                    = theTheVerb theVerb
                    (send gOwner:setScript(castFlameDart 0 theVerb))
                )
            )
            (case 86
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    (send gOwner:setScript(ScriptID(62 0)))
                )
            )
            (case 76
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    (send gOwner:setScript(ScriptID(12) 0 76))
                )
            )
            (case 82
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    (send gQg3Messager:say(25 6 85))
                )
            )
            (case 75
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    (send gOwner:setScript(ScriptID(13)))
                )
            )
            (case 77
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    (send gOwner:setScript(ScriptID(12) 0 77))
                )
            )
            (case 88
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )
            )
            (case 78
                (if (proc0_6(22) or global121)
                    (send gQg3Messager:say(25 6 65))
                )(else
                    (send gOwner:setScript(ScriptID(12) 0 78))
                )
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance haramiHeadsOut of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gQg3Messager:say(25 6 80 0 self))
            )
            (case 1
                proc0_4(159)
                proc0_4(119)
                (if (<> global209 3)
                    = gOwnerCycleSpeed (send gOwner:cycleSpeed)
                    = gOwnerMoveSpeed (send gOwner:moveSpeed)
                    (send gOwner:
                        moveSpeed(6)
                        cycleSpeed(6)
                    )
                )
                (aFruitMerchant:
                    setCycle(0)
                    stopUpd()
                )
                (aLeatherMerchant:
                    setCycle(0)
                    stopUpd()
                )
                (aHarami:setCycle(Beg self))
            )
            (case 2
                (aMoneyChanger:
                    setLoop(0)
                    setCycle(Fwd)
                )
                = cycles 5
            )
            (case 3
                (aHarami:
                    view(953)
                    loop(0)
                    cycleSpeed((send gOwner:cycleSpeed))
                    moveSpeed((send gOwner:moveSpeed))
                    origStep(
                        (if (== global209 3)
                            3076
                        )(else
                            2563
                        )
)
                    setStep(
                        (if (== global209 3)
                            12
                        )(else
                            10
                        )
 3)
                    setCycle(Walk)
                    setMotion(PolyPath 55 120 self)
                )
                (send gLongSong:
                    number(230)
                    setLoop(1)
                    nextSong(340)
                    play()
                )
            )
            (case 4
                (send gQg3Messager:say(1 6 60 0 self))
            )
            (case 5
                proc0_3()
                (if (local9)
                    (self:cue())
                )(else
                    (aHarami:setMotion(PolyPath 170 140 self))
                )
            )
            (case 6
                (aHarami:
                    cycleSpeed((send gOwner:cycleSpeed))
                    moveSpeed((send gOwner:moveSpeed))
                    setMotion(PolyPath 350 160 self)
                )
            )
            (case 7
                (if (== global100 1)
                    proc0_4(23)
                    = theTheVerb 0
                    (send gOwner:
                        solvePuzzle(216 8)
                        addHonor(40)
                    )
                )(else
                    proc0_4(28)
                    (send gOwner:addHonor(-100))
                    proc0_4(19)
                )
                proc0_4(22)
                (aHarami:hide())
                (aMoneyChanger:setCycle(End))
                proc0_5(119)
                = cycles 3
            )
            (case 8
                (send global2:setScript(wondering))
            )
        )
    )

)
(instance spEffect of Script
    (properties)

    (method (changeState newState)
        (var temp0)
        (switch (= state newState)
            (case 0
                (aHarami:setMotion(0))
                (if (local16)
                    (sfx:
                        number(930)
                        play()
                    )
                )
                (if (<> register 5)
                    = temp0 9
                )(else
                    = temp0 10
                )
                = newProp (Prop:new())
                (send newProp:
                    view(21)
                    loop(temp0)
                    x((aHarami:x))
                    y(- (aHarami:y) 30)
                    cycleSpeed(1)
                    init()
                    setPri(15)
                    setCycle(End self)
                )
            )
            (case 1
                (send newProp:dispose())
                Palette(palSET_INTENSITY 0 255 1000)
                Palette(palSET_INTENSITY 0 255 100)
                (self:dispose())
            )
        )
    )

)
(instance castFlameDart of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                proc0_12(gOwner aHarami self)
                (if (== register 20)
                    proc0_4(25)
                )(else
                    proc0_4(26)
                )
            )
            (case 1
                = gOwnerLoop (send gOwner:loop)
                (send gOwner:
                    view(
                        (if (<> register 20)
                            14
                        )(else
                            9
                        )
)
                    loop(local20[gOwnerLoop])
                    cel(0)
                    setCycle(CT 2 1 self)
                )
                (if (<> register 20)
                    (sfx:
                        number(13)
                        play()
                    )
                    = local16 1
                )(else
                    (sfx:
                        number(916)
                        play()
                    )
                )
            )
            (case 2
                (send gOwner:setCycle(End self))
                = newSpell (Spell:new())
                (send newSpell:
                    view(
                        (if (<> register 20)
                            21
                        )(else
                            46
                        )
)
                    x(+ (send gOwner:x) 20)
                    y(- (send gOwner:y) 35)
                    origStep(6922)
                    init(register)
                    setCycle(Fwd)
                )
            )
            (case 3
                (send gOwner:
                    normalize(gOwnerLoop)
                    addHonor(-50)
                )
                = cycles (+ (send gOwner:cycleSpeed) 5)
            )
            (case 4
                (self:dispose())
            )
        )
    )

)
(instance knockFruitOver of Script
    (properties)

    (method (doit param1)
        (super:doit(rest param1))
        (if (((not proc0_6(80) and (== local9 1)) and (< 135 (aHarami:x))) and (< (aHarami:x) 223))
            (aHarami:
                setCycle(0)
                stopUpd()
            )
            proc0_4(80)
            = local10 2
            = theTheVerb 0
            (send gOwner:solvePuzzle(218 5 13))
            (send global2:setScript(onHisButt))
        )
    )


    (method (changeState newState)
        (var temp0, temp1)
        (switch (= state newState)
            (case 0
                proc0_2()
                = temp0 (- (send gOwner:moveSpeed) 1)
                (if (< temp0 0)
                    = temp0 0
                )
                = temp1 (- (send gOwner:moveSpeed) 1)
                (if (< temp1 0)
                    = temp1 0
                )
                (if (<> global100 1)
                    (send gOwner:
                        view(1)
                        moveSpeed(temp0)
                        cycleSpeed(temp1)
                        setStep(6 4)
                        setCycle(StopWalk 5)
                    )
                )
                (if (< (send gOwner:x) 108)
                    = local11 -1
                    (send gOwner:setMotion(PolyPath 88 175 self))
                )(else
                    = local11 1
                    (send gOwner:setMotion(PolyPath 135 160 self))
                )
            )
            (case 1
                (send gOwner:view(14))
                proc0_4(24)
                (sfx:
                    number(922)
                    play()
                )
                (if (== local11 -1)
                    (send gOwner:
                        setLoop(2)
                        cel(0)
                        setCycle(End)
                    )
                )(else
                    (send gOwner:
                        setLoop(3)
                        cel(6)
                        x(134)
                        y(158)
                        setCycle(End)
                    )
                )
                (aFruitBasket:setCycle(CT 2 1 self))
                = local9 1
            )
            (case 2
                (aFruitBasket:setCycle(CT 4 1 self))
            )
            (case 3
                = newView (View:new())
                (send newView:
                    view(231)
                    loop(1)
                    cel(0)
                    x(113)
                    y(162)
                    signal(16385)
                    noun(33)
                    init()
                    setPri(1)
                )
                = cycles 3
            )
            (case 4
                (if (== local11 -1)
                    (send gOwner:setCycle(Beg self))
                )(else
                    (send gOwner:setCycle(CT 6 -1 self))
                )
            )
            (case 5
                (aFruitBasket:
                    noun(34)
                    setPri(14)
                )
                (aFruitMerchant:
                    setLoop(2)
                    setCycle(Fwd)
                )
                (if (== local11 -1)
                    (send gOwner:
                        loop(6)
                        cel(2)
                    )
                )(else
                    (send gOwner:
                        loop(7)
                        cel(2)
                        x(135)
                        y(160)
                    )
                )
                (send gOwner:
                    view(0)
                    xStep(3)
                    yStep(2)
                    normalize()
                    addHonor(40)
                )
                = ticks 4
            )
            (case 6
                (if (< (onHisButt:state) 0)
                    proc0_5(123)
                    proc0_3()
                )
                (aFruitBasket:stopUpd())
                (send newView:stopUpd())
                (self:dispose())
            )
        )
    )

)
(instance onHisButt of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (switch (theTheVerb)
                    (case 0
                        0
                    )
                    (case 20
                        (send gOwner:solvePuzzle(217 5 4))
                    )
                    (default 
                        (send gOwner:solvePuzzle(215 7))
                    )
                )
                proc0_5(119)
                (if ((<> register 0) and (<> register 3))
                    (self:setScript(spEffect self register))
                )(else
                    = cycles 1
                )
            )
            (case 1
                (aHarami:
                    view(953)
                    setLoop(local10)
                    cel(0)
                    x(- (aHarami:x) 25)
                    cycleSpeed(
                        (if (== (send gOwner:script) calmCast)
                            15
                        )(else
                            12
                        )
)
                    moveSpeed((aHarami:cycleSpeed))
                    setCycle(End self)
                    setMotion(MoveTo + (aHarami:x) 15 + (aHarami:y) 2)
                )
            )
            (case 2
                (aMoneyChanger:setCycle(End self))
            )
            (case 3
                (aHarami:
                    ignoreActors(1)
                    stopUpd()
                )
                = seconds 2
            )
            (case 4
                (if ((aFruitMerchant:cycler))
                    (aFruitMerchant:setCycle(End self))
                )(else
                    (self:cue())
                )
            )
            (case 5
                (aGuard1:
                    init()
                    setCycle(Walk)
                )
                (if (< (aHarami:x) 270)
                    (aGuard1:setMotion(PolyPath (+ (aHarami:x) 50) (+ (aHarami:y) 15) self))
                )(else
                    (aGuard1:setMotion(PolyPath 300 (+ (aHarami:y) 15) self))
                )
            )
            (case 6
                (send gQg3Messager:say(5 6 60 0 self))
            )
            (case 7
                proc0_4(22)
                proc0_5(80)
                (send gLongSong2:fade())
                (send gLongSong3:fade())
                (send global2:newRoom(340))
            )
        )
    )

)
(instance seekNkill of Script
    (properties)

    (method (changeState newState)
        (var temp0)
        (switch (= state newState)
            (case 0
                proc0_2()
                proc0_12(gOwner aHarami self)
                (if (== register 20)
                    proc0_4(25)
                )(else
                    proc0_4(26)
                )
            )
            (case 1
                = gOwnerLoop (send gOwner:loop)
                (send gOwner:
                    view(
                        (if (<> register 20)
                            14
                        )(else
                            9
                        )
)
                    loop(local20[gOwnerLoop])
                    cel(0)
                    setCycle(CT 2 1 self)
                )
            )
            (case 2
                (switch (register)
                    (case 20
                        = temp0 2
                    )
                    (case 81
                        = temp0 0
                    )
                    (case 83
                        = temp0 4
                    )
                )
                (send gOwner:setCycle(End self))
                = newSpell (Actor:new())
                (send newSpell:
                    view(
                        (if (<> register 20)
                            21
                        )(else
                            46
                        )
)
                    x(+ (send gOwner:x) 20)
                    y(- (send gOwner:y) 35)
                    z(30)
                    moveSpeed(0)
                    cycleSpeed(0)
                    origStep(6922)
                    scaleSignal(1)
                    scaleX(96)
                    scaleY(96)
                    init()
                    setLoop(temp0)
                    setCycle(Fwd)
                    setMotion(Chase aHarami 1 self)
                )
            )
            (case 3
                (send gOwner:normalize(gOwnerLoop))
                = local10 1
                (send global2:setScript(onHisButt 0 (+ (send newSpell:loop) 1)))
                (send newSpell:dispose())
                (self:dispose())
            )
        )
    )

)
(instance calmCast of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gOwner:setMotion(0))
                proc0_12(gOwner aHarami self)
                proc0_4(27)
                = gOwnerLoop (send gOwner:loop)
            )
            (case 1
                (send gOwner:
                    view(15)
                    loop(local28[gOwnerLoop])
                    cel(0)
                    addHonor(50)
                    setCycle(End self)
                )
                (sfx:
                    number(900)
                    play()
                )
            )
            (case 2
                (if ((send gOwner:castSpell(24)) and (< (aHarami:x) 300))
                    = local10 1
                    (send global2:setScript(onHisButt))
                )
                (if (< (onHisButt:state) 0)
                    proc0_3()
                )
                (send gOwner:normalize(gOwnerLoop))
                (self:dispose())
            )
        )
    )

)
(instance from240 of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gOwner:
                    x(-10)
                    y(200)
                    setMotion(PolyPath 50 175 self)
                )
                (if (((not proc0_6(22) and (< global122 5)) and not global121) and not proc0_6(135))
                    (aHarami:setCycle(End))
                )
            )
            (case 1
                (if (((not proc0_6(22) and (< global122 5)) and not global121) and not proc0_6(135))
                    proc0_4(122)
                    proc0_12(gOwner aHarami self)
                )(else
                    (self:cue())
                )
            )
            (case 2
                (if (((not proc0_6(22) and (< global122 5)) and not global121) and not proc0_6(135))
                    (send gOwner:code(moneyCode))
                    (send global2:setScript(haramiHeadsOut))
                )(else
                    proc0_3()
                    (if (global121 or proc0_6(135))
                        (send gOwner:code(nightCode))
                    )(else
                        (send gOwner:code(bazCode))
                    )
                    (egoTell:init(gOwner @local36 @local74))
                    (moneyTell:init(aMoneyChanger @local51 @local79 @local100))
                    (leatherTell:init(aLeatherMerchant @local68 @local84))
                    (fruitTell:init(aFruitMerchant @local62 @local88))
                    (self:dispose())
                )
            )
        )
    )

)
(instance sExit of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (if (<= (send gOwner:x) 5)
                    (send gOwner:setMotion(MoveTo -30 200 self))
                )(else
                    (if (>= (send gOwner:x) 315)
                        (send gOwner:setMotion(MoveTo 335 177 self))
                    )(else
                        (send gOwner:setMotion(PolyPath (send gOwner:x) 250 self))
                    )
                )
            )
            (case 1
                (if (not 
                (if (((proc0_6(23) or proc0_6(24)) or proc0_6(25)) or proc0_6(26))
                )(else
                    proc0_6(27)
                )
 and (== global100 1))
                    proc0_4(23)
                )
                (send global2:newRoom(240))
            )
        )
    )

)
(instance public wondering of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_3()
                (if ((== theTheVerb 0) or (== theTheVerb 20))
                    0
                )(else
                    (send gOwner:solvePuzzle(214 4))
                )
                (if (proc0_6(24))
                    (send gOwner:code(fruitCode))
                )(else
                    (send gOwner:code(bazCode))
                )
                (egoTell:init(gOwner @local36 @local74))
                (moneyTell:init(aMoneyChanger @local51 @local79 @local100))
                (moneyTell:init(aMoneyChanger @local51 @local79 @local100))
                (leatherTell:init(aLeatherMerchant @local68 @local84))
                (fruitTell:init(aFruitMerchant @local62 @local88))
                (aFruitBasket:stopUpd())
                (aMoneyChanger:stopUpd())
                = seconds 14
            )
            (case 1
                proc0_2()
                (send gOwner:
                    setMotion(0)
                    code(0)
                )
                = cycles 3
            )
            (case 2
                (send ((Actor:new())):
                    view(190)
                    loop(1)
                    cel(0)
                    x(360)
                    y(163)
                    xStep(3)
                    yStep(3)
                    init()
                    setAvoider(PAvoider)
                    setCycle(Walk)
                    setMotion(PolyPath 285 163 self)
                )
            )
            (case 3
                (send gQg3Messager:say(5 6 68 0 self))
            )
            (case 4
                (send gLongSong2:fade())
                (send gLongSong3:fade())
                (if (<> global209 3)
                    (send gOwner:
                        moveSpeed(gOwnerMoveSpeed)
                        cycleSpeed(gOwnerCycleSpeed)
                    )
                )
                (send global2:newRoom(340))
            )
        )
    )

)
(instance egoFell of Script
    (properties)

    (method (changeState newState)
        (var gOwnerLoop, temp1)
        (switch (= state newState)
            (case 0
                = gOwnerLoop (send gOwner:loop)
                (send gOwner:
                    view(6)
                    cel(0)
                    setMotion(0)
                    setLoop(local92[gOwnerLoop])
                    setCycle(End self)
                )
            )
            (case 1
                (if (% (send gOwner:loop) 2)
                    = temp1 -30
                    = gOwnerLoop 5
                )(else
                    = temp1 30
                    = gOwnerLoop 4
                )
                (send gOwner:
                    view(35)
                    x(+ (send gOwner:x) temp1)
                    cel(0)
                    setLoop(gOwnerLoop)
                    setCycle(End self)
                )
            )
            (case 2
                (send gQg3Messager:say(25 6 76 0 self))
            )
            (case 3
                (if (% (send gOwner:loop) 2)
                    = temp1 16
                )(else
                    = temp1 -16
                )
                (send gOwner:
                    x(+ (send gOwner:x) temp1)
                    normalize()
                    changeGait(0 0)
                )
                = cycles 5
            )
            (case 4
                (self:dispose())
            )
        )
    )

)
(instance bazCode of Code
    (properties)

    (method (doit)
        (if ((< (send gOwner:distanceTo(aMoneyChanger)) 40) and (& local8 $0001))
            (send gOwner:setMotion(0))
            (if (not proc0_6(41))
                proc0_4(41)
                = local8 (& local8 $fffe)
                (send gQg3Messager:say(1 6 5))
            )(else
                = local8 (& local8 $fffe)
                (send gQg3Messager:say(1 6 20))
            )
        )(else
            (if ((< (send gOwner:distanceTo(aFruitMerchant)) 50) and (& local8 $0002))
                = local8 (& local8 $fffd)
                (aFruitMerchant:newGreeting())
            )(else
                (if ((< (send gOwner:distanceTo(aLeatherMerchant)) 20) and (& local8 $0004))
                    (send gOwner:setMotion(0))
                    = local8 (& local8 $fffb)
                    (send gQg3Messager:say(3 6 27))
                )(else
                    (if (not 
                    (if (< 5 (send gOwner:x))
                        < (send gOwner:x) 315
                    )
)
                        (if ((== (send global2:script) wondering) or not (send global2:script))
                            (send global2:setScript(sExit))
                        )
                    )(else
                        (if ((> (send gOwner:y) 183) and ((== (send global2:script) wondering) or not (send global2:script)))
                            (send global2:setScript(sExit))
                        )
                    )
                )
            )
        )
    )

)
(instance nightCode of Code
    (properties)

    (method (doit)
        (if (not 
        (if (< 5 (send gOwner:x))
            (< (send gOwner:x) 315)
        )
 and not (send global2:script))
            (send global2:setScript(sExit))
        )(else
            (if ((> (send gOwner:y) 183) and not (send global2:script))
                (send global2:setScript(sExit))
            )
        )
    )

)
(instance fruitCode of Code
    (properties)

    (method (doit)
        (if ((((== global100 1) and (send gOwner:mover)) and (& (send gOwner:onControl()) $0008)) and not (send gOwner:script))
            (send gOwner:setScript(egoFell))
        )(else
            (if ((< (send gOwner:distanceTo(aMoneyChanger)) 40) and (& local8 $0001))
                (send gOwner:setMotion(0))
                (if (not proc0_6(41))
                    proc0_4(41)
                    = local8 (& local8 $fffe)
                    (send gQg3Messager:say(1 6 5))
                )(else
                    = local8 (& local8 $fffe)
                    (send gQg3Messager:say(1 6 20))
                )
            )(else
                (if ((< (send gOwner:distanceTo(aFruitMerchant)) 50) and (& local8 $0002))
                    (send gOwner:setMotion(0))
                    = local8 (& local8 $fffd)
                    (aFruitMerchant:setCycle(Beg))
                    (send gQg3Messager:say(4 6 77 0 wondering))
                )(else
                    (if ((< (send gOwner:distanceTo(aLeatherMerchant)) 20) and (& local8 $0004))
                        (send gOwner:setMotion(0))
                        = local8 (& local8 $fffb)
                        (send gQg3Messager:say(3 6 27))
                    )(else
                        (if (not 
                        (if (< 5 (send gOwner:x))
                            < (send gOwner:x) 315
                        )
)
                            (if ((== (send global2:script) wondering) or not (send global2:script))
                                (send global2:setScript(sExit))
                            )
                        )(else
                            (if ((> (send gOwner:y) 183) and ((== (send global2:script) wondering) or not (send global2:script)))
                                (send global2:setScript(sExit))
                            )
                        )
                    )
                )
            )
        )
    )

)
(instance moneyCode of Code
    (properties)

    (method (doit)
        (if ((< (send gOwner:distanceTo(aMoneyChanger)) 40) and not local4)
            = local4 1
            (send gOwner:setMotion(0))
            (send gQg3Messager:say(1 6 60))
        )
    )

)
(instance aHarami of Actor
    (properties
        x 42
        y 106
        noun 26
        view 954
        loop 2
        priority 9
        signal $1010
    )

    (method (doVerb theVerb)
        (if ((== global209 1) and not (send gOwner:script))
            (if (((== theVerb 20) or (== theVerb 81)) or (== theVerb 83))
                (if (< x 260)
                    (if (== theVerb 20)
                        (send gOwner:drop(10 1))
                    )
                    (send gOwner:setScript(seekNkill 0 theVerb))
                )(else
                    = global386 (send ((send gUser:curEvent)):x)
                    = global387 (send ((send gUser:curEvent)):y)
                    = theTheVerb theVerb
                    (if (== theVerb 20)
                        (send gOwner:drop(10 1))
                    )
                    (send gOwner:setScript(castFlameDart 0 theVerb))
                )
            )(else
                (if (== theVerb 82)
                    (send global2:doVerb(theVerb))
                )(else
                    (super:doVerb(theVerb))
                )
            )
        )(else
            (if (((== theVerb 20) or (== theVerb 81)) or (== theVerb 83))
                = theTheVerb theVerb
                = global386 (send ((send gUser:curEvent)):x)
                = global387 (send ((send gUser:curEvent)):y)
                (if (== theVerb 20)
                    (send gOwner:drop(10 1))
                )
                (send gOwner:setScript(castFlameDart 0 theVerb))
            )(else
                (if (== theVerb 82)
                    (send global2:doVerb(theVerb))
                )(else
                    (super:doVerb(theVerb))
                )
            )
        )
    )

)
(instance aGuard1 of Actor
    (properties
        x 360
        y 163
        noun 5
        yStep 3
        view 190
        loop 1
    )
)
(instance public aFruitMerchant of MerchantActor
    (properties
        x 143
        y 183
        noun 4
        approachX 149
        approachY 157
        view 234
        loop 3
        priority 14
        signal $4010
        cycleSpeed 11
    )

    (method (init param1)
        (super:init(rest param1))
        (self:approachVerbs(2 4 59 10))
    )


    (method (newGreeting)
        (switch (% global122 6)
            (case 0
                (send gQg3Messager:say(noun 6 44))
            )
            (case 1
                (send gQg3Messager:say(noun 6 45))
            )
            (case 2
                (send gQg3Messager:say(noun 6 46))
            )
            (case 3
                (send gQg3Messager:say(noun 6 47))
            )
            (case 4
                (send gQg3Messager:say(noun 6 48))
            )
            (case 5
                (send gQg3Messager:say(noun 6 49))
            )
        )
    )

)
(instance public aLeatherMerchant of MerchantActor
    (properties
        x 146
        y 121
        z 20
        noun 3
        approachDist 20
        view 236
        loop 2
        signal $5000
        cycleSpeed 13
    )

    (method (init param1)
        (super:init(rest param1))
        (self:approachVerbs(2 4 59 10))
    )

)
(instance public aFruitBasket of Prop
    (properties
        x 122
        y 163
        noun 29
        approachX 106
        approachY 151
        view 231
        signal $5000
        cycleSpeed 3
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 4
                (if (not proc0_6(22) and (< global122 5))
                    proc0_4(123)
                    (send gOwner:setScript(knockFruitOver))
                )(else
                    (send gQg3Messager:say(25 6 78))
                )
            )
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance public aMoneyChanger of Actor
    (properties
        x 21
        y 103
        noun 1
        approachDist 40
        view 232
        priority 1
        signal $4010
        cycleSpeed 9
    )

    (method (init param1)
        (super:init(rest param1))
        (self:approachVerbs(2 4 59 10))
    )

)
(instance public spBurst of Prop
    (properties
        view 21
        priority 15
        signal $4010
        cycleSpeed 0
    )

    (method (cue)
        (self:dispose())
    )

)
(instance egoTell of Teller
    (properties)

    (method (respond)
        return 
            (if (not local0)
                (super:respond())
            )(else
                = local0 0
                (if (not query)
                    return 1
                )(else
                    (if (== query -999)
                        return 1
                    )(else
                        (if (== query 999)
                            (self:doParent())
                            return 0
                        )(else
                            (if ((< query 0) and not (self:doChild(query)))
                                return 1
                            )
                        )
                    )
                )
                (if (< query 0)
                    = query neg query
                )
                (send gQg3Messager:say((send client:noun) 5 query 0))
                return 1
            )
    )


    (method (showDialog)
        (var temp0)
        = theAFruitMerchant proc51_1()
        (if (== theAFruitMerchant aFruitBasket)
            = theAFruitMerchant aFruitMerchant
        )
        = temp0 (send gOwner:distanceTo(theAFruitMerchant))
        (switch (theAFruitMerchant)
            (case aMoneyChanger
                (if (> temp0 40)
                    (send gQg3Messager:say(2 5 83))
                    return -999
                )
            )
            (case aFruitMerchant
                (if (> temp0 60)
                    (send gQg3Messager:say(2 5 83))
                    return -999
                )
            )
            (default 
                (if (> temp0 30)
                    (send gQg3Messager:say(2 5 83))
                    return -999
                )
            )
        )
        (if (<> (send gOwner:heading) GetAngle((send gOwner:x) (send gOwner:y) (send theAFruitMerchant:x) (send theAFruitMerchant:y)))
            proc0_12(gOwner theAFruitMerchant)
        )
        (send ((Timer:new())):setCycle(self (+ (send gOwner:cycleSpeed) 10)))
        = iconValue 0
        return -999
    )


    (method (doChild)
        return 
            (switch (query)
                (case -21
                    proc0_4(171)
                    proc233_0()
                    return 0
                )
                (case -22
                    proc0_4(171)
                    = query 22
                )
                (case -20
                    (if (== theAFruitMerchant aMoneyChanger)
                        = query 61
                    )(else
                        (if (== theAFruitMerchant aFruitMerchant)
                            = query 58
                        )(else
                            (if (== theAFruitMerchant aLeatherMerchant)
                                = query 31
                            )
                        )
                    )
                )
                (case -23
                    (if (== theAFruitMerchant aMoneyChanger)
                        = local8 (& local8 $efff)
                        (send gOwner:addHonor(2))
                        = query 23
                    )(else
                        (if (== theAFruitMerchant aFruitMerchant)
                            = query 59
                        )(else
                            (if (== theAFruitMerchant aLeatherMerchant)
                                = query 32
                            )
                        )
                    )
                )
                (case -57
                    (if (global424)
                        (fruitTell:doVerb(59))
                    )(else
                        (fruitTell:doVerb(10))
                    )
                    return 0
                )
                (case -34
                    (if (global424)
                        (leatherTell:doVerb(59))
                    )(else
                        (leatherTell:doVerb(10))
                    )
                    return 0
                )
                (case -26
                    = query 26
                )
            )
    )


    (method (cue)
        = query (super:showDialog(-21 
                (if ((== aMoneyChanger theAFruitMerchant) and proc0_6(41))
                    not proc0_6(171)
                )(else
                    0
                )
 -22 
                (if ((== aMoneyChanger theAFruitMerchant) and proc0_6(41))
                    not proc0_6(171)
                )(else
                    0
                )
 -23 
                (if (<> aMoneyChanger theAFruitMerchant)
                )(else
                    (& local8 $1000)
                )
 -26 (== aMoneyChanger theAFruitMerchant) -57 (== aFruitMerchant theAFruitMerchant) -34 (== aLeatherMerchant theAFruitMerchant)))
        = local0 1
        (if (iconValue)
            = query iconValue
        )
        (egoTell:respond())
    )

)
(instance moneyTell of Teller
    (properties)

    (method (showDialog)
        (super:showDialog(5 not proc0_6(41) -12 proc0_6(41) -73 proc0_6(41)))
    )


    (method (doChild)
        return 
            (switch (query)
                (case -12
                    (switch (% global122 6)
                        (case 0
                            (send gQg3Messager:say(1 5 13))
                        )
                        (case 1
                            (send gQg3Messager:say(1 5 14))
                        )
                        (case 2
                            (send gQg3Messager:say(1 5 15))
                        )
                        (case 3
                            (send gQg3Messager:say(1 5 16))
                        )
                        (case 4
                            (send gQg3Messager:say(1 5 17))
                        )
                        (case 5
                            (send gQg3Messager:say(1 5 18))
                        )
                    )
                    return 0
                )
                (case -73
                    (switch (% global122 5)
                        (case 0
                            (send gQg3Messager:say(1 5 6))
                        )
                        (case 1
                            (send gQg3Messager:say(1 5 7))
                        )
                        (case 2
                            (send gQg3Messager:say(1 5 8))
                        )
                        (case 3
                            (send gQg3Messager:say(1 5 9))
                        )
                        (case 4
                            (send gQg3Messager:say(1 5 10))
                        )
                    )
                    return 0
                )
                (default 
                    (super:doChild(query))
                )
            )
    )


    (method (doVerb theVerb)
        return 
            (switch (theVerb)
                (case 59
                    proc0_4(171)
                    proc233_0()
                    return 1
                )
                (case 10
                    (if (< global410 100)
                        (send gQg3Messager:say(1 6 72))
                    )(else
                        proc233_0()
                    )
                    return 1
                )
                (default 
                    (super:doVerb(theVerb))
                )
            )
    )

)
(instance fruitTell of Teller
    (properties)

    (method (doChild)
        return 
            (switch (query)
                (case -12
                    (switch (% global122 6)
                        (case 0
                            (send gQg3Messager:say(4 5 13))
                        )
                        (case 1
                            (send gQg3Messager:say(4 5 14))
                        )
                        (case 2
                            (send gQg3Messager:say(4 5 15))
                        )
                        (case 3
                            (send gQg3Messager:say(4 5 16))
                        )
                        (case 4
                            (send gQg3Messager:say(4 5 17))
                        )
                        (case 5
                            (send gQg3Messager:say(4 5 18))
                        )
                    )
                    return 0
                )
                (case -75
                    (switch (% global122 6)
                        (case 0
                            (send gQg3Messager:say(4 5 51))
                        )
                        (case 1
                            (send gQg3Messager:say(4 5 52))
                        )
                        (case 2
                            (send gQg3Messager:say(4 5 53))
                        )
                        (case 3
                            (send gQg3Messager:say(4 5 54))
                        )
                        (case 4
                            (send gQg3Messager:say(4 5 55))
                        )
                        (case 5
                            (send gQg3Messager:say(4 5 56))
                        )
                    )
                    return 0
                )
                (default 
                    (super:doChild(query))
                )
            )
    )


    (method (doVerb theVerb)
        (var temp0[20])
        return 
            (switch (theVerb)
                (case 59
                    (send gQg3Messager:say(4 6 63))
                )
                (case 10
                    (if (not local6)
                        (send (ScriptID(232 0)):goods((send ((List:new())):add((send ((Class_47_1:new(27))):
                                    price(50)
                                    denomination(1)
                                    quantity(40)
                                )
))))
                        = local6 (send (ScriptID(232 0)):goods)
                    )(else
                        (send (ScriptID(232 0)):goods(local6))
                    )
                    (send (ScriptID(232 0)):
                        init()
                        purchase()
                        dispose()
                    )
                    return 1
                )
                (default 
                    (super:doVerb(theVerb))
                )
            )
    )

)
(instance leatherTell of Teller
    (properties)

    (method (doVerb theVerb)
        return 
            (switch (theVerb)
                (case 59
                    (send gQg3Messager:say(3 6 63))
                )
                (case 10
                    (if (not local7)
                        (send (ScriptID(235 0)):goods((send ((List:new())):add((send ((Class_47_1:new(32))):
                                    price(200)
                                    denomination(1)
                                    quantity(70)
                                )
 (send ((Class_47_1:new(31))):
                                    price(5)
                                    quantity(6)
                                )
))))
                        = local7 (send (ScriptID(235 0)):goods)
                    )(else
                        (send (ScriptID(235 0)):goods(local7))
                    )
                    (send (ScriptID(235 0)):
                        init()
                        purchase()
                        dispose()
                    )
                    return 1
                )
                (default 
                    (super:doVerb(theVerb))
                )
            )
    )

)
(instance public tMoneyChangerTalker of GloryTalker
    (properties
        x 200
        y 2
        view 233
        loop 1
        talkWidth 260
        back 57
        textX -175
        textY 150
        backColor 48
    )

    (method (init param1)
        (super:init(moneyChangerBust moneyChangerEyes moneyChangerMouth rest param1))
    )

)
(instance moneyChangerBust of Prop
    (properties
        view 233
        loop 1
        cel 1
        signal $4000
    )
)
(instance moneyChangerEyes of Prop
    (properties
        nsTop 47
        nsLeft 34
        view 233
        loop 2
        priority 15
        signal $4010
    )
)
(instance moneyChangerMouth of Prop
    (properties
        nsTop 58
        nsLeft 35
        view 233
        signal $4000
    )
)
(instance moneyChangerBrow of Prop
    (properties
        nsTop 26
        nsLeft 28
        view 233
        loop 3
        signal $4000
    )
)
(instance leatherA of View
    (properties
        x 132
        y 91
        z -30
        view 230
        signal $4010
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 20
                (send global2:doVerb(theVerb))
            )
            (case 80
                (send global2:doVerb(theVerb))
            )
            (case 81
                (send global2:doVerb(theVerb))
            )
            (case 83
                (send global2:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance leatherB of View
    (properties
        x 253
        y 104
        z -30
        view 230
        cel 1
        signal $4010
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 20
                (send global2:doVerb(theVerb))
            )
            (case 80
                (send global2:doVerb(theVerb))
            )
            (case 81
                (send global2:doVerb(theVerb))
            )
            (case 83
                (send global2:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance fruitA of View
    (properties
        x 157
        y 158
        z -30
        noun 30
        view 230
        loop 1
        signal $5010
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance bananas of Feature
    (properties
        x 178
        y 180
        noun 6
        nsTop 172
        nsLeft 164
        nsBottom 189
        nsRight 192
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance fruit of Feature
    (properties
        x 118
        y 204
        z 30
        noun 28
        nsTop 167
        nsLeft 106
        nsBottom 181
        nsRight 130
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance hides of Feature
    (properties
        x 64
        y 123
        z 60
        noun 8
        nsTop 41
        nsLeft 57
        nsBottom 85
        nsRight 71
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance belts of Feature
    (properties
        x 181
        y 103
        z 60
        noun 9
        nsTop 23
        nsLeft 171
        nsBottom 63
        nsRight 192
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance skinrugs of Feature
    (properties
        x 93
        y 100
        noun 10
        nsTop 90
        nsLeft 78
        nsBottom 111
        nsRight 109
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance zebrarug of Feature
    (properties
        x 135
        y 102
        noun 11
        nsTop 90
        nsLeft 109
        nsBottom 115
        nsRight 162
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance giraffe of Feature
    (properties
        x 138
        y 115
        z 50
        noun 12
        nsTop 50
        nsLeft 112
        nsBottom 81
        nsRight 164
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance leopardskin of Feature
    (properties
        x 89
        y 98
        z 60
        noun 13
        nsTop 16
        nsLeft 78
        nsBottom 60
        nsRight 101
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance money_sign of Feature
    (properties
        x 17
        y 37
        noun 14
        nsTop 30
        nsBottom 45
        nsRight 34
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance hideracks of Feature
    (properties
        x 221
        y 114
        z 30
        noun 15
        nsTop 62
        nsLeft 197
        nsBottom 107
        nsRight 245
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance watermelon of Feature
    (properties
        x 237
        y 184
        noun 16
        nsTop 180
        nsLeft 222
        nsBottom 189
        nsRight 252
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance basket of Feature
    (properties
        x 242
        y 117
        z 60
        noun 17
        nsTop 47
        nsLeft 228
        nsBottom 68
        nsRight 256
        sightAngle 180
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance pitcher of Feature
    (properties
        x 262
        y 116
        z 20
        noun 18
        nsTop 86
        nsLeft 254
        nsBottom 107
        nsRight 270
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance roundtray of Feature
    (properties
        x 271
        y 114
        z 60
        noun 19
        nsTop 42
        nsLeft 265
        nsBottom 67
        nsRight 277
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance peppers of Feature
    (properties
        x 284
        y 110
        z 50
        noun 20
        nsTop 45
        nsLeft 278
        nsBottom 76
        nsRight 290
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance rectangletray of Feature
    (properties
        x 296
        y 113
        z 60
        noun 21
        nsTop 39
        nsLeft 288
        nsBottom 67
        nsRight 304
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance redplate of Feature
    (properties
        x 262
        y 114
        noun 22
        nsTop 109
        nsLeft 251
        nsBottom 119
        nsRight 273
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance brassvase of Feature
    (properties
        x 284
        y 108
        noun 23
        nsTop 92
        nsLeft 276
        nsBottom 125
        nsRight 292
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance shoes of Feature
    (properties
        x 301
        y 126
        noun 24
        nsTop 120
        nsLeft 293
        nsBottom 133
        nsRight 309
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                (super:doVerb(theVerb))
            )
            (default 
                (send global2:doVerb(theVerb))
            )
        )
    )

)
(instance sfx of Sound
    (properties)
)
