Files
VnUtest/garrysmod/addons/tacrp/lua/entities/tacrp_ammo.lua
2026-03-31 10:27:04 +03:00

174 lines
4.4 KiB
Lua

AddCSLuaFile()
ENT.Type = "anim"
ENT.Base = "base_entity"
ENT.RenderGroup = RENDERGROUP_TRANSLUCENT
ENT.PrintName = "Ammo Pickup"
ENT.Category = "Tactical RP"
ENT.Spawnable = true
ENT.Model = "models/weapons/tacint/ammoboxes/ammo_bag-1.mdl"
ENT.ModelOptions = nil
ENT.InfiniteUse = false
ENT.OpeningAnim = false
ENT.NextUse = 0
ENT.Open = false
ENT.MaxHealth = 0
function ENT:Initialize()
local model = self.Model
if self.ModelOptions then
model = table.Random(self.ModelOptions)
end
self:SetModel(model)
if SERVER then
self:PhysicsInit(SOLID_VPHYSICS)
self:SetMoveType(MOVETYPE_VPHYSICS)
self:SetSolid(SOLID_VPHYSICS)
self:SetCollisionGroup(COLLISION_GROUP_WEAPON)
self:SetUseType(CONTINUOUS_USE)
self:PhysWake()
if self.MaxHealth > 0 then
self:SetMaxHealth(self.MaxHealth)
self:SetHealth(self.MaxHealth)
end
self:SetTrigger(true) -- Enables Touch() to be called even when not colliding
self:UseTriggerBounds(true, 24)
end
end
local function ClampedGiveAmmo(ply, ammo, amt, clamp)
local count = ply:GetAmmoCount(ammo)
if count >= clamp then
return false
elseif count + amt > clamp then
amt = math.max(clamp - count, 0)
end
ply:GiveAmmo(amt, ammo)
return true
end
function ENT:ApplyAmmo(ply)
if self.NextUse > CurTime() then return end
local wpn = ply:GetActiveWeapon()
local ammotype = wpn:GetPrimaryAmmoType()
local clipsize = wpn:GetMaxClip1()
local supplyamount = clipsize * 1
local max = clipsize * 6
local t2
if wpn.ArcticTacRP then
ammotype = wpn:GetAmmoType()
clipsize = wpn.ClipSize
max = (wpn:GetValue("SupplyAmmoAmount") or (clipsize * 6)) * (wpn:GetValue("SupplyLimit") or 1)
if max <= 0 then
max = 1
end
if TacRP.ConVars["resupply_grenades"]:GetBool() then
local nade = wpn:GetGrenade()
if nade.Ammo then
if !nade.AdminOnly or ply:IsAdmin() then
t2 = ClampedGiveAmmo(ply, nade.Ammo, 1, 3)
end
end
end
end
local t = ClampedGiveAmmo(ply, ammotype, supplyamount, max)
if t or t2 then
if self.OpeningAnim and !self.Open then
local seq = self:LookupSequence("open")
self:ResetSequence(seq)
self:EmitSound("items/ammocrate_open.wav")
self.Open = true
end
self.NextUse = CurTime() + 1
if !self.InfiniteUse then
self:Remove()
end
end
end
ENT.CollisionSoundsHard = {
"physics/cardboard/cardboard_box_impact_hard1.wav",
"physics/cardboard/cardboard_box_impact_hard2.wav",
"physics/cardboard/cardboard_box_impact_hard3.wav",
"physics/cardboard/cardboard_box_impact_hard4.wav",
"physics/cardboard/cardboard_box_impact_hard5.wav",
"physics/cardboard/cardboard_box_impact_hard6.wav",
"physics/cardboard/cardboard_box_impact_hard7.wav",
}
ENT.CollisionSoundsSoft = {
"physics/cardboard/cardboard_box_impact_soft1.wav",
"physics/cardboard/cardboard_box_impact_soft2.wav",
"physics/cardboard/cardboard_box_impact_soft3.wav",
"physics/cardboard/cardboard_box_impact_soft4.wav",
"physics/cardboard/cardboard_box_impact_soft5.wav",
"physics/cardboard/cardboard_box_impact_soft6.wav",
"physics/cardboard/cardboard_box_impact_soft7.wav",
}
function ENT:PhysicsCollide(data)
if data.DeltaTime < 0.1 then return end
if data.Speed > 25 then
self:EmitSound(self.CollisionSoundsHard[math.random(#self.CollisionSoundsHard)])
else
self:EmitSound(self.CollisionSoundsSoft[math.random(#self.CollisionSoundsSoft)])
end
end
if SERVER then
function ENT:Use(ply)
if !ply:IsPlayer() then return end
self:ApplyAmmo(ply)
end
function ENT:Think()
if self.Open and (self.NextUse + 0.1) < CurTime() then
local seq = self:LookupSequence("close")
self:ResetSequence(seq)
self:EmitSound("items/ammocrate_close.wav")
self.Open = false
end
self:NextThink(CurTime())
return true
end
elseif CLIENT then
function ENT:DrawTranslucent()
self:Draw()
end
function ENT:Draw()
self:DrawModel()
end
end