(include "sci.sh")
(use "Main")
(use "SQRoom")
(use "Cycle")
(use "PicView")
(use "Obj")
(script 120)



(instance public rm120 of SQRoom
    (properties
        picture 120
    )

    (method (init)
        (ship:
            init()
            setCycle(Fwd)
        )
        (super:init())
        (self:setScript(shipScript))
        (send gLongSong2:hold(3))
    )

)
(instance shipScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                = cycles 2
            )
            (case 1
                (ship:setMotion(MoveTo 153 116 self))
            )
            (case 2
                (send global2:newRoom(535))
            )
        )
    )

)
(instance ship of Actor
    (properties
        x 153
        y 65532
        view 120
        loop 2
        signal 8192
        xStep 4
    )
)
