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

Kingnoz

Fri May 23, 2003 3:58 pm


Help please with text

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

The code is included below. the problem im having is that the put statements im using for when u lose a life will show up on the screen for a split second then disappear. the game then continues. 

my question is how can i make it so that the text will stay up longer than that split second so that people playing will actually know how many lives they have.

i commented out the lines of code for the titlepage so u don't need the pic






colorback (black)
color (white)
cls
setscreen ("no cursor")
var x, y : int % x and y for the paddle
var xr, yr : int % x and y radius of the paddle
var b1, b2, r : int
var chars : array char of boolean
var nx, ny : int
%var titlepage : int
var lives : int
 
%titlepage := Pic.FileNew ("kingnoz.bmp")
b1 := 540     % x coordinate for ball - start position
b2 := 300            % y coordinate for ball /
r := 5               % radius for ball
x := 400      % x coordinate for paddle - start position
y := 80              % y coordinate for paddle /
xr := 430              % x radius for paddle
yr := 85              % y radius for paddle
nx := 4              % used to change direction
ny := -4             % used to change direction
lives := 3
%moves the ball and changes movement if it hits a wall
procedure ballmove
    if b1 >= 585 or b1 = 345 or b2  50 then % move the paddle left
        x := x - 5
        xr := xr - 5
    end if
    if b2