(include "sci.sh")
(use "Main")
(use "PriorityTalker")
(use "Blink")
(use "SysWindow")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 206)



(instance public rm206 of Rm
    (properties
        picture 91
        style 10
    )

    (method (init)
        (send gRoom:setRegions(210))
        (send gSQ5:handsOff())
        (steam:init())
        (self:setScript(sAlienMeanWhile))
        (super:init())
    )

)
(instance sAlienMeanWhile of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds 1  )
            )
            (case 1
                ((send gSq5Music1:
                    number(24)
                    loop(-1)
                    play()
                )
 (quirk:init()) = ticks 20  )
            )
            (case 2
                ((quirk:dispose()) (viewPort:
                    init()
                    setStep(5 5)
                    setMotion(MoveTo 122 36 self)
                )
 (send gSq5Music2:
                    number(423)
                    loop(1)
                    play()
                )
  )
            )
            (case 3
                ((send gSq5Music2:stop()) = ticks 20  )
            )
            (case 4
                ((viewMessage:
                    init()
                    setLoop(3)
                    setCycle(End self)
                )
  )
            )
            (case 5
                ((viewPort:
                    setLoop(0)
                    setCel(0)
                    stopUpd()
                )
 = seconds 1 (viewMessage:dispose())  )
            )
            (case 6
                ((alienEyes:
                    init()
                    cycleSpeed(15)
                    setCycle(Fwd self)
                )
 = seconds 2  )
            )
            (case 7
                ((alienEyes:dispose()) = cycles 2  )
            )
            (case 8
                ((send gTestMessager:say(1 0 0 0 self))  )
            )
            (case 9
                ((viewPort:
                    setLoop(4)
                    setCel(0)
                )
 (viewMessage:
                    init()
                    setLoop(5)
                    setCel(0)
                )
 = ticks 90  )
            )
            (case 10
                ((quirk:init()) = ticks 30  )
            )
            (case 11
                ((quirk:dispose()) (send gSq5Music2:
                    number(423)
                    loop(1)
                    play()
                )
 (viewPort:setMotion(MoveTo 122 106 self))  )
            )
            (case 12
                ((send gSq5Music2:stop()) (send gSq5Music1:fade()) (send gRoom:newRoom(201)) (self:dispose()) )
            )
        )
    )

)
(instance viewMessage of Prop
    (properties
        x 122
        y 36
        view 211
        loop 3
        priority 6
        signal 16
    )

    (method (doit param1)
        (self:y((viewPort:y)))
        (super:doit(rest param1))
    )

)
(instance quirk of View
    (properties
        x 87
        y 115
        view 211
        loop 6
        signal 16384
    )
)
(instance viewPort of Actor
    (properties
        x 122
        y 106
        view 211
        loop rm206
        priority 5
        signal 16400
    )

    (method (init param1)
        (self:
            setLoop(4)
            setCel(0)
        )
        (super:init(rest param1))
    )

)
(instance steam of Prop
    (properties
        x 272
        y 67
        view 211
        loop 7
        cel 2
    )

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

)
(instance public alienTalker of PriorityTalker
    (properties
        x 118
        y 35
        view 211
        priority 6
        signal 24593
        talkWidth 85
        textX 65426
    )

    (method (init param1)
        (self:setPri(6))
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(80)
            tailY(65)
            xOffset(65526)
        )
        (super:init(0 0 alienMouth rest param1))
    )


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

)
(instance alienMouth of Prop
    (properties
        nsTop 36
        nsLeft 19
        view 211
        loop 1
        signal 16401
    )

    (method (init param1)
        (super:init(rest param1))
    )

)
(instance alienEyes of Prop
    (properties
        x 126
        y 58
        view 211
        loop 2
        priority 6
        signal 16401
    )

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

)
(instance public quirkTalker of Narrator
    (properties
        x 65514
        y 107
        signal 16385
        talkWidth 100
    )

    (method (init param1)
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(45)
            tailY(118)
            xOffset(12)
        )
        (super:init(0 0 0 rest param1))
    )


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

)
