zombiesurvival-evolved/gamemodes/zombiesurvival/gamemode/maps/ze_shadow_moses.lua
William Moodhe e9da54c2f9 ZS updates for 2014-2018
Too many changes to list.
2018-05-01 18:32:59 -04:00

199 lines
6.7 KiB
Lua

AddCSLuaFile()
local weapon_meta = FindMetaTable([[Weapon]])
weapon_meta.EngineSendWeaponAnim = weapon_meta.EngineSendWeaponAnim or weapon_meta.SendWeaponAnim
function weapon_meta:SendWeaponAnim(anim)
if self.IsSilenced then
if anim == ACT_VM_PRIMARYATTACK then anim = ACT_VM_PRIMARYATTACK_SILENCED
elseif anim == ACT_VM_RELOAD then anim = ACT_VM_RELOAD_SILENCED
elseif anim == ACT_VM_DRYFIRE then anim = ACT_VM_DRYFIRE_SILENCED
elseif anim == ACT_VM_IDLE then anim = ACT_VM_IDLE_SILENCED
elseif anim == ACT_VM_DRAW then anim = ACT_VM_DRAW_SILENCED
end
end
return self:EngineSendWeaponAnim(anim)
end
hook.Add("Initialize", "ZESM Init SH", function()
GAMEMODE.ZombieEscapeWeapons = {"weapon_zs_zedeagle"}
local deagle = weapons.GetStored("weapon_zs_zedeagle")
if deagle then
deagle.PrintName = "'SOCOM' Mark 23"
deagle.IsSilenced = true
deagle.ViewModel = "models/weapons/cstrike/c_pist_usp.mdl"
deagle.WorldModel = "models/weapons/w_pist_usp_silencer.mdl"
deagle.IronSightsPos = Vector(-5.9, 12, 2.3)
deagle.HUD3DBone = "v_weapon.USP_Slide"
deagle.Primary.Sound = Sound("Weapon_USP.SilencedShot")
deagle.Primary.ClipSize = 12
deagle.Primary.Damage = 195
deagle.Primary.Delay = 0.18
function deagle:Deploy() self:SendWeaponAnim(ACT_VM_DRAW) return self.BaseClass.Deploy(self) end
end
GAMEMODE.RandomPlayerModels = {
"male11",
"male16",
"male18",
}
GAMEMODE.PlayerSpawnO = GAMEMODE.PlayerSpawnO or GAMEMODE.PlayerSpawn or function()end
function GAMEMODE:PlayerSpawn(p)
GAMEMODE:PlayerSpawnO(p)
if p:Team() == TEAM_HUMAN then
p:SelectRandomPlayerModel()
else
p:SetModel("models/player/arctic.mdl")
end
end
GAMEMODE.WaveZeroLength = 0
end)
if SERVER then
local function boundcheck(a1, a2, b1, b2)
if a1 > a2 then local swap = a1 a1 = a2 a2 = swap end
if b1 > b2 then local swap = b1 b1 = b2 b2 = swap end
if a2 < b1 then return false end
if b2 < a1 then return false end
return true
end
local function intersect_boxes(amin, amax, bmin, bmax)
return
boundcheck(amin.x, amax.x, bmin.x, bmax.x) and
boundcheck(amin.y, amax.y, bmin.y, bmax.y) and
boundcheck(amin.z, amax.z, bmin.z, bmax.z)
end
local psyfirstpos, psylastpos, spawnfirstpos, spawnlastpos
local hurt_spawntop = {Vector(-1652, -12925, 2019), Vector(-1636, -13288, 2093)}
local hurt_spawnmid = {Vector(-2148, -12924, 671), Vector(-1600, -13500, 726)}
local hurt_spawnbotfloor = {Vector(-2243, -12739, -360), Vector(-1594, -13397, -239)}
local hurt_spawnbotedge = {Vector(-2171, -13349, -56), Vector(-1631, -13374, 307)}
local hurt_psyuptop = {Vector(-470, 752, 2484), Vector(-687, 528, 2507)}
local hurt_psyupdoor = {Vector(-448, 538, 2420), Vector(-683, 585, 2328)}
local hurt_psydownfloor = {Vector(-686, 510, 1838), Vector(-459, 759, 1817)}
local hurt_psydowndoor = {Vector(-450, 527, 1870), Vector(-702, 558, 1957)}
local function dynhurts()
local t = {}
local spawnelev = ents.GetMapCreatedEntity(1328)
if IsValid(spawnelev) then
local spawnpos = spawnelev:GetPos()
if not spawnfirstpos then spawnfirstpos = spawnpos end
if spawnpos == spawnlastpos and spawnfirstpos ~= spawnpos then
if spawnpos.z > 800 then
t[#t+1] = hurt_spawntop
elseif spawnpos.z > 650 then
t[#t+1] = hurt_spawnmid
else
if spawnpos.z < 0 then
t[#t+1] = hurt_spawnbotfloor
end
t[#t+1] = hurt_spawnbotedge
end
end
spawnlastpos = spawnpos
end
local psyelev = ents.GetMapCreatedEntity(1263)
if IsValid(psyelev) then
local psypos = psyelev:GetPos()
if not psyfirstpos then psyfirstpos = psypos end
if psypos == psylastpos and psyfirstpos ~= psypos then
if psypos.z > 2200 then
t[#t+1] = hurt_psyuptop
t[#t+1] = hurt_psyupdoor
else
t[#t+1] = hurt_psydownfloor
t[#t+1] = hurt_psydowndoor
end
end
psylastpos = psypos
end
return t
end
timer.Create("ZESM Killer", 0.75, 0, function()
local allhurts = dynhurts()
for k,v in pairs(player.GetAll()) do
if v:Alive() then
if v:GetPos().z < -5400 then
v:Kill()
end
for _, t in pairs(allhurts) do
local a, b = v:WorldSpaceAABB()
if intersect_boxes(a, b, t[1], t[2]) then
v:TakeSpecialDamage(math.ceil(v:GetMaxHealth()/5), DMG_CRUSH)
end
end
end
end
end)
local zonedefault = {Vector(), Vector(), Vector(-2236, -14527, -49), "Space"}
local zones = {
-- min, max, spawn, name
zonedefault,
{Vector(-6173, -4094, -4177), Vector(-1627, 4918, 60), Vector(-3832, 3769, -3703), "METAL GEAR"},
{Vector(-6074, 4325, -3822), Vector(-2375, 10834, 1473), Vector(-2761, 10230, 608), "Killevators"},
{Vector(-4850, 10248, 351), Vector(-544, 13098, 1615), Vector(-1266, 12319, 1095), "Spacewalk"},
{Vector(-2430, 11897, 1560), Vector(4212, 16203, 2778), Vector(3370, 12979, 1719), "Warehouses"},
{Vector(654, 10363, 1660), Vector(2219, 12232, 9120), Vector(1414, 11466, 8256), "Tower 2"},
{Vector(480, 8465, 1564), Vector(2650, 10419, 9116), Vector(1597, 8558, 1904), "Tower 1"},
{Vector(-1525, 2717, 1640), Vector(2706, 8769, 2723), Vector(1477, 3124, 1712), "Maze"},
{Vector(-1531, 1714, 1714), Vector(-36, 3218, 2165), Vector(-893, 1865, 1774), "Psycho"},
{Vector(-1653, -1033, 1683), Vector(814, 1864, 2070), Vector(-86, 821, 1774), "Prison"},
{Vector(-1538, -1962, 2069), Vector(862, 1469, 2880), Vector(-121, -1015, 2231), "Elevator Room"},
{Vector(-977, -5671, 2040), Vector(1450, -1609, 3102), Vector(-150, -4825, 2100), "Snow"},
{Vector(-2310, -7805, 1920), Vector(1986, -5327, 3066), Vector(-1545, -6457, 2356), "Storage Room"},
{Vector(-3460, -13467, 1960), Vector(2737, -7519, 3743), Vector(-2792, -10632, 2103), "Hind"},
{Vector(-2988, -15962, -729), Vector(-905, -12809, 2795), Vector(-2236, -14527, -49), "Spawn"},
zonedefault
}
for k, t in ipairs(zones) do
t.min = t[1]
t.max = t[2]
t.spawnpos = t[3]
t.name = t[4]
t.id = k
t.data = {}
t.prev = zones[k+1] or zonedefault
end
local function plyzone(p)
for k, z in ipairs(zones) do
if p:GetPos():WithinAABox(z.min, z.max) then
return z
end
end
return zonedefault
end
timer.Create("ZESM Zoning", 0.2, 0, function()
for _, p in pairs(player.GetAll()) do
local oldzone = p.ZESM_Zone
local zone = plyzone(p)
if oldzone ~= zone then
p.ZESM_Zone = zone
if not oldzone or zone.id < oldzone.id then
p.ZESM_LatestZone = zone
if not GAMEMODE.ZESM_LatestZone or zone.id < GAMEMODE.ZESM_LatestZone.id then
GAMEMODE.ZESM_LatestZone = zone
end
end
end
end
local lzonep = GAMEMODE.ZESM_LatestZone and GAMEMODE.ZESM_LatestZone.prev or zonedefault
for _, p in pairs(player.GetAll()) do
if lzonep ~= zonedefault and lzonep.id < p.ZESM_Zone.id then
p:SetPos(lzonep.spawnpos)
end
end
end)
end