download this attatchment and put it in the same folder as this code and it will add a cooler effect...
sync on
sync rate 60
hide mouse
global r as integer
r = 2
load image "fig3[1].jpg",1
make object sphere 1,100
color object 1,rgb(255,255,255)
POSITION CAMERA 0,500,-500
POINT CAMERA 0,0,0
do
if upkey()=1 then move object 1,5
IF DOWNKEY()=1 THEN move OBJECT 1,-5
IF LEFTKEY()=1 THEN turn OBJECT LEFT 1,5
IF RIGHTKEY()=1 THEN turn OBJECT RIGHT 1,5
REM *********************
REM ***** PARTICLES *****
REM *********************
`increase r by so the particles will continue rotating
r = r + 2
`if the particles don't exist and the spacekey is pressed then make the particles
if particles exist(10)=0 and spacekey()=1 then make particles 10,1,1,100
`if the spacekey isn't being pressed and the particles do exist then delet the particles
if spacekey()=0 and particles exist(10)=1 then delete particles 10
`if the particles exist then color the particles
if particles exist(10)=1 then color particles 10,rnd(255),rnd(255),rnd(255)
`if the particles exist then position them to the players location
if particles exist(10)=1 then position particles 10,object position x(1),object position y(1),object position z(1)
`if the particles exist then rotate particles
if particles exist(10)=1 then rotate particles 10,0,r,0
`if the particles exist set the gravity of the particles
if particles exist(10)=1 then set particle gravity 10,1
REM *************************
REM ***** END PARTICLES *****
REM *************************
if keystate(17)=1 then move object up 1,5
if keystate(30)=1 then move object left 1,5
if keystate(32)=1 then move object right 1,5
if keystate(31)=1 then move object down 1,5
fastsync
loop
that will make a nice effect...and i must say THIS IMAGE IS NOT MINE I GOT IT FROM TDK's TUTORIAL TO HELP CITYBEE ONLY if TDK doesn't like this ill gladly remove it
btw if this doesn't work then tell me, ill fix it
EDIT: besides tutoring you helps me learn too
i've learned particles thx to u already
~Kieran
