var variable, Turret, Turretbase, x, y : int
var left, middle, right, button, Color : int
buttonchoose ("multibutton")
setscreen ("graphics:800,400,nobuttonbar")
Turret := Pic.FileNew ("Turret.bmp")
Turretbase := Pic.FileNew ("Turret Base.bmp")
%----------------------------------%
%---Draw The Turret And Its Base---%
%----------------------------------%
loop
    Pic.Draw (Turret, -40, -82, picMerge)
    Pic.Draw (Turretbase, 0, 0, picUnderMerge)
    mousewhere (x, y, button)
    left := button mod 10
    middle := (button - left) mod 100
    right := button - middle - left
    %-----------------------------%
    %-------Turret Shooting-------%
    %-----------------------------%
    if left = 1 then
        Draw.ThickLine (203, 136, x, y, 11, brightred)
        delay (500)
        cls
    end if
end loop