81 lines
2.5 KiB
Lua
81 lines
2.5 KiB
Lua
--CACHED GLOBALS
|
|
local math_min = math.min
|
|
local curtime = CurTime
|
|
|
|
local TEAM_HUMAN = TEAM_HUMAN
|
|
|
|
local GM_MaxLegDamage = GM.MaxLegDamage
|
|
|
|
local M_Entity = FindMetaTable("Entity")
|
|
local M_Player = FindMetaTable("Player")
|
|
local M_CMoveData = FindMetaTable("CMoveData")
|
|
|
|
local E_GetTable = M_Entity.GetTable
|
|
local E_GetDTFloat = M_Entity.GetDTFloat
|
|
local E_GetDTBool = M_Entity.GetDTBool
|
|
local P_Team = M_Player.Team
|
|
local P_CallZombieFunction1 = M_Player.CallZombieFunction1
|
|
local P_GetLegDamage = M_Player.GetLegDamage
|
|
local P_GetBarricadeGhosting = M_Player.GetBarricadeGhosting
|
|
local P_GetActiveWeapon = M_Player.GetActiveWeapon
|
|
local M_SetVelocity = M_CMoveData.SetVelocity
|
|
local M_GetVelocity = M_CMoveData.GetVelocity
|
|
local M_SetMaxSpeed = M_CMoveData.SetMaxSpeed
|
|
local M_GetMaxSpeed = M_CMoveData.GetMaxSpeed
|
|
local M_SetMaxClientSpeed = M_CMoveData.SetMaxClientSpeed
|
|
local M_GetMaxClientSpeed = M_CMoveData.GetMaxClientSpeed
|
|
local M_GetForwardSpeed = M_CMoveData.GetForwardSpeed
|
|
local M_GetSideSpeed = M_CMoveData.GetSideSpeed
|
|
|
|
function GM:SetupMove(pl, move, cmd)
|
|
end
|
|
|
|
local fw, sd, pt, vel, mul, phase
|
|
function GM:Move(pl, move)
|
|
pt = E_GetTable(pl)
|
|
|
|
if P_Team(pl) == TEAM_HUMAN then
|
|
if P_GetBarricadeGhosting(pl) and not E_GetDTBool(pl, 1) then
|
|
-- Use 7, because friction will amount this to a velocity of 1 roughly.
|
|
phase = pt.NoGhosting and E_GetDTFloat(pl, DT_PLAYER_FLOAT_WIDELOAD) > curtime()
|
|
M_SetMaxClientSpeed(move, math_min(M_GetMaxClientSpeed(move), phase and 7 or (36 * (pt.BarricadePhaseSpeedMul or 1))))
|
|
elseif not pt.NoBWSpeedPenalty then
|
|
fw = M_GetForwardSpeed(move)
|
|
if fw < 0 then
|
|
sd = M_GetSideSpeed(move)
|
|
if sd < 0 then sd = -sd end
|
|
|
|
if sd > fw then
|
|
M_SetMaxClientSpeed(move, M_GetMaxClientSpeed(move) * (P_GetActiveWeapon(pl).IsMelee and 0.75 or 0.5))
|
|
end
|
|
end
|
|
end
|
|
else
|
|
if pt.SpawnProtection then
|
|
M_SetMaxSpeed(move, M_GetMaxSpeed(move) * 1.15)
|
|
M_SetMaxClientSpeed(move, M_GetMaxClientSpeed(move) * 1.15)
|
|
end
|
|
|
|
if P_CallZombieFunction1(pl, "Move", move) then return end
|
|
end
|
|
|
|
legdmg = P_GetLegDamage(pl)
|
|
if legdmg > 0 then
|
|
M_SetMaxClientSpeed(move, M_GetMaxClientSpeed(move) * (1 - math_min(1, legdmg / GM_MaxLegDamage)))
|
|
end
|
|
end
|
|
|
|
function GM:FinishMove(pl, move)
|
|
pt = E_GetTable(pl)
|
|
|
|
-- Simple anti bunny hopping. Flag is set in OnPlayerHitGround
|
|
if pt.LandSlow then
|
|
pt.LandSlow = false
|
|
|
|
vel = M_GetVelocity(move)
|
|
mul = 1 - 0.25 * (pt.FallDamageSlowDownMul or 1)
|
|
vel.x = vel.x * mul
|
|
vel.y = vel.y * mul
|
|
M_SetVelocity(move, vel)
|
|
end
|
|
end
|