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 |
|
|
|
|
|
|
|