Ive made it into a load of bouncing red circles now!!
rem **********************
rem * FOUNTAIN *
rem **********************
rem * By Hamish McHaggis *
rem **********************
rem Number of droplets (reduce if its running slow)
num=50
rem Define arrays for droplet's attributes
dim particle#(num,3,2):dim colour(num):dim grav#(num):dim bounce(num)
rem Start loop and turn buffers on
sync on:hide mouse
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(300)-150:particle#(x,3,1)=particle#(x,3,1)/100:particle#(x,3,2)=rnd(800)+200:particle#(x,3,2)=particle#(x,3,2)/100
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)=320:particle#(x,1,2)=440: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)>470
rem Reset it's gravity and position
if bounce(x)<5
bounce(x)=bounce(x)+1:particle#(x,2,1)=particle#(x,3,1)*2:particle#(x,2,2)=particle#(x,3,2)/(bounce(x)*3):particle#(x,1,2)=469
else
particle#(x,2,1)=particle#(x,3,1):particle#(x,2,2)=particle#(x,3,2):particle#(x,1,1)=320:particle#(x,1,2)=469:bounce(x)=0
endif
endif
rem Move the particle and increase the particle's gravity and draw 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):particle#(x,2,2)=particle#(x,2,2)-0.1:ink rgb(255,colour(x),colour(x)),rgb(255,255,255):circle particle#(x,1,1),particle#(x,1,2),10
rem Turn the first time flag off and refresh the screen
next x:go=1:sync:cls
rem Loop
loop
p.s. Attreid, what is your phase thing in french? (im following jo...)
Yum! Yum! Yum! Yum!
