(version 2)
(include "sci.sh")
(exports
    0 rm670
)
(use "Main")
(use "FPRoom")
(use "Print")
(use "Scaler")
(use "RandCycle")
(use "Polygon")
(use "CueObj")
(use "Door")
(use "TimedCue")
(use "SysWindow")
(use "Cycle")
(use "User")
(use "View")
(use "Obj")
(script 670)


(local
    local0[2]
    local2
    local3[2]
    local5
    local6 =     1

)
(instance public rm670 of FPRoom
    (properties
        noun 29
        picture 670
        style $0064
        north 500
        south 230
    )

    (method (init)
        (var temp0)
        (send gEgo:
            init()
            setScale(Scaler 120 63 189 97)
            normalize()
        )
        (switch (gGNumber)
            (case south
                (send gEgo:x(47))
                (send gGame:handsOn())
            )
            (case 235
                (self:south(235))
                (send gEgo:x(47))
                (send gGame:handsOn())
            )
            (case 500
                (switch (Random(2 9))
                    (case 2
                        = global135 673
                    )
                    (case 3
                        = global135 673
                    )
                    (case 4
                        = global135 665
                    )
                    (case 5
                        = global135 665
                    )
                    (case 6
                        = global135 666
                    )
                    (case 7
                        = global135 666
                    )
                    (case 8
                        = global135 670
                    )
                    (case 9
                        = global135 670
                    )
                )
                (send gEgo:loop(2))
            )
            (case 675
                (send gGame:handsOn())
            )
            (case 680
                (send gGame:handsOn())
            )
            (default 
                (send gEgo:
                    x(47)
                    y(181)
                    setHeading(0)
                )
                (if (== gGNumber 671)
                    (send gGame:
                        handsOn()
                        setCursor(0 1)
                    )
                )(else
                    (send gGame:handsOn())
                )
            )
        )
        (super:init())
        (send global2:addObstacle((send ((Polygon:new())):
                type(2)
                init(8 189 0 189 0 0 319 0 319 189 82 189 82 185 95 180 108 177 216 177 228 185 244 185 251 179 291 179 291 151 305 151 292 128 269 128 257 123 257 112 250 104 231 100 231 76 221 76 221 99 183 99 152 99 150 115 130 115 120 121 82 121 72 113 52 113 52 119 72 121 79 127 73 137 8 165)
                yourself()
            )
 (send ((Polygon:new())):
                type(2)
                init(154 104 235 104 238 129 152 129)
                yourself()
            )
 
            (if (== global119 20)
                (send ((Polygon:new())):
                    type(2)
                    init(77 173 68 155 79 133 280 133 287 149 277 170 263 173 239 173)
                    yourself()
                )
            )(else
                (send ((Polygon:new())):
                    type(2)
                    init(177 173 177 133 277 133 281 151 277 170 263 173 239 173)
                    yourself()
                )
            )
))
        (if (<> global119 20)
            (send global2:addObstacle((send ((Polygon:new())):
                    type(2)
                    init(174 133 174 173 80 173 70 151 80 133)
                    yourself()
                )
))
        )
        (if (< global119 20)
            (chandelier2:
                ignoreActors()
                addToPic()
                init()
            )
            (pokerTable:
                ignoreActors()
                addToPic()
                init()
                approachVerbs(1)
            )
            (sittingCowboy1:
                ignoreActors()
                addToPic()
                init()
                approachVerbs(4 2)
            )
            (sittingCowboy2:
                ignoreActors()
                addToPic()
                init()
                approachVerbs(4 2)
            )
            (sittingCowboy3:
                ignoreActors()
                addToPic()
                init()
                approachVerbs(4 2)
            )
            (sam:
                init()
                stopUpd()
                approachVerbs(4 2 31)
                setScript(
                    (if (>= (send gGame:detailLevel()) 2)
                        sSamMotions
                    )(else
                        0
                    )
)
            )
            (if (proc0_2(34))
                (doc:
                    init()
                    setLoop(1)
                    setCel(0)
                    approachVerbs(10 4 2)
                )
            )(else
                (doc:
                    init()
                    approachVerbs(10 4 2)
                    setScript(
                        (if (>= (send gGame:detailLevel()) 2)
                            sDrinkWhiskey
                        )(else
                            0
                        )
)
                )
                (whiskey:
                    init()
                    approachVerbs(4)
                )
            )
            (if (<> global119 14)
                (pianoPlayer:
                    approachVerbs(2)
                    setCycle(RandCycle)
                    init()
                )
            )
        )(else
            (if (== global119 20)
                (aces:
                    ignoreActors()
                    addToPic()
                    init()
                    approachVerbs(1 4 2)
                )
                (pokerTable:
                    ignoreActors()
                    addToPic()
                    init()
                    approachVerbs(1)
                )
                (chips:
                    ignoreActors()
                    addToPic()
                    init()
                )
                (chandelier2:
                    ignoreActors()
                    addToPic()
                    init()
                )
                (pianoPlayer:
                    approachVerbs(2)
                    setCycle(RandCycle)
                    init()
                )
                (sam:
                    init()
                    stopUpd()
                    approachVerbs(4 2 31)
                    setScript(
                        (if (>= (send gGame:detailLevel()) 2)
                            sSamMotions
                        )(else
                            0
                        )
)
                )
                (laffer:
                    init()
                    stopUpd()
                    approachVerbs(2 4 9)
                    setScript(sLafferDrinks)
                )
                (doc:
                    view(682)
                    setPri(6)
                    x(74)
                    y(93)
                    z(0)
                    ignoreActors()
                    addToPic()
                    init()
                )
            )(else
                (pokerTable:
                    ignoreActors()
                    addToPic()
                    approachVerbs(1)
                    init()
                )
                (pianoPlayer:
                    approachVerbs(2)
                    setCycle(RandCycle)
                    init()
                )
                (sam:
                    init()
                    stopUpd()
                    approachVerbs(4 2 31)
                    setScript(
                        (if (>= (send gGame:detailLevel()) 2)
                            sSamMotions
                        )(else
                            0
                        )
)
                )
                (doc:
                    view(682)
                    setPri(6)
                    x(74)
                    y(93)
                    z(0)
                    ignoreActors()
                    addToPic()
                    init()
                )
                (laffer:
                    stopUpd()
                    approachVerbs(2 4 9)
                    init()
                )
            )
        )
        (if ((== global135 670) and (<> global119 20))
            (solo:
                init()
                setCycle(TimedCue 5 solo)
            )
            (chorus:
                init()
                setLoop(0)
                setCycle(Walk)
                setMotion(MoveTo 208 69 chorus)
            )
        )(else
            = global135 673
        )
        (shieldTable:
            ignoreActors()
            addToPic()
            init()
        )
        (bottles:init())
        (spinner:init())
        (stage:init())
        (backDoor:init())
        (poolTable:
            init()
            setOnMeCheck(1 2)
        )
        (roulette:
            init()
            setOnMeCheck(1 4)
        )
        (diceGame:
            init()
            setOnMeCheck(1 8)
        )
        (moose:
            init()
            setOnMeCheck(1 16)
        )
        (hatRack:
            init()
            setOnMeCheck(1 32)
        )
        (table1:
            init()
            setOnMeCheck(1 256)
        )
        (table2:
            init()
            setOnMeCheck(1 128)
        )
        (blackJack:
            init()
            setOnMeCheck(1 512)
        )
        (piano:
            init()
            setOnMeCheck(1 1024)
        )
        (chandelier:
            init()
            setOnMeCheck(1 2048)
        )
        (painting2:
            init()
            setOnMeCheck(1 4096)
        )
        (littlePic:
            init()
            setOnMeCheck(1 -32768)
        )
        (bar:
            init()
            setOnMeCheck(1 8192)
        )
        (rail:
            init()
            setOnMeCheck(1 16384)
        )
        (painting1:
            init()
            approachVerbs(2 4)
            setOnMeCheck(1 64)
        )
    )


    (method (doit)
        (if (script)
        )(else
            (if (proc0_2(85) and (== (send ((User:alterEgo)):edgeHit) 3))
                (send global2:setScript(sRowdyWarning))
            )(else
                (if (== (send gEgo:edgeHit) 3)
                    (send global2:setScript(sExitSouth))
                )
            )
        )
        (super:doit())
    )


    (method (dispose)
        (if ((<> gNewRoomNumber 230) and (<> global119 14))
            (send gGameMusic1:fade())
        )
        (super:dispose())
    )


    (method (newRoom newRoomNumber)
        (if ((== newRoomNumber 230) and proc999_5(global119 8 9 20 22))
            = newRoomNumber 235
        )
        (super:newRoom(newRoomNumber))
    )

)
(instance sExitSouth of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gGame:handsOff())
                (send gEgo:
                    setLoop(2)
                    setMotion(MoveTo (send gEgo:x) 290 self)
                )
            )
            (case 1
                (send global2:newRoom(230))
            )
        )
    )

)
(instance sSamMotions of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (sam:setCycle(End self))
            )
            (case 1
                = seconds Random(1 4)
            )
            (case 2
                (sam:setCycle(Beg self))
            )
            (case 3
                = seconds Random(1 4)
            )
            (case 4
                (if (Random(0 1))
                    (sam:
                        setLoop(1)
                        setCel(0)
                        setCycle(CT 5 1 self)
                    )
                )(else
                    = cycles 1
                )
            )
            (case 5
                (if (== (sam:cel) 5)
                    (sam:
                        setLoop(0)
                        setCel(0)
                        setCycle(Fwd)
                    )
                    = seconds Random(4 7)
                )(else
                    = cycles 1
                )
            )
            (case 6
                (if (== (sam:loop) 0)
                    (sam:
                        setLoop(1)
                        setCycle(Beg self)
                    )
                )(else
                    = cycles 1
                )
            )
            (case 7
                (self:changeState(0))
            )
            (case 8
                (self:dispose())
            )
        )
    )

)
(instance sDrinkWhiskey of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = local6 1
                = seconds Random(7 15)
            )
            (case 1
                = local6 0
                (whiskey:hide())
                (doc:setCycle(End self))
            )
            (case 2
                (whiskey:
                    show()
                    stopUpd()
                )
                (doc:
                    setCel(0)
                    stopUpd()
                )
                (self:changeState(0))
            )
        )
    )

)
(instance sRowdyWarning of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gGame:handsOff())
                = cycles 1
            )
            (case 1
                (rowdySound:
                    number(2944)
                    play()
                )
                = ticks 20
            )
            (case 2
                (rowdySound:
                    number(2944)
                    play()
                )
                = ticks 20
            )
            (case 3
                (rowdySound:
                    number(2944)
                    play()
                )
                = ticks 50
            )
            (case 4
                (rowdySound:
                    number(2944)
                    play(self)
                )
            )
            (case 5
                (rowdySound:
                    number(2954)
                    play(self)
                )
            )
            (case 6
                (send gFpMessager:say(45 0 0 0 self))
            )
            (case 7
                (send gEgo:setMotion(MoveTo 47 181 self))
            )
            (case 8
                proc0_4(85)
                (send gGame:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance sPickATune of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (if (== local5 0)
                    = local5 1
                    (send gFpMessager:say(38 2 0 0 self))
                )(else
                    = cycles 1
                )
            )
            (case 1
                = gWalkCursor (send ((send gIconBar:curIcon)):cursor)
                (send gGame:setCursor(999 1))
                = local2 global135
                = global135 (Print:
                        posn(65 20)
                        font(1207)
                        window(SysWindow)
                        addTitle(58 0 0 1 670)
                        addButton(150 47 0 0 1 0 0 670)
                        addButton(235 48 0 0 1 0 15 670)
                        addButton(675 49 0 0 1 0 30 670)
                        addButton(540 50 0 0 1 0 45 670)
                        addButton(201 51 0 0 1 0 60 670)
                        addButton(185 52 0 0 1 0 75 670)
                        addButton(548 53 0 0 1 0 90 670)
                        addButton(323 54 0 0 1 0 105 670)
                        addButton(501 55 0 0 1 0 120 670)
                        addButton(660 56 0 0 1 0 135 670)
                        init()
                    )
                (if (== global135 0)
                    = global135 local2
                )(else
                    (send gGameMusic1:
                        number(global135)
                        flags(1)
                        loop(-1)
                        play()
                    )
                )
                = cycles 1
            )
            (case 2
                (send gGame:setCursor(gWalkCursor))
                (self:dispose())
            )
        )
    )

)
(instance sLafferDrinks of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = seconds Random(20 50)
            )
            (case 1
                (send client:setCycle(End self))
            )
            (case 2
                (send client:
                    setCel(0)
                    stopUpd()
                )
                (self:dispose())
            )
        )
    )

)
(instance sDocReadsRX of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gGame:handsOff())
                (send gEgo:stopUpd())
                (whiskey:init())
                (send gEgo:put(58))
                (send gEgo:get(-1 12))
                (send gGameMusic1:fade(0 10 16 0))
                (send gGameMusic2:
                    number(674)
                    flags(1)
                    loop(-1)
                    play()
                    setVol(0)
                )
                = cycles 3
            )
            (case 1
                (send gGameMusic2:fade(127 10 16 0))
                (send gFpMessager:say(7 0 6 1 2 self))
            )
            (case 2
                (doc:
                    view(235)
                    loop(0)
                    setCycle(CT 4 1 self)
                )
            )
            (case 3
                (whiskey:dispose())
                (doc:setCycle(End self))
            )
            (case 4
                (doc:stopUpd())
                = cycles 3
            )
            (case 5
                (send gFpMessager:say(7 0 6 3 6 self))
                = global119 5
            )
            (case 6
                (doc:
                    loop(1)
                    setCycle(End self)
                )
            )
            (case 7
                (doc:
                    loop(2)
                    cel(4)
                    setCycle(CT 2 -1 self)
                )
            )
            (case 8
                (paper:init())
                (doc:setCycle(Beg self))
            )
            (case 9
                (doc:stopUpd())
                = cycles 3
            )
            (case 10
                (send gGame:points(7))
                (send gFpMessager:say(7 0 6 7 10 self))
                = global119 5
            )
            (case 11
                (paper:dispose())
                (send gGameMusic2:fade(0 10 16 1))
                (send gGameMusic1:fade(127 10 16 0))
                UnLoad(128 235)
                (doc:
                    view(671)
                    loop(1)
                    cel(0)
                    stopUpd()
                )
                (send gGame:handsOn())
                (self:dispose())
            )
        )
    )

)
(instance chorus of Actor
    (properties
        x 1
        y 69
        noun 37
        view 686
        signal $5000
        cycleSpeed 10
        moveSpeed 10
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 2
                (if (DoSound(sndGET_AUDIO_CAPABILITY))
                    (send gGameMusic2:
                        number(2952)
                        flags(1)
                        loop(1)
                        play()
                    )
                )(else
                    (send gFpMessager:say(noun theVerb))
                )
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )


    (method (cue)
        (self:setLoop(
            (if (> x 200)
                1
            )(else
                0
            )
))
        (self:setMotion(MoveTo 
            (if (> x 200)
                1
            )(else
                208
            )
 y self))
    )

)
(instance solo of Actor
    (properties
        x 124
        y 74
        noun 37
        view 686
        loop 2
        signal $5000
        cycleSpeed 10
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 2
                (if (DoSound(sndGET_AUDIO_CAPABILITY))
                    (send gGameMusic2:
                        number(2952)
                        flags(1)
                        loop(1)
                        play()
                    )
                )(else
                    (send gFpMessager:say(noun theVerb))
                )
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )


    (method (cue)
        (self:setLoop(
            (if (== loop 2)
                3
            )(else
                2
            )
))
        (self:setCycle(TimedCue 5 self))
    )

)
(instance chandelier2 of Actor
    (properties
        x 221
        y 135
        z 137
        noun 36
        view 670
        loop 2
        priority 13
        signal $1000
    )
)
(instance laffer of Prop
    (properties
        x 58
        y 134
        noun 10
        approachX 70
        approachY 149
        view 688
        signal $5000
        detailLevel 2
    )

    (method (init)
        (super:init())
        (if (> (send gGame:detailLevel()) 2)
            (self:setScript(sLafferDrinks))
        )
    )

)
(instance pianoPlayer of Prop
    (properties
        x 57
        y 85
        noun 38
        approachX 74
        approachY 113
        view 673
        loop 2
        priority 6
        signal $5010
        detailLevel 2
    )

    (method (init)
        (super:init())
        (if ((== gGNumber 230) or (== gGNumber 235))
            (send gGameMusic1:fade(127 10 16 0))
        )(else
            (send gGameMusic1:
                number(global135)
                flags(1)
                loop(-1)
                play()
            )
        )
    )


    (method (doVerb theVerb param2)
        (switch (theVerb)
            (case 2
                (self:setScript(sPickATune))
            )
            (default 
                (super:doVerb(theVerb rest param2))
            )
        )
    )

)
(instance sam of Prop
    (properties
        x 14
        y 98
        noun 11
        approachX 45
        approachY 150
        view 673
        loop 1
        priority 9
        signal $5010
        detailLevel 2
    )

    (method (doVerb theVerb param2)
        (switch (theVerb)
            (case 31
                (send gFpMessager:say(noun 31))
                (send gEgo:put(37))
                (send gEgo:get(-1 1 2))
                (send gGame:points(5))
            )
            (case 2
                (if (<= global120 1)
                    (switch (global139)
                        (case 0
                            (send gFpMessager:say(noun theVerb 9))
                            ++global139
                        )
                        (case 1
                            (send gFpMessager:say(noun theVerb 10))
                            ++global139
                        )
                        (case 2
                            (send gFpMessager:say(noun theVerb 11))
                        )
                    )
                )(else
                    (if (== global119 12)
                        (send gFpMessager:say(11 2 14))
                    )(else
                        (if (== global119 13)
                            (send gFpMessager:say(11 2 15))
                        )(else
                            (if (== global119 14)
                                (send gFpMessager:say(11 2 16))
                            )(else
                                (if (== global119 15)
                                    (send gFpMessager:say(11 2 17))
                                )(else
                                    (if ((== global119 8) or (== global119 9))
                                        (send gFpMessager:say(11 2 12))
                                    )(else
                                        (if (== global119 10)
                                            (send gFpMessager:say(11 2 13))
                                        )(else
                                            (if (== global120 3)
                                                (switch (global139)
                                                    (case 0
                                                        (send gFpMessager:say(noun theVerb 18))
                                                        ++global139
                                                    )
                                                    (case 1
                                                        (send gFpMessager:say(noun theVerb 19))
                                                        ++global139
                                                    )
                                                    (case 2
                                                        (send gFpMessager:say(noun theVerb 20))
                                                    )
                                                )
                                            )(else
                                                (if (== global119 20)
                                                    (send gFpMessager:say(11 2 21))
                                                )(else
                                                    (if (== global119 22)
                                                        (send gFpMessager:say(11 2 22))
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
            (default 
                (super:doVerb(theVerb rest param2))
            )
        )
    )

)
(instance doc of Prop
    (properties
        x 193
        y 140
        z 13
        noun 7
        approachX 224
        approachY 143
        view 671
        priority 11
        signal $5010
        cycleSpeed 10
        detailLevel 2
    )

    (method (init)
        (super:init())
        (self:stopUpd())
    )


    (method (doVerb theVerb param2)
        (if (>= global119 20)
            (send gFpMessager:say(noun 0 4))
        )(else
            (switch (theVerb)
                (case 2
                    (if (<= global120 1)
                        (switch (global137)
                            (case 0
                                (send gFpMessager:say(noun theVerb 9))
                                ++global137
                            )
                            (case 1
                                (send gFpMessager:say(noun theVerb 10))
                                ++global137
                            )
                            (case 2
                                (send gFpMessager:say(noun theVerb 11))
                            )
                        )
                    )(else
                        (if ((== global119 8) or (== global119 9))
                            (send gFpMessager:say(noun theVerb 23))
                        )(else
                            (if (== global119 10)
                                (send gFpMessager:say(noun theVerb 13))
                            )(else
                                (if (== global119 12)
                                    (send gFpMessager:say(noun theVerb 14))
                                )(else
                                    (if (== global119 13)
                                        (send gFpMessager:say(noun theVerb 24))
                                    )(else
                                        (if (== global119 14)
                                            (send gFpMessager:say(noun theVerb 16))
                                        )(else
                                            (if (== global119 15)
                                                (send gFpMessager:say(noun theVerb 25))
                                            )(else
                                                (if (== global119 16)
                                                    (send gFpMessager:say(noun theVerb 26))
                                                )(else
                                                    (if (== global119 19)
                                                        (send gFpMessager:say(noun theVerb 27))
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
                (case 10
                    (send gFpMessager:say(7 0 5))
                )
                (case 12
                    (send gFpMessager:say(7 0 5))
                )
                (case 14
                    (send gFpMessager:say(7 0 7))
                )
                (case 16
                    (self:setScript(sDocReadsRX))
                )
                (case 17
                    (send gFpMessager:say(7 0 5))
                )
                (default 
                    (super:doVerb(theVerb rest param2))
                )
            )
        )
    )

)
(instance aces of Prop
    (properties
        x 224
        y 122
        noun 31
        approachX 232
        approachY 174
        view 672
        loop 4
        priority 10
        signal $5010
    )

    (method (doVerb theVerb param2)
        (switch (theVerb)
            (case 1
                (send global2:newRoom(675))
            )
            (case 2
                (switch (global146)
                    (case 0
                        (send gFpMessager:say(noun theVerb 28))
                        ++global146
                    )
                    (case 1
                        (send gFpMessager:say(noun theVerb 29))
                        ++global146
                    )
                    (case 2
                        (send gFpMessager:say(noun theVerb 30))
                    )
                )
            )
            (default 
                (super:doVerb(theVerb rest param2))
            )
        )
    )

)
(instance pokerGuy1 of Prop
    (properties
        x 180
        y 149
        noun 39
        view 672
        signal $5000
    )
)
(instance pokerGuy2 of Prop
    (properties
        x 267
        y 147
        noun 41
        view 672
        loop 1
        signal $5000
    )
)
(instance pokerGuy3 of Prop
    (properties
        x 255
        y 167
        noun 42
        view 672
        loop 2
        signal $5000
    )
)
(instance pokerGuy4 of Prop
    (properties
        x 191
        y 164
        noun 43
        view 672
        loop 3
        priority 11
        signal $5010
    )
)
(instance backDoor of Door
    (properties
        x 213
        y 89
        noun 30
        approachX 221
        approachY 101
        view 670
        entranceTo 500
        openSnd 2146
        closeSnd 2147
        openVerb 4
        moveToX 221
        moveToY 92
        enterType 0
        exitType 0
    )
)
(instance sittingCowboy1 of Prop
    (properties
        x 180
        y 103
        noun 44
        approachX 246
        approachY 119
        view 684
        priority 8
        signal $5010
    )
)
(instance sittingCowboy2 of Prop
    (properties
        x 207
        y 95
        noun 44
        approachX 246
        approachY 119
        view 684
        loop 1
        priority 8
        signal $5010
    )
)
(instance sittingCowboy3 of Prop
    (properties
        x 169
        y 93
        noun 44
        approachX 246
        approachY 119
        view 684
        loop 2
        priority 8
        signal $5010
    )
)
(instance shieldTable of Prop
    (properties
        x 120
        y 129
        noun 33
        view 678
        loop 5
        priority 11
        signal $5010
    )

    (method (init)
        (super:init())
        (chair1:
            ignoreActors()
            addToPic()
            init()
        )
        (chair2:
            ignoreActors()
            addToPic()
            init()
        )
        (chair3:
            ignoreActors()
            addToPic()
            init()
        )
        (chair4:
            ignoreActors()
            addToPic()
            init()
        )
    )

)
(instance pokerTable of View
    (properties
        x 228
        y 129
        noun 34
        approachX 232
        approachY 174
        view 678
        loop 5
        priority 11
        signal $5010
    )

    (method (init)
        (super:init())
        (if (== global119 20)
            (pokerGuy1:
                ignoreActors()
                addToPic()
                approachVerbs(4 2)
                init()
            )
            (pokerGuy2:
                ignoreActors()
                addToPic()
                approachVerbs(4 2)
                init()
            )
            (pokerGuy3:
                ignoreActors()
                addToPic()
                approachVerbs(4 2)
                init()
            )
            (pokerGuy4:
                ignoreActors()
                addToPic()
                approachVerbs(4 2)
                init()
            )
        )(else
            (pChair1:
                ignoreActors()
                addToPic()
                init()
            )
            (pChair2:
                ignoreActors()
                addToPic()
                init()
            )
            (pChair3:
                ignoreActors()
                addToPic()
                init()
            )
            (pChair4:
                ignoreActors()
                addToPic()
                init()
            )
        )
    )


    (method (doVerb theVerb param2)
        (switch (theVerb)
            (case 1
                (if (== global119 20)
                    (send global2:newRoom(675))
                )(else
                    (super:doVerb(theVerb rest param2))
                )
            )
            (case 4
                (if (< global119 20)
                    (send gFpMessager:say(noun 4 1))
                )(else
                    (if (== global119 20)
                        (send gFpMessager:say(noun 4 2))
                    )
                )
            )
            (default 
                (super:doVerb(theVerb rest param2))
            )
        )
    )

)
(instance pChair1 of View
    (properties
        x 200
        y 127
        noun 40
        view 678
        priority 10
        signal $5010
    )
)
(instance pChair2 of View
    (properties
        x 249
        y 127
        noun 40
        view 678
        loop 1
        priority 10
        signal $5010
    )
)
(instance pChair3 of View
    (properties
        x 256
        y 148
        noun 40
        view 678
        loop 2
        priority 12
        signal $5010
    )
)
(instance pChair4 of View
    (properties
        x 205
        y 148
        noun 40
        view 678
        loop 3
        priority 12
        signal $5010
    )
)
(instance whiskey of View
    (properties
        x 224
        y 143
        z 22
        noun 32
        view 670
        loop 1
        priority 12
        signal $4010
    )

    (method (doVerb theVerb param2)
        (switch (theVerb)
            (case 4
                (if (local6)
                    proc0_3(34)
                    (send gGame:points(1))
                    (doc:
                        setLoop(1)
                        setCel(0)
                        setScript(0)
                        stopUpd()
                    )
                    (send gEgo:get(50 self))
                    (self:dispose())
                )(else
                    (send gFpMessager:say(7 4 35))
                )
            )
            (default 
                (super:doVerb(theVerb rest param2))
            )
        )
    )

)
(instance chair1 of View
    (properties
        x 101
        y 127
        noun 40
        view 678
        priority 10
        signal $5010
    )
)
(instance chair2 of View
    (properties
        x 147
        y 127
        noun 40
        view 678
        loop 1
        priority 10
        signal $5010
    )
)
(instance chair3 of View
    (properties
        x 147
        y 150
        noun 40
        view 678
        loop 2
        priority 12
        signal $5010
    )
)
(instance chair4 of View
    (properties
        x 98
        y 151
        noun 40
        view 678
        loop 3
        priority 12
        signal $5010
    )
)
(instance chips of View
    (properties
        x 226
        y 129
        view 672
        loop 5
        priority 12
        signal $5010
    )
)
(instance paper of View
    (properties
        x 230
        y 128
        view 235
        loop 3
        priority 11
        signal $4010
    )
)
(instance bottles of Feature
    (properties
        x 12
        y 86
        noun 26
        nsTop 72
        nsBottom 100
        nsRight 24
    )
)
(instance spinner of Feature
    (properties
        x 309
        y 71
        noun 27
        nsTop 49
        nsLeft 299
        nsBottom 94
        nsRight 319
    )
)
(instance stage of Feature
    (properties
        x 127
        y 45
        noun 28
        nsTop 6
        nsLeft 50
        nsBottom 85
        nsRight 205
    )
)
(instance poolTable of Feature
    (properties
        x 155
        y 175
        noun 12
    )
)
(instance roulette of Feature
    (properties
        x 285
        y 179
        noun 13
    )
)
(instance diceGame of Feature
    (properties
        x 310
        y 150
        noun 14
    )
)
(instance moose of Feature
    (properties
        x 289
        y 200
        noun 15
    )
)
(instance hatRack of Feature
    (properties
        x 245
        y 72
        noun 16
    )
)
(instance painting1 of Feature
    (properties
        x 223
        y 31
        noun 17
        approachX 221
        approachY 101
    )
)
(instance table1 of Feature
    (properties
        x 107
        y 89
        noun 19
    )
)
(instance table2 of Feature
    (properties
        x 198
        y 98
        noun 18
    )
)
(instance blackJack of Feature
    (properties
        x 281
        y 103
        noun 20
    )
)
(instance piano of Feature
    (properties
        x 47
        y 81
        noun 21
    )
)
(instance chandelier of Feature
    (properties
        x 105
        y 100
        noun 22
    )
)
(instance painting2 of Feature
    (properties
        x 7
        y 39
        noun 23
    )
)
(instance littlePic of Feature
    (properties
        x 32
        y 38
        noun 24
    )
)
(instance bar of Feature
    (properties
        x 26
        y 120
        noun 25
    )
)
(instance rail of Feature
    (properties
        x 26
        y 120
        noun 63
    )
)
(instance rowdySound of FPSound
    (properties
        flags $0001
    )
)
