-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Thanks goes too AmenMoses for the original script

local emitterList = {}

local namedEmitter = 
{ 
    graphixsnow = 
		  { animSpd = 1, SR = 0, freq = 16, lifeMin = 2000, lifeMax = 2000,
                     -- minX  minY  minZ  maxX  maxY  maxZ			  
			offset = {  -380,  70, -380,  380, 100,  380 },
			speed  = {  -0.01, -0.01, -0.01, 0.01, -0.0, 0.01},
			rotate = {               0,              0 },-- currently only Z rotate processed
                     -- startMin startMax endMin endMax			
			scale  = {    200,      300,    20,     50 },
			alpha  = {    90,       190,     80,    100 }
		  },
	 graphixmist = 
		  { animSpd = 1/16, SR = 0, freq = 16, lifeMin = 2000, lifeMax = 2000,
                     -- minX  minY  minZ  maxX  maxY  maxZ			  
			offset = {  -1000,  0, -1000,  1000, 1000,  1000 },
			speed  = {  -0.01, -0.01, -0.01, 0.1, 0.1, 0.1},
			rotate = {               0,              0 },-- currently only Z rotate processed
                     -- startMin startMax endMin endMax			
			scale  = {   1000,    1000,   1000,  1000 },
			alpha  = {    0,       30,     50,      80 }
		  },	
	
}

-- caller must load image
local function PE_CreateNamedEmitter( name, image, frames, entity )
			
	local et = namedEmitter[ name ]
	
	if et == nil then return end
	
	local emitter = ParticlesGetFreeEmitter()
	
	if emitter == -1 then return end
	
	local pos, spd, scl = et.offset, et.speed, et.scale
	
	if entity == nil then
		ParticlesAddEmitterEx( emitter, et.animSpd, et.SR, 
		                     pos[1], pos[2], pos[3], pos[4], pos[5], pos[6],
							 scl[1], scl[2], scl[3], scl[4],
							 spd[1], spd[2], spd[3], spd[4], spd[5], spd[6],
							 et.rotate[1], et.rotate[2], et.lifeMin, et.lifeMax,
							 et.alpha[1], et.alpha[2], et.alpha[3], et.alpha[4],
							 et.freq, -1, 0, image, frames )
	else
		ParticlesAddEmitterEx( emitter, et.animSpd, et.SR, 
		                     pos[1], pos[2], pos[3], pos[4], pos[5], pos[6],
							 scl[1], scl[2], scl[3], scl[4],
							 spd[1], spd[2], spd[3], spd[4], spd[5], spd[6],
							 et.rotate[1], et.rotate[2], et.lifeMin, et.lifeMax,
							 et.alpha[1], et.alpha[2], et.alpha[3], et.alpha[4],
							 et.freq, entity, 0, image, frames ) 
	end
	
	return emitter
end
								
function graphix_snow_particle_init(e)
end

local snowImg = snowImg or ParticlesLoadImage( "effectbank\\particles\\weather\\graphixsnow.dds", 9 )
local mistImg  = mistImg or ParticlesLoadImage( "effectbank\\particles\\weather\\graphixmist.dds", 8 )

function snowOff()
	for k, v in pairs( emitterList ) do
		if v.used then 
			ParticlesSetLife( v.id, 16, 2000, 2000, 0 , 0 )
		end
	end
end

function snowOn()
	for k, v in pairs( emitterList ) do
		if v.used then 
			ParticlesSetLife( v.id, 16, 2000, 2000, 100 , 0 )
		end
	end
end

function graphix_snow_particle_main(e)

	local emitter = emitterList[e]

	if emitter == nil then
		emitterList[e] = { used = false }
		
	else	
		
		if not emitter.used then 		
					
			local flurry = PE_CreateNamedEmitter( 'graphixsnow', snowImg, 64)
			local foggy = PE_CreateNamedEmitter( 'graphixmist', mistImg, 16)
			
			emitter.used = true		
			emitter.id   = foggy
			emitter.id   = flurry
			
			
						
			ParticlesSetWindVector( 0.02, 0.03 )
		end
		
	
end
end