setscreen ("graphics: 1000; 600")
%MUSIC_SONG 01
process song01_subprogram
    Music.Play ("demo.mp3")
end song01_subprogram

% ENABLE CONTROLS
var chars : array char of boolean
var hit : boolean := false
Input.KeyDown (chars)

% MAIN PROGRAM VARIABLES & CONSTANTS

var score : int := 0
var lanenumber : int
const totalnotes : int := 10

% PROCEDURE (LOOP) VARIABLES (LANES 1-4)
% KEYBOARD TRIGGER
var b1 : int
var b2 : int
var b3 : int
var b4 : int
% DESCENDING NOTES
var y1 : int := 450
var y2 : int := 450
var y3 : int := 450
var y4 : int := 450

% DETECT PRESSED KEYS
var left_pressed, down_pressed, right_pressed : boolean := false

% HIT NOTE COUNT
var count : int := 0
var winpercentage : int := 0

% PROCEDURES
% sucessful hit
procedure hitnote
    count := count + 1
    winpercentage := count * 100 div totalnotes
    % number of milliseconds it takes for the note to go from y=75 to y=0
    delay (45)
end hitnote

% animation of descending note in lane 01
procedure line01_individualnote
    loop
        drawoval (100, 75, 25, 25, red)
        drawoval (200, 75, 25, 25, blue)
        drawoval (300, 75, 25, 25, green)

        %THE b-VALUE
        % lane 01 controls

        if chars (KEY_LEFT_ARROW) then
            left_pressed := true
               end if

        % THE y-VALUE
        y1 := y1 - 5

        exit when y1 = -25

        %collision
        if 83 > y1 and y1 > 67 and left_pressed = true then
            hitnote
            exit
        else
        end if

        drawfilloval (100, y1, 25, 25, red)

        delay (10)
        cls
    end loop
end line01_individualnote

% animation of descending note in lane 01
procedure line02_individualnote
    loop
        drawoval (100, 75, 25, 25, red)
        drawoval (200, 75, 25, 25, blue)
        drawoval (300, 75, 25, 25, green)

        if chars (KEY_DOWN_ARROW) then
            down_pressed := true
               end if

        %THE y-VALUE
        y2 := y2 - 5
        exit when y2 = -25

        %collision
        if 83 > y2 and y2 > 67 and down_pressed = true then
            hitnote
            exit
        else
        end if

        drawfilloval (200, y2, 25, 25, blue)

        delay (10)
        cls
    end loop
end line02_individualnote

% animation of descending note in lane 03
procedure line03_individualnote
    loop
        drawoval (100, 75, 25, 25, red)
        drawoval (200, 75, 25, 25, blue)
        drawoval (300, 75, 25, 25, green)

        %THE b-VALUE
        % lane 01 controls
        if chars (KEY_RIGHT_ARROW) then
            right_pressed := true
             end if

        % THE y-VALUE
        y3 := y3 - 5

        exit when y3 = -25

        %collision
         if 83 > y3 and y3 > 67 and right_pressed = true then
            hitnote
            exit
        else
        end if

        drawfilloval (300, y3, 25, 25, green)

        delay (10)
        cls
    end loop
end line03_individualnote

% PROCEDURE for consecutive notes within song
procedure lanes
    for i : 1 .. totalnotes

        %<add delay here>: time interval between consecutive notes, as a variable
        delay (40)

        randint (lanenumber, 1, 3)

        if lanenumber = 1 then
            line01_individualnote
        elsif lanenumber = 2 then
            line02_individualnote
        elsif lanenumber = 3 then
            line03_individualnote
        end if

        y1 := 450
        drawoval (100, 75, 25, 25, red)
        y2 := 450
        drawoval (200, 75, 25, 25, blue)
        y3 := 450
        drawoval (300, 75, 25, 25, green)

    end for
end lanes


%---------------------------------------------

drawoval (100, 75, 25, 25, red)
drawoval (200, 75, 25, 25, blue)
drawoval (300, 75, 25, 25, green)


% GAME BEGINS // MUSIC STARTS PLAYING
fork song01_subprogram
lanes

put count