(version 2)
(include "sci.sh")
(exports
    0 rm061
)
(use "Main")
(use "Cycle")
(use "Game")
(use "TheMenuBar")
(use "Feature")
(script 61)



(instance public rm061 of Rm
    (properties
        picture 61
        horizon 77
        east 62
        south 67
        west 60
    )

    (method (init)
        (var temp0[50])
        proc0_3()
        (self:setRegions(600))
        Load(128 90)
        (bloop:init())
        (super:init())
        (switch (gNorth)
            (case 60
                (send gEgo:
                    posn(2 (send gEgo:y))
                    init()
                )
            )
            (case 62
                (send gEgo:
                    view(0)
                    cel((send gEgo:cel))
                    loop((send gEgo:loop))
                    posn(317 (send gEgo:y))
                    init()
                )
            )
            (case 66
                (send gEgo:
                    posn(80 187)
                    init()
                )
            )
            (case 67
                (send gEgo:
                    posn(240 187)
                    init()
                )
            )
        )
        (TheMenuBar:draw())
        (SL:enable())
    )


    (method (doit)
        (var gEgoOnControl)
        (super:doit())
        (if ((== (send global2:script) 0) and ((== (= gEgoOnControl (send gEgo:onControl())) 5) or (== gEgoOnControl 4)))
            (send gEgo:
                setPri(4)
                posn((send gEgo:x) - (send gEgo:y) 6)
            )
            = global180 1
        )
    )


    (method (handleEvent pEvent)
        (super:handleEvent(pEvent))
        (if ((<> (send pEvent:type) 128) or (send pEvent:claimed))
            return 
        )
    )


    (method (newRoom newRoomNumber)
        (if (== script 0)
            (if (== 3 (send gEgo:edgeHit))
                (if (< (send gEgo:x) 159)
                    = newRoomNumber 66
                )(else
                    = newRoomNumber 67
                )
            )
            (super:newRoom(newRoomNumber))
        )
    )

)
(instance bloop of Prop
    (properties)

    (method (init)
        (super:init())
        (self:
            view(90)
            setLoop(0)
            setCel(0)
            cycleSpeed(3)
            posn(303 14)
            setCycle(Fwd)
            ignoreActors()
        )
    )

)
