-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function playertorchtester_init(e)

	local imageFile  = ParticlesLoadImage( "effectbank\\particles\\fire\\flame.png" )
	
	local fire = ParticlesGetFreeEmitter(1)

	ParticlesAddEmitterEx( fire, 0.5, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                   0,   0,   0,     0,   0,   0, 
			   -- Scale: startMin startMax endMin endMax	
						   5,     5,     5,    5,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.1,    0,    0,  0.1,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.1, 0.1,    376,   376,
			  -- Alpha: startMin startMax endMin endMax	
						   95,     95,     95,    95,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   200,     35,        0,       imageFile,       9 )

tchstart = 0
tchmin = 750
tchmax = 800
tchspeed = 100
tchspawn = 0

end

function playertorchtester_main(e)

local tchX = NewXValue(g_PlayerPosX,g_PlayerAngY+5,5)
local tchY = g_PlayerPosY+33
local tchZ = NewZValue(g_PlayerPosZ,g_PlayerAngY+5,5)

local tchOffX = g_PlayerPosX - tchX
local tchOffY = g_PlayerAngX-180
local tchOffZ = g_PlayerPosZ - tchZ

ResetPosition(e,tchX-tchOffX,tchY,tchZ-tchOffZ)

if g_PlayerGunID == 59 then
SetLightRGB (1,255-(3200/tchmax),175-(6400/tchmax),89-(6400/tchmax))
elseif g_PlayerGunID ~= 59 then
SetLightRGB (1,0,0,0)
tchmin = 750
tchmax = 800
tchstart = 0
end

--Prompt ("Player Y = "..g_PlayerAngX-180)

g_range = math.random(tchmin,tchmax)
SetLightPosition ( 1,tchX,tchY,tchZ)
SetLightRange (1, g_range )

if tchmax > 1 and g_PlayerGunID == 59 and tchstart == 0 then
StartTimer(e)
tchstart = 1
end
   if tchmax > 1 and g_PlayerGunID == 59 and GetTimer(e) > tchspeed then
      tchmin = tchmin - 1
      tchmax = tchmax - 1
      StartTimer(e)
   end

if tchmin < 1 then
tchmin = 1
end 

if g_PlayerHealth == 0 and g_PlayerGunID == 59 and tchspawn == 0 then
tchspawn = 1
  end
   
if tchspawn == 1 then  
      tchmin = 750
      tchmax = 800
	  tchstart = 0
	  tchspawn = 0
	  killplayer = 0
   end
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Default script - does nothing.

function ignitetorch_init(e)

	local imageFile  = ParticlesLoadImage( "effectbank\\particles\\fire2\\fire1.dds" )
		
	local fire = ParticlesGetFreeEmitter(1)

	ParticlesAddEmitterEx( fire, 0.5, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                   -1,   4,   -1,     1,   5,   1, 
			   -- Scale: startMin startMax endMin endMax	
						  20,     20,     20,    20,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.1,    0,    0,  0.1,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.4, 0.4,    167,   267,
			  -- Alpha: startMin startMax endMin endMax	
						   95,     95,     0,    0,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   60,     1,        24,       imageFile,       16 )

		   
end

function ignitetorch_main(e)

CollisionOff(e)
Hide(e)
SetAnimation(0)
LoopAnimation(e)

local tchX = NewXValue(g_PlayerPosX,g_PlayerAngY+8,8)
local tchY = g_PlayerPosY+28
local tchZ = NewZValue(g_PlayerPosZ,g_PlayerAngY+8,8)

ResetPosition(e,tchX,tchY,tchZ)
ResetRotation(e,-g_PlayerAngX,g_PlayerAngY-180,g_PlayerAngZ)
ParticlesSetAlpha( 1, tchmax/8, tchmax/8, 0, 0 )

if g_PlayerGunID == 59 then
Show(e)
end

end

-- LUA Script - GraPhiX Explosion Script - Thank you to AmenMoses for the scripts he creates without them this would not have been possible.


local U  = require "scriptbank\\utillib"
local P  = require "scriptbank\\physlib"

local min = math.min

local emitterList    = {}
local explosion_name = {}

-- blastRadius set this to the distance you want explosions to be felt default is 300 units
local blastRadius    = 300

local maxDamage      = 150
local maxPlayerPush  = 10
local maxEntityPush  = 200

local nonDebrisName = "exp1" -- reserve exp1 just for non-debris entities such as GG standard barrels. all they should name as exp1
-- and being threated as your original script stated. The debris ones should be threated a bit different since they are animated; we don't want they dessapering suddenly,as example.
-- In fact we don't want them being hidden or destroying, we want they generating debris, and these debris following the physisc and gravity laws while fallen to the ground.
-- Lee: Here user being able to declare explosion type does not have to name all your items such exp1...exp11
ani_end = {}



