(include "sci.sh")
(use "Main")
(use "Sound")
(use "Game")
(use "User")
(use "PV")
(use "Obj")
(script 698)


(local
    local0
    newView[84]

)
(instance public Room698 of Rm
    (properties
        picture 698
        style 8
    )

    (method (init)
        Load(rsVIEW 699)
        Load(rsVIEW 898)
        Load(rsVIEW 899)
        (super:init())
        (User:
            canControl(0)
            canInput(0)
        )
        = global205 1
        (send global2:setScript(creditActions))
    )


    (method (dispose)
        (send gSounds:eachElementDo(172))
        (User:
            canControl(1)
            canInput(1)
        )
        = global205 0
        (super:dispose())
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed()))
            return 1
        )
        return 
            (if ((== (send pEvent:message()) 120) or (== (send pEvent:message()) 88))
                (send gGame:restart())
            )(else
                (send global2:newRoom(120))
            )
    )

)
(instance creditActions of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send ((Sound:new())):
                    number(2)
                    loop(1)
                    play(self)
                )
 (send (= newView (View:new())):
                    view(898)
                    setPri(0)
                    setLoop(0)
                    setCel(0)
                    x(162)
                    y(78)
                    init()
                )
 = newView[1] (View:new()) (send newView[1]:
                    view(898)
                    setPri(0)
                    setLoop(0)
                    setCel(1)
                    x(162)
                    y(112)
                    init()
                )
 = seconds 4  )
            )
            (case 1
                ((send newView:dispose()) (send newView[1]:dispose()) = newView[2] (View:new()) (send newView[2]:
                    view(898)
                    setPri(0)
                    setLoop(1)
                    setCel(0)
                    x(162)
                    y(78)
                    init()
                )
 = newView[3] (View:new()) (send newView[3]:
                    view(898)
                    setPri(0)
                    setLoop(1)
                    setCel(2)
                    x(162)
                    y(112)
                    init()
                )
 = seconds 3  )
            )
            (case 2
                ((send newView[2]:dispose()) = newView[4] (View:new()) (send newView[4]:
                    view(898)
                    setPri(0)
                    setLoop(1)
                    setCel(1)
                    x(162)
                    y(78)
                    init()
                )
 = seconds 3  )
            )
            (case 3
                ((send newView[4]:dispose()) (send newView[3]:dispose()) = newView[6] (View:new()) (send newView[6]:
                    view(898)
                    setPri(0)
                    setLoop(2)
                    setCel(0)
                    x(162)
                    y(78)
                    init()
                )
 = newView[5] (View:new()) (send newView[5]:
                    view(898)
                    setPri(0)
                    setLoop(2)
                    setCel(1)
                    x(162)
                    y(100)
                    init()
                )
 = newView[7] (View:new()) (send newView[7]:
                    view(898)
                    setPri(0)
                    setLoop(2)
                    setCel(2)
                    x(162)
                    y(138)
                    init()
                )
 = seconds 3  )
            )
            (case 4
                ((send newView[6]:dispose()) (send newView[7]:dispose()) (send newView[5]:dispose()) = newView[8] (View:new()) (send newView[8]:
                    view(899)
                    setPri(0)
                    setLoop(0)
                    setCel(0)
                    x(162)
                    y(78)
                    init()
                )
 = newView[9] (View:new()) (send newView[9]:
                    view(899)
                    setPri(0)
                    setLoop(0)
                    setCel(1)
                    x(162)
                    y(110)
                    init()
                )
 = newView[10] (View:new()) (send newView[10]:
                    view(899)
                    setPri(0)
                    setLoop(2)
                    setCel(0)
                    x(162)
                    y(146)
                    init()
                )
 = seconds 5  )
            )
            (case 5
                ((send newView[8]:dispose()) (send newView[9]:dispose()) (send newView[10]:dispose()) = newView[11] (View:new()) (send newView[11]:
                    view(898)
                    setPri(0)
                    setLoop(3)
                    setCel(0)
                    x(162)
                    y(78)
                    init()
                )
 = newView[12] (View:new()) (send newView[12]:
                    view(898)
                    setPri(0)
                    setLoop(4)
                    setCel(0)
                    x(162)
                    y(110)
                    init()
                )
 = newView[8] (View:new()) (send newView[8]:
                    view(898)
                    setPri(0)
                    setLoop(3)
                    setCel(2)
                    x(162)
                    y(146)
                    init()
                )
 = seconds 4  )
            )
            (case 6
                ((send newView[11]:dispose()) (send newView[12]:dispose()) (send newView[8]:dispose()) = newView[13] (View:new()) (send newView[13]:
                    view(898)
                    setPri(0)
                    setLoop(3)
                    setCel(1)
                    x(162)
                    y(78)
                    init()
                )
 = newView[14] (View:new()) (send newView[14]:
                    view(898)
                    setPri(0)
                    setLoop(4)
                    setCel(1)
                    x(162)
                    y(112)
                    init()
                )
 = seconds 4  )
            )
            (case 7
                ((send newView[13]:dispose()) (send newView[14]:dispose()) = newView[15] (View:new()) (send newView[15]:
                    view(899)
                    setPri(0)
                    setLoop(1)
                    setCel(0)
                    x(162)
                    y(78)
                    init()
                )
 = newView[16] (View:new()) (send newView[16]:
                    view(899)
                    setPri(0)
                    setLoop(1)
                    setCel(1)
                    x(162)
                    y(110)
                    init()
                )
 = newView[17] (View:new()) (send newView[17]:
                    view(899)
                    setPri(0)
                    setLoop(1)
                    setCel(2)
                    x(162)
                    y(146)
                    init()
                )
 = newView[18] (View:new()) = seconds 4  )
            )
            (case 8
                ((send newView[16]:dispose()) (send newView[17]:dispose()) (send newView[18]:
                    view(899)
                    setPri(0)
                    setLoop(1)
                    setCel(3)
                    x(162)
                    y(110)
                    init()
                )
 = newView[19] (View:new()) (send newView[19]:
                    view(899)
                    setPri(0)
                    setLoop(1)
                    setCel(4)
                    x(162)
                    y(146)
                    init()
                )
  )
            )
            (case 9
                ((send newView[15]:dispose()) (send newView[18]:dispose()) (send newView[19]:dispose()) (send global2:newRoom(120)) )
            )
        )
    )

)
