(version 2)
(include "sci.sh")
(use "Main")
(use "User")
(use "View")
(script 816)

(class InterView of View
    (properties
        x 0
        y 0
        z 0
        heading 0
        noun 0
        modNum -1
        nsTop 0
        nsLeft 0
        nsBottom 0
        nsRight 0
        sightAngle 26505
        actions 0
        onMeCheck $6789
        state $0000
        approachX 0
        approachY 0
        approachDist 0
        _approachVerbs 0
        yStep 2
        view -1
        loop 0
        cel 0
        priority 0
        underBits 0
        signal $0101
        lsTop 0
        lsLeft 0
        lsBottom 0
        lsRight 0
        brTop 0
        brLeft 0
        brBottom 0
        brRight 0
        scaleSignal $0000
        scaleX 128
        scaleY 128
        maxScale 128
    )

    (method (init param1)
        (super:init(rest param1))
        (send gMH:addToEnd(self))
        (send gKH:addToEnd(self))
    )


    (method (dispose param1)
        (send gMH:delete(self))
        (send gKH:delete(self))
        (super:dispose(rest param1))
    )


    (method (handleEvent pEvent)
        (if (((== (User:canInput()) 1) and (self:onMe(pEvent))) and ((== (send ((send global80:curEvent)):message) 13) or (== (send ((send global80:curEvent)):type) 1)))
            (self:doVerb())
        )(else
            (super:handleEvent(pEvent))
        )
    )

)
