Advertisement
Guest User

gamemode error

a guest
Apr 12th, 2015
39
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.39 KB | None | 0 0
  1. local Player = FindMetaTable("Player")
  2.  
  3. function Player:AddStat(strStat, intAmount)
  4.     self.Stats = self.Stats or {}
  5.     if intAmount != 0 then
  6.         local intDirection = math.abs(intAmount) / intAmount
  7.         self:SetStat(strStat, self:GetStat(strStat) + (intDirection * math.ceil(math.abs(intAmount))))
  8.     end
  9. end
  10.  
  11. function Player:SetStat(strStat, intAmount)
  12.     local tblStatTable = GAMEMODE.DataBase.Stats[strStat]
  13.     self.Stats = self.Stats or {}
  14.     local intOldStat = self.Stats[strStat] or 1
  15.     self.Stats[strStat] = intAmount
  16.     if SERVER then
  17.         if tblStatTable.OnSet then
  18.             tblStatTable:OnSet(self, intAmount, intOldStat)
  19.         end
  20.         SendUsrMsg("UD_UpdateStats", self, {strStat, intAmount})
  21.     end
  22. end
  23.  
  24. function Player:GetStat(strStat)
  25.     self.Stats = self.Stats or {}
  26.     if self.Stats && self.Stats[strStat] then
  27.         return self.Stats[strStat]
  28.     end
  29.     return StatTable(strStat).Default
  30. end
  31.  
  32. if SERVER then
  33.     hook.Add("PlayerSpawn", "PlayerSpawn_Stats", function(ply)
  34.         for name, stat in pairs(GAMEMODE.DataBase.Stats) do
  35.             if ply.Stats then
  36.                 ply:SetStat(name, ply:GetStat(name))
  37.                 if stat.OnSpawn then
  38.                     stat:OnSpawn(ply, ply:GetStat(name))
  39.                 end
  40.             end
  41.         end
  42.         ply:AddStat("stat_agility", ply.ToMakeUpAgility or 0)
  43.         ply.ToMakeUpAgility = 0
  44.     end)
  45. end
  46.  
  47. if CLIENT then
  48.     usermessage.Hook("UD_UpdateStats", function(usrMsg)
  49.         LocalPlayer():SetStat(usrMsg:ReadString(), usrMsg:ReadLong())
  50.     end)
  51. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement