----------------------------------- Schaef Sat Dec 13, 2003 12:52 am Pong Scoring Problem ----------------------------------- Ok, here is my pong game so far.. I am having trouble getting the score to go up when the ball hits 0 or maxx. Take a look at my code and try and find out what the problem is.. % PONG GAME View.Set ("graphics:600;500, offscreenonly, nobuttonbar") var a, b, c, d, e, f, g, introf : int a := 200 b := 200 c := 10 d := 100 e := 0 f := 100 g := 0 var m : array char of boolean var m2 : array char of boolean introf := Font.New ("North Point:50:bold") var xstep:int:=1 var ystep:int:=1 proc intro for i : -10 .. 100 drawfilloval (i, 250, 10, 10, 2) View.Update if i < 100 then cls end if end for delay (500) drawfilloval (150, 250, 10, 10, 4) View.Update delay (500) drawfilloval (200, 250, 10, 10, 16) View.Update delay (500) drawfilloval (250, 250, 10, 10, 16) View.Update delay (500) drawfilloval (300, 250, 10, 10, 16) View.Update delay (500) introf := Font.New ("North Point:50:bold") Font.Draw ("d", 350, 240, introf, grey) View.Update Font.Draw ("sOFT", 380, 240, introf, black) View.Update delay (2000) end intro process scoring var p2,p1:int p2:=0 p1:=0 loop put "P1:",p1 put "P2:",p2 if a-10=maxx then p1:=p1+1 end if delay(1) cls end loop end scoring % Moving Ball process ball loop a:=a+xstep b:=b+ystep Draw.FillOval(a,b,10,10,0) delay(5) Draw.FillOval(a,b,10,10,12) if a+15>=maxx then xstep:=-1 elsif a-15=maxy then ystep:=-1 elsif b-15=maxx and b=g then xstep:=a-1 elsif a-10