(version 2)
(include "sci.sh")
(exports
    0 askFire
)
(use "Main")
(use "GloryWindow")
(use "IconI")
(use "GameControls")
(use "Obj")
(script 705)


(local
    newGameControls

)
(instance public askFire of Code
    (properties)

    (method (init param1 param2 param3)
        (var temp0)
        = newGameControls (GameControls:new())
        (send newGameControls:window((send ((GloryWindow:new())):
                top(40)
                left(65)
                bottom(80)
                right(256)
                priority(15)
                yourself()
            )
))
        = temp0 (fireIcon:new(param1 param2 param3 1))
        (send temp0:
            view(935)
            loop(1)
            cel(0)
            nsTop(2)
            nsLeft(2)
            modifiers(1)
        )
        (send newGameControls:add(temp0))
        = temp0 (fireIcon:new(param1 param2 param3 2))
        (send temp0:
            nsTop(25)
            nsLeft(5)
            cursor(1)
        )
        (send newGameControls:add(temp0))
        = temp0 (fireIcon:new(param1 param2 param3 3))
        (send temp0:
            nsTop(25)
            nsLeft(95)
            cursor(2)
        )
        (send newGameControls:add(temp0))
        (send newGameControls:
            init()
            show()
            dispose()
        )
        = newGameControls 0
    )

)
(instance fireIcon of IconI
    (properties
        view 935
        loop 2
        cel 0
    )

    (method (new param1 param2 param3 param4)
        (var temp0, temp1, temp2)
        = temp0 Clone(self)
        (if (paramTotal)
            = temp1 Message(2 gClientModNum param1 param2 param3 param4)
            (send temp0:message(Memory(2 temp1)))
            Message(0 gClientModNum param1 param2 param3 param4 (send temp0:message))
        )
        return temp0
    )


    (method (dispose)
        Memory(3 message)
        (super:dispose())
    )


    (method (show)
        = nsRight (+ nsLeft 
            (if (== loop 1)
                0
            )(else
                90
            )
)
        = nsBottom 
            (if (== loop 1)
                nsTop
            )(else
                (+ nsTop 15)
            )
        DrawCel(view loop cel nsLeft nsTop -1)
        Display(message 100 
            (if (== loop 1)
                nsLeft
            )(else
                + nsLeft 20
            )
 + nsTop 2 105 
            (if (== loop 1)
                123
            )(else
                0
            )
 102 17 101 modifiers 106 
            (if (== loop 1)
                189
            )(else
                70
            )
)
    )


    (method (select)
        return 
            (if (<> loop 1)
                = gCursor cursor
                (send newGameControls:state((& (send newGameControls:state) $ffdf)))
            )(else
                return 0
            )
    )


    (method (highlight param1)
        (var temp0)
        (if (<> loop 1)
            (if (param1)
                DrawCel(view loop 1 nsLeft nsTop -1)
                = temp0 46
            )(else
                DrawCel(view loop 0 nsLeft nsTop -1)
                = temp0 17
            )
            Display(message 100 
                (if (== loop 1)
                    nsLeft
                )(else
                    + nsLeft 20
                )
 + nsTop 2 105 
                (if (== loop 1)
                    123
                )(else
                    0
                )
 102 temp0 101 modifiers 106 
                (if (== loop 1)
                    189
                )(else
                    70
                )
)
        )
    )

)
