Upload

gamemodes/terrortown/gamemode/propspec.lua

@@ -0,0 +1,156 @@
+--[[
+| 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/
+--]]
+
+---- Spectator prop meddling
+
+local string = string
+local math = math
+
+PROPSPEC = {}
+
+local propspec_toggle = CreateConVar("ttt_spec_prop_control", "1")
+
+local propspec_base = CreateConVar("ttt_spec_prop_base", "8")
+local propspec_min = CreateConVar("ttt_spec_prop_maxpenalty", "-6")
+local propspec_max = CreateConVar("ttt_spec_prop_maxbonus", "16")
+
+function PROPSPEC.Start(ply, ent)
+   ply:Spectate(OBS_MODE_CHASE)
+   ply:SpectateEntity(ent, true)
+
+   local bonus = math.Clamp(math.ceil(ply:Frags() / 2), propspec_min:GetInt(), propspec_max:GetInt())
+
+   ply.propspec = {ent=ent, t=0, retime=0, punches=0, max=propspec_base:GetInt() + bonus}
+
+   ent:SetNWEntity("spec_owner", ply)
+   ply:SetNWInt("bonuspunches", bonus)
+end
+
+local function IsWhitelistedClass(cls)
+   return (string.match(cls, "prop_physics*") or
+           string.match(cls, "func_physbox*"))
+end
+
+function PROPSPEC.Target(ply, ent)
+   if not propspec_toggle:GetBool() then return end
+   if (not IsValid(ply)) or (not ply:IsSpec()) or (not IsValid(ent)) then return end
+
+   if IsValid(ent:GetNWEntity("spec_owner", nil)) then return end
+
+   local phys = ent:GetPhysicsObject()
+
+   if ent:GetName() != "" and (not GAMEMODE.propspec_allow_named) then return end
+   if (not IsValid(phys)) or (not phys:IsMoveable()) then return end
+
+   -- normally only specific whitelisted ent classes can be possessed, but
+   -- custom ents can mark themselves possessable as well
+   if (not ent.AllowPropspec) and (not IsWhitelistedClass(ent:GetClass())) then return end
+
+   PROPSPEC.Start(ply, ent)
+end
+
+-- Clear any propspec state a player has. Safe even if player is not currently
+-- spectating.
+function PROPSPEC.Clear(ply)
+   local ent = (ply.propspec and ply.propspec.ent) or ply:GetObserverTarget()
+   if IsValid(ent) then
+      ent:SetNWEntity("spec_owner", nil)
+   end
+
+   ply.propspec = nil
+   ply:SpectateEntity(nil)
+end
+
+function PROPSPEC.End(ply)
+   PROPSPEC.Clear(ply)
+   ply:Spectate(OBS_MODE_ROAMING)
+   ply:ResetViewRoll()
+
+   timer.Simple(0.1, function()
+                        if IsValid(ply) then ply:ResetViewRoll() end
+                     end)
+end
+
+local propspec_force = CreateConVar("ttt_spec_prop_force", "110")
+
+function PROPSPEC.Key(ply, key)
+   local ent = ply.propspec.ent
+   local phys = IsValid(ent) and ent:GetPhysicsObject()
+   if (not IsValid(ent)) or (not IsValid(phys)) then 
+      PROPSPEC.End(ply)
+      return false
+   end
+
+   if not phys:IsMoveable() then
+      PROPSPEC.End(ply)
+      return true
+   elseif phys:HasGameFlag(FVPHYSICS_PLAYER_HELD) then
+      -- we can stay with the prop while it's held, but not affect it
+      if key == IN_DUCK then
+         PROPSPEC.End(ply)
+      end
+      return true
+   end
+
+   -- always allow leaving
+   if key == IN_DUCK then
+      PROPSPEC.End(ply)
+      return true
+   end
+
+   local pr = ply.propspec
+   if pr.t > CurTime() then return true end
+
+   if pr.punches < 1 then return true end
+
+   local m = math.min(150, phys:GetMass())
+   local force = propspec_force:GetInt()
+   local aim = ply:GetAimVector()
+
+   local mf = m * force
+
+   pr.t = CurTime() + 0.15
+
+   if key == IN_JUMP then
+      -- upwards bump
+      phys:ApplyForceCenter(Vector(0,0, mf))
+      pr.t = CurTime() + 0.05
+   elseif key == IN_FORWARD then
+      -- bump away from player
+      phys:ApplyForceCenter(aim * mf)
+   elseif key == IN_BACK then
+      phys:ApplyForceCenter(aim * (mf * -1))
+   elseif key == IN_MOVELEFT then
+      phys:AddAngleVelocity(Vector(0, 0, 200))
+      phys:ApplyForceCenter(Vector(0,0, mf / 3))
+   elseif key == IN_MOVERIGHT then
+      phys:AddAngleVelocity(Vector(0, 0, -200))
+      phys:ApplyForceCenter(Vector(0,0, mf / 3))
+   else
+      return true -- eat other keys, and do not decrement punches
+   end
+
+   pr.punches = math.max(pr.punches - 1, 0)
+   ply:SetNWFloat("specpunches", pr.punches / pr.max)
+
+   return true
+end
+
+local propspec_retime = CreateConVar("ttt_spec_prop_rechargetime", "1")
+function PROPSPEC.Recharge(ply)
+   local pr = ply.propspec
+   if pr.retime < CurTime() then
+      pr.punches = math.min(pr.punches + 1, pr.max)
+      ply:SetNWFloat("specpunches", pr.punches / pr.max)
+
+      pr.retime = CurTime() + propspec_retime:GetFloat()
+   end
+end
+