add sborka
This commit is contained in:
370
garrysmod/addons/lvs_base/lua/entities/lvs_firestreamemitter.lua
Normal file
370
garrysmod/addons/lvs_base/lua/entities/lvs_firestreamemitter.lua
Normal file
@@ -0,0 +1,370 @@
|
||||
AddCSLuaFile()
|
||||
|
||||
ENT.Type = "anim"
|
||||
|
||||
ENT.PrintName = "Flamethrower"
|
||||
ENT.Author = "Luna"
|
||||
ENT.Information = "Luna's Vehicle Script"
|
||||
ENT.Category = "[LVS]"
|
||||
|
||||
ENT.Spawnable = false
|
||||
ENT.AdminSpawnable = false
|
||||
|
||||
function ENT:SetupDataTables()
|
||||
self:NetworkVar( "Float", 0, "FlameVelocity" )
|
||||
self:NetworkVar( "Float", 1, "FlameLifeTime" )
|
||||
self:NetworkVar( "Float", 2, "FlameSize" )
|
||||
|
||||
self:NetworkVar( "Bool", 0, "Active" )
|
||||
self:NetworkVar( "Float", 3, "ActiveTime" )
|
||||
|
||||
self:NetworkVar( "String", 0, "TargetAttachment" )
|
||||
self:NetworkVar( "Entity", 0, "Target" )
|
||||
|
||||
if SERVER then
|
||||
self:SetFlameLifeTime( 1.5 )
|
||||
self:SetFlameVelocity( 1000 )
|
||||
self:SetFlameSize( 80 )
|
||||
end
|
||||
end
|
||||
|
||||
function ENT:GetTargetVelocity()
|
||||
local Target = self:GetTarget()
|
||||
|
||||
if not IsValid( Target ) then return vector_origin end
|
||||
|
||||
return Target:GetVelocity()
|
||||
end
|
||||
|
||||
function ENT:GetPosition()
|
||||
local Pos = self:GetPos()
|
||||
local Dir = self:GetForward()
|
||||
|
||||
local Target = self:GetTarget()
|
||||
local Attachment = self:GetTargetAttachment()
|
||||
|
||||
if IsValid( Target ) and Attachment ~= "" then
|
||||
local ID = Target:LookupAttachment( Attachment )
|
||||
local Muzzle = Target:GetAttachment( ID )
|
||||
Pos = Muzzle.Pos
|
||||
Dir = Muzzle.Ang:Forward()
|
||||
end
|
||||
|
||||
return Pos, Dir
|
||||
end
|
||||
|
||||
local Grav = Vector(0,0,-600)
|
||||
local Res = 0.05
|
||||
function ENT:FindTargets()
|
||||
local Pos, Dir = self:GetPosition()
|
||||
|
||||
local FlameSize = self:GetFlameSize() * 2
|
||||
local FlameVel = self:GetFlameVelocity()
|
||||
local FlameLifeTime = self:GetFlameLifeTime()
|
||||
|
||||
local Vel = Dir * FlameVel
|
||||
|
||||
local trace
|
||||
local Dist = 0
|
||||
local MaxDist = FlameVel * FlameLifeTime
|
||||
|
||||
local targets = {}
|
||||
|
||||
while Dist < (MaxDist * math.min( (CurTime() - self:GetActiveTime()) / FlameLifeTime, 1 )) do
|
||||
Vel = Vel + Grav * Res
|
||||
|
||||
local StartPos = Pos
|
||||
local EndPos = Pos + Vel * Res
|
||||
|
||||
Dist = Dist + (StartPos - EndPos):Length()
|
||||
|
||||
local FlameRadius = FlameSize * (Dist / MaxDist)
|
||||
local FlameHull = Vector( FlameRadius, FlameRadius, FlameRadius )
|
||||
|
||||
local traceData = {
|
||||
start = StartPos,
|
||||
endpos = EndPos,
|
||||
mins = -FlameHull,
|
||||
maxs = FlameHull,
|
||||
filter = self,
|
||||
}
|
||||
trace = util.TraceLine( traceData )
|
||||
|
||||
--debugoverlay.Sphere( (StartPos + EndPos) * 0.5, FlameRadius, 0.05)
|
||||
|
||||
Pos = EndPos
|
||||
|
||||
local traceFilter = { self }
|
||||
|
||||
for i = 1, 10 do
|
||||
traceData.filter = traceFilter
|
||||
|
||||
local hullTrace = util.TraceHull( traceData )
|
||||
|
||||
if not hullTrace.Hit or not IsValid( hullTrace.Entity ) then break end
|
||||
|
||||
table.insert( traceFilter, hullTrace.Entity )
|
||||
|
||||
targets[ hullTrace.Entity:EntIndex() ] = hullTrace.HitPos
|
||||
end
|
||||
|
||||
if trace.Hit then
|
||||
if IsValid( trace.Entity ) then
|
||||
targets[ trace.Entity:EntIndex() ] = trace.HitPos
|
||||
end
|
||||
|
||||
for _, ent in ipairs( ents.FindInSphere( trace.HitPos, FlameSize ) ) do
|
||||
targets[ ent:EntIndex() ] = ent:GetPos()
|
||||
end
|
||||
|
||||
break
|
||||
end
|
||||
end
|
||||
|
||||
self.TraceResult = trace
|
||||
|
||||
return targets
|
||||
end
|
||||
|
||||
if SERVER then
|
||||
ENT.FlameStartSound = "lvs/weapons/flame_start.wav"
|
||||
ENT.FlameStopSound = "lvs/weapons/flame_end.wav"
|
||||
ENT.FlameLoopSound = "lvs/weapons/flame_loop.wav"
|
||||
|
||||
function ENT:SetFlameStartSound( snd )
|
||||
if not isstring( snd ) then snd = "common/null.wav" end
|
||||
|
||||
self.FlameStartSound = snd
|
||||
end
|
||||
|
||||
function ENT:SetFlameStopSound( snd )
|
||||
if not isstring( snd ) then snd = "common/null.wav" end
|
||||
|
||||
self.FlameStopSound = snd
|
||||
end
|
||||
|
||||
function ENT:SetFlameLoopSound( snd )
|
||||
if not isstring( snd ) then snd = "common/null.wav" end
|
||||
|
||||
self.FlameLoopSound = snd
|
||||
end
|
||||
|
||||
function ENT:SetDamage( num ) self._dmg = num end
|
||||
function ENT:SetAttacker( ent ) self._attacker = ent end
|
||||
|
||||
function ENT:GetAttacker() return self._attacker or NULL end
|
||||
function ENT:GetDamage() return (self._dmg or 75) end
|
||||
|
||||
function ENT:SetEntityFilter( filter )
|
||||
if not istable( filter ) then return end
|
||||
|
||||
self._FilterEnts = {}
|
||||
|
||||
for _, ent in pairs( filter ) do
|
||||
self._FilterEnts[ ent ] = true
|
||||
end
|
||||
end
|
||||
function ENT:GetEntityFilter()
|
||||
return self._FilterEnts or {}
|
||||
end
|
||||
|
||||
function ENT:SetActiveDelay( num )
|
||||
self._activationdelay = num
|
||||
end
|
||||
function ENT:GetActiveDelay()
|
||||
return (self._activationdelay or 0.5)
|
||||
end
|
||||
|
||||
function ENT:AttachTo( target, attachment )
|
||||
if not IsValid( target ) or IsValid( self:GetTarget() ) then return end
|
||||
|
||||
self:SetPos( target:GetPos() )
|
||||
self:SetAngles( target:GetAngles() )
|
||||
self:SetParent( target )
|
||||
self:SetTarget( target )
|
||||
self:SetTargetAttachment( attachment or "" )
|
||||
|
||||
if not target.GetCrosshairFilterEnts then return end
|
||||
|
||||
timer.Simple(1, function()
|
||||
if not IsValid( self ) or not IsValid( target ) then return end
|
||||
|
||||
self:SetEntityFilter( target:GetCrosshairFilterEnts() )
|
||||
end)
|
||||
end
|
||||
|
||||
function ENT:Enable()
|
||||
if self:GetActive() then return end
|
||||
|
||||
self:SetActive( true )
|
||||
self:HandleActive()
|
||||
|
||||
local effectdata = EffectData()
|
||||
effectdata:SetOrigin( self:LocalToWorld( self:OBBCenter() ) )
|
||||
effectdata:SetEntity( self )
|
||||
effectdata:SetMagnitude( self:GetActiveDelay() )
|
||||
util.Effect( "lvs_flamestream_start", effectdata )
|
||||
|
||||
self:EmitSound( self.FlameStartSound )
|
||||
end
|
||||
|
||||
function ENT:Disable()
|
||||
if not self:GetActive() then return end
|
||||
|
||||
self:SetActive( false )
|
||||
self:HandleActive()
|
||||
|
||||
local effectdata = EffectData()
|
||||
effectdata:SetOrigin( self:LocalToWorld( self:OBBCenter() ) )
|
||||
effectdata:SetEntity( self )
|
||||
effectdata:SetMagnitude( self:GetActiveDelay() )
|
||||
util.Effect( "lvs_flamestream_finish", effectdata )
|
||||
|
||||
self:EmitSound( self.FlameStopSound )
|
||||
|
||||
if not self._snd then return end
|
||||
|
||||
self:StopLoopingSound( self._snd )
|
||||
end
|
||||
|
||||
function ENT:Initialize()
|
||||
self:SetMoveType( MOVETYPE_NONE )
|
||||
self:SetSolid( SOLID_NONE )
|
||||
self:DrawShadow( false )
|
||||
end
|
||||
|
||||
function ENT:HandleActive()
|
||||
local T = CurTime()
|
||||
local Delay = self:GetActiveDelay()
|
||||
|
||||
if not self:GetActive() then
|
||||
if self._IsActive then
|
||||
self._IsActive = nil
|
||||
self._IsFlameActive = nil
|
||||
end
|
||||
|
||||
self:NextThink( T + Delay )
|
||||
|
||||
return
|
||||
end
|
||||
|
||||
if not self._IsActive then
|
||||
self._IsActive = true
|
||||
|
||||
if self._LastFlameActive and self._LastFlameActive > (T - Delay) then
|
||||
self:NextThink( T )
|
||||
else
|
||||
self:NextThink( T + Delay )
|
||||
end
|
||||
|
||||
return
|
||||
end
|
||||
|
||||
self._LastFlameActive = T
|
||||
|
||||
if not self._IsFlameActive then
|
||||
self._IsFlameActive = true
|
||||
self:SetActiveTime( CurTime() )
|
||||
|
||||
local effectdata = EffectData()
|
||||
effectdata:SetOrigin( self:LocalToWorld( self:OBBCenter() ) )
|
||||
effectdata:SetEntity( self )
|
||||
effectdata:SetMagnitude( Delay )
|
||||
util.Effect( "lvs_flamestream_start", effectdata )
|
||||
|
||||
local effectdata = EffectData()
|
||||
effectdata:SetOrigin( self:LocalToWorld( self:OBBCenter() ) )
|
||||
effectdata:SetEntity( self )
|
||||
util.Effect( "lvs_flamestream", effectdata )
|
||||
|
||||
self._snd = self:StartLoopingSound( self.FlameLoopSound )
|
||||
end
|
||||
|
||||
self:NextThink( T )
|
||||
end
|
||||
|
||||
function ENT:SendDamage( victim, pos, damage )
|
||||
if not IsValid( victim ) then return end
|
||||
|
||||
if victim:GetClass() == "prop_vehicle_prisoner_pod" then return end
|
||||
|
||||
if victim:IsPlayer() and victim:InVehicle() and victim:GetCollisionGroup() ~= COLLISION_GROUP_PLAYER then return end
|
||||
|
||||
local attacker = self:GetAttacker()
|
||||
if not damage then damage = self:GetDamage() * FrameTime() end
|
||||
|
||||
local dmg = DamageInfo()
|
||||
dmg:SetDamage( damage )
|
||||
dmg:SetAttacker( IsValid( attacker ) and attacker or game.GetWorld() )
|
||||
dmg:SetInflictor( self:GetTarget() )
|
||||
dmg:SetDamageType( DMG_BURN + DMG_PREVENT_PHYSICS_FORCE )
|
||||
dmg:SetDamagePosition( pos or vector_origin )
|
||||
victim:TakeDamageInfo( dmg )
|
||||
end
|
||||
|
||||
function ENT:HandleDamage()
|
||||
local T = CurTime()
|
||||
local filter = self:GetEntityFilter()
|
||||
|
||||
for entid, pos in pairs( self:FindTargets() ) do
|
||||
local ent = Entity( entid )
|
||||
|
||||
if not IsValid( ent ) or filter[ ent ] then continue end
|
||||
|
||||
self:SendDamage( ent, pos )
|
||||
end
|
||||
|
||||
local trace = self.TraceResult
|
||||
|
||||
if not trace or not trace.Hit then return end
|
||||
|
||||
local LastPos = self._LastHitPos or vector_origin
|
||||
local LastTime = self._LastHitTime or 0
|
||||
|
||||
local Dist = (LastPos - trace.HitPos):Length()
|
||||
|
||||
if Dist > self:GetFlameSize() * 0.4 then
|
||||
self._LastHitPos = trace.HitPos
|
||||
self._LastHitTime = T
|
||||
self._HasSpawnedFire = nil
|
||||
else
|
||||
if (self._LastHitTime + 0.1) < T and not self._HasSpawnedFire then
|
||||
self._HasSpawnedFire = true
|
||||
|
||||
local IsProp = trace.Entity:GetMoveType() == MOVETYPE_VPHYSICS
|
||||
|
||||
if not trace.HitWorld and not IsProp then return end
|
||||
|
||||
local fire = ents.Create("lvs_fire")
|
||||
fire:SetPos( trace.HitPos )
|
||||
fire:SetAngles( trace.HitNormal:Angle() + Angle(90,0,0) )
|
||||
fire:SetEmitter( self )
|
||||
fire:SetAttacker( self:GetAttacker() )
|
||||
if IsProp then
|
||||
fire:SetParent( trace.Entity )
|
||||
end
|
||||
fire:Spawn()
|
||||
fire:Activate()
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function ENT:Think()
|
||||
|
||||
self:HandleActive()
|
||||
|
||||
if self:GetActive() then
|
||||
self:HandleDamage()
|
||||
end
|
||||
|
||||
return true
|
||||
end
|
||||
|
||||
return
|
||||
end
|
||||
|
||||
function ENT:Draw( flags )
|
||||
end
|
||||
|
||||
function ENT:Think()
|
||||
end
|
||||
Reference in New Issue
Block a user