-- triggerHealth this setting adds to the entity strength.
-- the default setting in entities properties panel is 25 which equates to 1 shot changing to 50 2 shots etc..
local triggerHealth  = 1000

-- Emitter list the emitters control position and scale of each particle the emiiter name 
-- i.e boom1, boom2 is assinged in your image_List.
local namedEmitter = 
{  
   
	boom1 = 
		  { animSpd = 1/2, SR = 0, freq = 64, lifeMin = 2000, lifeMax = 2000,
                     -- minX  minY  minZ  maxX  maxY  maxZ		  
			offset = {    0,    50,    0,    0,   80,    0 },
			speed  = {    0,    0,    0,    0,    0,     0 },
			rotate = {                0,                0 }, -- currently only Z rotate processed
                     -- startMin startMax endMin endMax	
			scale  = {   200,     300,    100,   200 },
			alpha  = {   100,     255,   0,    0}
		  },
	boom2 = 
		  { animSpd = 1/2, SR = 0, freq = 64, lifeMin = 2000, lifeMax = 2000,
                     -- minX  minY  minZ  maxX  maxY  maxZ		  
			offset = {    0,    50,    0,    0,   80,    0 },
			speed  = {    0,    0,    0,    0,    0,     0 },
			rotate = {                0,                0 }, -- currently only Z rotate processed
                     -- startMin startMax endMin endMax	
			scale  = {   300,     400,    100,   300 },
			alpha  = {   100,     200,   0,    0}
		  },
	boom3 = 
		  { animSpd = 1/2, SR = 0, freq = 64, lifeMin = 2000, lifeMax = 2000,
                     -- minX  minY  minZ  maxX  maxY  maxZ		  
			offset = {    0,    90,    0,    0,   90,    0 },
			speed  = {    0,    0,    0,    0,    0,     0 },
			rotate = {                0,                0 }, -- currently only Z rotate processed
                     -- startMin startMax endMin endMax	
			scale  = {   200,     300,    200,   300 },
			alpha  = {   100,     200,   0,    50}
		  },
	boom4 = 
		  { animSpd = 1/2, SR = 0, freq = 64, lifeMin = 2000, lifeMax = 2000,
                     -- minX  minY  minZ  maxX  maxY  maxZ		  
			offset = {    0,   20,    0,    0,   20,    0 },
			speed  = {    0,    0,    0,    0,    0,   0 },
			rotate = {                0,               0 }, -- currently only Z rotate processed
                     -- startMin startMax endMin endMax	
			scale  = {   200,     300,    100,   200 },
			alpha  = {   100,     200,   0,    0}
		  },
	boom5 = 
		  { animSpd = 1/2, SR = 0, freq = 64, lifeMin = 2000, lifeMax = 2000,
                     -- minX  minY  minZ  maxX  maxY  maxZ		  
			offset = {    0,    0,    0,    0,    0,   0 },
			speed  = {    0,    0,    0,    0,    0,   0 },
			rotate = {                0,               0 }, -- currently only Z rotate processed
                     -- startMin startMax endMin endMax	
			scale  = {      0,       0,      0,     0 },
			alpha  = {      0,       0,      0,     0 }
		  }
}

