I don't realy need help with this, I was just wondering about this. Why does this program look like everything happens exactly the same every time?
Graphics 640,480
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Type star
Field x
Field y
Field xspeed
Field yspeed
Field size#
Field distance
End Type
For stars=1 To 1000
s.star=New star
s\x=Rand(-20,20)+320
s\y=Rand(-15,15)+240
If s\x>320 Then s\xspeed=Rand(1,2)
If s\x<320 Then s\xspeed=Rand(-1,-2)
If s\y>240 Then s\yspeed=Rand(1,2)
If s\y<240 Then s\yspeed=Rand(-1,-2)
s\size=Rnd(1,2)
Next
While Not KeyDown(1)
Cls
For s.star=Each star
s\x=s\x+s\xspeed
s\y=s\y+s\yspeed
s\size=s\size+(s\size)/200
Oval s\x,s\y,s\size,s\size
s\distance=Sqr(((320-s\x)^2)+((240-s\y)^2))
If s\distance>500
s\x=Rand(-20,20)+320
s\y=Rand(-15,15)+240
If s\x>320 Then s\xspeed=Rand(1,2)
If s\x<320 Then s\xspeed=Rand(-1,-2)
If s\y>240 Then s\yspeed=Rand(1,2)
If s\y<240 Then s\yspeed=Rand(-1,-2)
s\size=Rnd(1,2)
EndIf
Next
Flip
Wend
End
|