%By Methodoxx
%Shoot the targets infinitely.
%Point value is related to speed of target

var winID : int := Window.Open ("position:center,center;graphics:800;450;offscreenonly")

%Predraw scope---------------------------------
%Scope casing
Draw.FillOval (55, 55, 55, 55, black)
Draw.FillOval (55, 55, 50, 50, white)

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

%Thin threads
Draw.Line (55 - 35, 55, 55 + 35, 55, black)
Draw.Line (55, 55 - 35, 55, 55 + 35, black)

%Ticks
for i : -30 .. 30 by 6
    Draw.Line (55 - 3, 55 + i, 55 + 3, 55 + i, black)
    Draw.Line (55 + i, 55 - 3, 55 + i, 55 + 3, black)
end for
var xhair : int := Pic.New (0, 0, 110, 110)
cls
%--------------------------------------------------

var X, Y, _X, _Y : array 1 .. 10 of real

%Predraw targets
var colourC : int
for decreasing i : 5 .. 1
    if i mod 2 = 0 then
        colourC := brightred
    else
        colourC := white
    end if
    Draw.FillOval (20, 20, 4 * i, 4 * i, colourC)
end for
var target : int := Pic.New (0, 0, 40, 40)

fcn drawReticule (x, y, short : int) : boolean
    var rad : int
    rad := round (sqrt (abs (x - (X (short))) ** 2 + abs (y - (Y (short))) ** 2)) div 2
    var hit : boolean := false
    Pic.Draw (xhair, x - 55, y - 55, picMerge)
    for i : 25 .. 385 by 90
        if rad < 10 then
            Draw.FillArc (x, y, rad, rad, i, i + 40, brightgreen)
            hit := true
        else
            Draw.Arc (x, y, rad, rad, i, i + 40, brightred)
        end if
    end for
    result hit
end drawReticule

proc drawTargets
    for i : 1 .. 10
        Pic.Draw (target, round (X (i)) - 20, round (Y (i)) - 20, picMerge)
    end for
end drawTargets

var font : int := Font.New ("arialblack;bold:12")
proc drawScore (score : int)
    Font.Draw ("Score = " + intstr (score), 0, 0, font, blue)
    Font.Draw ("Level = " + intstr ((Time.Elapsed div 10000) + 1), maxx - 70, 0, font, blue)
end drawScore

proc drawAcc (taken, made : int)
    if made > 0 then
        Font.Draw ("Accuracy = " + realstr (made / taken * 100, 2) + "%", maxx div 2, 0, font, blue)
    else
        Font.Draw ("Accuracy = 0%", maxx div 2, 0, font, blue)
    end if
end drawAcc

proc moveTargets
    for i : 1 .. 10
        X (i) += _X (i)
        Y (i) += _Y (i)
        if X (i) < 0 or X (i) > maxx then
            _X (i) *= -1
        end if
        if Y (i) < 0 or Y (i) > maxy then
            _Y (i) *= -1
        end if
    end for
end moveTargets

proc newTarget (i, level : int)
    X (i) := maxx * Rand.Int (0, 1)
    _X (i) := Rand.Real * ((Time.Elapsed div 10000) + 1) ** .5
    Y (i) := Rand.Int (1, maxy)
    _Y (i) := Rand.Real * ((Time.Elapsed div 10000) + 1) ** .5
end newTarget

fcn shortestTarget (x, y : int) : int
    var shortest : int := 1
    for i : 2 .. 10
        if sqrt (abs (x - X (i)) ** 2 + abs (y - Y (i)) ** 2) < sqrt (abs (x - X (shortest)) ** 2 + abs (y - Y (shortest)) ** 2) then
            shortest := i
        end if
    end for
    result shortest
end shortestTarget

var mx, my, mb : int    %Mouse location
var shortest : int      %Index of nearest target
var score, tempScore : int := 0         %Score
var lastHit, lastShot : int := 0        %For multiplier
var shotsTaken, shotsMade : int := 0    %for accuracy

for i : 1 .. 10
    newTarget (i, 1)
end for

loop
    Mouse.Where (mx, my, mb)

    moveTargets
    shortest := shortestTarget (mx, my)

    %Draw procedures
    drawTargets

    if drawReticule (mx, my, shortest) and mb = 1 and Time.Elapsed - lastShot > 400 then
        tempScore += 10 * abs (round (_X (shortest))) * ((Time.Elapsed div 10000) + 1)
        newTarget (shortest, ((Time.Elapsed div 10000) + 1))
        lastHit := Time.Elapsed
        lastShot := Time.Elapsed
        shotsMade += 1
        shotsTaken += 1
    elsif mb = 1 and Time.Elapsed - lastShot > 400 then
        shotsTaken += 1
        lastShot := Time.Elapsed
    end if

    if Time.Elapsed - lastHit > 1000 then
        score += tempScore
        tempScore := 0
    end if

    drawScore (score)
    drawAcc (shotsTaken, shotsMade)
    View.Update
    cls
end loop

Time.DelaySinceLast(15)

%User Interface
import GUI
%Setcreen creates a window, enters graphic mode, changes the window to 1000
%x600 and turns of the cursor
setscreen ("graphics:1000;600,nocursor")

%This variable is an integers and allow the scope to be drawn anywhere
var x, y, button : int
var mspace1 : int

var spaceship : int
spaceship := Pic.FileNew ("shipf.bmp")
var background : int
background := Pic.FileNew ("background.bmp")
var explosion : int
explosion := Pic.FileNew ("explosion.bmp")

var spacex, spacey : int

spacex := 450
spacey := 300
% this loop is used to randomly generate direction of movement for the space ship
procedure draw (x, y : int)

    View.Set ("offscreenonly")
    randint (mspace1, 1, 15)
    if mspace1 = 1 then
        spacey := (spacey + 50)
    else
        if mspace1 = 2 then
            spacex := (spacex - 50)
        else
            if mspace1 = 3 then
                spacey := (spacey - 50)
            else
                if mspace1 = 4 then
                    spacex := (spacex + 50)

                end if
            end if
        end if
    end if

    Pic.Draw (spaceship, spacex, spacey, picXor)

    Pic.Draw (background, 0, 0, picMerge)


    %Scope casting
    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)
    delay (20)
    View.Update
    cls
end draw


loop
    Mouse.Where (x, y, button)
    draw (x, y)
end loop