(version 2)
(include "sci.sh")
(exports
    0 rm680
)
(use "Main")
(use "FPRoom")
(use "CueObj")
(script 680)



(instance public rm680 of FPRoom
    (properties
        picture 680
    )

    (method (init)
        (super:init())
        (magnifiedRX:init())
    )


    (method (cue)
        (magnifiedRX:dispose())
        (send gIconBar:enable())
    )

)
(instance magnifiedRX of Feature
    (properties
        y 190
        nsTop 50
        nsLeft 50
        nsBottom 145
        nsRight 210
    )

    (method (init param1)
        (send gOldKH:addToFront(self))
        (send gOldMH:addToFront(self))
        (send gIconBar:disable(7))
        (super:init(rest param1))
        (send gIconBar:
            curIcon((send gIconBar:at(1)))
            disable()
        )
        (send gGame:setCursor(996))
        SetCursor(2 86 53 238 157 685 0 0 680 77)
        Animate((send gOldCast:elements) 0)
    )


    (method (dispose param1)
        (send gOldKH:delete(self))
        (send gOldMH:delete(self))
        (super:dispose(rest param1))
        (send gIconBar:enable(7))
        (send global2:newRoom(gGNumber))
    )


    (method (handleEvent pEvent)
        (if ((== (send pEvent:type) 1) or (== (send pEvent:type) 4))
            SetCursor(-1)
            (send gGame:setCursor((send ((send gIconBar:curIcon)):cursor) 1))
            (send pEvent:claimed(1))
            (send gEgo:
                put(50)
                put(32)
            )
            (send gEgo:get(-1 58))
            (if (not proc0_2(51))
                (send gFpMessager:say(23 0 7 0 global2 0))
                (send gGame:points(10))
                proc0_3(51)
            )(else
                (self:dispose())
                (send gIconBar:enable())
            )
        )
    )

)
