Upload

lua/entities/tfa_exp_base/cl_init.lua

@@ -0,0 +1,40 @@
+--[[
+| 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/
+--]]
+
+
+-- Copyright (c) 2018-2020 TFA Base Devs
+
+-- Permission is hereby granted, free of charge, to any person obtaining a copy
+-- of this software and associated documentation files (the "Software"), to deal
+-- in the Software without restriction, including without limitation the rights
+-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+-- copies of the Software, and to permit persons to whom the Software is
+-- furnished to do so, subject to the following conditions:
+
+-- The above copyright notice and this permission notice shall be included in all
+-- copies or substantial portions of the Software.
+
+-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+-- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+-- SOFTWARE.
+
+include("shared.lua")
+
+function ENT:Draw()
+	self:DrawModel()
+end
+
+function ENT:IsTranslucent()
+	return true
+end

lua/entities/tfa_exp_base/init.lua

@@ -0,0 +1,110 @@
+--[[
+| 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/
+--]]
+
+
+-- Copyright (c) 2018-2020 TFA Base Devs
+
+-- Permission is hereby granted, free of charge, to any person obtaining a copy
+-- of this software and associated documentation files (the "Software"), to deal
+-- in the Software without restriction, including without limitation the rights
+-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+-- copies of the Software, and to permit persons to whom the Software is
+-- furnished to do so, subject to the following conditions:
+
+-- The above copyright notice and this permission notice shall be included in all
+-- copies or substantial portions of the Software.
+
+-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+-- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+-- SOFTWARE.
+
+AddCSLuaFile("cl_init.lua")
+AddCSLuaFile("shared.lua")
+include("shared.lua")
+
+ENT.DefaultModel = Model("models/weapons/w_eq_fraggrenade.mdl")
+
+ENT.Damage = 100
+ENT.Delay = 3
+
+function ENT:Initialize()
+	local mdl = self:GetModel()
+
+	if not mdl or mdl == "" or mdl == "models/error.mdl" then
+		self:SetModel(self.DefaultModel)
+	end
+
+	self:PhysicsInit(SOLID_VPHYSICS)
+	self:SetMoveType(MOVETYPE_VPHYSICS)
+	self:SetSolid(SOLID_VPHYSICS)
+
+	local phys = self:GetPhysicsObject()
+	if IsValid(phys) then
+		phys:Wake()
+	end
+
+	self:SetFriction(self.Delay)
+	self.killtime = CurTime() + self.Delay
+	self:DrawShadow(true)
+
+	if not self.Inflictor and self:GetOwner():IsValid() and self:GetOwner():GetActiveWeapon():IsValid() then
+		self.Inflictor = self:GetOwner():GetActiveWeapon()
+	end
+end
+
+function ENT:Think()
+	if self.killtime < CurTime() then
+		self:Explode()
+
+		return false
+	end
+
+	self:NextThink(CurTime())
+
+	return true
+end
+
+ENT.ExplosionSound = "BaseExplosionEffect.Sound"
+
+function ENT:DoExplosionEffect()
+	local effectdata = EffectData()
+	effectdata:SetOrigin(self:GetPos())
+
+	util.Effect("HelicopterMegaBomb", effectdata)
+	util.Effect("Explosion", effectdata)
+
+	self:EmitSoundNet(self.ExplosionSound)
+end
+
+function ENT:Explode()
+	if not IsValid(self.Inflictor) then
+		self.Inflictor = self
+	end
+
+	self.Damage = self.mydamage or self.Damage
+
+	local dmg = DamageInfo()
+	dmg:SetInflictor(self.Inflictor)
+	dmg:SetAttacker(IsValid(self:GetOwner()) and self:GetOwner() or self)
+	dmg:SetDamage(self.Damage)
+	dmg:SetDamageType(bit.bor(DMG_BLAST, DMG_AIRBOAT))
+
+	util.BlastDamageInfo(dmg, self:GetPos(), math.pow( self.Damage / 100, 0.75) * 200)
+
+	util.ScreenShake(self:GetPos(), self.Damage * 20, 255, self.Damage / 200, math.pow(self.Damage / 100, 0.75) * 400)
+
+	self:DoExplosionEffect()
+
+	self:Remove()
+end

lua/entities/tfa_exp_base/shared.lua

@@ -0,0 +1,62 @@
+--[[
+| 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/
+--]]
+
+
+-- Copyright (c) 2018-2020 TFA Base Devs
+
+-- Permission is hereby granted, free of charge, to any person obtaining a copy
+-- of this software and associated documentation files (the "Software"), to deal
+-- in the Software without restriction, including without limitation the rights
+-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+-- copies of the Software, and to permit persons to whom the Software is
+-- furnished to do so, subject to the following conditions:
+
+-- The above copyright notice and this permission notice shall be included in all
+-- copies or substantial portions of the Software.
+
+-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+-- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+-- SOFTWARE.
+
+ENT.Type = "anim"
+ENT.PrintName = "Base Explosive"
+ENT.Author = ""
+ENT.Contact = ""
+ENT.Purpose = ""
+ENT.Instructions = ""
+ENT.DoNotDuplicate = true
+ENT.DisableDuplicator = true
+
+local sp = game.SinglePlayer()
+
+function ENT:EmitSoundNet(sound)
+	if CLIENT or sp then
+		if sp and not IsFirstTimePredicted() then return end
+
+		self:EmitSound(sound)
+
+		return
+	end
+
+	local filter = RecipientFilter()
+	filter:AddPAS(self:GetPos())
+	if IsValid(self:GetOwner()) then
+		filter:RemovePlayer(self:GetOwner())
+	end
+
+	net.Start("tfaSoundEvent", true)
+	net.WriteEntity(self)
+	net.WriteString(sound)
+	net.Send(filter)
+end