i have this particle effect (a version of harmish's fountain) and at the moment it uses dots instead of plains i have tryed to convert it but all i get is a plain not moveing. can any one help me
rem **********************
rem * FOUNTAIN *
rem **********************
rem * By Hamish McHaggis *
rem **********************
rem Number of droplets (reduce if its running slow)
num=500
rem Define arrays for droplet's attributes
dim particle#(num,3,2):dim colour(num):dim grav#(num)
for x=1 to num
make object plain x,0.1,0.1
next x
rem Start loop and turn buffers on
sync on
do
rem Loop through all the particles
for x=1 to num
rem If this is the first time through randomize the properties
if go=0
rem Speed, angle and colour
particle#(x,3,1)=rnd(100)-100:particle#(x,3,1)=particle#(x,3,1)/100
particle#(x,3,2)=rnd(300)+1000:particle#(x,3,2)=particle#(x,3,2)/100
colour(x)=rnd(155)+100
endif
rem If particle is off the screen or this is the first loop then reset it
if particle#(x,1,2)>=480 or go=0
rem Reset it's gravity and position
particle#(x,2,1)=particle#(x,3,1):particle#(x,2,2)=particle#(x,3,2)
particle#(x,1,1)=rnd(200)+200
endif
rem Move the particle
particle#(x,1,1)=particle#(x,1,1)+particle#(x,2,1):particle#(x,1,2)=particle#(x,1,2)-particle#(x,2,2)
rem Increase the particle's gravity
particle#(x,2,2)=particle#(x,2,2)-1
rem Draw the particle
color object x,RGB(color(x),color(X),255
position object x,particle#(x,1,1),particle#(x,1,2), rnd(20)+20
next x
rem Turn the first time flag off and refresh the screen
go=1:sync:cls
rem Loop
loop
