Help?
Author 
Message 
Alexx

Posted: Sun Apr 18, 2004 12:57 pm Post subject: Help? 


Hi, guys I have one problem with my screensaver.
Code
View.Set ("graphics:400;400,offscreenonly")
var num_Balls : int := 10
var x, y, dx, dy, clr : array 1 .. num_Balls of int
for i : 1 .. num_Balls
x (i) := Rand.Int (50, maxx  50)
y (i) := Rand.Int (50, maxy  50)
dx (i) := Rand.Int (3, 3)
dy (i) := Rand.Int (3, 3)
clr (i) := Rand.Int (1, 200)
end for
loop
exit when hasch
cls
for i : 1 .. num_Balls
x (i) := x (i) + dx (i)
y (i) := y (i) + dy (i)
if x (i) < 50 or x (i) > maxx  50 then
dx (i) := dx (i)
end if
if y (i) + dy (i) < 50 or y (i) + dy (i) > maxy  50 then
dy (i) := dy (i)
end if
drawfilloval (x (i), y (i), 50, 50, clr (i))
drawfilloval (x (i)  20, y (i) + 20, 10, 10, black)
drawfilloval (x (i) + 20, y (i) + 20, 10, 10, black)
drawarc (x (i), y (i), 40, 40, 180, 350, black)
end for
View.Update
delay (10)
end loop
There is too many balls that around the screen, but my question is how I do this when one ball touch the y value then other ball appear and then ball touch the x value then one more ball appear.






Sponsor Sponsor



Cervantes





gamer

Posted: Sun Apr 18, 2004 1:07 pm Post subject: (No subject) 


ya man if u want people to help u gota be more specific then that







