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


(local
    newProp_3
    newProp_4
    newView
    newProp_2
    newProp
    newAct
    local6
    local7

)
(instance public Room694 of Rm
    (properties
        picture 204
        style 8
    )

    (method (init)
        = number gGNewPropX
        (send global2:setScript(actions))
    )

)
(instance actions of Script
    (properties)

    (method (changeState newState)
        (var temp0[12])
        (switch (= state newState)
            (case 0
                (= local6 1 (self:changeState(500))  )
            )
            (case 1
                (
                (if ((send gEgo:has(25)))
                    (self:changeState(100))
                )(else
                    (send ((View:new())):
                        view(786)
                        loop(4)
                        cel(0)
                        posn(277 172)
                        setPri(13)
                        ignoreActors()
                        init()
                        addToPic()
                    )
                    (send (= newProp (Prop:new())):
                        view(786)
                        loop(5)
                        cel(0)
                        posn(277 139)
                        setPri(14)
                        init()
                    )
                    = seconds 6
                )
 )
            )
            (case 2
                ((send gCast:eachElementDo(172)) (send gAddToPics:eachElementDo(172)) (send global2:drawPic(991)) (self:changeState(3))  )
            )
            (case 3
                ((send (= newView (View:new())):
                    view(752)
                    loop(1)
                    cel(0)
                    posn(159 115)
                    setPri(14)
                    init()
                    addToPic()
                )
 = global120 Print(694 0 134 -1 138 172) = newProp_2 (Prop:new()) (send newProp_2:
                    view(752)
                    loop(5)
                    cel(2)
                    posn(164 89)
                    cycleSpeed(18)
                    setPri(15)
                    init()
                    setCycle(Beg self)
                )
  )
            )
            (case 4
                ((send newProp_2:
                    view(752)
                    loop(5)
                    cel(0)
                    posn(164 89)
                    cycleSpeed(8)
                    setPri(15)
                    init()
                    setCycle(End self)
                )
 = seconds 12  )
            )
            (case 5
                (proc0_23() (send gCast:eachElementDo(172)) (send gAddToPics:eachElementDo(172)) (send newProp_2:dispose()) = local6 6 (self:changeState(500))  )
            )
            (case 6
                ((send ((View:new())):
                    view(786)
                    loop(4)
                    cel(0)
                    posn(277 172)
                    setPri(13)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send (= newProp (Prop:new())):
                    view(786)
                    loop(5)
                    cel(0)
                    posn(277 139)
                    setPri(14)
                    init()
                )
 = seconds 3  )
            )
            (case 7
                (= global120 Print(694 1 134 -1 35 140 240 172) = seconds 2 (send newProp_3:cel(1))  )
            )
            (case 8
                ((send newProp:cel(3)) (send newProp_4:cel(1)) = seconds 10  )
            )
            (case 9
                (= global127 1 proc0_23()  )
            )
            (case 100
                (= newAct (Act:new()) = newProp (Act:new()) (send newProp:
                    view(786)
                    setLoop(5)
                    cel(2)
                    posn(298 142)
                    setPri(13)
                    ignoreActors()
                    setMotion(MoveTo 250 142)
                    init()
                )
 (send newAct:
                    view(786)
                    setLoop(4)
                    cel(0)
                    posn(298 175)
                    setPri(12)
                    setMotion(MoveTo 250 175 self)
                    init()
                )
  )
            )
            (case 101
                ((send newProp:cel(4)) (send gEgo:put(25 999)) = global120 Print(694 2 134 -1 35 140 240 172) = seconds 8  )
            )
            (case 102
                (proc0_23() (send gCast:eachElementDo(172)) (send gAddToPics:eachElementDo(172)) (send global2:drawPic(991)) (send ((View:new())):
                    view(752)
                    loop(1)
                    cel(0)
                    posn(159 115)
                    setPri(14)
                    init()
                    addToPic()
                )
 = newProp_2 (Prop:new()) (send newProp_2:
                    view(752)
                    setLoop(6)
                    cel(0)
                    posn(164 89)
                    cycleSpeed(10)
                    setCycle(Fwd)
                    setPri(15)
                    init()
                )
 = seconds 8  )
            )
            (case 103
                ((send newProp_2:
                    setLoop(7)
                    cel(0)
                    cycleSpeed(18)
                    setCycle(End self)
                )
  )
            )
            (case 104
                ((send newProp_2:dispose()) (send ((View:new())):
                    view(786)
                    loop(2)
                    cel(0)
                    posn(85 178)
                    setPri(11)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send (= newProp_3 (Prop:new())):
                    view(786)
                    loop(3)
                    cel(2)
                    posn(85 148)
                    setPri(12)
                    init()
                    stopUpd()
                )
 (send ((View:new())):
                    view(786)
                    loop(0)
                    cel(0)
                    posn(228 177)
                    setPri(11)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send (= newProp_4 (Prop:new())):
                    view(786)
                    loop(1)
                    cel(2)
                    posn(228 102)
                    setPri(12)
                    init()
                    stopUpd()
                )
 (send ((View:new())):
                    view(752)
                    loop(0)
                    cel(1)
                    posn(163 138)
                    setPri(14)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(786)
                    setLoop(5)
                    cel(4)
                    posn(250 142)
                    setPri(13)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(786)
                    setLoop(4)
                    cel(0)
                    posn(250 175)
                    setPri(12)
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(752)
                    loop(2)
                    cel(0)
                    posn(204 90)
                    setPri(6)
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(752)
                    loop(2)
                    cel(0)
                    posn(123 90)
                    setPri(6)
                    init()
                    addToPic()
                )
 (send ((Prop:new())):
                    view(752)
                    loop(4)
                    cel(1)
                    posn(204 64)
                    setPri(14)
                    ignoreActors()
                    cycleSpeed(1)
                    setCycle(Fwd)
                    init()
                )
 (send ((Prop:new())):
                    view(752)
                    loop(4)
                    cel(0)
                    posn(123 64)
                    setPri(14)
                    ignoreActors()
                    cycleSpeed(1)
                    setCycle(Fwd)
                    init()
                )
 (send ((View:new())):
                    view(752)
                    loop(3)
                    cel(0)
                    posn(64 140)
                    setPri(0)
                    init()
                    addToPic()
                )
 (send global2:drawPic(204)) = seconds 4  )
            )
            (case 105
                (= global120 Print(694 3 134 -1 20 140 240 160 "Rosella" 172) = seconds 7  )
            )
            (case 106
                (proc0_23() = global120 Print(694 4 134 -1 20 140 240 160 "King Graham" 172) = seconds 7  )
            )
            (case 107
                (proc0_23() = global120 Print(694 5 134 -1 20 140 240 160 "Rosella" 172) = seconds 8  )
            )
            (case 108
                (proc0_23() (send gCast:eachElementDo(172)) (send gAddToPics:eachElementDo(172)) (send global2:drawPic(991)) (send (= newProp_2 (View:new())):
                    view(752)
                    setLoop(0)
                    cel(3)
                    posn(159 115)
                    setPri(14)
                    init()
                )
 = global120 Print(694 6 134 -1 138 140 240 160 "Rosella" 172) = seconds 15  )
            )
            (case 109
                (proc0_23() (send newProp_2:dispose()) (send ((View:new())):
                    view(786)
                    loop(2)
                    cel(0)
                    posn(85 178)
                    setPri(11)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send (= newProp_3 (Prop:new())):
                    view(786)
                    loop(3)
                    cel(2)
                    posn(85 148)
                    setPri(12)
                    init()
                    stopUpd()
                )
 (send ((View:new())):
                    view(786)
                    loop(0)
                    cel(0)
                    posn(228 177)
                    setPri(11)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send (= newProp_4 (Prop:new())):
                    view(786)
                    loop(1)
                    cel(2)
                    posn(228 102)
                    setPri(12)
                    init()
                    stopUpd()
                )
 (send ((View:new())):
                    view(752)
                    loop(0)
                    cel(1)
                    posn(163 138)
                    setPri(15)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(752)
                    loop(0)
                    cel(2)
                    posn(158 83)
                    ignoreActors()
                    setPri(15)
                    init()
                )
 (send ((View:new())):
                    view(786)
                    setLoop(4)
                    cel(0)
                    posn(250 175)
                    setPri(12)
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(786)
                    setLoop(5)
                    cel(4)
                    posn(250 142)
                    setPri(13)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(752)
                    loop(2)
                    cel(0)
                    posn(204 90)
                    setPri(6)
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(752)
                    loop(2)
                    cel(0)
                    posn(123 90)
                    setPri(6)
                    init()
                    addToPic()
                )
 (send ((Prop:new())):
                    view(752)
                    loop(4)
                    cel(1)
                    posn(204 64)
                    setPri(14)
                    ignoreActors()
                    cycleSpeed(1)
                    setCycle(Fwd)
                    init()
                )
 (send ((Prop:new())):
                    view(752)
                    loop(4)
                    cel(0)
                    posn(123 64)
                    setPri(14)
                    ignoreActors()
                    cycleSpeed(1)
                    setCycle(Fwd)
                    init()
                )
 (send ((View:new())):
                    view(752)
                    loop(3)
                    cel(0)
                    posn(64 140)
                    setPri(0)
                    init()
                    addToPic()
                )
 (send global2:drawPic(204)) = seconds 5  )
            )
            (case 110
                (Print(694 7 134 -1 85 164 100 0 0 172) = global160 0 = seconds 10  )
            )
            (case 111
                (proc0_23() (self:changeState(600))  )
            )
            (case 500
                ((send ((View:new())):
                    view(786)
                    loop(2)
                    cel(0)
                    posn(85 178)
                    setPri(11)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send (= newProp_3 (Prop:new())):
                    view(786)
                    loop(3)
                    cel(0)
                    posn(85 148)
                    setPri(12)
                    init()
                    stopUpd()
                )
 (send ((View:new())):
                    view(786)
                    loop(0)
                    cel(0)
                    posn(228 177)
                    setPri(11)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send (= newProp_4 (Prop:new())):
                    view(786)
                    loop(1)
                    cel(0)
                    posn(228 102)
                    setPri(12)
                    init()
                    stopUpd()
                )
 (send ((View:new())):
                    view(752)
                    loop(0)
                    cel(0)
                    posn(163 138)
                    setPri(15)
                    ignoreActors()
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(752)
                    loop(2)
                    cel(0)
                    posn(204 90)
                    setPri(6)
                    init()
                    addToPic()
                )
 (send ((View:new())):
                    view(752)
                    loop(2)
                    cel(0)
                    posn(123 90)
                    setPri(6)
                    init()
                    addToPic()
                )
 (send ((Prop:new())):
                    view(752)
                    loop(4)
                    cel(1)
                    posn(204 64)
                    setPri(14)
                    ignoreActors()
                    cycleSpeed(1)
                    setCycle(Fwd)
                    init()
                )
 (send ((Prop:new())):
                    view(752)
                    loop(4)
                    cel(0)
                    posn(123 64)
                    setPri(14)
                    ignoreActors()
                    cycleSpeed(1)
                    setCycle(Fwd)
                    init()
                )
 (send ((View:new())):
                    view(752)
                    loop(3)
                    cel(0)
                    posn(64 140)
                    setPri(0)
                    init()
                    addToPic()
                )
 (send global2:drawPic(204)) (self:changeState(local6))  )
            )
            (case 600
                (kernel[102](@temp0 10) = local7 0 (while (<= local7 9)kernel[102](@temp0 local7 + Random(0 42) 48) ++local7  ) 
                (if (== global15 230)
                    kernel[102](@temp0 2 69)
                    kernel[102](@temp0 6 52)
                    kernel[102](@temp0 9 65)
                )
 Print(Format(@global300 "Your Secret Code is:\n\n   %s" @temp0)) )
            )
        )
    )

)
