(version 2)
(include "sci.sh")
(exports
    0 rm100
)
(use "Main")
(use "FPRoom")
(use "Cycle")
(use "View")
(use "Obj")
(script 100)



(instance public rm100 of FPRoom
    (properties
        picture 100
        style $000a
    )

    (method (init)
        (send gOldKH:addToFront(self))
        (send gOldMH:addToFront(self))
        (send gIconBar:disable())
        (send gGame:setCursor(996 1))
        (super:init())
        (sparkle:init())
        (send gGameMusic1:
            number(100)
            flags(1)
            loop(1)
            prevSignal(0)
            play(self)
        )
        (self:setScript(sLogoCartoon))
    )


    (method (dispose)
        (super:dispose())
        (send gGameMusic1:stop())
        (send gOldKH:delete(self))
        (send gOldMH:delete(self))
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:type))
            (send pEvent:claimed(1))
            (send global2:newRoom(110))
        )
    )

)
(instance sLogoCartoon of Script
    (properties)

    (method (doit param1)
        Palette(palANIMATE 95 224 1)
        (super:doit(rest param1))
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (if (== (send gGameMusic1:prevSignal) 20)
                    (sparkle:setCycle(End self))
                )(else
                    --state
                    = cycles 1
                )
            )
            (case 1
                (if (== (send gGameMusic1:prevSignal) 30)
                    (sparkle:
                        x(60)
                        y(145)
                        loop(1)
                        cel(0)
                        setCycle(End self)
                    )
                )(else
                    --state
                    = cycles 1
                )
            )
            (case 2
                (if ((== (sparkle:cel) (sparkle:lastCel())) and (== (send gGameMusic1:prevSignal) -1))
                    = cycles 2
                )(else
                    --state
                    = cycles 1
                )
            )
            (case 3
                (send global2:newRoom(110))
                (self:dispose())
            )
        )
    )

)
(instance sparkle of Prop
    (properties
        x 121
        y 54
        view 100
        priority 15
        signal $0010
    )
)
