import GUI
View.Set ("graphics:1500;750, offscreenonly")

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

%%%%%%%%%%%%%%%
%Turret Spinning:
var keys : array char of boolean
var tx, ty : real := 0

%Length of Turret:
var realx, realy : real := 0

realx := 60
realy := 60

%%%%%%%%%%%%%%%

procedure draw (x, y : int)
    %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)

end draw

proc rotate

    if keys (KEY_UP_ARROW) then
        tx := realx
        ty := realy
        realx := cosd (1) * tx + sind (1) * ty
        realy := cosd (1) * ty - sind (1) * tx
    end if
    if keys (KEY_DOWN_ARROW) then
        tx := realx
        ty := realy
        realx := cosd (1) * tx - sind (1) * ty
        realy := sind (1) * tx + cosd (1) * ty
    end if
    Draw.ThickLine (x, y, x + round (realx), y + round (realy), 10, red)

    delay (1)

end rotate


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

proc shoot
var run, rise : int
var x1, x2, y1, y2 : int
var xtemp, ytemp : int
Mouse.Where (x1, y1, button)
x2 := x1 + round (realx)
y2 := y1 + round (realy)



run := (x2 - x1)
rise := (y2 - y1)


var ball : boolean
ball := false
var keys : array char of boolean

    if button = 1 then
        ball := true
    end if
    if ball = true then
        x2 := x2 + (run div 10)
        y2 := y2 + (rise div 10)
        drawfilloval (x2, y2, 7, 7, 9)
        delay (50)
        cls
    end if

end shoot






loop
    Draw.Cls
    Mouse.Where (x, y, button)  %button is a variable that checks if mouse is clicked
    draw (x, y)

    delay (1)
    Input.KeyDown (keys)
    rotate

    shoot
View.Update
   
    xtemp := x
    ytemp := y
end loop





%TO DO!!!:
%Make turret shoot