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


(local
    local0
    newProp_5
    newProp
    newProp_6
    newProp_4
    newProp_2
    local6
    newProp_3

)
(instance public Room26 of Rm
    (properties
        picture 26
    )

    (method (init)
        = north 20
        = south 2
        = east 27
        = west 25
        = horizon 75
        = global101 0
        (if (global100)
            = picture 126
        )
        (send gEgo:edgeHit(0))
        (self:setRegions(501 512 506 518))
        (switch (gPicture)
            (case 2
                (
                (if (> (send gEgo:x()) 251)
                    (send gEgo:posn(251 188))
                )(else
                    (if (< (send gEgo:x()) 80)
                        (send gEgo:posn(82 188))
                    )(else
                        (send gEgo:posn((send gEgo:x()) 188))
                    )
                )
 )
            )
            (case 21
                (
                (if (<> (send gEgo:view()) 2)
                    (send gEgo:posn(215 (+ horizon 2)))
                )(else
                    (if (< (send gEgo:y()) 155)
                        (send gEgo:posn(155 (+ horizon 2)))
                    )(else
                        (send gEgo:posn(255 77))
                    )
                )
 Animate((send gCast:elements()) 0)  )
            )
            (case 25
                ((send gEgo:posn(1 (send gEgo:y())))  )
            )
            (case 20
                (
                (if (> (send gEgo:x()) 185)
                    (send gEgo:posn(185 (+ horizon (send gEgo:yStep()))))
                )(else
                    (send gEgo:posn((send gEgo:x()) (+ horizon (send gEgo:yStep()))))
                )
 )
            )
            (case 27
                ((send gEgo:posn(318 (send gEgo:y()))) )
            )
        )
        (send gEgo:init())
        (super:init())
        (if (== gPicture 0)
            (send gEgo:posn(150 150))
        )
        = newProp (Prop:new())
        = newProp_2 (Prop:new())
        = newProp_3 (Prop:new())
        (send newProp:
            isExtra(1)
            view(658)
            loop(2)
            cel(1)
            posn(184 119)
            setPri(0)
            cycleSpeed(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send newProp_2:
            isExtra(1)
            view(658)
            loop(5)
            cel(1)
            posn(117 170)
            setPri(0)
            cycleSpeed(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send newProp_3:
            isExtra(1)
            view(658)
            loop(7)
            cel(0)
            posn(68 182)
            setPri(0)
            cycleSpeed(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        = newProp_4 (Prop:new())
        = newProp_5 (Prop:new())
        = newProp_6 (Prop:new())
        (send newProp_4:
            isExtra(1)
            view(658)
            loop(4)
            cel(1)
            posn(159 160)
            setPri(0)
            cycleSpeed(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send newProp_6:
            isExtra(1)
            view(658)
            loop(3)
            cel(1)
            posn(125 138)
            setPri(0)
            cycleSpeed(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
        (send newProp_5:
            isExtra(1)
            view(658)
            loop(6)
            cel(1)
            posn(171 86)
            setPri(0)
            cycleSpeed(1)
            setCycle(Fwd)
            ignoreActors()
            init()
        )
    )


    (method (handleEvent pEvent)
        (if ((send pEvent:claimed()))
            return 1
        )
        return 
            (if ((== (send pEvent:type()) 128) and ((Said('look/around') or Said('look/room')) or Said('look[<around][/!*]')))
                Print(26 0)
            )(else
                0
            )
    )


    (method (newRoom param1)
        (if ((== (send gEgo:edgeHit()) 1) and (> (send gEgo:x()) 202))
            (super:newRoom(21))
        )(else
            (super:newRoom(param1))
        )
    )

)
