zombiesurvival-evolved/gamemodes/zombiesurvival/entities/weapons/weapon_zs_superzombie.lua
2014-10-01 20:49:54 -04:00

158 lines
3.5 KiB
Lua

AddCSLuaFile()
SWEP.Base = "weapon_zs_zombie"
SWEP.MeleeDamage = 45
function SWEP:Reload()
self.BaseClass.SecondaryAttack(self)
end
function SWEP:StartMoaning()
end
function SWEP:StopMoaning()
end
function SWEP:IsMoaning()
return false
end
function SWEP:Move(mv)
if self:GetClimbing() then
mv:SetMaxSpeed(0)
mv:SetMaxClientSpeed(0)
local owner = self.Owner
local tr = self:GetClimbSurface()
local angs = self.Owner:SyncAngles()
local dir = tr and tr.Hit and (tr.HitNormal.z <= -0.5 and (angs:Forward() * -1) or math.abs(tr.HitNormal.z) < 0.75 and tr.HitNormal:Angle():Up()) or Vector(0, 0, 1)
local vel = Vector(0, 0, 4)
if owner:KeyDown(IN_FORWARD) then
vel = vel + dir * 60
end
if owner:KeyDown(IN_BACK) then
vel = vel + dir * -60
end
if vel.z == 4 then
if owner:KeyDown(IN_MOVERIGHT) then
vel = vel + angs:Right() * 35
end
if owner:KeyDown(IN_MOVELEFT) then
vel = vel + angs:Right() * -35
end
end
mv:SetVelocity(vel)
return true
end
end
SWEP.NextClimbSound = 0
function SWEP:Think()
local curtime = CurTime()
local owner = self.Owner
if self:GetClimbing() then
if self:GetClimbSurface() and owner:KeyDown(IN_ATTACK2) then
if SERVER and CurTime() >= self.NextClimbSound then
local speed = owner:GetVelocity():Length()
if speed >= 16 then
if speed >= 50 then
self.NextClimbSound = CurTime() + 0.75
else
self.NextClimbSound = CurTime() + 1
end
owner:EmitSound("player/footsteps/metalgrate"..math.random(4)..".wav")
end
end
else
self:StopClimbing()
end
end
return self.BaseClass.Think(self)
end
local climblerp = 0
function SWEP:GetViewModelPosition(pos, ang)
climblerp = math.Approach(climblerp, self:IsClimbing() and 1 or 0, FrameTime() * ((climblerp + 1) ^ 3))
ang:RotateAroundAxis(ang:Right(), 64 * climblerp)
if climblerp > 0 then
pos = pos + -8 * climblerp * ang:Up() + -12 * climblerp * ang:Forward()
end
return self.BaseClass.GetViewModelPosition(self, pos, ang)
end
function SWEP:PrimaryAttack()
if self:IsClimbing() then return end
self.BaseClass.PrimaryAttack(self)
end
local climbtrace = {mask = MASK_SOLID_BRUSHONLY, mins = Vector(-5, -5, -5), maxs = Vector(5, 5, 5)}
function SWEP:GetClimbSurface()
local owner = self.Owner
local fwd = owner:SyncAngles():Forward()
local up = owner:GetUp()
local pos = owner:GetPos()
local tr
for i=-15, owner:OBBMaxs().z, 5 do
if not tr or not tr.Hit then
climbtrace.start = pos + up * i
climbtrace.endpos = climbtrace.start + fwd * 28
tr = util.TraceHull(climbtrace)
if tr.Hit and not tr.HitSky then break end
end
end
if tr.Hit and not tr.HitSky then
climbtrace.start = tr.HitPos + tr.HitNormal
climbtrace.endpos = climbtrace.start + owner:SyncAngles():Up() * 72
local tr2 = util.TraceHull(climbtrace)
if tr2.Hit and not tr2.HitSky then
return tr2
end
return tr
end
end
function SWEP:SecondaryAttack()
if self:IsClimbing() then return end
if not self.Owner:IsOnGround() and self.Owner:GetVelocity():Length() < 200 and self:GetClimbSurface() then
self:StartClimbing()
else
self.BaseClass.SecondaryAttack(self)
end
end
function SWEP:StartClimbing()
if self:GetClimbing() then return end
self:SetClimbing(true)
self:SetNextPrimaryFire(math.huge)
end
function SWEP:StopClimbing()
if not self:GetClimbing() then return end
self:SetClimbing(false)
self:SetNextPrimaryFire(CurTime() + 0.5)
end
function SWEP:SetClimbing(climbing)
self:SetDTBool(1, climbing)
end
function SWEP:GetClimbing()
return self:GetDTBool(1)
end
SWEP.IsClimbing = SWEP.GetClimbing