Welcome. And heres a demo with objects. Again, works better than I expected. I've learned a few things too, so thanks for the request.
Sync On:Sync Rate 60:Autocam Off
Load Image "glassbubble.png",1,1
Type bubbles
x as float
y as float
z as float
Endtype
Dim bubble(10) as bubbles
For i = 1 to 10
Make Object Plain i,20,20
Texture Object i,1
Set Object Transparency i,3
Position Object i,rnd(100)-50,rnd(100)-50,80
bubble(i).x=(rnd(60.0)-30.0)/30.0
bubble(i).y=(rnd(60.0)-30.0)/30.0
bubble(i).z=(rnd(60.0)-30.0)/30.0
Next i
nx as float
ny as float
Do
For i = 1 to 10
nx=Object Position X(i)+bubble(i).x
if nx>50 or nx<-50
nx=nx-bubble(i).x
bubble(i).x=-bubble(i).x
Endif
ny=Object Position Y(i)+bubble(i).y
if ny>50 or ny<-50
ny=ny-bubble(i).y
bubble(i).y=-bubble(i).y
Endif
Position Object i,nx,ny,80
Next i
Sync
Loop
End
Open MMORPG: It's your game!
