There you go. Yellow particles that spew from the mouse pointer.
sync on
sync rate 30
hide mouse
sync
sync
dim stars(100,5)
for i=0 to 99
stars(i,1)=rnd(16)-8
stars(i,2)=rnd(16)*-1
stars(i,3)=320
stars(i,4)=240
stars(i,5)=255
next i
do
for i=0 to 99
stars(i,2)=stars(i,2)+1
stars(i,3)=stars(i,3)+stars(i,1)
stars(i,4)=stars(i,4)+stars(i,2)
stars(i,5)=stars(i,5)-5
if stars(i,3)<=0
stars(i,1)=rnd(16)-8
stars(i,2)=rnd(16)*-1
stars(i,3)=mousex()
stars(i,4)=mousey()
stars(i,5)=255
endif
if stars(i,3)>=640
stars(i,1)=rnd(16)-8
stars(i,2)=rnd(16)*-1
stars(i,3)=mousex()
stars(i,4)=mousey()
stars(i,5)=255
endif
if stars(i,4)>=480
stars(i,1)=rnd(16)-8
stars(i,2)=rnd(16)*-1
stars(i,3)=mousex()
stars(i,4)=mousey()
stars(i,5)=255
endif
if stars(i,5)<=0
stars(i,1)=rnd(16)-8
stars(i,2)=rnd(16)*-1
stars(i,3)=mousex()
stars(i,4)=mousey()
stars(i,5)=255
endif
ink rgb(stars(i,5),stars(i,5),0),0
dot stars(i,3),stars(i,4)
next i
sync
cls
loop
It took me a while to write that code ages ago, but you can use it.
stars(i,1) - x velocity
stars(i,2) - y velocity
stars(i,3) - particle x position
stars(i,4) - particle y position
stars(i,5) - particle colour fade value, also to remove finished particles.
Of course this is for a 2d particle effect. You can mess about with some of the velocity variables, although the code is not terribly well structured. It's easy enough to put into 3d, just add extra array columns for z velocity and z position. See if you can understand that code anyway, so you can write your own tailored to your needs.
For DBPro's excellent particle system, use this code:
sync on
sync rate 90
rem generate glow bitmap
create bitmap 1,32,32
for i=0 to 360
for j=0 to 14
ink rgb(255-int(j*15.9),255-int(j*5),255-int(j*15.9)),0
dot 16+(cos(i)*j),16+(sin(i)*j)
next j
next i
get image 1,0,0,31,31
set current bitmap 0
delete bitmap 1
make matrix 1,1000,1000,5,5
make particles 1,1,1,100
set particle velocity 1,6
set particle emissions 1,1
set particle gravity 1,3
position particles 1,500,0,500
position camera 500,100,0
do
sync
loop
Again it's not the best structured code, but easy enough to understand.
