var x, y, button, left, right, middle, score : int
var smallcharge, mediumcharge, bigcharge, FontID : int
var Target, TargetX, TargetY, Color : int
Mouse.ButtonChoose ("multibutton")
setscreen ("graphics:500,500,nobuttonbar")
FontID := Font.New ("Arial:20")
Target := Pic.FileNew ("RandTarget.bmp")
var smallx : int := 0
var mediumx : int := 0
var bigx : int := 0
score := 0
Color := red
smallcharge := 10
mediumcharge := 5
bigcharge := 1
TargetX := Rand.Int (1, 400)
TargetY := Rand.Int (1, 400)
Draw.FillBox (0, 0, maxx, maxy, black)
drawfillbox (0, 445, 100, 425, white)
drawfillbox (0, 450, 100, 470, white)
drawfillbox (0, 475, 100, 495, white)
Draw.ThickLine (0, 400, 500, 400, 5, white)
Font.Draw ("Score:", 300, 450, FontID, 0)
% Font.Draw ("Alot", 380, 450, FontID, 0)
locate (3, 49)
color (white)
colorback (black)
put score ..
%---------------------TargetPlacement------------------------
proc Targetplaced
    Pic.Draw (Target, Rand.Int (1, 400), Rand.Int (1, 400), 0)
    delay (500)
    Draw.FillBox (0, 0, maxx, maxy, black)
    drawfillbox (0, 445, 100, 425, white)
    drawfillbox (0, 450, 100, 470, white)
    drawfillbox (0, 475, 100, 495, white)
    Draw.ThickLine (0, 400, 500, 400, 5, white)
    Font.Draw ("Score:", 300, 450, FontID, 0)
    locate (3, 49)
    color (white)
    colorback (black)
    put score ..
end Targetplaced
Targetplaced

%--------------------Recharging Big Shot-----------------------
proc rechargebig
    loop
        colourback (0)
        drawbox (bigx, 492, bigx + 0, 478, brightblue)
        View.Update
        delay (100)
        bigx := bigx + bigcharge
        exit when bigx = 100
    end loop
    bigx := 0
    Draw.FillBox (0, 0, maxx, maxy, black)
    drawfillbox (0, 445, 100, 425, white)
    drawfillbox (0, 450, 100, 470, white)
    drawfillbox (0, 475, 100, 495, white)
    Draw.ThickLine (0, 400, 500, 400, 5, white)
    Font.Draw ("Score:", 300, 450, FontID, 0)
    locate (3, 49)
    color (white)
    colorback (black)
    put score ..
end rechargebig

%-----------------------Recharging Medium Shot----------------------------
proc rechargemedium
    loop
        colourback (0)
        drawfillbox (mediumx, 467, mediumx + 0, 453, brightblue)
        View.Update
        delay (100)
        mediumx := mediumx + mediumcharge
        exit when mediumx = 100
    end loop
    mediumx := 0
    Draw.FillBox (0, 0, maxx, maxy, black)
    drawfillbox (0, 445, 100, 425, white)
    drawfillbox (0, 450, 100, 470, white)
    drawfillbox (0, 475, 100, 495, white)
    Draw.ThickLine (0, 400, 500, 400, 5, white)
    Font.Draw ("Score:", 300, 450, FontID, 0)
    locate (3, 49)
    color (white)
    colorback (black)
    put score ..
end rechargemedium

%-----------------Recharging Small Shot---------------------
proc rechargesmall
    loop
        colourback (0)
        drawfillbox (smallx, 442, smallx + 0, 428, brightblue)
        View.Update
        delay (100)
        smallx := smallx + smallcharge
        exit when smallx = 100
    end loop
    smallx := 0
    Draw.FillBox (0, 0, maxx, maxy, black)
    drawfillbox (0, 445, 100, 425, white)
    drawfillbox (0, 450, 100, 470, white)
    drawfillbox (0, 475, 100, 495, white)
    Draw.ThickLine (0, 400, 500, 400, 5, white)
    Font.Draw ("Score:", 300, 450, FontID, 0)
    locate (3, 49)
    color (white)
    colorback (black)
    put score ..
end rechargesmall

loop
    loop
        Mouse.Where (x, y, button)
        Targetplaced
        left := button mod 10
        middle := (button - left) mod 100
        right := button - middle - left
        if right = 100 then
            exit when y > 393
            if View.WhatDotColor (x, y) = white then
                Color := yellow
            elsif View.WhatDotColor (x, y) = black then
                Color := brightred
            elsif View.WhatDotColor (x, y) = brightred then
                score := score + 1
            elsif View.WhatDotColor (x, y) = yellow then
                score := score - 1
            end if
            drawfilloval (x, y, 25, 25, Color)
            rechargebig
        end if
        if middle = 10 then
            exit when y > 393
            if View.WhatDotColor (x, y) = white then
                Color := yellow
            elsif View.WhatDotColor (x, y) = black then
                Color := brightred
            elsif View.WhatDotColor (x, y) = brightred then
                score := score + 1
            elsif View.WhatDotColor (x, y) = yellow then
                score := score - 1
            end if
            drawfilloval (x, y, 10, 10, Color)
            rechargemedium
        end if
        if left = 1 then
            exit when y > 393
            if View.WhatDotColor (x, y) = white then
                Color := yellow
            elsif View.WhatDotColor (x, y) = black then
                Color := brightred
            elsif View.WhatDotColor (x, y) = brightred then
                score := score + 1
            elsif View.WhatDotColor (x, y) = yellow then
                score := score - 1
            end if
            drawfilloval (x, y, 3, 3, Color)
            rechargesmall
        end if
    end loop
end loop

var current_frame : int := 0
loop
   current_frame += 1
   % draw current_frame
   View.Update
   % delay since last -- framerate control
   cls
end loop