-- image_List this is the list of your decals/particle sheets keep the name the same has your image file name i.e. exp1 = exp1.dds
-- also the full path is required i.e. "effectbank\\explosion\\graphix\\exp1.dds"
-- emitName = the particle parametes set above 
-- imgFrames = the number of frames in your sprite sheets
-- imageNum must be a unique value some are reserved so just use 10 - 20
-- imploder is a boolean value false for a standard explosion if you have designed a implosion sprite sheet set it to true
-- PLEASE NOTE THIS VALUE DOES NOT CONVERT AN EXPLOSION TO AN IMPLOSION USE A SPRITE SHEET FOR THAT
local image_List = 
{   
	exp1 = { path     = "effectbank\\explosion\\graphix\\exp1.dds",
             emitName = 'boom1',
			 imgFrames = 64,
	         imageNum = 10,
			 imploder = false },
	exp2 = { path = "effectbank\\explosion\\graphix\\exp2.dds", 
	         emitName = 'boom3',
			 imgFrames = 64,
	         imageNum = 11,
			 imploder = false },
	exp3 = { path = "effectbank\\explosion\\graphix\\exp3.dds",
             emitName = 'boom1',
			 imgFrames = 64,
	         imageNum = 12,
			 imploder = false },
	exp4 = { path = "effectbank\\explosion\\graphix\\exp4.dds",
             emitName = 'boom1',
			 imgFrames = 64,			 
	         imageNum = 13,
			 imploder = false },
	exp5 = { path     = "effectbank\\explosion\\graphix\\exp5.dds",
             emitName = 'boom1',
			 imgFrames = 64,
	         imageNum = 14,
			 imploder = false },
	exp6 = { path     = "effectbank\\explosion\\graphix\\exp6.dds",
             emitName = 'boom3',
			 imgFrames = 64,
	         imageNum = 15,
			 imploder = false },
	exp7 = { path     = "effectbank\\explosion\\graphix\\exp7.dds",
             emitName = 'boom1',
			 imgFrames = 64,
	         imageNum = 16,
			 imploder = false },
	exp8 = { path     = "effectbank\\explosion\\graphix\\exp8.dds",
             emitName = 'boom1',
			 imgFrames = 64,
	         imageNum = 17,
			 imploder = false },
	exp9 = { path     = "effectbank\\explosion\\graphix\\exp9.dds",
             emitName = 'boom4',
			 imgFrames = 64,
	         imageNum = 18,
			 imploder = false },
	exp10 = { path     = "effectbank\\explosion\\graphix\\exp10.dds",
             emitName = 'boom1',
			 imgFrames = 64,
	         imageNum = 19,
			 imploder = false },
	exp11 = { path     = "effectbank\\explosion\\graphix\\exp11.dds",
             emitName = 'boom4',
			 imgFrames = 64,
	         imageNum = 20,
			 imploder = false },
	exp12 = { path     = "effectbank\\explosion\\graphix\\exp12.dds",
             emitName = 'boom3',
			 imgFrames = 180,
	         imageNum = 21,
			 imploder = false },		 
	imp1 = { path     = "effectbank\\explosion\\graphix\\imp1.dds",
             emitName = 'boom3',
			 imgFrames = 64,
	         imageNum = 21,
			 imploder = true },
	imp2 = { path     = "effectbank\\explosion\\graphix\\imp2.dds",
             emitName = 'boom4',
			 imgFrames = 64,
	         imageNum = 22,
			 imploder = true },
	imp3 = { path     = "effectbank\\explosion\\graphix\\imp3.dds",
             emitName = 'boom4',
			 imgFrames = 64,
	         imageNum = 23,
			 imploder = true },
	imp4 = { path     = "effectbank\\explosion\\graphix\\imp4.dds",
             emitName = 'boom4',
			 imgFrames = 64,
	         imageNum = 24,
			 imploder = true }
}

-- Unless you know what you are doing please do not alter any of the below script.

-- caller must load image. some clever stuff Amenmoses made
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
-- this bit makes a cup of tea
	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
-- this bit makes coffee
		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_explosion2_init_name(e, name)
	Include( "utillib.lua" )
	Include( "physlib.lua" )
		
	explosion_name[e] = string.match(name,"_(%w+)")
	SetEntityHealth( e, g_Entity[e].health + triggerHealth )
	ani_end[e] = 0
end-- init



local rnd = math.random

local function processExplosion( e, ex, ey, ez, imploder )
	
	-- get entity position
	local Ent = g_Entity[e]
	
	-- calculate distance from centre of explosion
	local dx, dy, dz = Ent.x - ex, Ent.y - ey, Ent.z - ez
	local dist = math.sqrt( dx^2 + dz^2 )

	-- calculate modifier based on distance
	local distMod = 1 - ( dist / blastRadius )
	
	-- handle physics push/pull
	local dims = P.GetObjectDimensions( Ent.obj )
	local force = min( maxEntityPush, dims.m * maxEntityPush * 100 * ( 100 / GetEntityWeight( e ) ) ) * distMod
	local vx, vy, vz = dx / dist, dy / dist, dz / dist
	-- suck it in 
	if imploder then 
		vx, vy, vz = -vx, 0, -vz
	end
	
	if ai_bot_state[ e ] == nil and explosion_name[e] == nonDebrisName then
	 -- shove it out the way
		PushObject( Ent.obj, vx * force, vy * force , vz * force, rnd(), rnd(), rnd() )
		--PlayAnimation(e,0)
	end
	
	-- inflict damage on entity
	if explosion_name[e] ~= nil then
	    -- trigger chain reaction with like minded entities
		SetEntityHealth( e, triggerHealth )
		
	if ani_end[e] == 0 then
		PlayAnimation(e,0)
		ani_end[e] = 1
	end	
		
	elseif
	   ai_bot_state[ e ] ~= nil then
		-- remove health from NPCs based on how close to explosion
		local newHealth = Ent.health - math.modf( maxDamage * distMod )
		if newHealth > 0 then
			if HurtEntity ~= nil then
				HurtEntity( e, newHealth, 200, Ent.x - ex, Ent.y - ey, Ent.z - ez, vx * force, vy * force , vz * force )
			else
				SetEntityHealth( e, newHealth )
			end
		else
			if KillEntity ~= nil and explosion_name[e] == nonDebrisName then
				KillEntity( e, 200, vx * force, vy * force , vz * force )
			else
				SetEntityHealth( e, 100 )
			end
		end
	end
	
