(version 2)
(include "sci.sh")
(exports
    0 rm565
)
(use "Main")
(use "Cycle")
(use "Game")
(use "View")
(use "Obj")
(script 565)


(local
    gEgoMoveSpeed

)
(instance public rm565 of Rm
    (properties
        picture 565
    )

    (method (init)
        = gEgoMoveSpeed (send gEgo:moveSpeed)
        (send gEgo:
            view(566)
            setLoop(0)
            x(237)
            y(132)
            signal(16384)
            cycleSpeed(14)
            moveSpeed(14)
            init()
        )
        (kenny:
            setLoop(0)
            cycleSpeed(14)
            moveSpeed(14)
            init()
        )
        (super:init())
        (if (proc0_2(60))
            (send global2:setScript(sFreddyShootsKenny))
        )(else
            (send global2:setScript(sKennyShootsFreddy))
        )
    )

)
(instance sKennyShootsFreddy of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gGame:handsOff())
                = cycles 1
            )
            (case 1
                (kenny:setCycle(End self))
                (send gEgo:
                    loop(1)
                    cel(0)
                    setCycle(End)
                )
            )
            (case 2
                (kenny:
                    loop(4)
                    cel(0)
                    setCycle(End self)
                )
            )
            (case 3
                (kenny:
                    loop(2)
                    setStep(6 4)
                    setCycle(Walk)
                    setMotion(MoveTo 230 132 self)
                )
            )
            (case 4
                (kenny:
                    loop(0)
                    cel(6)
                )
                = cycles 5
            )
            (case 5
                (send gEgo:
                    cycleSpeed(gEgoMoveSpeed)
                    moveSpeed(gEgoMoveSpeed)
                )
                (send global2:newRoom(570))
                (self:dispose())
            )
        )
    )

)
(instance sFreddyShootsKenny of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gGame:handsOff())
                = cycles 1
            )
            (case 1
                (kenny:
                    loop(1)
                    cel(0)
                    setCycle(End self)
                )
                (send gEgo:setCycle(End))
            )
            (case 2
                (kenny:
                    loop(3)
                    setStep(6 4)
                    setCycle(Walk)
                    setMotion(MoveTo 230 132 self)
                )
            )
            (case 3
                (kenny:
                    loop(1)
                    cel(8)
                )
                = cycles 5
            )
            (case 4
                (send gEgo:
                    cycleSpeed(gEgoMoveSpeed)
                    moveSpeed(gEgoMoveSpeed)
                )
                (send global2:newRoom(570))
                (self:dispose())
            )
        )
    )

)
(instance kenny of Actor
    (properties
        x 73
        y 132
        view 565
        signal $4000
    )
)
