(include "sci.sh")
(use "Main")
(use "Blink")
(use "n958")
(use "Cycle")
(use "Sounds")
(use "View")
(use "Obj")
(script 127)


(local
    local0
    local1

)
(procedure (localproc_006e)
    (bobHead:setCel(0))
    (danteHead:setCel(1))
    (kaarenHead:setCel(0))
    (quirkHead:setCel(0))
    (randyHead:setCel(0))
)


(procedure (localproc_00a1)
    (bobHead:setCel(2))
    (danteHead:setCel(0))
    (kaarenHead:setCel(3))
    (randyHead:setCel(3))
)


(procedure (localproc_00cc)
    (quirkHead:
        setLoop(2)
        setCel(1)
    )
    (bobHead:setCel(1))
    (danteHead:setCel(1))
    (kaarenHead:setCel(1))
    (quirkHead:setCel(1))
    (randyHead:setCel(1))
)


(instance public rm127 of Rm
    (properties
        picture 34
        style 10
    )

    (method (init)
        (self:setRegions(109))
        proc958_0(128 150 151 153 152)
        proc958_0(143 127)
        (confDoor:
            init()
            setPri(9)
        )
        (beaBody:init())
        (beaHead:init())
        (kaarenHead:init())
        (oldMan:init())
        (quirkHead:init())
        (danteHead:init())
        (randyHead:init())
        (super:init())
        (send gSq5Music1:
            number(15)
            loop(-1)
            play()
        )
        (self:setScript(sArgument))
    )


    (method (dispose)
        (send gSq5Music1:stop())
        (super:dispose())
    )

)
(instance sArgument of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) = seconds 2  )
            )
            (case 1
                ((send gSq5Music2:
                    number(145)
                    setLoop(-1)
                    play()
                )
 Palette(4 1 254 50) = cycles 2  )
            )
            (case 2
                (Palette(4 1 254 100) = cycles 2  )
            )
            (case 3
                (Palette(4 1 254 50) = cycles 2  )
            )
            (case 4
                (Palette(4 1 254 100) = cycles 5  )
            )
            (case 5
                (Palette(4 1 254 50) = cycles 2  )
            )
            (case 6
                (Palette(4 1 254 100) = cycles 2  )
            )
            (case 7
                (Palette(4 1 254 50) = cycles 2  )
            )
            (case 8
                (Palette(4 1 254 100) = cycles 2  )
            )
            (case 9
                (Palette(4 1 254 50) = cycles 2  )
            )
            (case 10
                (Palette(4 1 254 100) (send gSq5Music2:stop()) = cycles 2  )
            )
            (case 11
                (= local0 0 (send gTestMessager:say(1 0 0 1 self))  )
            )
            (case 12
                (localproc_00cc() = cycles 2  )
            )
            (case 13
                ((send gTestMessager:say(1 0 0 2 self))  )
            )
            (case 14
                ((send gTestMessager:say(1 0 0 3 self))  )
            )
            (case 15
                ((beaBody:setCycle(End self)) (rog:
                    loop(4)
                    cel(0)
                    init()
                    posn(115 119)
                    setCycle(End self)
                )
  )
            )
            (case 16
                (0  )
            )
            (case 17
                (localproc_006e() = cycles 2  )
            )
            (case 18
                ((send gTestMessager:say(1 0 0 4 self))  )
            )
            (case 19
                ((send gTestMessager:say(1 0 0 5 self))  )
            )
            (case 20
                ((beaBody:setCycle(Beg self)) (rog:
                    loop(5)
                    cel(0)
                    posn(249 120)
                    setCycle(End self)
                )
  )
            )
            (case 21
                (0  )
            )
            (case 22
                ((send gTestMessager:say(1 0 0 6 self))  )
            )
            (case 23
                (localproc_00cc() = cycles 2  )
            )
            (case 24
                ((send gTestMessager:say(1 0 0 7 self))  )
            )
            (case 25
                ((rog:
                    loop(0)
                    cel(0)
                    posn(249 119)
                    setCycle(End self)
                )
  )
            )
            (case 26
                (localproc_00a1() = cycles 2  )
            )
            (case 27
                (= local0 2 (send gTestMessager:say(1 0 0 8 self))  )
            )
            (case 28
                ((beaHead:hide()) (beaBody:
                    loop(1)
                    cel(0)
                    setCycle(CT 4 1 self)
                )
  )
            )
            (case 29
                ((beaBody:setCel(5)) (beaHead:
                    setCel(0)
                    posn(176 97)
                    show()
                )
 localproc_006e() = cycles 2  )
            )
            (case 30
                ((send gTestMessager:say(1 0 0 9 self))  )
            )
            (case 31
                ((rog:
                    loop(1)
                    cel(0)
                    setCycle(End self)
                )
 (send gSq5Music2:
                    number(152)
                    setLoop(1)
                    play()
                )
  )
            )
            (case 32
                (localproc_00a1() = cycles 2  )
            )
            (case 33
                (= local0 2 (send gTestMessager:say(1 0 0 10 self))  )
            )
            (case 34
                ((send gTestMessager:say(1 0 0 11 self))  )
            )
            (case 35
                (localproc_006e() = cycles 2  )
            )
            (case 36
                ((send gTestMessager:say(1 0 0 12 self))  )
            )
            (case 37
                (localproc_00cc() = cycles 2  )
            )
            (case 38
                ((send gTestMessager:say(1 0 0 13 self))  )
            )
            (case 39
                (localproc_006e() = cycles 2  )
            )
            (case 40
                ((send gTestMessager:say(1 0 0 14 self))  )
            )
            (case 41
                (localproc_00cc() = cycles 2  )
            )
            (case 42
                ((send gTestMessager:say(1 0 0 15 self))  )
            )
            (case 43
                (localproc_00a1() = cycles 2  )
            )
            (case 44
                (= local0 1 (send gTestMessager:say(1 0 0 16 self))  )
            )
            (case 45
                (localproc_006e() = cycles 2  )
            )
            (case 46
                ((send gTestMessager:say(1 0 0 17 self))  )
            )
            (case 47
                (localproc_00cc() = cycles 2  )
            )
            (case 48
                ((send gTestMessager:say(1 0 0 18 self))  )
            )
            (case 49
                (localproc_006e() = cycles 2  )
            )
            (case 50
                ((send gTestMessager:say(1 0 0 19 self))  )
            )
            (case 51
                ((beaHead:dispose()) (beaBody:
                    setLoop(3)
                    setCel(0)
                    setCycle(End self)
                )
  )
            )
            (case 52
                ((beaBody:
                    setLoop(4)
                    setCel(0)
                    setCycle(End self)
                )
  )
            )
            (case 53
                ((confDoor:setCycle(End self)) (send gSq5Music2:
                    number(103)
                    setLoop(1)
                    play()
                )
  )
            )
            (case 54
                ((send gSq5Music2:
                    number(102)
                    setLoop(1)
                    play()
                )
 (beaBody:
                    setLoop(5)
                    setCel(0)
                    setCycle(End)
                )
 (rog:
                    loop(2)
                    cel(0)
                    setPri(10)
                    posn(180 146)
                    setCycle(End self)
                )
  )
            )
            (case 55
                ((send gSq5Music2:
                    number(136)
                    setLoop(1)
                    play(self)
                )
  )
            )
            (case 56
                (= local1 1 localproc_006e() = cycles 2  )
            )
            (case 57
                ((send gTestMessager:say(1 0 0 20 self))  )
            )
            (case 58
                ((beaBody:
                    setLoop(6)
                    setCel(0)
                    setCycle(End self)
                )
  )
            )
            (case 59
                ((beaBody:setCycle(Beg self))  )
            )
            (case 60
                ((beaBody:
                    setLoop(7)
                    setCel(0)
                    setPri(5)
                    signal(16)
                    setCycle(End self)
                )
  )
            )
            (case 61
                (= seconds 2  )
            )
            (case 62
                ((oldMan:
                    setCel(1)
                    posn(48 116)
                )
 (rog:
                    setLoop(3)
                    cel(0)
                    setCycle(End self)
                )
 (beaBody:
                    setLoop(8)
                    setCel(0)
                    posn(100 102)
                    setCycle(End self)
                )
  )
            )
            (case 63
                (0  )
            )
            (case 64
                ((confDoor:setCycle(Beg self)) (send gSq5Music2:
                    number(103)
                    setLoop(1)
                    play()
                )
  )
            )
            (case 65
                ((send gTestMessager:say(1 0 0 21 self))  )
            )
            (case 66
                (proc0_2(2) (send gRoom:newRoom(125)) (self:dispose()) )
            )
        )
    )

)
(instance beaBody of Actor
    (properties
        x 182
        y 139
        view 150
        priority 11
        signal 16
    )
)
(instance beaHead of Actor
    (properties
        x 178
        y 95
        view 150
        loop 10
        cel 1
        priority 12
        signal 16
    )
)
(instance rog of Actor
    (properties
        view 151
        priority 15
        cycleSpeed rm127
    )
)
(instance confDoor of Prop
    (properties
        x 181
        y 134
        view 152
        priority 11
    )
)
(instance beaMouth of Prop
    (properties
        nsTop rm127
        nsLeft 3
        view 150
        loop 2
        signal 16384
    )
)
(instance danteMouth of Prop
    (properties
        nsTop 25
        nsLeft 5
        view 153
        loop 6
        signal 16384
    )
)
(instance quirkMouth of Prop
    (properties
        view 153
        signal 16384
    )
)
(instance public beaTalker of Talker
    (properties
        view 150
        loop 10
        talkWidth 200
        textX 65416
        textY 65456
    )

    (method (init param1)
        (if (== (beaBody:loop) 0)
            (self:
                cel(1)
                x(174)
                y(87)
            )
        )(else
            (self:
                cel(0)
                x(172)
                y(89)
            )
        )
        (if (== local1 1)
            (self:
                loop(11)
                cel(0)
                x(180)
                y(110)
            )
            (beaMouth:
                loop(11)
                cel(1)
            )
        )
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(171)
            tailY(75)
            xOffset(0)
        )
        (super:init(0 0 beaMouth rest param1))
    )


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

)
(instance public danteTalker of Talker
    (properties
        x 260
        y 105
        view 153
        loop 5
        cel 1
        talkWidth 200
        textX 65296
    )

    (method (init param1)
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(244)
            tailY(82)
            xOffset(65496)
        )
        (super:init(0 0 danteMouth rest param1))
    )


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

)
(instance public quirkTalker of Talker
    (properties
        view 153
        loop 2
        talkWidth 170
    )

    (method (init param1)
        (switch (local0)
            (case 0
                ((self:
                    cel(3)
                    x(79)
                    y(101)
                )
 (quirkMouth:
                    loop(13)
                    nsLeft(0)
                    nsTop(12)
                )
 (quirkHead:setCel(3))  )
            )
            (case 1
                ((self:
                    cel(1)
                    x(80)
                    y(100)
                )
 (quirkMouth:
                    loop(3)
                    nsLeft(2)
                    nsTop(13)
                )
 (quirkHead:setCel(1))  )
            )
            (default 
                ((self:
                    cel(0)
                    x(81)
                    y(101)
                )
 (quirkMouth:
                    loop(8)
                    nsLeft(7)
                    nsTop(8)
                )
 (quirkHead:setCel(0)) )
            )
        )
        = font gFont
        (send (= gSq5Win gNewSpeakWindow):
            tailX(100)
            tailY(82)
            xOffset(13)
        )
        (super:init(0 0 quirkMouth rest param1))
    )


    (method (dispose param1)
        (if (== local0 0)
            (randyHead:
                setCel(3)
                posn(218 114)
            )
            (bobHead:init())
        )
        = gSq5Win gSq5Win_2
        (super:dispose(rest param1))
    )

)
(instance kaarenHead of View
    (properties
        x 20
        y 110
        view 153
        cel 4
        priority 15
        signal 16400
    )
)
(instance oldMan of View
    (properties
        x 45
        y beaBody
        view 153
        loop 1
        cel 2
        priority 12
        signal 16400
    )
)
(instance quirkHead of View
    (properties
        x 88
        y 115
        view 153
        loop 2
        cel 3
        priority 15
        signal 16400
    )
)
(instance danteHead of View
    (properties
        x 260
        y 106
        view 153
        loop 5
        cel 2
        priority rm127
        signal 16400
    )
)
(instance randyHead of View
    (properties
        x 223
        y 104
        view 153
        loop 4
        cel 4
        priority 15
        signal 16400
    )
)
(instance bobHead of View
    (properties
        x 222
        y 105
        view 153
        loop 7
        cel 2
        priority 15
        signal 16400
    )
)