end




function graphix_explosion2_main(e)
	-- if no sprite sheet do nothing
	if explosion_name[e] == nil then return end
	
-------------------------------------------------------------------------------------------	--------------------------------------------------
	
	--if imageNum == nil then return end
	
--if GetPlayerDistance(e) < 100 then Prompt(Ent.health .. " - " ..triggerHealth) end

-------------------------------------------------------------------------------------------------------------------------------------------------

	local Ent = g_Entity[e]

	if Ent.health > triggerHealth then return end
	-- put all those lovely images to use
	local emitter = emitterList[e]

	if emitter == nil then
		emitterList[e] = { used      = false,
		                   boomImg   = ParticlesLoadImage( image_List[ explosion_name[e] ].path, 
						                                  image_List[ explosion_name[e] ].imageNum ),
                           emitNam   = image_List[ explosion_name[e] ].emitName,
                           imploder  = image_List[ explosion_name[e] ].imploder,
						   imgFrames = image_List[ explosion_name[e] ].imgFrames
						 }
		return
	end
	-- only use an emiiter if need to
	if not emitter.used then 						
		emitter.blowup = PE_CreateNamedEmitter( emitter.emitNam, emitter.boomImg, emitter.imgFrames, e)								
		emitter.used = true
		ParticlesSetLife( emitter.blowup, 10, 2000, 2000, 0 , 0 )
		return
	end
		
	if emitter.timer == nil then
		ParticlesSetLife( emitter.blowup, 10, 2000, 2000, 1, 0 )
		emitter.timer = g_Time + 100
		
		-- 1.5 second delay to allow particle to fire
		StartTimer( e )
		-- play the sound assigned to sound0 in entity properties
		PlaySound( e, 0 )
		-- hide entity while we work out whats around it within range of blast


	---------------------------------------------------------- modify by me	
		if explosion_name[e] == nonDebrisName then -- if GG standar barrels then
			Hide( e ) 
		else
			if ani_end[e] == 0 then
				PlayAnimation(e,0)
				ani_end[e] = 1
			end				
		end
	----------------------------------------------------------------------	
		
	if U.PlayerLookingAt( EntID, dist, ignore ) then	
		for _, v in pairs( U.ClosestEntities( blastRadius, 100, Ent.x, Ent.z) ) do
			if v == EntID then
				processExplosion( v, Ent.x, Ent.y, Ent.z, emitter.imploder )
			end
		end 
	end
		
		
		--for _, v in pairs( U.ClosestEntities( blastRadius, 100, Ent.x, Ent.z) ) do
		--	if v ~= e then
			--	processExplosion( v, Ent.x, Ent.y, Ent.z, emitter.imploder )
			--end
		--end 
		
	elseif 
		-- run emitter effect
	   g_Time > emitter.timer then
		ParticlesSetLife( emitter.blowup, 10, 2000, 2000, 0 , 0 )
		emitter.timer = math.huge
		-- assign damage to player if in range of blast	
		if U.PlayerCloserThanPos( Ent.x, Ent.y, Ent.z, blastRadius ) then
			--AmenMoses funky math stuff i wont pretend to know what it is
			local dx, dz = g_PlayerPosX - Ent.x, g_PlayerPosZ - Ent.z
			local angle = math.deg( math.atan2( dx, dz ) )
			local dist = math.sqrt( dx^2 + dz^2 )
			
			local distMod = 1 - ( dist / blastRadius )

			local damage = maxDamage
			-- if not an explosion limit damage to player		
			if emitter.imploder then 
				angle = WrapAngle( -angle )
				damage = damage / 2
			end
			
			-- push the player away	
			ForcePlayer( angle, maxPlayerPush * distMod )
			-- damage to player based on how close to explosion		
			SetPlayerHealth( g_PlayerHealth - math.modf( damage * distMod ) )
		end
				
	else
		-- delete the emitter then destroy the entity
		if GetTimer( e ) > 1500 and GetAnimationFrame(e) == GetEntityAnimationFinish ( e, 0 ) then -- forcing engine to wait to the last anim frame before exit.
			StopAnimation(e,0)
			CollisionOn(e)
			ParticlesDeleteEmitter( emitter.blowup )
			-- Destroy( e )

