I know I have already asked everyone for help with my pong game and I have had some replies but not enough help.
I am going to show you my game so that you can give me some inside.
Just to let you all know that I am new to this program so nothing too tricky o.k.
var a1,b1:int:=1
var a2,b2,x:int
var c:string (1)
loop
a2:=a1+50
b2:=b1+50
cls
drawfillbox (a1,5,a2,0,10)
drawfillbox (b1,(maxy-5),b2,maxy,10)
getch (c)
x:= ord (c)
if x = 203 then
a1:= a1-7
elsif x = 205 then
a1:= a1+7
elsif x = 97 then
b1:= b1-7
elsif x = 100 then
b1:= b1+7
end if
if a1 <= 1 then
a1:= 1
elsif a2 >maxx then
a1:=(maxx-51)
elsif b1 <= 1 then
b1:= 1
elsif b2 >= maxx then
b1:=(maxx-51)
end if
end loop
This is just my paddles. I have not yet to get the ball in.
Comments welcome
