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

gtahunter

Sun May 13, 2007 7:37 pm


bouncing balls

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

this program has balls continuously bouncing off the sides of the window






var xdir:int
var ydir:int
var xpos:int
var ypos:int

var xdir1:int
var ydir1:int
var xpos1:int
var ypos1:int

xdir :=1
ydir :=2
xpos :=50
ypos :=100

xdir1:=2
ydir1:=2
xpos1:=100
ypos1:=45

setscreen("graphics:400;400")

loop
cls
    if xpos >= maxx or xpos = maxx or xpos1 = maxy or ypos = maxy or ypos1 = maxx or xpos = maxx or xpos1 = maxy or ypos = maxy or ypos1