--------------------------------------------------------------- mod by me			
		if explosion_name[e] == nonDebrisName then -- if standard ones
			Destroy( e ) 
		else
			if ani_end[e] == 0 then
				PlayAnimation(e,0)
				ani_end[e] = 1
			end		
			--PlayAnimation(e,0)
			CollisionOn(e)			
		end	
---------------------------------------------------------------------------
		
		end
		
		--if GetTimer( e ) > 4500 and GetAnimationFrame(e) == GetEntityAnimationFinish ( e, 0 ) then Destroy( e ) end
		
	end
end

function graphix_explosion2_exit(e)
	CollisionOn(e)
	ani_end[e] = 1
end

function ignitetorch_init(e)
 
    local imageFile  = ParticlesLoadImage( "effectbank\\particles\\fire2\\fire1.dds" )
         
    local fire = ParticlesGetFreeEmitter(1)
 
    ParticlesAddEmitterEx( fire, 0.5, 1, 
               -- Offset: minX  minY  minZ  maxX  maxY  maxZ
                           -1,   4,   -1,     1,   5,   1, 
               -- Scale: startMin startMax endMin endMax    
                          20,     20,     20,    20,
        -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
                           0,      0.1,    0,    0,  0.1,   0,
              -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
                           -0.4, 0.4,    167,   267,
              -- Alpha: startMin startMax endMin endMax 
                           95,     95,     0,    0,
                       -- Freq, entityid, limbindex, particleimage, imageframes
                           60,     1,        24,       imageFile,       16 )
 
            
end
 
function ignitetorch_main(e)
 
CollisionOff(e)
Hide(e)
if g_Entity[e]['animating'] == 0 then 
  SetAnimation(0)
  LoopAnimation(e)
  g_Entity[e]['animating'] = 1
end
 
local tchX = NewXValue(g_PlayerPosX,g_PlayerAngY+8,8)
local tchY = g_PlayerPosY+28
local tchZ = NewZValue(g_PlayerPosZ,g_PlayerAngY+8,8)
 
ResetPosition(e,tchX,tchY,tchZ)
ResetRotation(e,-g_PlayerAngX,g_PlayerAngY-180,g_PlayerAngZ)
ParticlesSetAlpha( 1, tchmax/8, tchmax/8, 0, 0 )
 
if g_PlayerGunID == 59 then
Show(e)
end
 
end

if g_PlayerGunID == 59 and g_PlayerHealth > 1 then
Show(e)
ParticlesSetAlpha( 1, tchmax/8, tchmax/8, 0, 0 )
ParticlesSetAlpha( 2, tchmax/8, tchmax/8, 0, 0 )
   if tchpickup == 0 and g_Entity[e]['animating'] == 0 then
      SetAnimation(0)
      PlayAnimation(e)
	  tchpickup = 1
   end
end

if tchpickup == 1 and g_MouseClick > 0 then   
   SetAnimation(2)
   PlayAnimation(e)
end

if tchpickup == 1 and GetAnimationFrame(e) > 19 and g_Entity[e]['animating'] == 0 then
      SetAnimation(1)
      LoopAnimation(e)
	     if g_KeyPressW == 1 or g_KeyPressA == 1 or g_KeyPressS == 1 or g_KeyPressD == 1 then
            SetAnimation(3)
			else
			SetAnimation(1)
	     end
	  g_Entity[e]['animating'] = 1
