sorry, it's been a while since I had access to the enternet. I have, however been working on a particle editor. here is the code. It started out as something else so the code is a little funny.
Rem Project: FIREWORKS
Rem Created: 3/13/2004 7:18:28 PM
Rem ***** Main Source File *****
REM MAKE MULTIPLY COLORED PARTICLES
HIDE MOUSE
RED=1
GREEN=2
BLUE=3
REM INC NUMBER
NUMBER=3
LOAD IMAGE "REDFIREWORKS.BMP",RED
LOAD IMAGE "GREENFIREWORKS.BMP",GREEN
LOAD IMAGE "BLUEFIREWORKS.BMP",BLUE
LOAD IMAGE "SKY.BMP",4
AUTOCAM OFF
MAKE OBJECT SPHERE 1,-4000
SCALE OBJECT TEXTURE 1,10,10
TEXTURE OBJECT 1,4
AUTOCAM ON
FOR RED=1 TO 3
MAKE PARTICLES RED,RED,1,100
SET PARTICLE EMISSIONS RED,-1
SET PARTICLE FLOOR RED,0
SET PARTICLE VELOCITY RED,15
SET PARTICLE GRAVITY RED,30
NEXT RED
ROTATE PARTICLES GREEN,270,0,225
ROTATE PARTICLES BLUE,270,0,135
ROTATE PARTICLES 1,225,0,0
AUTOCAM OFF
POSITION PARTICLES 1,0,100,0
POSITION PARTICLES 2,50,0,0
POSITION PARTICLES 3,-50,0,0
SET TEXT TRANSPARENT
SYNC ON
LIFE=100
DIM NAME$(9)
DIM COLOR$(NUMBER)
DIM LIFE(NUMBER)
DIM SPEED#(NUMBER)
DIM VELOCITY#(NUMBER)
DIM GRAVITY#(NUMBER)
DIM FLOOR(NUMBER)
DIM TRANSPARENCY(NUMBER)
DIM CHAOS(NUMBER)
DIM EMISSIONS(NUMBER)
READ COLOR$(1)
READ COLOR$(2)
READ COLOR$(3)
FIREWORK=1
RESTORE VARIABLES
FOR A=1 TO 9
READ NAME$(A)
NEXT A
HIDE PARTICLES FIREWORK
DO
IF INKEY$()="S" THEN GOSUB SAVE
REM SELECT MENU ITEM
IF LEFTKEY()>0 THEN SELECTION=SELECTION+1
IF RIGHTKEY()>0 THEN SELECTION=SELECTION-1
IF SELECTION=10 THEN SELECTION=1
IF SELECTION=0 THEN SELECTION=9
REM CHANGE MENU ITEM
REM DOWN
IF DOWNKEY()>0
P=1
SELECT SELECTION
CASE 1
HIDE PARTICLES FIREWORK
DEC FIREWORK
IF FIREWORK=0 THEN FIREWORK=NUMBER
SHOW PARTICLES FIREWORK
ENDCASE
CASE 2
DEC LIFE(FIREWORK)
SET PARTICLE LIFE FIREWORK,LIFE(FIREWORK)
ENDCASE
CASE 3
DEC SPEED#(FIREWORK),0.001
SET PARTICLE SPEED FIREWORK,SPEED#(FIREWORK)
ENDCASE
CASE 4
DEC VELOCITY#(FIREWORK),0.5
SET PARTICLE VELOCITY FIREWORK,SPEED#(FIREWORK)
ENDCASE
CASE 5
DEC GRAVITY#(FIREWORK),0.05
SET PARTICLE GRAVITY FIREWORK,GRAVITY#(FIREWORK)
ENDCASE
CASE 6
FLOOR(FIREWORK)=0
SET PARTICLE FLOOR FIREWORK,FLOOR(FIREWORK)
ENDCASE
CASE 7
DEC TRANSPARENCY(FIREWORK)
IF TRANSPARENCY(FIREWORK)=-1 THEN TRANSPARENCY(FIREWORK)=5
GHOST PARTICLES ON FIREWORK,TRANSPARENCY(FIREWORK)
ENDCASE
CASE 8
DEC CHAOS(FIREWORK)
SET PARTICLE CHAOS FIREWORK,CHAOS(FIREWORK)
ENDCASE
CASE 9
DEC EMISSIONS(FIREWORK)
SET PARTICLE EMISSIONS FIREWORK,EMISSIONS(FIREWORK)
ENDCASE
ENDSELECT
REM DONE WITH DOWN
ENDIF
IF UPKEY()>0
P=1
SELECT SELECTION
CASE 1
HIDE PARTICLES FIREWORK
INC FIREWORK
IF FIREWORK=NUMBER+1 THEN FIREWORK=1
SHOW PARTICLES FIREWORK
ENDCASE
CASE 2
INC LIFE(FIREWORK)
SET PARTICLE LIFE FIREWORK,LIFE(FIREWORK)
ENDCASE
CASE 3
INC SPEED#(FIREWORK),0.001
SET PARTICLE SPEED FIREWORK,SPEED#(FIREWORK)
ENDCASE
CASE 4
INC VELOCITY#(FIREWORK),0.5
SET PARTICLE VELOCITY FIREWORK,SPEED#(FIREWORK)
ENDCASE
CASE 5
INC GRAVITY#(FIREWORK),0.05
SET PARTICLE GRAVITY FIREWORK,GRAVITY#(FIREWORK)
ENDCASE
CASE 6
FLOOR(FIREWORK)=1
SET PARTICLE FLOOR FIREWORK,FLOOR(FIREWORK)
ENDCASE
CASE 7
INC TRANSPARENCY(FIREWORK)
IF TRANSPARENCY(FIREWORK)=5 THEN TRANSPARENCY(FIREWORK)=0
GHOST PARTICLES ON FIREWORK,TRANSPARENCY(FIREWORK)
ENDCASE
CASE 8
INC CHAOS(FIREWORK)
SET PARTICLE CHAOS FIREWORK,CHAOS(FIREWORK)
ENDCASE
CASE 9
INC EMISSIONS(FIREWORK)
SET PARTICLE EMISSIONS FIREWORK,EMISSIONS(FIREWORK)
ENDCASE
ENDSELECT
REM DONE WITH UP
ENDIF
SET CURSOR 0,0
PRINT "COLOR: " ,COLOR$(FIREWORK)
PRINT "LIFE: " ; LIFE(FIREWORK)
PRINT "SPEED: " ; SPEED#(FIREWORK)
PRINT "VELOCITY: ",VELOCITY#(FIREWORK)
PRINT "GRAVITY: ",GRAVITY#(FIREWORK)
PRINT "FLOOR: ",FLOOR(FIREWORK)
PRINT "TRANSPARENCY: ",TRANSPARENCY(FIREWORK)
PRINT "CHAOS: ",CHAOS(FIREWORK)
PRINT "EMISSIONS: ";EMISSIONS(FIREWORK)
SET CURSOR 0,300
PRINT NAME$(SELECTION)
FASTSYNC
LOOP
END
DATA "RED","GREEN","BLUE"
VARIABLES:
DATA "COLOR","LIFE","SPEED","VELOCITY","GRAVITY","FLOOR","TRANSPARENCY","CHAOS","EMISSIONS"
I'll post the images whenever I can.
the left side of my head isn't bigger, the right side is just smaller
