mirror of
https://github.com/lifestorm/wnsrc.git
synced 2025-12-17 21:53:46 +03:00
Upload
This commit is contained in:
lifestorm
347
lua/autorun/vj_menu_properties.lua
Normal file
347
lua/autorun/vj_menu_properties.lua
Normal file
@@ -0,0 +1,347 @@
|
||||
--[[
|
||||
| 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/
|
||||
--]]
|
||||
|
||||
/*--------------------------------------------------
|
||||
=============== VJ Properties ===============
|
||||
*** Copyright (c) 2012-2023 by DrVrej, All rights reserved. ***
|
||||
No parts of this code or any of its contents may be reproduced, copied, modified or adapted,
|
||||
without the prior written consent of the author, unless otherwise indicated for stand-alone materials.
|
||||
--------------------------------------------------*/
|
||||
if (!file.Exists("autorun/vj_base_autorun.lua","LUA")) then return end
|
||||
|
||||
AddCSLuaFile()
|
||||
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
hook.Add("CanProperty", "VJ_PLY_CAN_PROPERTY", function(ply, property, ent)
|
||||
if GetConVar("vj_npc_admin_properties"):GetInt() == 1 && !ply:IsAdmin() && property == "vj_npc_properties" then ply:ChatPrint("#vjbase.menuproperties.print.adminonly") return false end
|
||||
end)
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Controlling ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_control",{
|
||||
MenuLabel = "#vjbase.menuproperties.control", -- Name to display on the context menu
|
||||
Order = 50000, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/controller.png", -- The icon to display next to the property
|
||||
PrependSpacer = true, -- Whether to add a spacer before this property. This should generally be true for the first property in a group of properties.
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
if !ply:Alive() then return end -- Keep the player from becoming a zombie =)
|
||||
if ply.IsControlingNPC then ply:ChatPrint("Can't control "..ent:GetName().." because you are already controlling another NPC!") return end
|
||||
if ent.VJ_IsBeingControlled != true then
|
||||
if ent:Health() > 0 then
|
||||
local obj = ents.Create("obj_vj_npccontroller")
|
||||
obj.VJCE_Player = ply
|
||||
obj:SetControlledNPC(ent)
|
||||
obj:Spawn()
|
||||
obj:StartControlling()
|
||||
else
|
||||
ply:ChatPrint("Can't control "..ent:GetName().." its health is 0 or below.")
|
||||
end
|
||||
else
|
||||
ply:ChatPrint("Can't control "..ent:GetName().." it's already being controlled.")
|
||||
end
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Guarding ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_guard",{
|
||||
MenuLabel = "#vjbase.menuproperties.guard", -- Name to display on the context menu
|
||||
Order = 50001, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/shield.png", -- The icon to display next to the property
|
||||
PrependSpacer = true, -- Whether to add a spacer before this property. This should generally be true for the first property in a group of properties.
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
if ent.VJ_IsBeingControlled != true then
|
||||
if ent.IsGuard == true then
|
||||
ply:ChatPrint("Disabled Guarding for "..ent:GetName()..".")
|
||||
ent.IsGuard = false
|
||||
else
|
||||
ply:ChatPrint("Enabled Guarding for "..ent:GetName()..".")
|
||||
ent:StopMoving()
|
||||
ent.IsGuard = true
|
||||
end
|
||||
else
|
||||
ply:ChatPrint("Unable to change setting for "..ent:GetName()..".")
|
||||
end
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Wandering ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_wander",{
|
||||
MenuLabel = "#vjbase.menuproperties.wander", -- Name to display on the context menu
|
||||
Order = 50002, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/arrow_rotate_clockwise.png", -- The icon to display next to the property
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
if ent.VJ_IsBeingControlled != true then
|
||||
if ent.DisableWandering == true then
|
||||
ply:ChatPrint("Enabled Wandering for "..ent:GetName()..".")
|
||||
ent.DisableWandering = false
|
||||
else
|
||||
ply:ChatPrint("Disabled Wandering for "..ent:GetName()..".")
|
||||
ent:StopMoving()
|
||||
ent.DisableWandering = true
|
||||
end
|
||||
else
|
||||
ply:ChatPrint("Unable to change setting for "..ent:GetName()..".")
|
||||
end
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Toggle Medic ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_medic",{
|
||||
MenuLabel = "#vjbase.menuproperties.medic", -- Name to display on the context menu
|
||||
Order = 50003, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/asterisk_yellow.png", -- The icon to display next to the property
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
if ent.IsMedicSNPC == true then
|
||||
ply:ChatPrint(ent:GetName().." Is no longer a medic.")
|
||||
ent.IsMedicSNPC = false
|
||||
else
|
||||
ply:ChatPrint(ent:GetName().." Is now a medic.")
|
||||
ent.IsMedicSNPC = true
|
||||
end
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Ally Me ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_allyme",{
|
||||
MenuLabel = "#vjbase.menuproperties.allyme", -- Name to display on the context menu
|
||||
Order = 50004, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/heart_add.png", -- The icon to display next to the property
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
table.insert(ent.VJ_AddCertainEntityAsFriendly,ply)
|
||||
for k,v in ipairs(ent.VJ_AddCertainEntityAsEnemy) do
|
||||
if v:IsPlayer() && v:GetName() == ply:GetName() then
|
||||
table.remove(ent.VJ_AddCertainEntityAsEnemy,k)
|
||||
end
|
||||
end
|
||||
ply:ChatPrint(ent:GetName().." Became an ally to you.")
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Hostile Me ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_hostileme",{
|
||||
MenuLabel = "#vjbase.menuproperties.hostileme", -- Name to display on the context menu
|
||||
Order = 50005, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/heart_delete.png", -- The icon to display next to the property
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
table.insert(ent.VJ_AddCertainEntityAsEnemy,ply)
|
||||
for k,v in ipairs(ent.VJ_AddCertainEntityAsFriendly) do
|
||||
if v:IsPlayer() && v:GetName() == ply:GetName() then
|
||||
table.remove(ent.VJ_AddCertainEntityAsFriendly,k)
|
||||
end
|
||||
end
|
||||
ply:ChatPrint(ent:GetName().." Became hostile to you.")
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Slay ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_slay",{
|
||||
MenuLabel = "#vjbase.menuproperties.slay", -- Name to display on the context menu
|
||||
Order = 50006, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/cancel.png", -- The icon to display next to the property
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
ent:SetHealth(0)
|
||||
ent:TakeDamage(ent:Health() + 99999,ply,ply)
|
||||
ply:ChatPrint("Slayed "..ent:GetName()..".")
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Gib ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_gib",{
|
||||
MenuLabel = "#vjbase.menuproperties.gib", -- Name to display on the context menu
|
||||
Order = 50007, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/bomb.png", -- The icon to display next to the property
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
ent:SetHealth(0)
|
||||
local dmg = DamageInfo()
|
||||
dmg:SetAttacker(ply)
|
||||
dmg:SetInflictor(ply)
|
||||
dmg:SetDamage(ent:Health() + 99999)
|
||||
dmg:SetDamageType(DMG_ALWAYSGIB)
|
||||
ent:TakeDamageInfo(dmg)
|
||||
ply:ChatPrint("Gibbed "..ent:GetName()..".")
|
||||
end
|
||||
})
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------ SNPC Developer Mode ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
properties.Add("vj_pr_npc_devmode",{
|
||||
MenuLabel = "#vjbase.menuproperties.devmode", -- Name to display on the context menu
|
||||
Order = 50008, -- The order to display this property relative to other properties
|
||||
MenuIcon = "icon16/tag.png", -- The icon to display next to the property
|
||||
|
||||
Filter = function(self, ent, ply) -- A function that determines whether an entity is valid for this property
|
||||
if (!IsValid(ent)) then return false end
|
||||
if (ent:IsPlayer()) or !ent:IsNPC() then return false end
|
||||
if (!gamemode.Call("CanProperty", ply, "vj_npc_properties", ent)) then return false end
|
||||
if ent.IsVJBaseSNPC != true then return false end
|
||||
return true
|
||||
end,
|
||||
|
||||
Action = function(self, ent) -- The action to perform upon using the property (Clientside)
|
||||
self:MsgStart()
|
||||
net.WriteEntity(ent)
|
||||
self:MsgEnd()
|
||||
end,
|
||||
|
||||
Receive = function(self, length, ply) -- The action to perform upon using the property (Serverside)
|
||||
local ent = net.ReadEntity()
|
||||
if (!self:Filter(ent, ply)) then return end
|
||||
if ent.VJ_DEBUG == true then
|
||||
ply:ChatPrint("Disabled Developer Mode for "..ent:GetName()..".")
|
||||
ent.VJ_DEBUG = false
|
||||
else
|
||||
ply:ChatPrint("Enabled Developer Mode for "..ent:GetName()..". Navigate to the SNPC developer menu to toggle items you want.")
|
||||
ent.VJ_DEBUG = true
|
||||
end
|
||||
end
|
||||
})
|
||||
Reference in New Issue
Block a user