Upload

lua/weapons/arccw_base/sh_firemodes.lua

@@ -0,0 +1,174 @@
+--[[
+| 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/
+--]]
+
+function SWEP:ChangeFiremode(pred)
+    pred = pred or true
+    local fmt = self:GetBuff_Override("Override_Firemodes", self.Firemodes)
+    fmt["BaseClass"] = nil
+
+    local check = self:GetBuff_Hook("Hook_ChangeFiremode")
+    if check then return end
+    local count = table.Count(fmt)
+    if count == 1 then return end
+    if self:GetNextPrimaryFire() > CurTime() then return end
+    if self:GetGrenadePrimed() then return end
+
+    local fmi = self:GetFireMode()
+    local lastfmi = fmi
+
+    fmi = fmi + 1
+
+    if fmi > count then
+       fmi = 1
+    end
+
+    local altsafety = SERVER and (self:GetOwner():GetInfo("arccw_altsafety") == "1") or CLIENT and (ArcCW.ConVars["altsafety"]:GetBool())
+    if altsafety and !self:GetOwner():KeyDown(IN_WALK) and fmt[fmi] and fmt[fmi].Mode == 0 then
+        -- Skip safety when walk key is not down
+        fmi = (fmi + 1 > count) and 1 or (fmi + 1)
+    elseif altsafety and self:GetOwner():KeyDown(IN_WALK) then
+        if fmt[lastfmi] and fmt[lastfmi].Mode == 0 then
+            -- Find the first non-safety firemode
+            local nonsafe_fmi = nil
+            for i, fm in pairs(fmt) do
+                if fm.Mode != 0 then nonsafe_fmi = i break end
+            end
+            fmi = nonsafe_fmi or fmi
+        else
+            -- Find the safety firemode
+            local safety_fmi = nil
+            for i, fm in pairs(fmt) do
+                if fm.Mode == 0 then safety_fmi = i break end
+            end
+            fmi = safety_fmi or fmi
+        end
+    end
+
+    if !fmt[fmi] then fmi = 1 end
+
+    local a = tostring(lastfmi) .. "_to_" .. tostring(fmi)
+
+    if !self.Animations[a] then a = "changefiremode" end
+
+    if self.Animations[a] then
+        self:PlayAnimationEZ(a, 1, true)
+        local t = CurTime() + self:GetAnimKeyTime(a, true)
+        self:SetPriorityAnim(t)
+        self:SetNextPrimaryFire(t)
+    end
+
+    local old_inf = self:HasInfiniteAmmo()
+
+    self:SetFireMode(fmi)
+    --timer.Simple(0, function() self:RecalcAllBuffs() end)
+    -- Absolutely, totally, completely ENSURE client has changed the value before attempting recalculation
+    -- Waiting one tick will not work on dedicated servers
+    local id = "ArcCW_RecalcWait_" .. self:EntIndex()
+    timer.Create(id, 0.01, 0, function()
+        if !IsValid(self) then timer.Remove(id) return end
+        if self:GetFireMode() == fmi then
+            self:RecalcAllBuffs()
+            self:GetActiveElements(true)
+
+            -- Timers solve everything!
+            timer.Simple(0.01, function()
+                if !IsValid(self) then return end
+                self:AdjustAmmo(old_inf)
+                if self:GetCurrentFiremode().RestoreAmmo then
+                    -- No seriously, they really do
+                    timer.Simple(0.01, function()
+                        if !IsValid(self) then return end
+                        self:RestoreAmmo()
+                    end)
+                end
+            end)
+            timer.Remove(id)
+        end
+    end)
+
+    if lastfmi != fmi then
+        local snd = self:GetBuff_Override("Override_FiremodeSound", self.FiremodeSound)
+        if SERVER then
+            if pred then
+                SuppressHostEvents(self:GetOwner())
+            end
+            self:MyEmitSound(snd, 75, 100, 1, CHAN_ITEM + 2)
+            if pred then
+                SuppressHostEvents(NULL)
+            end
+        else
+           self:MyEmitSound(snd, 75, 100, 1, CHAN_ITEM + 2)
+        end
+    end
+
+    self:SetShouldHoldType()
+
+    if self:GetCurrentFiremode().Mode == 0 or self:GetBuff_Hook("Hook_ShouldNotSight") then
+        self:ExitSights()
+    end
+end
+
+function SWEP:GetCurrentFiremode()
+    local fmt = self:GetBuff_Override("Override_Firemodes", self.Firemodes)
+    fmt.BaseClass = nil
+
+    if self:GetFireMode() > table.Count(fmt) or self:GetFireMode() < 1 then
+        self:SetFireMode(1)
+    end
+
+    fmt[self:GetFireMode()].BaseClass = nil
+    return fmt[self:GetFireMode()]
+end
+
+function SWEP:GetFiremodeName()
+    if self:GetBuff_Hook("Hook_FiremodeName") then return self:GetBuff_Hook("Hook_FiremodeName") end
+
+    local abbrev = ArcCW.ConVars["hud_fcgabbrev"]:GetBool() and ".abbrev" or ""
+
+    if self:GetInUBGL() then
+        return self:GetBuff_Override("UBGL_PrintName") and self:GetBuff_Override("UBGL_PrintName") or ArcCW.GetTranslation("fcg.ubgl" .. abbrev)
+    end
+
+    local fm = self:GetCurrentFiremode()
+
+    if fm.PrintName then
+        local phrase = ArcCW.GetPhraseFromString(fm.PrintName)
+        return phrase and ArcCW.GetTranslation(phrase .. abbrev) or ArcCW.TryTranslation(fm.PrintName)
+    end
+
+    local mode = fm.Mode
+    if mode == 0 then return ArcCW.GetTranslation("fcg.safe" .. abbrev) end
+    if mode == 1 then return ArcCW.GetTranslation("fcg.semi" .. abbrev) end
+    if mode >= 2 then return ArcCW.GetTranslation("fcg.auto" .. abbrev) end
+    if mode < 0 then return string.format(ArcCW.GetTranslation("fcg.burst" .. abbrev), tostring(-mode)) end
+end
+
+function SWEP:GetFiremodeBars()
+    if self:GetBuff_Hook("Hook_FiremodeBars") then return self:GetBuff_Hook("Hook_FiremodeBars") end
+
+    if self:GetInUBGL() then
+        return "____-"
+    end
+
+    local fm = self:GetCurrentFiremode()
+
+    if fm.CustomBars then return fm.CustomBars end
+
+    local mode = fm.Mode
+
+    if mode == 0 then return "_____" end
+    if mode == 1 then return "-____" end
+    if mode >= 2 then return "-----" end
+    if mode == -2 then return "--___" end
+    if mode == -3 then return "---__" end
+    if mode == -4 then return "----_" end
+
+    return "-----"
+end