end

	--  Handle player flash light control
	if ( g_PlrKeyF == 1 and GetGamePlayerStateFlashlightKeyEnabled() == 1 ) then
		if ( GetGamePlayerStateFlashlightControl() == 0.0 ) then SetGamePlayerStateFlashlightControl(0.9) end
		if ( GetGamePlayerStateFlashlightControl() == 1.0 ) then SetGamePlayerStateFlashlightControl(0.1) end
	else
		if ( GetGamePlayerStateFlashlightControl() >= 0.89 ) then SetGamePlayerStateFlashlightControl(1.0) end
		if ( GetGamePlayerStateFlashlightControl() <= 0.11 ) then SetGamePlayerStateFlashlightControl(0.0) end
	end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function igniteparticles_init(e)

	local torchimages  = ParticlesLoadImage( "effectbank\\particles\\fire2\\fire1.dds" )
		
	local torch = ParticlesGetFreeEmitter(1)

	ParticlesAddEmitterEx( 1, 0.5, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                   -1,   4,   -1,     1,   5,   1, 
			   -- Scale: startMin startMax endMin endMax	
						  20,     20,     20,    20,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.1,    0,    0,  0.1,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.4, 0.4,    167,   267,
			  -- Alpha: startMin startMax endMin endMax	
						   95,     95,     0,    0,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   90,     9,        25,       torchimages,       16 )
						   
	local torchimages2  = ParticlesLoadImage( "effectbank\\particles\\fire2\\fire2.dds" )
		
	local torch2 = ParticlesGetFreeEmitter(2)

	ParticlesAddEmitterEx( 2, 0.3, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                    -1,   3,   -1,     1,   5,   1,  
			   -- Scale: startMin startMax endMin endMax	
						  20,     20,     20,    20,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.1,    0,    0,  0.1,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.4, 0.4,    167,   267,
			  -- Alpha: startMin startMax endMin endMax	
						   95,     95,     0,    0,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   120,     9,        25,       torchimages2,       16 )
						   
	local lanternimages  = ParticlesLoadImage( "effectbank\\particles\\fire2\\lant.dds" )
		
	local lantern = ParticlesGetFreeEmitter(4)

	ParticlesAddEmitterEx( 4, 1, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                   -0.1, -0.2,  -0.1,  0.1, -0.2,  0.1, 
			   -- Scale: startMin startMax endMin endMax	
						  5,     5,     0,    0,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.15,    0,    0,  0.15,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.4, 0.4,    80,   80,
			  -- Alpha: startMin startMax endMin endMax	
						   100,     100,     0,    0,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   20,     12,        57,       lanternimages,       16 )
						   
	local lanternimages2  = ParticlesLoadImage( "effectbank\\particles\\fire2\\lant.dds" )
		
	local lantern2 = ParticlesGetFreeEmitter(5)

	ParticlesAddEmitterEx( 5, 1, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                   -0.1, -0.2,  -0.1,  0.1, -0.2,  0.1, 
			   -- Scale: startMin startMax endMin endMax	
						  5,     5,     0,    0,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.15,    0,    0,  0.15,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.4, 0.4,    90,   100,
			  -- Alpha: startMin startMax endMin endMax	
						   100,     100,     0,    0,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   42,     12,        57,       lanternimages2,       16 )
						   
			   
end

function igniteparticles_main(e)

if g_PlayerGunID ~= 64 then
ParticlesSetAlpha( 1, 0, 0, 0, 0 )
ParticlesSetAlpha( 2, 0, 0, 0, 0 )
end

if g_PlayerGunID ~= 49 then
ParticlesSetAlpha( 4, 0, 0, 0, 0 )
ParticlesSetAlpha( 5, 0, 0, 0, 0 )
end

if g_PlayerGunID == 64 and g_PlayerHealth > 1 then      -- torch
ParticlesSetAlpha( 1, tchmax/8, tchmax/8, 0, 0 )
ParticlesSetAlpha( 2, tchmax/8, tchmax/8, 0, 0 )
end

if g_PlayerGunID == 49 and g_PlayerHealth > 1 then      -- lantern
ParticlesSetAlpha( 4, 100, 100, 0, 0 )
ParticlesSetScale( 4, ltnmax/55, ltnmax/55, 0, 0 )
ParticlesSetAlpha( 5, 100, 100, 0, 0 )
ParticlesSetScale( 5, ltnmax/55, ltnmax/55, 0, 0 )
end
  
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function ignitetorch_init(e)

	local torchimages  = ParticlesLoadImage( "effectbank\\particles\\fire2\\fire1.dds" )
		
	local torch = ParticlesGetFreeEmitter(1)

	ParticlesAddEmitterEx( 1, 0.5, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                   -1,   4,   -1,     1,   5,   1, 
			   -- Scale: startMin startMax endMin endMax	
						  20,     20,     20,    20,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.1,    0,    0,  0.1,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.4, 0.4,    167,   267,
			  -- Alpha: startMin startMax endMin endMax	
						   95,     95,     0,    0,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   90,     e,        25,       torchimages,       16 )
						   
	local torchimages2  = ParticlesLoadImage( "effectbank\\particles\\fire2\\fire2.dds" )
		
	local torch2 = ParticlesGetFreeEmitter(2)

	ParticlesAddEmitterEx( 2, 0.3, 1, 
	           -- Offset: minX  minY  minZ  maxX  maxY  maxZ
		                    -1,   3,   -1,     1,   5,   1,  
			   -- Scale: startMin startMax endMin endMax	
						  20,     20,     20,    20,
	    -- Speed (vector): minX    minY   minZ  maxX  maxY  maxZ
						   0,      0.1,    0,    0,  0.1,   0,
			  -- Rotate Z: minZ  maxZ, Lifemin Lifemax 
						   -0.4, 0.4,    167,   267,
			  -- Alpha: startMin startMax endMin endMax	
						   95,     95,     0,    0,
					   -- Freq, entityid, limbindex, particleimage, imageframes
						   120,     e,        25,       torchimages2,       16 )
