(include "sci.sh")
(use "Main")
(use "Blink")
(use "Sound")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 230)



(instance public rm230 of Rm
    (properties
        picture 45
        style 10
    )

    (method (init)
        (send gRoom:setRegions(210))
        Load(rsVIEW 236)
        (send gRoom:setScript(sMeetSpike))
        (spikeFin:init())
        (spikeLeg1:init())
        (spikeLeg2:init())
        (rogGrim:init())
        (super:init())
    )

)
(instance theMusic3 of Sound
    (properties)
)
(instance sMeetSpike of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((theMusic3:
                    number(248)
                    loop(-1)
                    play(0)
                    fade()
                )
  )
            )
            (case 1
                ((rogGrim:dispose()) = cycles 1  )
            )
            (case 2
                ((send gTestMessager:say(1 0 0 1 self))  )
            )
            (case 3
                (= seconds 3  )
            )
            (case 4
                ((send gTestMessager:say(1 0 0 2 self))  )
            )
            (case 5
                (= seconds 2  )
            )
            (case 6
                ((send gTestMessager:say(1 0 0 3 self))  )
            )
            (case 7
                (= seconds 1  )
            )
            (case 8
                ((theMusic3:fade()) (send gRoom:newRoom(225)) (self:dispose()) )
            )
        )
    )

)
(instance spikeFin of Prop
    (properties
        x 192
        y 61
        view 236
    )

    (method (init param1)
        (self:
            cycleSpeed(6)
            setCycle(Fwd)
        )
        (super:init(rest param1))
    )

)
(instance spikeLeg1 of Prop
    (properties
        x 181
        y 55
        view 236
        loop 1
    )

    (method (init param1)
        (self:
            cycleSpeed(6)
            setCycle(Fwd)
        )
        (super:init(rest param1))
    )

)
(instance spikeLeg2 of Prop
    (properties
        x 215
        y 90
        view 236
        loop 2
    )

    (method (init param1)
        (self:
            cycleSpeed(6)
            setCycle(Fwd)
        )
        (super:init(rest param1))
    )

)
(instance rogGrim of View
    (properties
        x 78
        y 73
        view 236
        loop 3
    )
)
(instance public rogTalker of Talker
    (properties
        x 72
        y theMusic3
        view 236
        loop 6
        priority rm230
        signal 16401
        talkWidth 110
    )

    (method (init param1)
        (self:setPri(4))
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(86)
            tailY(56)
            xOffset(0)
            isBottom(1)
        )
        (super:init(0 rogEyes rogerMouth rest param1))
    )


    (method (dispose param1)
        = gSq5Win gSq5Win_2
        (super:dispose(rest param1))
    )

)
(instance rogerMouth of Prop
    (properties
        nsTop 36
        nsLeft 16
        view 236
        loop rm230
        priority 6
        signal 16401
    )

    (method (init param1)
        (self:
            setPri(6)
            ignoreActors(1)
        )
        (super:init(rest param1))
    )

)
(instance rogEyes of Prop
    (properties
        nsTop 22
        nsLeft 11
        view 236
        loop 5
        cel 1
        signal 16401
    )

    (method (init param1)
        (self:setPri(6))
        (super:init(rest param1))
    )

)
