ok... right now there is 2 balls on the screen, i can control one of them, but when i move i want them to not touch each other, so i wont erase the other ball with the one i'm controlling.
plz give me help examples
here is the program:(DON'T MIND THE EXTRA VARIABLES)
View.Set ("offscreenonly")
var Ax := 100
var Ay := 80
var Rx := 100
var Ry := 140
var Lx := 100
var Ly := 200
var dist : int
var Tx := 300
var Ty := 300
var my, m, xx, yy, x1, x2, y1, y2 : int
var slope, temp, b : real
var colourx := 7
var right : array char of boolean
drawfilloval (Ax, Ay, 20, 20, yellow) %Catch
drawfilloval (Rx, Ry, 20, 20, blue) %Right
drawfilloval (Lx, Ly, 20, 20, brightred) %Left
View.Update
xx := Tx
yy := Ty
var Axchange := 2
var Aychange := 2
loop
Input.KeyDown (right)
if right (KEY_RIGHT_ARROW) then
Axchange := 10
drawfilloval (Ax, Ay, 20, 20, yellow)
delay (50)
drawfilloval (Ax, Ay, 20, 20, colourbg)
View.Update
Ax += Axchange
drawfilloval (Ax, Ay, 20, 20, yellow)
View.Update
end if
if right (KEY_LEFT_ARROW) then
Axchange := 10
drawfilloval (Ax, Ay, 20, 20, yellow)
delay (50)
drawfilloval (Ax, Ay, 20, 20, colourbg)
View.Update
Ax -= Axchange
drawfilloval (Ax, Ay, 20, 20, yellow)
View.Update
end if
if right (KEY_UP_ARROW) then
Aychange := 10
drawfilloval (Ax, Ay, 20, 20, yellow)
delay (50)
drawfilloval (Ax, Ay, 20, 20, colourbg)
View.Update
Ay += Aychange
drawfilloval (Ax, Ay, 20, 20, yellow)
View.Update
end if
if right (KEY_DOWN_ARROW) then
Aychange := 10
drawfilloval (Ax, Ay, 20, 20, yellow)
delay (50)
drawfilloval (Ax, Ay, 20, 20, colourbg)
View.Update
Ay -= Aychange
drawfilloval (Ax, Ay, 20, 20, yellow)
View.Update
end if
end loop