import GUI
setscreen ("graphics:1500;1500")

var x, y, button : int
var xtemp, ytemp : int := 0

procedure draw (x, y : int)
    View.Set ("offscreenonly")
    %Scope casing
    Draw.FillOval (x, y, 55, 55, black)
    Draw.FillOval (x, y, 50, 50, white)

    %Thick crosshair threads
    Draw.ThickLine (x - 50, y, x - 35, y, 3, black)
    Draw.ThickLine (x + 50, y, x + 35, y, 3, black)
    Draw.ThickLine (x, y - 50, x, y - 35, 3, black)
    Draw.ThickLine (x, y + 50, x, y + 35, 3, black)

    %Thin threads
    Draw.Line (x - 20, y, x + 20, y, red)
    Draw.Line (x, y - 20, x, y + 20, red)

    %Adds slight delay. Optional
    delay (100)

    View.Update
end draw

procedure undraw

    %Scope casing
    Draw.FillOval (x, y, 55, 55, white)
    Draw.FillOval (x, y, 50, 50, white)

    %Thick crosshair threads
    Draw.ThickLine (x - 50, y, x - 35, y, 3, white)
    Draw.ThickLine (x + 50, y, x + 35, y, 3, white)
    Draw.ThickLine (x, y - 50, x, y - 35, 3, white)
    Draw.ThickLine (x, y + 50, x, y + 35, 3, white)

    %Thin threads
    Draw.Line (x - 20, y, x + 20, y, white)
    Draw.Line (x, y - 20, x, y + 20, white)

end undraw

var speed : int := 2
var xfinal, yfinal : int
var xv, yv : int

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
proc shoot
xv := (x - xtemp) / (Math.Distance (xtemp, ytemp, x, y) / speed)
yv := (y - ytemp) / (Math.Distance (xtemp, ytemp, x, y) / speed)
    x := xtemp
    y := ytemp
end shoot
shoot
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
loop
    Mouse.Where (x, y, button)  %button is a variable that checks if mouse is clicked
    draw (x, y)
    undraw
    delay (5)
    if button = 1 then
        x += xv                                              % uses velocities to determine the new x and y values
        y -= yv
        if Math.Distance (x, y, xtemp, ytemp) <= 9 then
            delay (100)
            shoot
        end if
        drawfilloval (round (xtemp), round (ytemp), 10, 10, blue)
        drawfilloval (round (x), round (y), 10, 10, black)
        drawfilloval (round (x), round (y), 2, 2, brightred)
        delay (75)
        View.Update

    end if
    xtemp := x
    ytemp := y
end loop