The version I wrote on blitz is this :-
And apart from the buffer locking etc I want to transfer it to db..
Const starno=1000
;----
Type stars
Field x,y,speed,depth
End Type
;----
Graphics 640,480,16
SetBuffer BackBuffer()
plotstars
While Not KeyHit (1)
updatestars
UnlockBuffer
Flip:Cls
Wend
End
;----
Function plotstars()
For sn=0 To starno
stars.stars=New stars
stars\speed=Rnd(1,8)
stars\depth=Rnd(180,255)
stars\x=Rnd(-10,650)
stars\y=Rnd(-10,490)
Next
End Function
;----
Function updatestars()
For stars.stars=Each stars
Color stars\depth,200,200
Rect stars\x,stars\y,2,2,1
stars\x=stars\x-stars\speed
If stars\x<0 Then stars\x=641
Next
End Function
;----
Hope that gives you an idea of what I'm trying to achieve Ian
For game/demo music for YOUR PC and GP32 productions visit:-www.futuredevelopments.org.uk