please help: pong game for school

[ashvinthecha]

ok i have no idea how to make a ball for the game and i could use some help here is my code so far

% variable declaration
var x : int
var y : int
var p1 : string
var p2 : string
var ashvin := 100
var ashvin2 := 180
var ashvin3 := 100
var ashvin4 := 180
var bouce1 := 1
var bounce2 := 1
var background := white
var getKey : array char of boolean

% procedure declaration
procedure Screen
drawfillbox (0, 0, maxx, maxy, background)
drawfillbox (20, ashvin, 30, ashvin2, black)
drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black)
end Screen

procedure MoveP1Up
drawfillbox (20, ashvin2, 30, ashvin, background)
ashvin += 1
ashvin2 += 1
drawfillbox (20, ashvin2, 30, ashvin, black)
delay (3)
end MoveP1Up

procedure MoveP1Down
drawfillbox (20, ashvin2, 30, ashvin, background)
ashvin -= 1
ashvin2 -= 1
drawfillbox (20, ashvin2, 30, ashvin, black)
delay (3)
end MoveP1Down

procedure MoveP2Up
drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, background)
ashvin3 += 1
ashvin4 += 1
drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black)
delay (3)
end MoveP2Up

procedure MoveP2Down
drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, background)
ashvin3 -= 1
ashvin4 -= 1
drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black)
delay (3)
end MoveP2Down


% beginning of program
loop
drawfillbox (20, ashvin, 30, ashvin2, black)
Input.KeyDown (getKey)
if getKey ('q') then
MoveP1Up
end if
if getKey ('a') then
MoveP1Down
end if

if (ashvin <= 0) and (ashvin2 <= 80) then
ashvin := 0
ashvin2 := 80
elsif (ashvin >= maxy - 80) and (ashvin2 >= maxy - 80) then
ashvin2 := maxy
ashvin := maxy - 80
end if
drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black)
Input.KeyDown (getKey)
if getKey (KEY_UP_ARROW) then
MoveP2Up
end if
if getKey (KEY_DOWN_ARROW) then
MoveP2Down
end if
if (ashvin3 <= 0) and (ashvin4 <= 80) then
ashvin3 := 0
ashvin4 := 80
elsif (ashvin3 >= maxy - 80) and (ashvin4 >= maxy - 80) then
ashvin4 := maxy
ashvin3 := maxy - 80
end if
View.Update
end loop

[tjmoore1993]

You really didn't need to ask for help. Why? Simple explanation. Simply go to the submission section a look for submissions on Ping-Pong. Most of them demonstrate accurate movement of the ball and will help you a lot.

If that doesn't help then ask again.

[saltpro15]

I think mine's pretty descriptive

http://compsci.ca/v3/viewtopic.php?t=20169&highlight=pong

cheers