I need command -addhp to add hp to a hero , from JJ cheat pack
But i don't know how to do it ... so please ... can someone make it for me
![Very Happy :D](./images/smilies/icon_biggrin.gif)
Moderator: Cheaters
Code: Select all
function AddHP_Action takes nothing returns nothing
local integer AddHP_AddPoint=S2I(SubString(GetEventPlayerChatString(),6,StringLength(GetEventPlayerChatString())))/50
local unit AddHP_Unit=GetEnumUnit()
local integer AddHP_Loop=0
call UnitAddAbility(AddHP_Unit,'AInv')
loop
exitwhen AddHP_Loop>=AddHP_AddPoint
call UnitAddItemById(AddHP_Unit,'manh')
set AddHP_Loop=AddHP_Loop+1
endloop
set AddHP_Unit=null
endfunction
function AddHP_Add2Group takes nothing returns nothing
local group AddHP_Group=CreateGroup()
call GroupEnumUnitsSelected(AddHP_Group,GetTriggerPlayer(),null)
call ForGroup(AddHP_Group,function AddHP_Action)
call DestroyGroup(AddHP_Group)
endfunction
function AddHP_Install takes nothing returns nothing
local trigger AddHP_Trigger=CreateTrigger()
local integer AddHP_Loop=11
call TriggerAddAction(AddHP_Trigger,function AddHP_Add2Group)
loop
call TriggerRegisterPlayerChatEvent(AddHP_Trigger,Player(AddHP_Loop),"-addhp",false)
set AddHP_Loop=AddHP_Loop-1
exitwhen AddHP_Loop==0
endloop
endfunction
Code: Select all
call AddHP_Install()
Code: Select all
trigger trg_hp=CreateTrigger()
Code: Select all
function addHP takes nothing returns nothing
local integer Sethp=S2I(SubString(GetEventPlayerChatString(),7,12))/50
local group g2g=CreateGroup()
local unit u2u
local integer Nowhp=0
call GroupEnumUnitsSelected(g2g,GetTriggerPlayer(),null)
loop
set u2u=FirstOfGroup(g2g)
exitwhen u2u==null
if SubString(GetEventPlayerChatString(),0,7)=="-addhp "then
if Sethp>200then
set Sethp=200
endif
call UnitAddAbility(u2u,'AInv')
loop
exitwhen Nowhp>=Sethp
set Nowhp=Nowhp+1
call UnitAddItemToSlotById(u2u,'manh',6)
endloop
endif
call GroupRemoveUnit(g2g,u2u)
endloop
call DestroyGroup(g2g)
endfunction
Code: Select all
local integer zzz=0
loop
exitwhen zzz>11
call TriggerRegisterPlayerChatEvent(trg_hp,Player(zzz),"-addhp ",false)
set zzz=zzz+1
endloop
call TriggerAddAction(trg_hp,function addHP)