% % % % % % % % % % % % % % % % % % %
% % % % % % Brick Breaker % % % % % %
% % % % % % By % % % % % %% % % % % %
% % % % % % % % % % % % % % % % % % %

import "Collision.tu"

setscreen ("nobuttonbar,graphics:320;240,offscreenonly,position:center;center,title:Brick Breaker")

% Constants %
const BALL_WIDTH := 5
const BALL_LENGTH := 5

const PADDLE_LENGTH := 10
const PADDLE_WIDTH := 50

const DELAY := 10

% Variables %
var background : int
var chars : array char of boolean
var font : int := Font.New ("Agency FB:20")

var score : int := 0
var ammo : int := 0
var lives : int := 3
var highscore : int := 0

var x : int := 17
var y : int := 0
var x2 : int := 220
var y2 : int := 213

var ball_x : int := 20
var ball_y : int := 20
var ball_vx : int := 1
var ball_vy : int := 1

% Procedures %
procedure Graphics
    background := Pic.FileNew ("background.jpg")
    Pic.Draw (background, 0, 0, picXor)
end Graphics

procedure Draw_Ball (x1, y1 : int)
    Draw.FillOval (x1, y1, BALL_WIDTH, BALL_LENGTH, black)
end Draw_Ball

procedure Scores (score, ammo, lives : int)
    Draw.Text (intstr (score), 270, 162, font, black)     % Score
    Draw.Text (intstr (ammo), 270, 110, font, black)      % Ammo
    Draw.Text (intstr (lives), 270, 60, font, black)      % Lives
end Scores

% Main Execution %
Graphics

loop
    Scores (score, ammo, lives)

    ball_x := ball_x + ball_vx
    ball_y := ball_y + ball_vy

    if ball_x = x or ball_x = x2 then
        ball_vx := -ball_vx
    end if

    if ball_y = y or ball_y = y2 then
        ball_vy := -ball_vy
    end if

    Draw_Ball (ball_x, ball_y)

    % View.UpdateArea (x, y, x2, y2)
    View.Update
    Time.DelaySinceLast (DELAY)
end loop