wnsrc/lua/entities/simfphys_tankprojectile/init.lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]

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

local ImpactSounds = {
	"physics/metal/metal_sheet_impact_bullet1.wav",
	"weapons/rpg/shotdown.wav",
}

local DeflectSounds = {
	"simulated_vehicles/weapons/physproj_rico.wav",
	"simulated_vehicles/weapons/physproj_rico1.wav",
	"simulated_vehicles/weapons/physproj_rico2.wav",
	"simulated_vehicles/weapons/physproj_rico3.wav",
}

function ENT:SpawnFunction( ply, tr, ClassName )

	if ( !tr.Hit ) then return end

	local size = math.random( 16, 48 )

	local ent = ents.Create( ClassName )
	ent:SetPos( tr.HitPos + tr.HitNormal * size )
	ent:Spawn()
	ent:Activate()

	return ent

end

function ENT:Initialize()	
	self:SetModel( "models/weapons/w_missile_launch.mdl" )
	self:PhysicsInit( SOLID_VPHYSICS )
	self:SetMoveType( MOVETYPE_VPHYSICS )
	self:SetSolid( SOLID_NONE )
	self:SetRenderMode( RENDERMODE_TRANSALPHA )
	
	local pObj = self:GetPhysicsObject()
	
	if IsValid( pObj ) then
		pObj:EnableMotion( false )  
	end
	
	self.SpawnTime = CurTime()
	self.Vel = self:GetForward() * 200
end

function ENT:Think()	
	local curtime = CurTime()
	self:NextThink( curtime )
	
	local Size = self:GetSize() * 0.5
	local FixTick = FrameTime() * 66.666
	
	local trace = util.TraceHull( {
		start = self:GetPos(),
		endpos = self:GetPos() + self.Vel * FixTick,
		maxs = Size,
		mins = -Size,
		filter = function( ent )
			if ent ~= self and ent:GetClass() ~= "gmod_sent_vehicle_fphysics_wheel" and not table.HasValue( self.Filter, ent ) then return true end
		end
	} )
	
	if trace.Hit then
		self:SetPos( trace.HitPos )
		
		local shootDirection = self:GetForward()
		
		local hitangle = math.deg( math.acos( math.Clamp( trace.HitNormal:Dot(shootDirection) ,-1,1) ) ) - 90
		
		self.DeflectAng = self.DeflectAng or 25
		
		if hitangle < self.DeflectAng and not self.Bounced and (trace.Entity:GetClass() == "prop_physics" or trace.Entity.LVS) then
			
			local thVel = self.Vel:Length()
			
			local Ax = math.deg( math.acos( math.Clamp( trace.HitNormal:Dot(shootDirection) ,-1,1) ) )
			local Fx = math.cos( math.rad( Ax ) ) * thVel
			
			self.Vel = (shootDirection * thVel - trace.HitNormal * Fx * 2) * math.max((1 - hitangle / 45) * 0.5,0.2)
			
			trace.Entity:GetPhysicsObject():ApplyForceOffset( shootDirection * thVel * self.Force * 0.5, trace.HitPos ) 
			
			table.insert( self.Filter, trace.Entity )
			
			self:SetPos( self:GetPos() + self.Vel * FixTick )
			
			self.Vel = self.Vel - Vector(0,0,0.15) * FixTick
			
			local effectdata = EffectData()
				effectdata:SetOrigin( trace.HitPos )
				effectdata:SetNormal( self.Vel:GetNormalized() * 10 )
			util.Effect( "simfphys_tracer_hit", effectdata, true, true )
			
			if Size >= 5 then
				sound.Play( Sound( DeflectSounds[ math.random(1,table.Count( DeflectSounds )) ] ), trace.HitPos, 140)
			else
				sound.Play( Sound( "simulated_vehicles/weapons/physproj_rico"..math.random(1,3)..".wav" ), trace.HitPos, 140)
			end
			
			self.Bounced = true -- only bounce once
		else
			local bullet = {}
				bullet.Num 			= 1
				bullet.Src 			= self:GetPos() - shootDirection * 10
				bullet.Dir 			= shootDirection
				bullet.Spread 		= Vector(0,0,0)
				bullet.Tracer		= 0
				bullet.TracerName	= "simfphys_tracer"
				bullet.Force		= self.Force
				bullet.Damage		= self.Damage
				bullet.HullSize		= self:GetSize()
				bullet.Attacker 	= self.Attacker
				bullet.Callback = function(att, tr, dmginfo)
					if tr.Entity:GetClass():lower() == "npc_helicopter" then
						dmginfo:SetDamageType(DMG_AIRBOAT)
					else
						dmginfo:SetDamageType(DMG_DIRECT)
					end

					local attackingEnt = IsValid( self.AttackingEnt ) and self.AttackingEnt or self
					local attacker = IsValid( self.Attacker ) and self.Attacker or self

					util.BlastDamage( attackingEnt, attacker, tr.HitPos,self.BlastRadius,self.BlastDamage)

					util.Decal("scorch", tr.HitPos - tr.HitNormal, tr.HitPos + tr.HitNormal)

					if tr.Entity ~= Entity(0) then
						if simfphys.IsCar( tr.Entity ) then
							local effectdata = EffectData()
								effectdata:SetOrigin( tr.HitPos )
								effectdata:SetNormal( tr.HitNormal )
							util.Effect( "manhacksparks", effectdata, true, true )
							
							sound.Play( Sound( ImpactSounds[ math.random(1,table.Count( ImpactSounds )) ] ), tr.HitPos, 140)
						end
					end
				end
				
			self:FireBullets( bullet )
		
			self:Remove()
		end
	else
		self:SetPos( self:GetPos() + self.Vel * FixTick )
		
		local Rate = FrameTime() * 30
		
		self.smVal = self.smVal and self.smVal + math.Clamp(15 - self.smVal,-Rate,Rate)  or 0
		
		self.Vel = self.Vel - Vector(0,0,self.smVal / 100) * FixTick
	end
	
	if (self.SpawnTime + 12) < curtime then
		self:Remove()
	end
	
	return true
end

function ENT:PhysicsCollide( data )
end

function ENT:OnTakeDamage( dmginfo )
	return
end

function ENT:Use( activator, caller )
end

function ENT:OnRemove()
	local effectdata = EffectData()
		effectdata:SetOrigin( self:GetPos() )
	util.Effect( self:GetBlastEffect(), effectdata )
end