(version 2)
(include "sci.sh")
(exports
    0 getBelt
)
(use "Main")
(use "Avoid")
(use "Cycle")
(use "Feature")
(use "Obj")
(script 520)


(local
    newProp

)
(instance public getBelt 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(122)
                    setLoop(0)
                    cel(255)
                    cycleSpeed(2)
                    setCycle(End self)
                )
            )
            (case 2
                (send gEgo:
                    setLoop(1)
                    setCel(0)
                )
                = newProp (Prop:new())
                (send newProp:
                    view(122)
                    setLoop(2)
                    cel(255)
                    posn(+ (send gEgo:x) 5 - (send gEgo:y) 2)
                    setPri(7)
                    cycleSpeed(3)
                    setCycle(End self)
                    init()
                )
            )
            (case 3
                (send gNewView:dispose())
                = seconds 3
            )
            (case 4
                (send newProp:dispose())
                (send gEgo:
                    loop(0)
                    setCel(255)
                    setCycle(Beg self)
                )
                (send gEgo:get(16))
                (send global1:changeScore(35))
            )
            (case 5
                (send gEgo:
                    view(0)
                    setLoop(-1)
                    setCel(-1)
                    setCycle(Walk)
                    cycleSpeed(0)
                    setMotion(MoveTo 179 110 self)
                )
            )
            (case 6
                proc0_3()
                (send gEgo:
                    loop(2)
                    setAvoider(0)
                )
                (send global2:setScript(0))
                DisposeScript(520)
            )
        )
    )

)