tchpickup = 0
clickcounter = 0	
				   
end

function ignitetorch_main(e)



CollisionOff(e)
Hide(e)

if g_KeyPressC == 1 then
    crouch = 12
  else
    crouch = 28
  end

local tchX = NewXValue(g_PlayerPosX,g_PlayerAngY+3,3)
local tchY = g_PlayerPosY+crouch
local tchZ = NewZValue(g_PlayerPosZ,g_PlayerAngY+3,3)

ResetPosition(e,tchX,tchY,tchZ)
ResetRotation(e,-g_PlayerAngX,g_PlayerAngY-180,g_PlayerAngZ)

if g_PlayerGunID ~= 64 then
ParticlesSetAlpha( 1, 0, 0, 0, 0 )
ParticlesSetAlpha( 2, 0, 0, 0, 0 )
tchpickup = 0
end

if g_PlayerGunID == 64 and g_PlayerHealth > 1 then
Show(e)
ParticlesSetAlpha( 1, tchmax/8, tchmax/8, 0, 0 )
ParticlesSetAlpha( 2, tchmax/8, tchmax/8, 0, 0 )
   if tchpickup == 0 and g_Entity[e]['animating'] == 0 then
      SetAnimation(0)
      PlayAnimation(e)
	  tchpickup = 1
   end
end

if tchpickup == 1 and g_MouseClick > 0 and clickcounter == 0 then  
   clickcounter = 1 
   SetAnimation(2)
   PlayAnimation(e)
   StartTimer(e)
end

if clickcounter == 1 and GetTimer(e) > 1000 then
   clickcounter = 0
end

if tchpickup == 1 and GetAnimationFrame(e) > 2 and g_Entity[e]['animating'] == 0 then
      SetAnimation(1)
      LoopAnimation(e)
	     if g_KeyPressW == 1 or g_KeyPressA == 1 or g_KeyPressS == 1 or g_KeyPressD == 1 then
            SetAnimation(3)
			else
			SetAnimation(1)
	     end
	  g_Entity[e]['animating'] = 1
end

if tchpickup == 1 and GetGamePlayerControlUnderwater() == 1 then
Show(e)
tchspeed = 1 
end
   end 

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
local U = require "scriptbank\\utillib"
local names = {}
local lookingAt = nil
local nextCheck = 250

function parchment_init_name( e, name )

names[e] = name

parchment_img = LoadImage("gamecore\\sprites\\ignite\\parchment.png")
parchment_spr = CreateSprite(parchment_img)
SetSpriteSize(parchment_spr,40,-1)
SetSpriteOffset(parchment_spr,20,-1)
SetSpritePosition(parchment_spr,200,200)
SetSpriteColor(parchment_spr,255,255,255,255)
SetSpriteDepth (parchment_spr,100)

showtext = 0

end

function parchment_main(e)

if U.PlayerLookingNear( e, 50, 20 ) and GetEntityVisibility( e ) == 1 and
		   ( lookingAt == nil or lookingAt == e ) then
			PromptLocal( e, "Press E to read")
			lookingAt = e
			if g_KeyPressE == 1 then
			    StartTimer(e)
				PromptLocal( e, "" )
				Hide(e)
				showtext = 1
				LookingAt = nil
			end
			
		elseif lookingAt == e then
			lookingAt = nil
			PromptLocal( e, "" )
		end
	
if showtext == 1 then
PasteSpritePosition (parchment_spr,50,50)
TextColor(37,17,1,"ATTENTION:",0,0,0)
TextColor(37,27,1,"The duty officer reported that one of the",0,0,0)
TextColor(37,32,1,"spare sets of keys for the cell block doors",0,0,0)
TextColor(37,37,1,"has gone missing. Despite turning over the",0,0,0)
TextColor(37,42,1,"prisoner's cells at dawn, we found nothing",0,0,0)
TextColor(37,47,1,"but we are denying them food until one of them",0,0,0)
TextColor(37,52,1,"talks. One of them must know something.",0,0,0)
TextColor(37,62,1,"An escape, however, remains unlikely as I have",0,0,0)
TextColor(37,67,1,"the cell keys safely in my possession. They",0,0,0)
TextColor(37,72,1,"can be found in my trunk.",0,0,0)
TextColor(37,82,1,"Cmd. Roag",0,0,0)
end
	
