-----------------------------------

Swimmer

Fri May 31, 2013 4:30 pm


Can't bounce ball off of opposite wall; goes behind bricks and flickering too much - Need help with Brick Breaker

-----------------------------------

Here is my code so far if you could help that would be awesome!


/*  Name: Rewati Prakash
 Date: May 31st, 2013
 Version: 1.0
 Description: Brick Breaker by Rewati Prakash
 */
%Variable Declaration
var key : array char of boolean
var paddle, circlex, circley, paddleDirection, circledir, circleny, circlenx, speed, winner,leftWall : int

%Variable Initialization
paddle := maxy div 2
circlex := maxx div 2
circley := maxy div 2
circlenx := 5
circleny := 5
speed := 5
leftWall:= 300
View.Set ("graphics:600,300,offscreenonly, title: Brick Breaker Ultimate")

%start Program
loop
    
    %Controls
    Input.KeyDown (key)
    if key (KEY_UP_ARROW) and paddle = 75 then
        paddleDirection := 2
    else
        paddleDirection := 0
    end if

    if paddleDirection = 1 then
        paddle := paddle + 5
    elsif paddleDirection = 2 then
        paddle := paddle - 5
    end if

    %Title
    colourback (gray)


    %Draw ball , paddle, and range of ball
    for count : 1 .. 300

        %paddle
        drawfillbox (maxx - 25, paddle - 70, maxx - 10, paddle + 20, purple)

        %Ball
        drawfilloval (circlex, circley, 15, 15, purple)

        %Range of ball
        drawbox (0, 0, 600, 300, gray)
    end for
    Time.Delay (35)

    %Ball Land on Paddle
    if circlex >= maxx - 25 then
        if paddle + 20 >= circley + 5 and paddle - 60