----------------------------------- Stormtrooper Tue Apr 15, 2003 12:58 pm ball bouncing help ----------------------------------- ok i made this code and i want the balls to bounce when they hit eachother what should i add to the programm and where to put it? also my 2 balls are in each other how do i make them to be by them selves and move into different directions? setscreen ("graphics") var c, dx, dy, r, cx, cy, b, a, d, e, f, g : int := 0 var q : string (1) var strc : string var colours : array 0 .. 15 of string := init ("black", "dark blue", "dark green", "dark cyan", "dark red", "dark magneta", "brown", "white", "grey", "blue", "green", "cyan", "red", "magenta", "yellow", "bright white") loop put " Enter Radius of ball 1 and 2 " get r, a put " Enter a Colour of ball 1 " get strc : * for i : 0 .. 15 if strc = colours (i) then c := i end if end for put " Enter a Colour of ball 2 " get strc : * for i : 0 .. 15 if strc = colours (i) then c := i end if end for cx := Rand.Int (r, maxx - r) cy := Rand.Int (r, maxy - r) dx := 1 dy := 1 d := Rand.Int (a, maxx - a) e := Rand.Int (a, maxy - a) f := -1 g := -1 loop exit when hasch drawfilloval (cx, cy, r, r, c) delay (10) drawfilloval (cx, cy, r, r, white) drawfilloval (d, e, a, a, b) delay (10) drawfilloval (d, e, r, r, white) d += f e += g cx += dx cy += dy if d >= maxx - a or d = maxx - r or cx maxy - a or e maxy - r or cy = 630 or x = 390 or y