wiremod-svn-archive/wire/lua/entities/gmod_wire_igniter/init.lua

AddCSLuaFile( "cl_init.lua" )
AddCSLuaFile( "shared.lua" )

include('shared.lua')

ENT.WireDebugName = "Igniter"

function ENT:Initialize()
	self.Entity:PhysicsInit( SOLID_VPHYSICS )
	self.Entity:SetMoveType( MOVETYPE_VPHYSICS )
	self.Entity:SetSolid( SOLID_VPHYSICS )
	self.Inputs = Wire_CreateInputs(self.Entity, { "A", "Length" })
	self.IgniteLength = 10
	self.TargetPlayers = false
	self:SetBeamLength(2048)
	self:ShowOutput()
end

function ENT:OnRemove()
	Wire_Remove(self.Entity)
end

function ENT:Setup(trgply,Range)
    self.TargetPlayers = trgply
    self:SetBeamLength(Range)
end

function ENT:TriggerInput(iname, value)
	if (iname == "A") then
		if (value ~= 0) then
			 local vStart = self.Entity:GetPos()
			 local vForward = self.Entity:GetUp()
			 
			 local trace = {}
				 trace.start = vStart
				 trace.endpos = vStart + (vForward * self:GetBeamLength())
				 trace.filter = { self.Entity }
			 local trace = util.TraceLine( trace ) 
			
			local svarTargetPlayers = false
			if(GetConVarNumber('sbox_wire_igniters_allowtrgply') > 0)then
			 svarTargetPlayers = true
			else
			 svarTargetPlayers = false
			end
			
			Msg("TargetPlayersSvar:")
			Msg(svarTargetPlayers)
			Msg("\n")
			
			Msg("TargetPlayersIgniterVar:")
			Msg(self.TargetPlayers)
			Msg("\n")
			
			if (!trace.Entity) then return false end
            if (!trace.Entity:IsValid() ) then return false end
            if (trace.Entity:IsPlayer() && (!self.TargetPlayers || !svarTargetPlayers)) then return false end
            if (trace.Entity:IsWorld()) then return false end
            if ( CLIENT ) then return true end
            trace.Entity:Extinguish()
            trace.Entity:Ignite( self.IgniteLength, 0 )
            Msg("Ignite\n")
		end
	else
	   if(iname == "Length") then
	       self.IgniteLength = math.min(value,GetConVarNumber("sbox_wire_igniters_maxlen"))
	       Msg("IgniteLen"..self.IgniteLength.."\n")
	   end
	end
end

function ENT:ShowOutput()
	self:SetOverlayText( "Ingiter" )
end

function ENT:OnRestore()
    Wire_Restored(self.Entity)
end