Author Topic: Health Regeneration , Jump Gravity , Run Speed (Read 9409 times)

Schiaffino · « **on:** June 15, 2012, 11:06:41 pm »

* Hi Ulysses Team ( I'm Like The Spammer of Ulysses Mod Forum , But i make This Thread Stay Alive )

-> Zombie Survival Mod Server Is Finally Open , Thanks For Your Help ! ( Mr.President )

* Well I Make This Last/New Thread For The Last's Questions For Ulysses Team

[ THIS IS MY LAST THREAD ON THE FORUM FOR THIS MONTH HEHE ]

- A Few Days Ago I Found This Codes:

- Exp_Stuff_Server.lua

Code: Lua

 
 
AddCSLuaFile("client/exp_pointsmenu.lua")
AddCSLuaFile("client/exp_hud.lua")
 
 
-- Start System Vars.
local UpKeep = 50 -- How much added exp is added each level.
local PointsGained = 3 -- How many skill points players get each level up.
local ExpGained = 10 -- How much exp you get for killing an npc.
local ExpGained_Player = 25 -- How much exp you get for killing an fellow player.
-- End System Vars.
-- Start Skill Vars.
local MaxHpGain = 5 -- How much health is added onto players max hp when they buy 1 point of Max Hp Skill.
local MaxArmorGain = 5 -- How much armor is added onto players max armor when they buy 1 point of Max Armor Skill.
local RegTimeVar = 0.08 -- How fast the player regens hp, How much is given each buy of the skill, Higher = Faster, Lower = slower.
local RegArmTimeVar = 0.05 -- How fast the player regens armor, How much is given each buy of the skill, Higher = Faster, Lower = slower.
local ResistanceVar = 0.2 -- How much damage X is taken off the player for each resistance skill he/she has, dont set this higher than 0.09 or else players will be invincible at level 10 of this skill.
local JumpPowerVar = 25 -- How much extra power is added to the players jump, Try not to exceed 50 for this.
 
 
-- Start Spawn Functions
function EXPSetVarsOnSpawn(pl)
if pl:GetNWInt("Skill_HP") >= 1 then
pl:SetMaxHealth(100 + MaxHpGain*pl:GetNWInt("Skill_HP"))
pl:SetHealth(pl:GetMaxHealth())
end
if pl:GetNWInt("Skill_ARMOR") >= 1 then
pl:SetArmor(0 + MaxArmorGain*pl:GetNWInt("Skill_ARMOR"))
pl.MaxArmor = (100 + MaxArmorGain*pl:GetNWInt("Skill_ARMOR"))
else
pl.MaxArmor = 100
end
if pl:GetNWInt("Skill_REGEN") >= 1 then
pl.RegTime = (RegTimeVar*pl:GetNWInt("Skill_REGEN"))
else
pl.RegTime = 0
end
if pl:GetNWInt("Skill_ARMREGEN") >= 1 then
pl.RegArmTime = (RegArmTimeVar*pl:GetNWInt("Skill_ARMREGEN"))
else
pl.RegArmTime = 0
end
if pl:GetNWInt("Skill_JUMP") >= 1 then
pl:SetJumpPower(160 + JumpPowerVar*pl:GetNWInt("Skill_JUMP"))
end
if pl:GetNWInt("Skill_RESISTANCE") >= 1 then
pl.Resistance = (1 - ResistanceVar*pl:GetNWInt("Skill_RESIST"))
else
pl.Resistance = 1
end
end
hook.Add( "PlayerSpawn", "Set Vars On Spawn", EXPSetVarsOnSpawn )
-- End Spawn Functions
 
 
-- Start Regen Function
   function DoHPThink()
      for k,v in pairs (player.GetAll()) do
         if v.WaitTime == nil then v.WaitTime = 4 end
         if v.lastHit == nil then v.lastHit = CurTime() end
         if v.lastHeal == nil then v.lastHeal = CurTime() end
         if CurTime() - v.lastHit > v.WaitTime then
            if v:Health () != math.floor (math.ceil (v:Health () / v:GetMaxHealth()) * v:GetMaxHealth()) and CurTime() - v.lastHeal > 1/v.RegTime then
               v:SetHealth (v:Health() + 1)
               v.lastHeal = CurTime()
            end
         end
         v.lastHealth = v:Health()
      end
   end
   
   hook.Add ("Think", "hB.T", DoHPThink)
   
   function MehFace (pl)
      pl.lastHit = CurTime()
   end
   
   hook.Add ("PlayerHurt", "hB.PH", MehFace)
-- End Regen Function
 
 
-- Start Resistance Function
function ResistanceScale( ent, inflictor, attacker, amount, dmginfo )
 
   if ent:IsPlayer() then
   dmginfo:ScaleDamage( ent.Resistance )
   end
 
end
hook.Add("EntityTakeDamage","ScaleResistanceDamage",ResistanceScale)
-- End Resistance Function
 
 
-- Start Armor Regen Function
   function DoArmorThink()
      for k,v in pairs (player.GetAll()) do
         if v.WaitTimeA == nil then v.WaitTimeA = 4 end
         if v.lastHitA == nil then v.lastHitA = CurTime() end
         if v.lastHealA == nil then v.lastHealA = CurTime() end
         if CurTime() - v.lastHitA > v.WaitTimeA then
            if v:Armor() <= v.MaxArmor - 1 and CurTime() - v.lastHealA > 1/v.RegArmTime then
               v:SetArmor (v:Armor() + 1)
               v.lastHealA = CurTime()
            end
         end
         v.lastArmor = v:Armor()
      end
   end
   
   hook.Add ("Think", "AB.T", DoArmorThink)
   
   function MehFace2(pl)
      pl.lastHitA = CurTime()
   end
   
   hook.Add ("PlayerHurt", "AB.PH", MehFace2)
-- End Armor Regen Function
 
 
-- Start Buy Commands
function MaxHpBuy(pl)
if pl:GetNWInt("SkillPoints") <= 0 then return false end
if pl:GetNWInt("Skill_HP") >= 15 then return false end
pl:SetNWInt("Skill_HP",pl:GetNWInt("Skill_HP") + 1)
pl:SetMaxHealth(pl:GetMaxHealth() + MaxHpGain)
pl:SetHealth(pl:Health() + MaxHpGain)
pl:SetNWInt("SkillPoints",pl:GetNWInt("SkillPoints") - 1)
file.Write("exp/"..pl:UniqueID().."_skill_hp.txt", pl:GetNWInt("Skill_HP"))
file.Write("exp/"..pl:UniqueID().."_skillpoints.txt", pl:GetNWInt("SkillPoints"))
end
concommand.Add( "skill1buy",MaxHpBuy )
 
 
function MaxArmorBuy(pl)
if pl:GetNWInt("SkillPoints") <= 0 then return false end
pl:SetNWInt("Skill_ARMOR",pl:GetNWInt("Skill_ARMOR") + 1)
pl:SetArmor(pl:Armor() + MaxArmorGain)
pl.MaxArmor = pl.MaxArmor + MaxArmorGain
pl:SetNWInt("SkillPoints",pl:GetNWInt("SkillPoints") - 1)
file.Write("exp/"..pl:UniqueID().."_skill_armor.txt", pl:GetNWInt("Skill_ARMOR"))
file.Write("exp/"..pl:UniqueID().."_skillpoints.txt", pl:GetNWInt("SkillPoints"))
end
concommand.Add( "skill2buy",MaxArmorBuy )
 
 
function RegenBuy(pl)
if pl:GetNWInt("SkillPoints") <= 0 then return false end
pl:SetNWInt("Skill_REGEN",pl:GetNWInt("Skill_REGEN") + 1)
pl.RegTime = pl.RegTime + RegTimeVar
pl:SetNWInt("SkillPoints",pl:GetNWInt("SkillPoints") - 1)
file.Write("exp/"..pl:UniqueID().."_skill_regen.txt", pl:GetNWInt("Skill_REGEN"))
file.Write("exp/"..pl:UniqueID().."_skillpoints.txt", pl:GetNWInt("SkillPoints"))
end
concommand.Add( "skill3buy",RegenBuy )
 
 
function ArmRegenBuy(pl)
if pl:GetNWInt("SkillPoints") <= 0 then return false end
pl:SetNWInt("Skill_ARMREGEN",pl:GetNWInt("Skill_ARMREGEN") + 1)
pl.RegArmTime = pl.RegArmTime + RegArmTimeVar
pl:SetNWInt("SkillPoints",pl:GetNWInt("SkillPoints") - 1)
file.Write("exp/"..pl:UniqueID().."_skill_armregen.txt", pl:GetNWInt("Skill_ARMREGEN"))
file.Write("exp/"..pl:UniqueID().."_skillpoints.txt", pl:GetNWInt("SkillPoints"))
end
concommand.Add( "skill4buy",ArmRegenBuy )
 
 
function JumpBuy(pl)
if pl:GetNWInt("Skill_JUMP") >= 15 then return false end
if pl:GetNWInt("SkillPoints") <= 0 then return false end
pl:SetNWInt("Skill_JUMP",pl:GetNWInt("Skill_JUMP") + 1)
pl:SetJumpPower( pl:GetJumpPower() + JumpPowerVar )
pl:SetNWInt("SkillPoints",pl:GetNWInt("SkillPoints") - 1)
file.Write("exp/"..pl:UniqueID().."_skill_jump.txt", pl:GetNWInt("Skill_JUMP"))
file.Write("exp/"..pl:UniqueID().."_skillpoints.txt", pl:GetNWInt("SkillPoints"))
end
concommand.Add( "skill5buy",JumpBuy )
 
 
function ResistanceBuy(pl)
if pl:GetNWInt("Skill_RESIST") >= 15 then return false end
if pl:GetNWInt("SkillPoints") <= 0 then return false end
pl:SetNWInt("Skill_RESIST", pl:GetNWInt("Skill_RESIST") + 1)
pl:SetNWInt("SkillPoints",pl:GetNWInt("SkillPoints") - 1)
pl.Resistance = pl.Resistance - ResistanceVar
file.Write("exp/"..pl:UniqueID().."_skill_resist.txt", pl:GetNWInt("Skill_RESIST"))
file.Write("exp/"..pl:UniqueID().."_skillpoints.txt", pl:GetNWInt("SkillPoints"))
end
concommand.Add( "skill6buy",ResistanceBuy )
-- End Buy Commands
 
 
-- Start Killing Human EXP Gain
function EXPGainPlayer(victim, weapon, killer)
if killer:IsPlayer() and victim:IsPlayer() and GetConVarNumber("sbox_plpldamage") == 0 then
if killer == victim then return false end
killer:SetNWInt("EXP",killer:GetNWInt("EXP") + ExpGained_Player)
-- Exp Gain Complete
if killer:GetNWInt("EXP") >= (UpKeep*4*(killer:GetNWInt("Level") + 1) + killer:GetNWInt("Level")*UpKeep) then
killer:SetNWInt("Level",killer:GetNWInt("Level") + 1)
killer:SetNWInt("SkillPoints",killer:GetNWInt("SkillPoints") + PointsGained)
killer:PrintMessage(HUD_PRINTTALK,"Level Up!")
end
end
end
hook.Add( "PlayerDeath", "PlayerExpGain", EXPGainPlayer )
-- End Killing Human Exp Gain
 
 
-- Start Killing NPC Exp Gain
function EXPGainNpc(npc, killer, weapon)
if killer:IsPlayer() and npc:IsNPC() then
killer:SetNWInt("EXP",killer:GetNWInt("EXP") + ExpGained)
-- Exp Gain Complete
if killer:GetNWInt("EXP") >= (UpKeep*4*(killer:GetNWInt("Level") + 1) + killer:GetNWInt("Level")*UpKeep) then
killer:SetNWInt("Level",killer:GetNWInt("Level") + 1)
killer:SetNWInt("SkillPoints",killer:GetNWInt("SkillPoints") + PointsGained)
killer:PrintMessage(HUD_PRINTTALK,"Level Up!")
end
end
end
hook.Add( "OnNPCKilled", "NpcExpGain", EXPGainNpc )
-- End Killing NPC Exp Gain
 
 
-- Start Save
function SaveDataNPC(npc, killer, weapon)
if npc:IsNPC() and killer:IsPlayer() then
file.Write("exp/"..killer:UniqueID().."_exppoints.txt", killer:GetNWInt("EXP"))
file.Write("exp/"..killer:UniqueID().."_level.txt", killer:GetNWInt("Level"))
file.Write("exp/"..killer:UniqueID().."_skillpoints.txt", killer:GetNWInt("SkillPoints"))
end
end
hook.Add( "OnNPCKilled", "SaveDataNPC", SaveDataNPC )
 
 
function SaveDataPlayer(victim, weapon, killer)
if victim:IsPlayer() and killer:IsPlayer() then
file.Write("exp/"..killer:UniqueID().."_exppoints.txt", killer:GetNWInt("EXP"))
file.Write("exp/"..killer:UniqueID().."_level.txt", killer:GetNWInt("Level"))
file.Write("exp/"..killer:UniqueID().."_skillpoints.txt", killer:GetNWInt("SkillPoints"))
end
end
hook.Add( "PlayerDeath", "SaveDataPlayer", SaveDataPlayer )
-- End Save
 
 

There Is A Posibility To Add:

- Health Regeneration ; More Jump ; More Speed

Like This Command:

Code: Lua

if ply:GetRank() == 20 then          ply:Give("weapon_crowbar")          ply:SetMaxHealth(250)
end
 

Like Add Lower Gravity , More Sprint Speed & Health Regeneration Like The Field Generator ( Recovery )

Again: Thanks Mr.President & Ulysses Team !

MrPresident · « **Reply #1 on:** June 15, 2012, 11:21:21 pm »

Don't worry about it. It gives me something to do, and you are posting stuff that other people might find useful at some point and you're posting in the correct forum. We're here to help.

This is a sprint or regular speed script. Add this to any serverside script file. I'll work on the other 2 ideas here in a bit they are a bit more complex

Code: [Select]


function SprintIncrease(ply)
     if ply:GetRank() == 20 then
          GAMEMODE:SetPlayerSpeed(ply, 250, 500) --First number is default walk, second is default run
     end
end
hook.Add("PlayerSpawn", "SpeedInc", SprintIncrease)

Schiaffino · « **Reply #2 on:** June 15, 2012, 11:40:57 pm »

When you said: Serverside , you mean ( autorun/server/whatever.lua ) ?

I Put This On: ( " Gamemode_Functions.lua ") ( I Dont Know If I'm Wrong )

Code: Lua

function SprintIncrease(ply)
 
    if ply:GetRank() == 1 then
GAMEMODE:SetPlayerSpeed(ply, 205, 305)
end
 
        if ply:GetRank() == 2 then
GAMEMODE:SetPlayerSpeed(ply, 210, 312)
end
 
        if ply:GetRank() == 3 then
GAMEMODE:SetPlayerSpeed(ply, 215, 324)
end
 
        if ply:GetRank() == 4 then
GAMEMODE:SetPlayerSpeed(ply, 220, 336)
end
 
        if ply:GetRank() == 5 then
GAMEMODE:SetPlayerSpeed(ply, 225, 348)
end
 
        if ply:GetRank() == 6 then
GAMEMODE:SetPlayerSpeed(ply, 230, 360)
end
 
        if ply:GetRank() == 7 then
GAMEMODE:SetPlayerSpeed(ply, 235, 372)
end
 
        if ply:GetRank() == 8 then
GAMEMODE:SetPlayerSpeed(ply, 240, 384)
end
 
        if ply:GetRank() == 9 then
GAMEMODE:SetPlayerSpeed(ply, 240, 384)
end
 
    if ply:GetRank() == 10 then
GAMEMODE:SetPlayerSpeed(ply, 240, 384)
end
 
        if ply:GetRank() == 11 then
GAMEMODE:SetPlayerSpeed(ply, 240, 384)
end
 
        if ply:GetRank() == 12 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 13 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 14 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 15 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 16 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 17 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 18 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 19 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
     if ply:GetRank() == 20 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end
 
        if ply:GetRank() == 21 then
GAMEMODE:SetPlayerSpeed(ply, 250, 400)
end              
end
hook.Add("PlayerSpawn", "SpeedInc", SprintIncrease)
 

Thanks ! =)

MrPresident · « **Reply #3 on:** June 16, 2012, 12:15:24 am »

Jump Function

Code: [Select]

function JumpIncrease(ply)
     if ply:GetRank() == 20 then
          ply:SetJumpPower(210) --200 is normal.. play with the numbers to get it right.
     end
end
hook.Add("PlayerSpawn", "JumpInc", JumpIncrease)

MrPresident · « **Reply #4 on:** June 16, 2012, 12:27:54 am »

This is your health regeneration script... I'll comment what i can so you can tweak it to your liking...

Code: [Select]

function HealthRegen()

     for k, v in pairs(player.GetAll()) do
          if v:GetRank() == "10" then
               local inc = 10 --AMOUNT OF HEALTH TO INCREASE EVERY TIME THE FUNCTION RUNS
               local pmax = v:GetMaxHealth()
               if ply:Health == pmax then return end
               if ( ply:Health() + inc ) < pmax then
                    ply:SetHealth( ply:Health() + inc )
               else
                    ply:SetHealth( pmax )
               end
          end
     end

end
timer.Create("regentimer", 60, 0, HealthRegen) --REGEN EVERY 60 seconds.. change that to suit your needs

There is a cleaner way to do this.. but this is the easiest.

Schiaffino · « **Reply #5 on:** June 16, 2012, 05:05:57 pm »

Thank's Mr.President For All Your Help

Im Really Happy With That.

=D !

MrPresident · « **Reply #6 on:** June 16, 2012, 05:34:18 pm »

Did all 3 scripts work like you wanted?

JamminR · « **Reply #7 on:** June 16, 2012, 08:10:31 pm »

Doesn't the '0' in the timer create script make it run forever?
You'd only need to run this once. It would then go forever.
Run it again, and it would just start the originally created timer over again, perhaps at a different minute timeframe.

MrPresident · « **Reply #8 on:** June 16, 2012, 08:34:55 pm »

You are correct Jam, but that is the intent. The timer is suppose to run that function every x seconds forever. that's how I choose to do the health regeneration.

no.. the timer is on the outside of the function. I could have put it on the inside and made the 0 a 1 and it would have accomplished the same idea only the function would have to be run at least once from an external source.

JamminR · « **Reply #9 on:** June 17, 2012, 08:54:48 am »

Thought so.
Problem is, not every new lua coder knows this.
One might write other code to run the function more than once by default, but that wouldn't be needed.

Schiaffino · « **Reply #10 on:** June 17, 2012, 11:25:14 am »

hi dude , about the RUN Function , i have a problem ( doesnt work )
It's like outdated D: !

and another question, today i found an error :S i dont know why happend but:

Code: Lua

 
function AntlionGuard(victim, killer)
if victim:GetClass() == "npc_antlionguard" then
   PrintMessage ( HUD_PRINTTALK, "* The Antlion Guard "  .. " was killed by " .. killer:GetName().. ".\n" )
        killer:ChatPrint("$2500 For Killing a Antlion Guard")
    killer:AddMoney(2500)
end
end
hook.Add( "OnNPCKilled", "MyNPCKilledFunction", AntlionGuard )
 
 

Work Like 15 Minutes , and then stop doint the function , i dont know why happend that :S , no errors nothing , just stop making the function :S
For non reason , what can be the problem ?

Really THanks

Schiaffino

JamminR · « **Reply #11 on:** June 17, 2012, 12:56:21 pm »

Is another "OnNPCKilled" hook overwriting yours somewhere? (Whether you wrote it or not)
Though the code example you show should work fine no matter how many other "OnNPCKilled" hooks are used..if any other hook has a "return <true||false>" in it...it would break others.

Schiaffino · « **Reply #12 on:** June 17, 2012, 01:28:23 pm »

yes, other functions are using that...

can i change that ? to like AntlionKill ?

JamminR · « **Reply #13 on:** June 17, 2012, 01:55:49 pm »

If another bit of code is using the same hook (hook type "OnNPCKilled"), but has a 'return <blah>', it breaks most other of the same hook.
The problem about one hook overwriting another is, in some gamemode situations, you might want it to.
Unfortunately in this case, it's overwriting and breaking yours.
Try removing, at the least, commenting out using "--", the "return" line in the other code.
If all else works after that, you/they that used it didn't need return.

If another bit of code uses the SAME unique identifier(2) or function name(3), you'll definitely have to rename the function or identifier
hook.Add( "OnNPCKilled", "2", 3 )

Schiaffino · « **Reply #14 on:** June 17, 2012, 03:18:15 pm »

Thanks JamminR !

Ulysses

Author Topic: Health Regeneration , Jump Gravity , Run Speed (Read 9409 times)

Schiaffino

Health Regeneration , Jump Gravity , Run Speed

MrPresident

Re: Health Regeneration , Jump Gravity , Run Speed

Schiaffino

Re: Health Regeneration , Jump Gravity , Run Speed

MrPresident

Re: Health Regeneration , Jump Gravity , Run Speed

MrPresident

Re: Health Regeneration , Jump Gravity , Run Speed

Schiaffino

Re: Health Regeneration , Jump Gravity , Run Speed

MrPresident

Re: Health Regeneration , Jump Gravity , Run Speed

JamminR

Re: Health Regeneration , Jump Gravity , Run Speed

MrPresident

Re: Health Regeneration , Jump Gravity , Run Speed

JamminR

Re: Health Regeneration , Jump Gravity , Run Speed

Schiaffino

Re: Health Regeneration , Jump Gravity , Run Speed

JamminR

Re: Health Regeneration , Jump Gravity , Run Speed

Schiaffino

Re: Health Regeneration , Jump Gravity , Run Speed

JamminR

Re: Health Regeneration , Jump Gravity , Run Speed

Schiaffino

Re: Health Regeneration , Jump Gravity , Run Speed