(version 2)
(include "sci.sh")
(exports
    0 fpQuitGameControls
    1 quitWin
)
(use "Main")
(use "GameControls")
(use "SysWindow")
(script 31)



(class QuitControlIcon of ControlIcon
    (properties
        view -1
        loop -1
        cel -1
        nsLeft 0
        nsTop -1
        nsRight 0
        nsBottom 0
        state $0000
        cursor -1
        type $4000
        message -1
        modifiers $0000
        signal $0001
        maskView 0
        maskLoop 0
        maskCel 0
        highlightColor 0
        lowlightColor 0
        noun 0
        modNum 0
        helpVerb 0
        theObj 0
        selector 0
    )

    (method (highlight param1)
        (var temp0)
        (if (not (& signal $0020) or (== highlightColor -1))
            return 
        )
        (if (paramTotal and param1)
            = temp0 3
        )(else
            = temp0 0
        )
        DrawCel(view loop temp0 nsLeft nsTop 15)
    )

)
(instance public fpQuitGameControls of GameControls
    (properties)

    (method (init param1)
        = gGameControls self
        (self:
            add(iconPlay iconQuit)
            eachElementDo(#highlightColor 40)
            eachElementDo(#lowlightColor 0)
            curIcon(iconPlay)
            window(quitWin)
        )
        (super:init(rest param1))
    )


    (method (dispose)
        (super:dispose())
        (send gGame:setCursor(gWalkCursor))
        DisposeScript(978)
        DisposeScript(31)
    )


    (method (show param1)
        (send gGame:setCursor(997))
        (super:show(rest param1))
    )

)
(instance public quitWin of SysWindow
    (properties)

    (method (open)
        (var temp0, temp1[4], temp5, temp6[20])
        = type 128
        = left 48
        = top 24
        = right 272
        = bottom 176
        = lsLeft left
        = lsTop top
        = lsRight right
        = lsBottom bottom
        = priority 15
        (super:open())
        = temp0 GetPort()
        SetPort(0)
        DrawCel(992 0 0 48 24 temp5)
        Graph(grUPDATE_BOX lsTop lsLeft lsBottom lsRight 1)
        (send gGame:setCursor(999))
        SetPort(temp0)
    )

)
(instance iconQuit of QuitControlIcon
    (properties
        view 992
        loop 1
        cel 0
        nsLeft 184
        nsTop 59
        cursor 9
        message 8
        signal $01c3
        modNum 31
        helpVerb 7
    )

    (method (select)
        = global4 1
    )

)
(instance iconPlay of QuitControlIcon
    (properties
        view 992
        loop 2
        cel 0
        nsLeft 184
        nsTop 99
        cursor 9
        message 8
        signal $01c3
        modNum 31
        helpVerb 7
    )
)
