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


(local
    newProp
    newAct
    newProp_3
    newProp_2

)
(instance weddingMarch of Sound
    (properties)
)
(instance escort of Prop
    (properties)

    (method (cue)
        (self:addToPic())
    )

)
(instance public Room692 of Rm
    (properties
        picture 92
        style 8
    )

    (method (init)
        (super:init())
        (send ((View:new())):
            view(806)
            loop(0)
            cel(0)
            posn(118 105)
            setPri(6)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(806)
            loop(0)
            cel(0)
            posn(111 112)
            setPri(7)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(806)
            loop(0)
            cel(0)
            posn(103 120)
            setPri(8)
            init()
            addToPic()
        )
        (send ((Prop:new())):
            view(806)
            loop(1)
            cel(5)
            posn(118 49)
            setPri(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send ((Prop:new())):
            view(806)
            loop(1)
            cel(3)
            posn(111 56)
            setPri(2)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send ((Prop:new())):
            view(806)
            loop(1)
            cel(0)
            posn(103 64)
            setPri(3)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send ((View:new())):
            view(806)
            loop(0)
            cel(1)
            posn(205 105)
            setPri(6)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(806)
            loop(0)
            cel(1)
            posn(212 111)
            setPri(7)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(806)
            loop(0)
            cel(1)
            posn(221 120)
            setPri(8)
            init()
            addToPic()
        )
        (send ((Prop:new())):
            view(806)
            loop(1)
            cel(3)
            posn(205 49)
            setPri(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send ((Prop:new())):
            view(806)
            loop(1)
            cel(2)
            posn(212 55)
            setPri(2)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send ((Prop:new())):
            view(806)
            loop(1)
            cel(0)
            posn(221 64)
            setPri(3)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send ((View:new())):
            view(804)
            loop(4)
            cel(0)
            posn(59 142)
            setPri(10)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(804)
            loop(4)
            cel(0)
            posn(56 150)
            setPri(11)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(804)
            loop(4)
            cel(0)
            posn(49 159)
            setPri(12)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(804)
            loop(4)
            cel(1)
            posn(267 144)
            setPri(10)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(804)
            loop(4)
            cel(1)
            posn(271 152)
            setPri(11)
            init()
            addToPic()
        )
        (send ((View:new())):
            view(804)
            loop(4)
            cel(1)
            posn(276 160)
            setPri(12)
            init()
            addToPic()
        )
        (User:
            canControl(0)
            canInput(0)
        )
        (send (= newProp (Prop:new())):
            view(807)
            loop(3)
            cel(0)
            posn(162 94)
            setPri(5)
            init()
        )
        (send gEgo:
            view(808)
            loop(0)
            cel(0)
            illegalBits(0)
            ignoreActors()
            posn(10 132)
            setScript(egoActions)
            init()
        )
        (send (= newAct (Act:new())):
            view(810)
            loop(0)
            cel(0)
            posn(175 132)
            ignoreActors()
            init()
            stopUpd()
        )
        (send (= newProp_2 (Prop:new())):
            view(804)
            loop(0)
            cel(0)
            ignoreActors()
            posn(184 112)
            init()
            stopUpd()
        )
        (weddingMarch:
            number(69)
            loop(2)
            play()
        )
    )


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

)
(instance egoActions of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((User:
                    canControl(0)
                    canInput(0)
                )
 (send gEgo:
                    xStep(2)
                    setMotion(MoveTo 105 132 self)
                    moveSpeed(1)
                    cycleSpeed(1)
                )
  )
            )
            (case 1
                ((send gEgo:
                    setLoop(2)
                    setMotion(MoveTo 152 132 self)
                )
 (escort:
                    view(808)
                    setLoop(1)
                    ignoreActors()
                    posn(117 129)
                    setCycle(End escort)
                    init()
                )
  )
            )
            (case 2
                ((send gEgo:
                    setLoop(3)
                    cel(0)
                    cycleSpeed(0)
                    setCycle(End self)
                )
 (send newAct:setCycle(End))  )
            )
            (case 3
                ((send newProp:
                    cel(0)
                    setCycle(End self)
                )
  )
            )
            (case 4
                ((send newProp:
                    cel(0)
                    setCycle(End self)
                )
  )
            )
            (case 5
                ((send newProp_2:
                    cycleSpeed(2)
                    setCycle(End self)
                )
  )
            )
            (case 6
                ((send newProp_2:stopUpd()) = global120 Print(692 0 134 -1 20 172) = seconds 12  )
            )
            (case 7
                (proc0_23() (send newAct:hide()) (send gEgo:
                    view(810)
                    setLoop(1)
                    cel(0)
                    setCycle(End self)
                )
  )
            )
            (case 8
                (= newProp_3 (Prop:new()) (send newProp_3:
                    view(810)
                    setLoop(2)
                    ignoreActors()
                    cel(0)
                    setPri(15)
                    posn(175 86)
                    setCycle(End self)
                    init()
                )
  )
            )
            (case 9
                ((send newProp_3:dispose()) (send gEgo:
                    setLoop(3)
                    cel(0)
                    setCycle(End self)
                )
  )
            )
            (case 10
                (= seconds 3  )
            )
            (case 11
                ((send gEgo:setLoop(5)) (send newAct:
                    setLoop(4)
                    posn(181 127)
                    show()
                    cel(0)
                    setPri(8)
                    setCycle(End self)
                )
  )
            )
            (case 12
                (= seconds 5  )
            )
            (case 13
                (= global120 Print(692 1 134 -1 20 172) = seconds 15  )
            )
            (case 14
                (proc0_23() = seconds 4  )
            )
            (case 15
                (= global120 Print(692 2 134 -1 20 172) = seconds 15  )
            )
            (case 16
                (proc0_23() (User:
                    canControl(1)
                    canInput(1)
                )
 = global127 1 )
            )
        )
    )

)
