add sborka

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

@@ -0,0 +1,143 @@
+function SWEP:GetIsSprinting()
+    local owner = self:GetOwner()
+
+    if !owner:IsValid() or owner:IsNPC() or owner:IsNextBot() then
+        return false
+    end
+
+    if self:CanShootInSprint() then return false end
+
+    local walkspeed = owner:GetWalkSpeed()
+    local runspeed = owner:GetRunSpeed()
+
+    if owner.TacRP_SprintBlock then return false end
+    if owner:GetNWBool("TacRPChargeState", false) then return true end
+    if owner:GetNWBool("SlidingAbilityIsSliding", false) then return false end
+
+    if TTT2 then
+        if SPRINT and SPRINT:IsSprinting(owner) then
+            return true
+        else
+            return owner.isSprinting == true and (owner.sprintProgress or 0) > 0 and owner:KeyDown(IN_SPEED) and !owner:Crouching() and owner:OnGround()
+        end
+    end
+
+    -- TTT sets runspeed to curspeed, so this will disable it unless sprint addons exist (who ideally sets runspeed. i didn't check)
+    if runspeed <= walkspeed then return false end
+
+    if !owner.TacRP_Moving then return false end -- Don't check IN_ move keys because 1) controllers and 2) bots
+    if !owner:KeyDown(IN_SPEED) then return false end -- SetButtons does not seem to affect this?
+    local curspeed = owner:GetVelocity():Length()
+    if curspeed <= 0 then return false end
+    if !owner:OnGround() then return false end
+
+    if self:GetOwner():GetInfoNum("tacrp_aim_cancels_sprint", 0) > 0 and self:GetScopeLevel() > 0 then return false end
+
+    return true
+end
+
+function SWEP:ShouldLowerWeapon()
+    local owner = self:GetOwner()
+
+    if !owner:IsValid() or owner:IsNPC() or owner:IsNextBot() then
+        return false
+    end
+
+    if TacRP.ConVars["sprint_counts_midair"]:GetBool() and owner:GetMoveType() != MOVETYPE_NOCLIP and !owner:IsOnGround() then
+        return true
+    end
+
+    if self:DoForceSightsBehavior() and self:GetScopeLevel() == 0 and !self:GetInBipod() and self:GetBlindFireMode() == TacRP.BLINDFIRE_NONE then
+        return true
+    end
+
+    return false
+end
+
+function SWEP:CanStopSprinting()
+    local owner = self:GetOwner()
+    if !owner:IsValid() or owner:IsNPC() or owner:IsNextBot() then
+        return false
+    end
+
+    if TacRP.ConVars["sprint_counts_midair"]:GetBool() and owner:GetMoveType() != MOVETYPE_NOCLIP and !owner:OnGround() and !self:GetReloading() then
+        return false
+    end
+
+    if owner:GetNWBool("TacRPChargeState", false) then
+        return false
+    end
+
+    return true
+end
+
+function SWEP:GetSprintDelta()
+    return self:GetSprintAmount()
+end
+
+function SWEP:EnterSprint()
+    if !self:CanShootInSprint() then
+        self:ToggleBlindFire(TacRP.BLINDFIRE_NONE)
+    end
+    if !self:CanReloadInSprint() and self:GetReloading() then
+        -- use clip1 to check for whether the up-in has happened. if so, do not cancel (can't have you cancel the animation *that* easily)
+        -- this causes fringe cases related to maniuplating magazine sizes but shouldn't be abusable
+        if self:Clip1() < self:GetMaxClip1() then
+            self:CancelReload(true)
+            -- self:Idle()
+        end
+    end
+    self:ScopeToggle(0)
+
+    self:SetShouldHoldType()
+end
+
+function SWEP:ExitSprint()
+    local amt = self:GetSprintAmount()
+    self:SetSprintLockTime(CurTime() + (self:GetValue("SprintToFireTime") * amt))
+
+    self:SetShouldHoldType()
+end
+
+SWEP.LastWasSprinting = false
+
+function SWEP:ThinkSprint()
+    local sprinting = self:GetIsSprinting() or self:GetSafe()
+
+    local amt = self:GetSprintAmount()
+
+    if self.LastWasSprinting and !sprinting then
+        self:ExitSprint()
+    elseif !self.LastWasSprinting and sprinting then
+        self:EnterSprint()
+    end
+
+    self.LastWasSprinting = sprinting
+
+    if IsFirstTimePredicted() or game.SinglePlayer() then
+        if (sprinting or (self:ShouldLowerWeapon() and !self:DoForceSightsBehavior())) and !self:GetInBipod() then
+            amt = math.Approach(amt, 1, FrameTime() / self:GetValue("SprintToFireTime"))
+        else
+            amt = math.Approach(amt, 0, FrameTime() / self:GetValue("SprintToFireTime"))
+        end
+    end
+
+    self:SetSprintAmount(amt)
+end
+
+function SWEP:CanShootInSprint(base)
+    if !TacRP.ConVars["sprint_lower"]:GetBool() and !self:DoForceSightsBehavior() then return true end
+    if base then
+        return self:GetBaseValue("ShootWhileSprint")
+    else
+        return self:GetValue("ShootWhileSprint")
+    end
+end
+
+function SWEP:CanReloadInSprint(base)
+    return TacRP.ConVars["sprint_reload"]:GetBool()
+end
+
+function SWEP:DoForceSightsBehavior()
+    return TacRP.ConVars["sightsonly"]:GetBool() and self:GetValue("Scope")
+end