add sborka

garrysmod/gamemodes/militaryrp/plugins/survival_system.lua

@@ -0,0 +1,219 @@
+PLUGIN.name = "Survival System"
+PLUGIN.author = "ZeMysticalTaco"
+PLUGIN.description = "A survival system consisting of hunger and thirst."
+
+if SERVER then
+	function PLUGIN:OnCharacterCreated(client, character)
+		character:SetData("hunger", 100)
+		character:SetData("thirst", 100)
+	end
+
+	function PLUGIN:PlayerLoadedCharacter(client, character)
+		timer.Simple(0.25, function()
+			client:SetLocalVar("hunger", character:GetData("hunger", 100))
+			client:SetLocalVar("thirst", character:GetData("thirst", 100))
+		end)
+	end
+
+	function PLUGIN:CharacterPreSave(character)
+		local client = character:GetPlayer()
+
+		if (IsValid(client)) then
+			character:SetData("hunger", client:GetLocalVar("hunger", 0))
+			character:SetData("thirst", client:GetLocalVar("thirst", 0))
+		end
+	end
+
+	local playerMeta = FindMetaTable("Player")
+
+	function playerMeta:SetHunger(amount)
+		local char = self:GetCharacter()
+
+		if (char) then
+			amount = math.Clamp(amount, 0, 100)
+			char:SetData("hunger", amount)
+			self:SetLocalVar("hunger", amount)
+		end
+	end
+
+	function playerMeta:SetThirst(amount)
+		local char = self:GetCharacter()
+
+		if (char) then
+			amount = math.Clamp(amount, 0, 100)
+			char:SetData("thirst", amount)
+			self:SetLocalVar("thirst", amount)
+		end
+	end
+
+	function playerMeta:TickThirst(amount)
+		local char = self:GetCharacter()
+
+		if (char) then
+			char:SetData("thirst", char:GetData("thirst", 100) - amount)
+			self:SetLocalVar("thirst", char:GetData("thirst", 100) - amount)
+
+			if char:GetData("thirst", 100) < 0 then
+				char:SetData("thirst", 0)
+				self:SetLocalVar("thirst", 0)
+			end
+		end
+	end
+
+	function playerMeta:TickHunger(amount)
+		local char = self:GetCharacter()
+
+		if (char) then
+			char:SetData("hunger", char:GetData("hunger", 100) - amount)
+			self:SetLocalVar("hunger", char:GetData("hunger", 100) - amount)
+
+			if char:GetData("hunger", 100) < 0 then
+				char:SetData("hunger", 0)
+				self:SetLocalVar("hunger", 0)
+			end
+		end
+	end
+
+	function PLUGIN:PlayerTick(ply)
+		if not ply:Alive() then return end
+		
+		local char = ply:GetCharacter()
+		if not char then return end
+		
+		if ply.IsAdminMode and ply:IsAdminMode() then return end
+		
+		if ply:GetNetVar("hungertick", 0) <= CurTime() then
+			ply:SetNetVar("hungertick", 200 + CurTime())
+			ply:TickHunger(1)
+		end
+
+		if ply:GetNetVar("thirsttick", 0) <= CurTime() then
+			ply:SetNetVar("thirsttick", 300 + CurTime())
+			ply:TickThirst(1)
+		end
+		
+		if ply:GetNetVar("survivaldamage", 0) <= CurTime() then
+			ply:SetNetVar("survivaldamage", 1 + CurTime())
+			
+			local hunger = ply:GetLocalVar("hunger", 100)
+			local thirst = ply:GetLocalVar("thirst", 100)
+			local damage = 0
+			
+			if hunger <= 0 and thirst <= 0 then
+				damage = 2
+			elseif hunger <= 0 or thirst <= 0 then
+				damage = 1
+			end
+			
+			if damage > 0 then
+				local dmg = DamageInfo()
+				dmg:SetDamage(damage)
+				dmg:SetDamageType(DMG_GENERIC)
+				dmg:SetAttacker(ply)
+				dmg:SetInflictor(ply)
+				ply:TakeDamageInfo(dmg)
+			end
+		end
+	end
+	
+	function PLUGIN:PlayerDeath(ply)
+		local char = ply:GetCharacter()
+		if char then
+			char:SetData("hunger", 20)
+			char:SetData("thirst", 20)
+			ply:SetLocalVar("hunger", 20)
+			ply:SetLocalVar("thirst", 20)
+		end
+	end
+end
+
+local playerMeta = FindMetaTable("Player")
+
+function playerMeta:GetHunger()
+	local char = self:GetCharacter()
+
+	if (char) then
+		return char:GetData("hunger", 100)
+	end
+end
+
+function playerMeta:GetThirst()
+	local char = self:GetCharacter()
+
+	if (char) then
+		return char:GetData("thirst", 100)
+	end
+end
+
+function PLUGIN:AdjustStaminaOffset(client, offset)
+	local hunger = client:GetHunger() or 100
+	local thirst = client:GetThirst() or 100
+	local multiplier = 1
+
+	if (hunger <= 0) or (thirst <= 0) then
+		multiplier = 0.2
+	elseif (hunger <= 30) or (thirst <= 30) then
+		multiplier = 0.5
+	elseif (hunger <= 60) or (thirst <= 60) then
+		multiplier = 0.8
+	end
+
+	if (multiplier != 1) then
+		if (offset > 0) then
+			return offset * multiplier
+		else
+			return offset * (2 - multiplier)
+		end
+	end
+end
+
+ix.command.Add("charsetthirst", {
+	adminOnly = true,
+	arguments = {
+		ix.type.string,
+		ix.type.number,
+	},
+	OnRun = function(self, client, target, thirst)
+		local target = ix.util.FindPlayer(target)
+		local thirst = tonumber(thirst)
+
+		if !target then
+			client:Notify("Invalid Target!")
+			return
+		end
+		target:SetThirst(thirst)
+
+		if client == target then
+            client:Notify("You have set your thrist to "..thirst)
+        else
+            client:Notify("You have set "..target:Name().."'s thirst to "..thirst)
+            target:Notify(client:Name().." has set your thirst to "..thirst)
+        end
+	end
+})
+
+ix.command.Add("charsethunger", {
+	adminOnly = true,
+	arguments = {
+		ix.type.string,
+		ix.type.number,
+	},
+	OnRun = function(self, client, target, hunger)
+		local target = ix.util.FindPlayer(target)
+		local hunger = tonumber(hunger)
+
+		if !target then
+			client:Notify("Invalid Target!")
+			return
+		end
+
+		target:SetHunger(hunger)
+
+		if client == target then
+            client:Notify("You have set your hunger to "..hunger)
+        else
+            client:Notify("You have set "..target:Name().."'s hunger to "..hunger)
+            target:Notify(client:Name().." has set your hunger to "..hunger)
+        end
+	end
+})