add sborka

garrysmod/addons/tacrp/lua/weapons/tacrp_base/sh_effects.lua

@@ -0,0 +1,107 @@
+function SWEP:DoEffects(alt)
+    if !IsFirstTimePredicted() then return end
+    local muzz_qca, muzz_qca_wm = self:GetQCAMuzzle(alt)
+
+    local data = EffectData()
+    data:SetEntity(self)
+    data:SetAttachment(muzz_qca)
+    data:SetHitBox(muzz_qca_wm or muzz_qca) // unused field (integer between 0-2047)
+
+    util.Effect( "TacRP_muzzleeffect", data )
+end
+
+function SWEP:GetQCAMuzzle(alt)
+    if self:GetValue("EffectsAlternate") then
+        if self:GetNthShot() % 2 == (alt and 1 or 0) then
+            return self:GetValue("QCA_MuzzleR"), self:GetValue("WM_QCA_MuzzleR")
+        else
+            return self:GetValue("QCA_MuzzleL"), self:GetValue("WM_QCA_MuzzleL")
+        end
+    else
+        return self:GetValue("QCA_Muzzle"), self:GetValue("WM_QCA_Muzzle")
+    end
+end
+
+function SWEP:GetQCAEject(alt)
+    if self:GetValue("EffectsAlternate") then
+        if self:GetNthShot() % 2 == (alt and 1 or 0) then
+            return self:GetValue("QCA_EjectR"), self:GetValue("WM_QCA_EjectR")
+        else
+            return self:GetValue("QCA_EjectL"), self:GetValue("WM_QCA_EjectL")
+        end
+    else
+        return self:GetValue("QCA_Eject"), self:GetValue("WM_QCA_Eject")
+    end
+end
+
+SWEP.EjectedShells = {}
+
+function SWEP:DoEject(alt)
+    if !IsFirstTimePredicted() then return end
+    if self:GetValue("EjectEffect") == 0 then return end
+
+    local eject_qca, eject_qca_wm = self:GetQCAEject(alt)
+
+    local data = EffectData()
+    data:SetEntity(self)
+    data:SetFlags(self:GetValue("EjectEffect"))
+    data:SetAttachment(eject_qca)
+    data:SetHitBox(eject_qca_wm or eject_qca) // unused field (integer between 0-2047)
+    data:SetScale(self:GetValue("EjectScale"))
+
+    util.Effect( "TacRP_shelleffect", data )
+end
+
+function SWEP:GetTracerOrigin()
+    local ow = self:GetOwner()
+    local wm = !IsValid(ow) or !ow:IsPlayer() or !ow:GetViewModel():IsValid() or (ow != LocalPlayer() and ow != LocalPlayer():GetObserverTarget()) or (ow == LocalPlayer() and ow:ShouldDrawLocalPlayer())
+    local att = self:GetQCAMuzzle()
+    local muzz = self
+
+    if !wm then
+        muzz = ow:GetViewModel()
+    end
+
+    if muzz and muzz:IsValid() then
+        local posang = muzz:GetAttachment(att)
+        if !posang then return muzz:GetPos() end
+        local pos = posang.Pos
+
+        return pos
+    end
+end
+
+function SWEP:GetMuzzleDevice(wm)
+    if !wm and self:GetOwner():IsNPC() then return end
+
+    local model = self.WModel
+    local muzz = self
+
+    if !wm then
+        model = self.VModel
+        muzz = self:GetVM()
+    end
+
+    if model then
+        for i, k in pairs(model) do
+            if k.IsMuzzleDevice then
+                return k
+            end
+        end
+    end
+
+    return muzz
+end
+
+function SWEP:DrawEjectedShells()
+    local newshells = {}
+
+    for i, k in pairs(self.EjectedShells) do
+        if !k:IsValid() then continue end
+
+        k:DrawModel()
+        table.insert(newshells, k)
+    end
+
+    self.EjectedShells = newshells
+end