aliasset = (getalias particlealiases)
if (|| (strcmp $aliasset "") (= $aliasset 0) ) [
alias particledir 0
alias particleexpsize 0
alias particleexpcolor 0
alias particleexpred 0
alias particleexpgreen 0
alias particleexpblue 0
alias particleflareclass 4
alias particleflaredir 0
alias particleflarelen 0
alias particleflarecolor 0
alias particleflarered 0
alias particleflaregreen 0
alias particleflareblue 0
alias particlemulticlass 4
alias particlemultiname Circular
alias particlemultitype 0
alias particlemultidir 0
alias particlemultitoggledir 0
alias particlemultilen 0
alias particlemulticolor 0
alias particlemultired 0
alias particlemultigreen 0
alias particlemultiblue 0
alias particlecaptype 5
alias particlecappercent 0
alias particlecapcolor 0
alias particlecapred 0
alias particlecapgreen 0
alias particlecapblue 0
alias particlelenstype 32
alias particlelensred 0
alias particlelensgreen 0
alias particlelensblue 0 
alias particlealiases 1
] []

alias setparticlemultiname [
	if (< $arg1 12) [
	
		if (< $arg1 6) [
			if (< $arg1 3) [
				alias $arg2 "Circular"
			] [
				alias $arg2 "Cylindrical Shell"
			]
		] [
			alias $arg2 "Conic Shell"
		]
		
	] [
		
		if (< $arg1 21) [
			if (< $arg1 15) [
				alias $arg2 "Cubic Volume"
			] [
				alias $arg2 "Planar Surface"
			]
		] [
			alias $arg2 "Sphere"
		]
	]
]

newgui newparticles [
	guibutton "Fire with Smoke" "newent particles 0"
	guitext "Direction for Smoke, Water"
	guislider particledir 0 5
	guibutton "Smoke" [newent particles 1 $particledir]
	guibutton "Water" [newent particles 2 $particledir]
	
	guitab explosion
		guibutton "Place Explosion Particle" "newent particles 3 $particleexpsize $particleexpcolor"
		guitext "Explosion Size (0-40)"
		guislider particleexpsize 0 40
		guitext "Explosion Color (RGB, 0-15)"
		guislider particleexpred 0 15 [particleexpcolor = (+ (+ (* $particleexpred 256) (* $particleexpgreen 16) ) $particleexpblue) ] 
		guislider particleexpgreen 0 15 [particleexpcolor = (+ (+ (* $particleexpred 256) (* $particleexpgreen 16) ) $particleexpblue) ] 
		guislider particleexpblue 0 15 [particleexpcolor = (+ (+ (* $particleexpred 256) (* $particleexpgreen 16) ) $particleexpblue) ] 
		
	guitab "tape/flare/lightning"
		guibutton "Place Particle" "newent particles $particleflareclass $particleflaredir $particleflarelen $particleflarecolor"
		guiradio "Tape/Flare" particleflareclass 4
		guiradio "Lightning" particleflareclass 7
		guiradio "Fire" particleflareclass 8
		guiradio "Smoke" particleflareclass 9
		guiradio "Water" particleflareclass 10
		guitext "Tape/Flare Direction"
		guislider particleflaredir 0 5
		guitext "Tape/Flare Length (0-100)"
		guislider particleflarelen 0 100
		guitext "Tape/Flare Color (RGB, 0-15)"
		guislider particleflarered 0 15 [particleflarecolor = (+ (+ (* $particleflarered 256) (* $particleflaregreen 16) ) $particleflareblue) ]
		guislider particleflaregreen 0 15 [particleflarecolor = (+ (+ (* $particleflarered 256) (* $particleflaregreen 16) ) $particleflareblue) ]
		guislider particleflareblue 0 15 [particleflarecolor = (+ (+ (* $particleflarered 256) (* $particleflaregreen 16) ) $particleflareblue) ]
		
	guitab "multiple-type particle"
		guibutton "Place Multiple Particle"  "newent particles $particlemulticlass $particlemultidir $particlemultilen $particlemulticolor"
		guiradio "Tape/Flare" particlemulticlass 4
		guiradio "Lightning" particlemulticlass 7
		guiradio "Fire" particlemulticlass 8
		guiradio "Smoke" particlemulticlass 9
		guiradio "Water" particlemulticlass 10
		guitext "Multiple Particle Shape/Direction (0-21):"
		guitext $particlemultiname
		guislider particlemultitype 0 21 [setparticlemultiname $particlemultitype particlemultiname; particlemultidir = (+ 256 (+ $particlemultitype (* $particlemultitoggledir 32) ) )]
		guicheckbox "Reverse Direction" particlemultitoggledir 1 0 [particlemultidir = (+ 256 (+ $particlemultitype (* $particlemultitoggledir 32) ) )]
		guitext "Multiple Tape/Flare Length (0-100)"
		guislider particlemultilen 0 100
		guitext "Multiple Tape/Flare Color (RGB, 0-15)"
		guislider particlemultired 0 15 [particlemulticolor = (+ (+ (* $particlemultired 256) (* $particlemultigreen 16) ) $particlemultiblue) ]
		guislider particlemultigreen 0 15 [particlemulticolor = (+ (+ (* $particlemultired 256) (* $particlemultigreen 16) ) $particlemultiblue) ]
		guislider particlemultiblue 0 15 [particlemulticolor = (+ (+ (* $particlemultired 256) (* $particlemultigreen 16) ) $particlemultiblue) ]

	guitab "capture meter"
		guibutton "Place Capture Meter" "newent particles $particlecaptype $particlecappercent $particlecapcolor"
		guicheckbox "Versus Capture Meter" particlecaptype 6 5
		guitext "Percent Captured (0-100)"
		guislider particlecappercent 0 100
		guitext "Capturing Color (RGB, 0-15)"
		guislider particlecapred 0 15 [particlecapcolor = (+ (+ (* $particlecapred 256) (* $particlecapgreen 16) ) $particlecapblue) ]
		guislider particlecapgreen 0 15 [particlecapcolor = (+ (+ (* $particlecapred 256) (* $particlecapgreen 16) ) $particlecapblue) ]
		guislider particlecapblue 0 15 [particlecapcolor = (+ (+ (* $particlecapred 256) (* $particlecapgreen 16) ) $particlecapblue) ]
		
	guitab "lens flare"
		guibutton "Place Lens Flare" "newent particles $particlelenstype $particlelensred $particlelensgreen $particlelensblue"
		guiradio "Normal Lens Flare" particlelenstype 32
		guiradio "Lens Flare with Sparkle" particlelenstype 33
		guiradio "Fixed-Size Flare" particlelenstype 34
		guiradio "Fixed-Size Flare with Sparkle" particlelenstype 35
		guitext "Lens Flare Color (RGB, 0-255)"
		guislider particlelensred 0 255
		guislider particlelensgreen 0 255
		guislider particlelensblue 0 255
]

