(version 2)
(include "sci.sh")
(exports
    0 startUp
)
(use "TargFeature")
(use "OccasionalCycle")
(use "Cycle")
(use "Obj")
(script 704)



(instance flee of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (monkey1:
                    setCycle(Walk)
                    setLoop(5)
                    cycleSpeed(0)
                    moveSpeed(0)
                    setMotion(MoveTo 330 210)
                )
                (monkey2:
                    setCycle(Walk)
                    setLoop(6)
                    cycleSpeed(0)
                    moveSpeed(0)
                    setMotion(MoveTo -30 90)
                )
                (monkey3:
                    setCycle(Walk)
                    setLoop(5)
                    cycleSpeed(0)
                    moveSpeed(0)
                    setMotion(MoveTo 350 30)
                )
                (self:dispose())
            )
        )
    )

)
(instance public startUp of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (monkey1:
                    loop(7)
                    cel(3)
                    x(251)
                    y(178)
                    cycleSpeed(10)
                    priority(15)
                    setCycle(OccasionalCycle monkey1 1 30 45)
                    init()
                )
                (monkey2:
                    loop(8)
                    cel(0)
                    x(22)
                    y(98)
                    cycleSpeed(10)
                    moveSpeed(0)
                    priority(8)
                    setCycle(OccasionalCycle monkey2 1 30 45)
                    init()
                )
                (monkey3:
                    loop(1)
                    cel(1)
                    x(274)
                    y(50)
                    cycleSpeed(11)
                    moveSpeed(0)
                    priority(15)
                    setCycle(OccasionalCycle monkey3 1 30 45)
                    init()
                )
                = cycles 5
            )
            (case 1
                (self:dispose())
            )
        )
    )

)
(instance monkey1 of TargActor
    (properties
        noun 1
        view 987
        signal $6010
    )

    (method (doVerb theVerb param2)
        (if (proc999_5(theVerb 20 78 12 13 81 83 16 88 56 33 11))
            (self:setScript(flee))
        )
        (super:doVerb(theVerb rest param2))
    )

)
(instance monkey2 of TargActor
    (properties
        noun 1
        view 987
        signal $6010
    )

    (method (doVerb theVerb param2)
        (if (proc999_5(theVerb 20 78 12 13 81 83 16 88 56 33 11))
            (self:setScript(flee))
        )
        (super:doVerb(theVerb rest param2))
    )

)
(instance monkey3 of TargActor
    (properties
        noun 1
        view 987
        signal $6010
    )

    (method (doVerb theVerb param2)
        (if (proc999_5(theVerb 20 78 12 13 81 83 16 88 56 33 11))
            (self:setScript(flee))
        )
        (super:doVerb(theVerb rest param2))
    )

)
