(include "sci.sh")
(use "Main")
(use "eureka")
(use "Osc")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 213)



(instance public rm213 of Rm
    (properties
        picture 131
        style 10
    )

    (method (init)
        (send gRoom:setRegions(210))
        (eurekaShip:
            init()
            cel(0)
        )
        (blob:
            init()
            setCycle(Fwd)
        )
        (eureka:damaged(1))
        (send gRoom:setScript(sSuckBlob))
        (super:init())
    )

)
(instance sSuckBlob of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds 3  )
            )
            (case 1
                ((eurekaShip:setCycle(End self))  )
            )
            (case 2
                ((beatrbar:
                    init()
                    setCycle(Fwd)
                )
 (thruster:
                    init()
                    setCycle(Osc)
                )
 = ticks 90  )
            )
            (case 3
                ((blob:
                    setLoop(1)
                    cel(0)
                    x(84)
                    y(36)
                    cycleSpeed(15)
                    setCycle(End self)
                )
 (send gSq5Music1:
                    number(228)
                    setLoop(-1)
                    play()
                )
  )
            )
            (case 4
                ((send gRoom:newRoom(201)) (self:dispose()) )
            )
        )
    )

)
(instance eurekaShip of Prop
    (properties
        x 18
        y 38
        view 710
        loop 2
        cel 2
        priority rm213
        signal 16400
    )
)
(instance blob of Prop
    (properties
        x 157
        y 19
        view 710
        cel rm213
        priority 5
        signal 16400
        cycleSpeed 10
    )

    (method (init param1)
        (send gSq5Music1:
            number(249)
            setLoop(-1)
            play()
        )
        (super:init(rest param1))
    )

)
(instance thruster of Prop
    (properties
        x 15
        y 52
        view 710
        loop 3
        cel 1
        priority 5
        signal 16400
    )
)
(instance beatrbar of Prop
    (properties
        x 38
        y 23
        view 710
        loop rm213
        cel 3
        priority 5
        signal 16400
        cycleSpeed 2
    )
)
