(version 2)
(include "sci.sh")
(exports
    0 rm675
)
(use "Main")
(use "FPRoom")
(use "CueObj")
(use "Cycle")
(use "View")
(use "Obj")
(script 675)



(instance public rm675 of FPRoom
    (properties
        noun 12
        picture 675
        style $000a
    )

    (method (init)
        (send gGameMusic1:
            number(675)
            flags(1)
            loop(-1)
            play()
        )
        proc0_8(1)
        = global119 20
        (send gEgo:
            wearingGuns(1)
            get(-1 44)
        )
        (super:init())
        (aces:
            init()
            setOnMeCheck(1 2)
        )
        (acesMoney:
            init()
            setOnMeCheck(1 4)
        )
        (gambler4Money:
            init()
            setOnMeCheck(1 8)
        )
        (pot:
            init()
            setOnMeCheck(1 16)
        )
        (gambler1:
            init()
            setOnMeCheck(1 256)
        )
        (gambler2:
            init()
            setOnMeCheck(1 32)
        )
        (gambler3:
            init()
            setOnMeCheck(1 64)
        )
        (gambler4:
            init()
            setOnMeCheck(1 128)
        )
        (sceneFrame:
            init()
            setOnMeCheck(1 512)
        )
        (pokerTable:
            init()
            setOnMeCheck(1 1024)
        )
        (cardFan:init())
        (thirdHand:
            init()
            setScript(sRandomHand)
        )
        (send gGame:handsOn())
    )


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance sRandomHand of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = ticks Random(480 660)
            )
            (case 1
                (armSound:play())
                (thirdHand:
                    setLoop(1)
                    setMotion(MoveTo 165 98 self)
                )
            )
            (case 2
                (armSound:play())
                (thirdHand:
                    setLoop(1)
                    setMotion(MoveTo 165 130 self)
                )
            )
            (case 3
                (thirdHand:stopUpd())
                (self:changeState(0))
            )
        )
    )

)
(instance sCaughtCheating of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gGame:handsOff())
                (send gGameMusic1:
                    number(677)
                    flags(1)
                    loop(-1)
                    play()
                )
                (thirdHand:
                    setScript(0)
                    setLoop(1)
                    setMotion(MoveTo 165 130 self)
                )
            )
            (case 1
                (send gGame:points(10 141))
                (send gFpMessager:say(14))
                = cycles 1
            )
            (case 2
                (thirdHand:
                    setLoop(3)
                    setCel(0)
                    posn(162 117)
                    setPri(6)
                    cycleSpeed(9)
                    moveSpeed(9)
                    yStep(1)
                    setMotion(MoveTo 162 98 self)
                )
            )
            (case 3
                (send gFpMessager:say(15))
                = cycles 1
            )
            (case 4
                = global119 21
                (send gGame:handsOn())
                proc0_8(0)
                (send global2:newRoom(671))
                (self:dispose())
            )
        )
    )

)
(instance thirdHand of Actor
    (properties
        x 165
        y 130
        noun 2
        yStep 5
        view 675
        loop 1
        priority 5
        signal $4011
        moveSpeed 3
    )

    (method (doVerb theVerb param2)
        (switch (theVerb)
            (case 4
                (send global2:setScript(sCaughtCheating))
            )
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb rest param2))
            )
        )
    )

)
(instance cardFan of View
    (properties
        x 174
        y 92
        noun 1
        view 675
        priority 6
        signal $4011
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance aces of Feature
    (properties
        x 164
        y 63
        noun 3
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance gambler1 of Feature
    (properties
        x 77
        y 106
        noun 7
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance gambler2 of Feature
    (properties
        x 273
        y 65
        noun 8
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance gambler3 of Feature
    (properties
        x 263
        y 151
        noun 9
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance gambler4 of Feature
    (properties
        x 70
        y 150
        noun 10
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance sceneFrame of Feature
    (properties
        x 166
        y 19
        noun 11
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance pokerTable of Feature
    (properties
        x 160
        y 140
        noun 13
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance gambler4Money of Feature
    (properties
        x 119
        y 108
        noun 5
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance pot of Feature
    (properties
        x 160
        y 140
        noun 6
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance acesMoney of Feature
    (properties
        x 207
        y 104
        noun 4
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 8
                proc0_8(0)
                (send global2:newRoom(670))
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance armSound of FPSound
    (properties
        flags $0001
        number 2125
    )
)
