%Jeffery Liu

%-------- player 3s bar
%-------- player 2s bar
%-------- player 1s bar
var bar : array 1 .. 3 of int := init (1, 2, 3) %starting speed
var speed : array 1 .. 3 of int := init (2, 3, 1) %how fast you want to increment
var enemybar : array 1 .. 3 of int := init (3, 2, 1) %starting speed
var enemyspeed : array 1 .. 3 of int := init (1, 1, 2) %how fast enemy speed increments
var names : array 1 .. 3 of string := init ("Jeffery", "insert", "name") %insert names
var key : string (1)
locate (22, 7)
put "Enemys"
locate (22, 73)
put "Players"
loop
    %increasing enemy speed
    for count : 1 .. upper (enemyspeed)
        if enemybar (count) > 50 then %checking if the bar reached the end
            enemybar (count) := enemybar (count) - 50 %set speed to starting speed
            locate (1, 1)
            put "Enemy ", count, " turn"
            getch (key)
        else
            enemybar (count) := enemybar (count) + enemyspeed (count) %otherwise increase
        end if
    end for
    %drawing the bar
    for count : 1 .. upper (enemybar)
        drawfillbox (52, count * 10, 102, count * 10 + 10, brightgreen)
        drawfillbox (102 + enemybar (count) - 50, count * 10, 102, count * 10 + 10, black)
    end for
    delay (50)
    %increasing player speed
    for count : 1 .. upper (bar)
        if bar (count) > 50 then
            bar (count) := bar (count) - 50
            locate (1, 1)
            put names (count), "s turn"
            getch (key)
        else
            bar (count) := bar (count) + speed (count)
        end if
    end for
    %drawing the bars
    for count : 1 .. upper (bar)
        drawfillbox (maxx - 50, count * 10, maxx, count * 10 + 10, yellow)
        drawfillbox (maxx + bar (count) - 50, count * 10, maxx, count * 10 + 10, black)
    end for
end loop