(version 2)
(include "sci.sh")
(exports
    0 getBeltPole
)
(use "Main")
(use "Avoid")
(use "Cycle")
(use "Obj")
(script 521)



(instance public getBeltPole of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:
                    setAvoider(Avoid)
                    setMotion(MoveTo - (send gNewView:x) 40 122 self)
                )
            )
            (case 1
                (send gEgo:
                    view(104)
                    setLoop(0)
                    cel(255)
                    cycleSpeed(3)
                    setCycle(CT 4 1 self)
                )
            )
            (case 2
                (send gNewView:dispose())
                (send gEgo:setCycle(End))
                = seconds 3
            )
            (case 3
                (send gEgo:get(16))
                (send global1:changeScore(35))
                (send gEgo:
                    view(0)
                    setLoop(-1)
                    setCel(-1)
                    setCycle(Walk)
                    cycleSpeed(0)
                    setMotion(MoveTo 179 110 self)
                )
            )
            (case 4
                proc0_3()
                (send gEgo:
                    loop(2)
                    setAvoider(0)
                )
                (send global2:setScript(0))
                DisposeScript(521)
            )
        )
    )

)
