To keep it moving you have to change the for statement to a loop statement.
For the bouncing part look at my if statement in the loop.
| code: |
setscreen ("graphics") setscreen ("nocursor") setscreen ("offscreenonly") var tablex1, tabley1, tablex2, tabley2, tableLength, tableWidth, tableColour : int const buffer := 10 var keypress : string (1) tableColour := green tableLength := maxx - buffer * 2 tableWidth := tableLength div 2 tablex1 := buffer tabley1 := buffer tablex2 := tablex1 + tableLength tabley2 := tabley1 + tableWidth drawfillbox (tablex1, tabley1, tablex2, tabley2, tableColour) var x, y, r, c, dy, dx : int r := 6 c := white x := maxx div 2 y := maxy div 2 dy := 2 dx := 2 drawfilloval (x, y, r, r, c) getch (keypress) loop drawfillbox (tablex1, tabley1, tablex2, tabley2, tableColour) y := y + dy x := x + dx if y < tabley1 or y > tabley2 then dy *= -1 end if if x < tablex1 or x > tablex2 then dx *= -1 end if drawfilloval (x, y, r, r, c) delay (15) View.Update cls end loop |
Basically if the bally is greater than tabley2 or less the tabley1, it reflects the y speed. Same for the x.
PS: Use offscreen only and view update for smooth animations, dont draw a ball over the last one to hide it
