(include "sci.sh")
(use "Main")
(use "Cycle")
(use "Game")
(use "PicView")
(use "Obj")
(script 650)



(instance public rm650 of Rm
    (properties
        picture 650
    )

    (method (init)
        Load(rsVIEW 410)
        (pod:init())
        (send gEgo:
            init()
            view(378)
            setLoop(0)
            cel(0)
            posn(106 143)
            illegalBits(0)
            setPri(13)
            ignoreActors(1)
            normal(0)
            moveHead(0)
        )
        (hatch:
            init()
            setPri(14)
        )
        (super:init())
        (self:setScript(meltRoger))
    )

)
(instance meltRoger of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send gLongSong2:
                    number(124)
                    loop(1)
                    vol(127)
                    play(self)
                )
            )
            (case 1
                = seconds 1
            )
            (case 2
                (send gLongSong2:
                    number(142)
                    loop(1)
                    play()
                )
                (hatch:setCycle(End self))
            )
            (case 3
                (send gLongSong2:stop())
                = seconds Random(2 4)
            )
            (case 4
                (send gEgo:
                    cel(0)
                    setCycle(End self)
                )
            )
            (case 5
                proc0_1((send gEgo:loop) 0)
                (send gEgo:setPri(14))
                = cycles 1
            )
            (case 6
                (send gEgo:setHeading(135 self))
            )
            (case 7
                (send gEgo:
                    setLoop(4)
                    heading(135)
                    setMotion(MoveTo 110 142 self)
                )
            )
            (case 8
                (send gLongSong2:
                    play()
                    loop(1)
                )
                (hatch:setCycle(Beg self))
            )
            (case 9
                (hatch:stopUpd())
                (send gLongSong2:
                    number(886)
                    loop(1)
                    play()
                )
                (send gEgo:
                    view(410)
                    cel(0)
                    cycleSpeed(3)
                    setCycle(End self)
                )
            )
            (case 10
                = cycles 4
            )
            (case 11
                proc0_10(5 16)
            )
        )
    )

)
(instance hatch of Prop
    (properties)
)
(instance pod of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            setPri(4)
            addToPic()
        )
    )

)