delayreopen = [sleep 100 [showgui quickedit]]

initentgui = [
	tmpt = ( et )
	tmp0 = ( ea 0 )
	tmp1 = ( ea 1 )
	tmp2 = ( ea 2 )
	tmp3 = ( ea 3 )
	if (strcmp (et) particles) [
	
	newgui particles [
		@quickcommands
		guitab type 
			guilistsplit 2 $enttypelist [
			guibutton $n [ entset @n ]       
		]
	
		if (< $tmp0 3) [
			  
				guitab attr
					guitext "Standard Particles"
					guitext "Type (Fireball -> Smoke -> Fountain)"
					guislider tmp0 0 2 entupdate
					guitext "Direction"
					guislider tmp1 0 5 entupdate
		]
		
		if (= $tmp0 3) [
			alias tmp3-1 (div $tmp2 256)
			alias tmp3-2 (div (mod $tmp2 256) 16)
			alias tmp3-3 (mod (mod $tmp2 256) 16)
				
				guitab attr
					guitext "Explosion"
					guitext "Size"
					guislider tmp1 0 40 entupdate
					guitext "Red"
					guislider tmp3-1 0 15 [tmp2 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Green"
					guislider tmp3-2 0 15 [tmp2 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Blue"
					guislider tmp3-3 0 15 [tmp2 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
		]
		
		if (&& (|| (|| (|| (= $tmp0 4) (= $tmp0 7) ) (|| (= $tmp0 8) (= $tmp0 9) ) ) (= $tmp0 10)) (< $tmp1 256) ) [
			alias tmp3-1 (div $tmp3 256)
			alias tmp3-2 (div (mod $tmp3 256) 16)
			alias tmp3-3 (mod (mod $tmp3 256) 16)
		
				guitab attr
					guiradio "Tape/Flare" tmp0 4 entupdate
					guiradio "Lightning" tmp0 7 entupdate
					guiradio "Fire" tmp0 8 entupdate
					guiradio "Smoke" tmp0 9 entupdate
					guiradio "Water" tmp0 10 entupdate
					guitext "Direction"
					guislider tmp1 0 5 entupdate
					guitext "Length"
					guislider tmp2 0 100 entupdate
					guitext "Red"
					guislider tmp3-1 0 15 [tmp3 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Green"
					guislider tmp3-2 0 15 [tmp3 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Blue"
					guislider tmp3-3 0 15 [tmp3 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]               
		]
		
		if (&& (|| (|| (|| (= $tmp0 4) (= $tmp0 7) ) (|| (= $tmp0 8) (= $tmp0 9) ) ) (= $tmp0 10)) (> $tmp1 255) ) [
			alias tmp3-1 (div $tmp3 256)
			alias tmp3-2 (div (mod $tmp3 256) 16)
			alias tmp3-3 (mod (mod $tmp3 256) 16)
			if (< (- $tmp1 256) 32) [alias tmp1tog 0] [alias tmp1tog 1]
			if (tmp1tog) [alias tmp1dir (- $tmp1 288)] [alias tmp1dir (- $tmp1 256)]
			settmp1name $tmp1dir
		  
				guitab attr
					guiradio "Tape/Flare" tmp0 4 entupdate
					guiradio "Lightning" tmp0 7 entupdate
					guiradio "Fire" tmp0 8 entupdate
					guiradio "Smoke" tmp0 9 entupdate
					guiradio "Water" tmp0 10 entupdate
					guitext "Multiple Particle Shape/Direction (0-21):"
					guitext $tmp1name
					guislider tmp1dir 0 21 [setparticlemultiname $tmp1dir tmp1name; tmp1 = (+ 256 (+ $tmp1dir (* $tmp1tog 32) ) ); entupdate]
					guicheckbox "Reverse Direction" tmp1tog 1 0 [tmp1 = (+ 256 (+ $tmp1dir (* $tmp1tog 32) ) ); entupdate]
					guitext "Length"
					guislider tmp2 0 100 entupdate
					guitext "Red"
					guislider tmp3-1 0 15 [tmp3 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Green"
					guislider tmp3-2 0 15 [tmp3 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Blue"
					guislider tmp3-3 0 15 [tmp3 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]                    
		]
		
		if (|| (= $tmp0 5) (= $tmp0 6)) [
			alias tmp3-1 (div $tmp2 256)
			alias tmp3-2 (div (mod $tmp2 256) 16)
			alias tmp3-3 (mod (mod $tmp2 256) 16)
		
				guitab attr
					guitext "Capture Particles"
					guicheckbox "Versus Capture Meter" tmp0 6 5 entupdate
					guitext "Percent"
					guislider tmp1 0 100 entupdate
					guitext "Red"
					guislider tmp3-1 0 15 [tmp2 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Green"
					guislider tmp3-2 0 15 [tmp2 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]
					guitext "Blue"
					guislider tmp3-3 0 15 [tmp2 = (+ (+ (* $tmp3-1 256) (* $tmp3-2 16) ) $tmp3-3) ; entupdate]                    
		]
		
		if (|| (|| (= $tmp0 32) (= $tmp0 33) ) (|| (= $tmp0 34) (= $tmp0 35) ) ) [
 
			guitab attr
				guitext "Lens Flare"
				guiradio "Normal Lens Flare" tmp0 32 entupdate
				guiradio "Lens Flare with Sparkle" tmp0 33 entupdate
				guiradio "Fixed-Size Flare" tmp0 34 entupdate
				guiradio "Fixed-Size Flare with Sparkle" tmp0 35 entupdate
				guitext "Red"
				guislider tmp1 0 255 entupdate
				guitext "Green"
				guislider tmp2 0 255 entupdate
				guitext "Blue"
				guislider tmp3 0 255 entupdate                   	
		]

		guitab particletype
		guistayopen [
			guitext "Beware! These are destructive!"
			guibutton "Standard Particles" "tmp0 = 0; entupdate"
			guibutton "Explosion Particles" "tmp0 = 3; entupdate"
			guibutton "Single-Type Particles" "tmp0 = 4; tmp1 = 0; entupdate"
			guibutton "Multiple-Type Particles" "tmp0 = 4; tmp1 = 256; entupdate"
			guibutton "Capture Particles" "tmp0 = 5; entupdate"
			guibutton "Lens Flare Particles" "tmp0 = 32; entupdate"
		]
	]
	]
]