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

Codi

Tue May 09, 2006 8:42 am


Make this program asd good as possible ie) bricks work

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

%paddle global vaariables
var pwidth : int := 75 % paddle width
var plen : int := 20 %paddle length
var pclr : int := brightgreen   % paddle color
var pxpos : int := maxx div 2 % the paddle starts in the middle of the screen
var pypos : int := 50 % the paddle is 50 high of of the ground
%ball variables
var count : int := 0
const right := 2
const left := -2
var bxpos, bxpostest : int := maxx div 2
var bypos, bypostest : int := maxy div 2
var bsize := 10
var bclr := yellow
var direction : int := left
var angle : real := 315
var hitBrick : boolean := false
var counter : int :=0
var lives : int := 3

proc Bricks
    for x : 0 .. maxx by 50
        for y : 250 .. maxy - 40 by 20
            Draw.FillBox (x, y, x + 45, y + 15, black)
        end for
    end for
end Bricks

proc menu
    var start : string

    put " Would You Like to Play X-Treme Brick?"
    put "      Press Y For Yes And N for No"
    get start
    if start = "N" or start = "n" then
      locate (25,24)
        put "                             Poo Head!"
          delay (2000)
        quit
    end if
    cls
end menu
menu
Draw.Line (0, maxy - 40, maxx, maxy - 40, black)
Bricks
proc Lives

    Draw.FillOval (10, maxy - 20, 5, 5, black)
    Draw.FillOval (30, maxy - 20, 5, 5, black)
    Draw.FillOval (50, maxy - 20, 5, 5, black)
end Lives
Lives
% paddle proc
proc drawpaddle
    Draw.FillBox (pxpos, pypos, pxpos + pwidth, pypos + plen, pclr)
end drawpaddle


proc death
    lives := lives - 1
    locate (20, 20)
    put " YoU DieS "
    delay (500)
    cls
    Bricks
    Lives
    if lives = 2 then
        Draw.FillOval (10, maxy - 20, 5, 5, black)
        Draw.FillOval (30, maxy - 20, 5, 5, black)
        Draw.FillOval (50, maxy - 20, 5, 5, white)
        Draw.Line (0, maxy - 40, maxx, maxy - 40, black)

    elsif lives = 1 then
        Draw.FillOval (10, maxy - 20, 5, 5, black)
        Draw.FillOval (30, maxy - 20, 5, 5, white)
        Draw.FillOval (50, maxy - 20, 5, 5, white)
        Draw.Line (0, maxy - 40, maxx, maxy - 40, black)

    elsif lives = 0 then
        Draw.FillOval (10, maxy - 20, 5, 5, white)
        Draw.FillOval (30, maxy - 20, 5, 5, white)
        Draw.FillOval (50, maxy - 20, 5, 5, white)
        Draw.Line (0, maxy - 40, maxx, maxy - 40, black)


    end if
    bxpos := maxx div 2
    bypos := maxy div 2
    if lives = 0 then
        locate (20, 20)
        put " You have No Lives Left :( Play Again:)"
        delay (1000)
        cls
        Bricks
    end if
end death

proc pmove (ch : string (1))
    if ord (ch) = 203 then % move the paddle left
        Draw.FillBox (pxpos + pwidth - 10, pypos, pxpos + pwidth, pypos + plen, white) % erase the right end of the paddle
        pxpos := pxpos - 10 % move to the left
        if pxpos < 0 then %redraws the paddle in new position
            pxpos := 0 % the paddle can't go outside of the screen boundaries on the right
        end if
    end if
    if ord (ch) = 205 then % paddle moves to the right
        Draw.FillBox (pxpos, pypos, pxpos + 10, pypos + plen, white) % erase the left end of the paddle
        pxpos := pxpos + 10 % redraws the paddle in new position
        if pxpos > maxx - pwidth then
            pxpos := maxx - pwidth % the paddle can't go outside of the screen boundaries on the left
        end if
    end if
    drawpaddle % procedure
end pmove

%bouncing off a horizontal surface
proc angleMod1 %for hitting bricks paddle or roof
    angle := 360 - angle
end angleMod1

%bouncing off a vertical surface
proc angleMod2
    if angle  0 and bypostest < maxy then
        if View.WhatDotColour (bxpostest, bypostest) not= white then        %hit paddle
        
            angleMod1        %bounce
        end if
    end if
    Draw.FillOval (bxpos, bypos, bsize, bsize, bclr)%redraw
        if bxpos > maxx or bxpos < 0 then
        angleMod2        %vertical bounce
    if ( angle < 0) or( angle> 270 and angle> 360) then    
    angleMod2
    end if
if angle = 170 or angle = 180 then
angle:= 315+


    end if
    if bypos > maxy then
        angleMod1        %horizontal bounce
    end if
    if bypos