setscreen ("graphics:max;max")

var font1, font2, font3 : int
var ovalx, ovaly : int
var start : int
var load : string := "Loading"
var displacement : int
var force : int
var launchx, launchy : int
var buttonnumber, buttonupdown : int
var zz : int := 1
var rad, rad2 : int
rad := 10
rad2 := 25

launchx := maxx div 2
launchy := maxy div 2




ovalx := Rand.Int (1, 619)
ovaly := Rand.Int (150, 399)


font1 := Font.New ("Stenvil:40")
Font.Draw ("Welcome to Johnathon's Target Game", 100, 600, font1, 1)
Font.Free (font1)



font1 := Font.New ("Stencil:40")
Font.Draw ("1. Objective/Controls", 530, 394, font1, 1)
Font.Free (font1)


font2 := Font.New ("Stencil:40")
Font.Draw ("2. Comence Game", 530, 324, font2, 1)
Font.Free (font2)





get start

if start = 1 then
    cls

    font3 := Font.New ("Stencil:40")
    Font.Draw ("Objective/Controls", 613, 624, font3, 53)
    Font.Free (font3)
    drawbox (461, 407, 1032, 499, black)

    color (53)
    locate (20, 60)
    put " Click somewhere under the line to launch the ball from the cannon " ..
    locate (21, 60)
    put " The objective is to hit the target with the ball" ..
    locate (22, 60)
    put " Each time you hit the target, you recieve 10 points" ..
    locate (23, 60)
    put " If you miss the target, you loose 20 points" ..
    Input.Pause
    cls
end if

if start = 2 then
    cls
end if


proc target

    drawfilloval (ovalx, ovaly, rad2, rad2, brightred)
    drawfilloval (ovalx, ovaly, 15, 15, white)
    drawfilloval (ovalx, ovaly, 8, 8, brightred)

end target


proc ball
    for i : 1 .. 1000 by 2

        displacement := round (1 / 250 * (- (i - 40 * force) ** 2 + (40 * force) ** 2))

        drawfilloval (launchx + i, launchy + displacement, rad, rad, blue)
        View.Update
    end for
end ball






color (53)
locate (20, 60)
put " How hard do you want to shoot your ball?"
delay (100)
locate (21, 75)
put " 1-2-3-4-5-6-7-8 "
locate (25, 70)
put "Force = " ..

get force
if force = 1 then
    force := 1
elsif force = 2 then
    force := 2
elsif force = 3 then
    force := 3
elsif force = 4 then
    force := 4
elsif force = 5 then
    force := 5
elsif force = 6 then
    force := 6
elsif force = 7 then
    force := 7
elsif force = 8 then
    force := 8
end if
colorback (grey)
cls

Draw.ThickLine (1, 150, 2000, 150, 5, black)
target
loop

    setscreen ("offscreenonly")
    Draw.ThickLine (1, 150, 2000, 150, 5, black)


    target

    View.Update
    buttonwait ("down", launchx, launchy, buttonnumber, buttonupdown)

    if launchx > 1 and launchx < 2000 and launchy < 150 and launchy > 10 then

        ball
        Draw.ThickLine (1, 150, 2000, 150, 5, black)


        target
    else

        locate (20, 60)
        put " ->Please try again<- "
        locate (21, 60)
        put " ->Invalid Position<-"



    end if
    View.Update


end loop