(include "sci.sh")
(use "Main")
(use "Class_255_0")
(use "Sound")
(use "Cycle")
(use "Game")
(use "PV")
(use "Obj")
(script 699)


(local
    newProp
    newProp_2
    newProp_3
    newProp_4
    local4
    local5
    local6
    local7
    local8
    local9[3]

)
(instance public Room699 of Rm
    (properties
        picture 96
        style 6
    )

    (method (init)
        Load(rsVIEW 879)
        (super:init())
        (send ((View:new())):
            view(879)
            loop(0)
            cel(0)
            posn(124 192)
            addToPic()
        )
        (send ((View:new())):
            view(879)
            loop(0)
            cel(1)
            posn(165 192)
            addToPic()
        )
        (send ((View:new())):
            view(879)
            loop(0)
            cel(2)
            posn(206 192)
            addToPic()
        )
        = local5 global127
        = global127 0
        (playMusic:cue())
        (send (= newProp (Prop:new())):
            view(879)
            setLoop(2)
            setPri(15)
            setScript(spark1)
        )
        (send (= newProp_2 (Prop:new())):
            view(879)
            setLoop(2)
            setPri(15)
            setScript(spark2)
        )
        (send (= newProp_3 (Prop:new())):
            view(879)
            setLoop(2)
            setPri(15)
            setScript(spark3)
        )
        (send (= newProp_4 (Prop:new())):
            view(879)
            setLoop(2)
            setPri(15)
            setScript(spark4)
        )
    )


    (method (doit)
        (if (== local7 0)
            (if (== Print(699 0 50 10 162 "Yes" 1 162 "No" 2) 2)
                (send gGame:restart())
            )
            = local7 1
        )
    )


    (method (dispose)
        (send gSounds:eachElementDo(172))
        (super:dispose())
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed()))
            return 1
        )
        (send pEvent:claimed(1))
        = local8 0
        (if (local5)
            = local5 0
            (send gGame:restart())
        )
        return 
            (if ((== (send pEvent:message()) 120) or (== (send pEvent:message()) 88))
                (send gGame:restart())
            )(else
                (send gCast:eachElementDo(172))
                (send global2:newRoom(698))
            )
    )

)
(instance spark1 of Script
    (properties)

    (method (init param1)
        (super:init(param1))
        (send client:init())
    )


    (method (changeState newState)
        (var temp0)
        (switch (= state newState)
            (case 0
                (= temp0 (/ Random(10 40) 10) (send client:
                    posn(
                        (switch (= temp0 (/ Random(10 40) 10))
                            (case 1
                                (96  )
                            )
                            (case 2
                                (135  )
                            )
                            (case 3
                                (230  )
                            )
                            (case 4
                                (260  )
                            )
                            (default 
                                (150 )
                            )
                        )
 
                        (switch (temp0)
                            (case 1
                                (39  )
                            )
                            (case 2
                                (158  )
                            )
                            (case 3
                                (18  )
                            )
                            (case 4
                                (123  )
                            )
                            (default 
                                (100 )
                            )
                        )
)
                    show()
                    cycleSpeed(Random(0 2))
                    setCycle(End self)
                )
  )
            )
            (case 1
                ((send client:hide()) = state -1 (self:cue()) )
            )
        )
    )

)
(instance spark2 of Script
    (properties)

    (method (init param1)
        (super:init(param1))
        (send client:init())
    )


    (method (changeState newState)
        (var temp0)
        (switch (= state newState)
            (case 0
                (= temp0 (/ Random(10 40) 10) (send client:
                    posn(
                        (switch (= temp0 (/ Random(10 40) 10))
                            (case 1
                                (80  )
                            )
                            (case 2
                                (204  )
                            )
                            (case 3
                                (141  )
                            )
                            (case 4
                                (267 )
                            )
                        )
 
                        (switch (temp0)
                            (case 1
                                (83  )
                            )
                            (case 2
                                (121  )
                            )
                            (case 3
                                (80  )
                            )
                            (case 4
                                (97 )
                            )
                        )
)
                    show()
                    cycleSpeed(Random(0 2))
                    setCycle(End self)
                )
  )
            )
            (case 1
                ((send client:hide()) = state -1 (self:cue()) )
            )
        )
    )

)
(instance spark3 of Script
    (properties)

    (method (init param1)
        (super:init(param1))
        (send client:init())
    )


    (method (changeState newState)
        (var temp0)
        (switch (= state newState)
            (case 0
                (= temp0 (/ Random(10 40) 10) (send client:
                    posn(
                        (switch (= temp0 (/ Random(10 40) 10))
                            (case 1
                                (197  )
                            )
                            (case 2
                                (182  )
                            )
                            (case 3
                                (116  )
                            )
                            (case 4
                                (104 )
                            )
                        )
 
                        (switch (temp0)
                            (case 1
                                (47  )
                            )
                            (case 2
                                (158  )
                            )
                            (case 3
                                (49  )
                            )
                            (case 4
                                (185 )
                            )
                        )
)
                    show()
                    cycleSpeed(Random(0 2))
                    setCycle(End self)
                )
  )
            )
            (case 1
                ((send client:hide()) = state -1 (self:cue()) )
            )
        )
    )

)
(instance spark4 of Script
    (properties)

    (method (init param1)
        (super:init(param1))
        (send client:init())
    )


    (method (changeState newState)
        (var temp0)
        (switch (= state newState)
            (case 0
                (= temp0 (/ Random(10 40) 10) (send client:
                    posn(
                        (switch (= temp0 (/ Random(10 40) 10))
                            (case 1
                                (141  )
                            )
                            (case 2
                                (102  )
                            )
                            (case 3
                                (268  )
                            )
                            (case 4
                                (210 )
                            )
                        )
 
                        (switch (temp0)
                            (case 1
                                (80  )
                            )
                            (case 2
                                (117  )
                            )
                            (case 3
                                (96  )
                            )
                            (case 4
                                (112 )
                            )
                        )
)
                    show()
                    cycleSpeed(Random(0 2))
                    setCycle(End self)
                )
  )
            )
            (case 1
                ((send client:hide()) = state -1 (self:cue()) )
            )
        )
    )

)
(instance bannerSound of Sound
    (properties
        number 1
    )
)
(instance playMusic of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((bannerSound:
                    loop(1)
                    play(self)
                )
  )
            )
            (case 1
                ((send global2:newRoom(698)) )
            )
        )
    )

)