if GetEntityVisibility( e ) == 0 and GetTimer(e) > nextCheck then
     Prompt ("Press E to put down")
  if g_KeyPressE == 1 and showtext == 1 or GetPlayerDistance(e) > 100 then
     SetSpritePosition(parchment_spr,200,200)
	 Show(e)
	 StartTimer(e)
	 showtext = 2
  end	
end

  if showtext == 2 and GetTimer(e) > 1000 then
     StartTimer(e)
	 showtext = 0 
  end
end

if showtext == 1 then
PasteSpritePosition (parchment_spr,50,50)
if names[e] == "duty officer" then
TextColor(37,17,1,"ATTENTION:",0,0,0)
TextColor(37,27,1,"The duty officer reported that one of the",0,0,0)
TextColor(37,32,1,"spare sets of keys for the cell block doors",0,0,0)
TextColor(37,37,1,"has gone missing. Despite turning over the",0,0,0)
TextColor(37,42,1,"prisoner's cells at dawn, we found nothing",0,0,0)
TextColor(37,47,1,"but we are denying them food until one of them",0,0,0)
TextColor(37,52,1,"talks. One of them must know something.",0,0,0)
TextColor(37,62,1,"An escape, however, remains unlikely as I have",0,0,0)
TextColor(37,67,1,"the cell keys safely in my possession. They",0,0,0)
TextColor(37,72,1,"can be found in my trunk.",0,0,0)
TextColor(37,82,1,"Cmd. Roag",0,0,0)
elseif names[e] == "2nd note" then
TextColor(37,50,1,"2nd note text",0,0,0)
elseif names[e] == "3rd note" then
--etc
end
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
local U = require "scriptbank\\utillib"
local names = {}
local lookingAt = nil
local nextCheck = 250
local showtext = {}
parchment_img = LoadImage("gamecore\\sprites\\ignite\\parchment.png")
parchment_spr = CreateSprite(parchment_img)
SetSpriteSize(parchment_spr,40,-1)
SetSpriteOffset(parchment_spr,20,-1)
SetSpritePosition(parchment_spr,200,200)
SetSpriteColor(parchment_spr,255,255,255,255)
SetSpriteDepth (parchment_spr,100)
function parchment_init_name( e, name )
 
names[e] = name
 
showtext[e] = 0
 
end
 
function parchment_main(e)
 
if U.PlayerLookingNear( e, 50, 20 ) and GetEntityVisibility( e ) == 1 and
           ( lookingAt == nil or lookingAt == e ) then
            PromptLocal( e, "Press E to read")
            lookingAt = e
            if g_KeyPressE == 1 then
                StartTimer(e)
                PromptLocal( e, "" )
                Hide(e)
                showtext[e] = 1
                LookingAt = nil
            end
             
        elseif lookingAt == e then
            lookingAt = nil
            PromptLocal( e, "" )
        end
     
if showtext[e] == 1 then
PasteSpritePosition (parchment_spr,50,50)
TextColor(37,17,1,"ATTENTION:",0,0,0)
TextColor(37,27,1,"The duty officer reported that one of the",0,0,0)
TextColor(37,32,1,"spare sets of keys for the cell block doors",0,0,0)
TextColor(37,37,1,"has gone missing. Despite turning over the",0,0,0)
TextColor(37,42,1,"prisoner's cells at dawn, we found nothing",0,0,0)
TextColor(37,47,1,"but we are denying them food until one of them",0,0,0)
TextColor(37,52,1,"talks. One of them must know something.",0,0,0)
TextColor(37,62,1,"An escape, however, remains unlikely as I have",0,0,0)
TextColor(37,67,1,"the cell keys safely in my possession. They",0,0,0)
TextColor(37,72,1,"can be found in my trunk.",0,0,0)
TextColor(37,82,1,"Cmd. Roag",0,0,0)
end
     
if GetEntityVisibility( e ) == 0 and GetTimer(e) > nextCheck then
     Prompt ("Press E to put down")
  if g_KeyPressE == 1 and showtext[e] == 1 or GetPlayerDistance(e) > 100 then
     SetSpritePosition(parchment_spr,200,200)
     Show(e)
     StartTimer(e)
     showtext[e] = 2
  end  
end
 
  if showtext[e] == 2 and GetTimer(e) > 1000 then
     StartTimer(e)
     showtext[e] = 0 
  end
end