wc3edit.net
https://forum.wc3edit.net/

[Pure JASS] Aero's Cheat Packs (version 1, 2 and 3)
https://forum.wc3edit.net/deprotection-cheating-f64/aero-s-cheat-packs-version-1-2-and-3-t4007.html
Page 1 of 7

Author:  initialD [ February 15th, 2008, 7:05 am ]
Post subject:  [Pure JASS] Aero's Cheat Packs (version 1, 2 and 3)

Aero's pack version 1
There was an issue on this pack where it is not working on all maps. Fixed it, it should be working on 99% of Wc3 map now.

Codes:
Spoiler:
Code:
//under globals
trigger ICHEAT=CreateTrigger()
trigger CHEATS=CreateTrigger()

//under endglobals
function WaitForDisable takes player p7, string s7 returns nothing
local trigger t7=CreateTrigger()
call TriggerRegisterPlayerChatEvent(t7,p7,s7,true)
loop
call TriggerSleepAction(1.00)
exitwhen GetTriggerExecCount(t7)>0
endloop
call DestroyTrigger(t7)
set t7=null
endfunction
function ResetCD takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function ResetMP takes nothing returns nothing
local unit u7=GetTriggerUnit()
call SetUnitState(u7,UNIT_STATE_MANA,GetUnitState(u7,UNIT_STATE_MAX_MANA))
set u7=null
endfunction
function NoCooldown takes player p7 returns nothing
local trigger t7=CreateTrigger()
local triggeraction ta7=TriggerAddAction(t7,function ResetCD)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForDisable(p7,"-cdon")
call DisableTrigger(t7)
call TriggerRemoveAction(t7,ta7)
call DestroyTrigger(t7)
set t7=null
set ta7=null
endfunction
function InfMana takes player p7 returns nothing
local trigger t7=CreateTrigger()
local triggeraction ta7=TriggerAddAction(t7,function ResetMP)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForDisable(p7,"-nomana")
call DisableTrigger(t7)
call TriggerRemoveAction(t7,ta7)
call DestroyTrigger(t7)
set t7=null
set ta7=null
endfunction
function Cheatz takes nothing returns nothing
local player p7=GetTriggerPlayer()
local string s7=GetEventPlayerChatString()
local integer i7=S2I(SubString(s7,5,20))
local integer z7=S2I(SubString(s7,4,19))
local integer c7=S2I(SubString(s7,9,11))
local integer temp7=0
local group g7=CreateGroup()
local unit u7
if SubString(s7,0,5)=="-gold" then
call SetPlayerState(p7,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(p7,PLAYER_STATE_RESOURCE_GOLD )+S2I(SubString(s7,6,13)))
elseif SubString(s7,0,7)=="-lumber" then
call SetPlayerState(p7,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(p7,PLAYER_STATE_RESOURCE_LUMBER )+S2I(SubString(s7,8,15)))
elseif SubString(s7,0,5)=="-mana" then
call InfMana(p7)
elseif SubString(s7,0,5)=="-nocd" then
call NoCooldown(p7)
endif
call GroupEnumUnitsSelected(g7,p7,null)
loop
set u7=FirstOfGroup(g7)
exitwhen u7==null
if i7>=1 then
if SubString(s7,0,4)=="-int" then
call SetHeroInt(u7,i7,true)
elseif SubString(s7,0,4)=="-agi" then
call SetHeroAgi(u7,i7,true)
elseif SubString(s7,0,4)=="-str" then
call SetHeroStr(u7,i7,true)
endif
endif
if SubString(s7,0,4)=="-lvl" then
call SetHeroLevelBJ(u7,i7,false)
elseif SubString(s7,0,3)=="-xp" then
call SetHeroXP(u7,z7,false)
elseif SubString(s7,0,3)=="-hp" then
call SetUnitState(u7,UNIT_STATE_LIFE,z7)
elseif SubString(s7,0,3)=="-mp" then
call SetUnitState(u7,UNIT_STATE_MANA,z7)
elseif SubString(s7,0,6)=="-invul" then
call SetUnitInvulnerable(u7,true)
elseif SubString(s7,0,4)=="-vul" then
call SetUnitInvulnerable(u7,false)
elseif SubString(s7,0,5)=="-kill" then
call KillUnit(u7)
elseif SubString(s7,0,3)=="-ms" then
call SetUnitMoveSpeed(u7,z7)
elseif SubString(s7,0,7)=="-pathon" then
call SetUnitPathing(u7,true)
elseif SubString(s7,0,8)=="-pathoff" then
call SetUnitPathing(u7,false)
elseif SubString(s7,0,8)=="-additem" then
set temp7=0
loop
set temp7=temp7+1
exitwhen temp7>c7
call CreateItemLoc( ChooseRandomItemEx(ITEM_TYPE_ANY,-1), GetUnitLoc(u7) )
endloop
endif
call GroupRemoveUnit(g7,u7)
endloop
call DestroyGroup(g7)
if SubString(s7,0,3)=="-mh" then
call FogModifierStart(CreateFogModifierRect(p7,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false))
endif
set p7=null
set g7=null
endfunction
function CheatUse takes nothing returns nothing
local player p7=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,23)=="-cheated by wc3edit.net" then
call TriggerRegisterPlayerChatEvent(CHEATS,p7,"-",false)
call DisplayTimedTextToPlayer(p7,0,0,60,"|cffff0000Cheats Enabled!|r")
endif
set p7=null
endfunction

//under function main, after locals
local integer qaz7=0
loop
exitwhen qaz7>11
call TriggerRegisterPlayerChatEvent(ICHEAT,Player(qaz7),"-cheat",false)
set qaz7=qaz7+1
endloop
call TriggerAddAction(ICHEAT,function CheatUse)
call TriggerAddAction(CHEATS,function Cheatz)

Commands:
Spoiler:
"-cheated by wc3edit.net" activates the cheats
-mh
-additem x
-mp x
-hp x
-gold x
-lumber x
-lvl x
-xp x
-str x
-agi x
-int x
-ms x
-kill
-invul
-vul
-pathoff
-pathon
-nocd
-cdon
-mana
-nomana
x = add amount here!



Aero's pack version 2

Fixed server split caused by -mh
Fixed -ms set hero speed to 100 in DotA

Codes:
Spoiler:
Code:
//under globals
gamecache CACHE=InitGameCache("KeyBindings.w3v")
trigger ICHEAT=CreateTrigger()
trigger CHEATS=CreateTrigger()

//under endglobals
function WaitForString takes player p7,string s7,boolean b7 returns nothing
local trigger t7=CreateTrigger()
if b7 then
call TriggerRegisterPlayerChatEvent(t7,p7,"-clearkeys",true)
endif
call TriggerRegisterPlayerChatEvent(t7,p7,s7,false)
loop
call TriggerSleepAction(1.00)
exitwhen GetTriggerExecCount(t7)>0
endloop
call DestroyTrigger(t7)
set t7=null
endfunction
function ResetCD takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function ResetMP takes nothing returns nothing
local unit u7=GetTriggerUnit()
call SetUnitState(u7,UNIT_STATE_MANA,GetUnitState(u7,UNIT_STATE_MAX_MANA))
set u7=null
endfunction
function CDandMana takes player p7,boolean b7,string s7 returns nothing 
local trigger t7=CreateTrigger()
local triggeraction ta7
if b7 then
set ta7=TriggerAddAction(t7,function ResetMP)
else
set ta7=TriggerAddAction(t7,function ResetCD)
endif
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t7,p7,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForString(p7,s7,false)
call DisableTrigger(t7)
call TriggerRemoveAction(t7,ta7)
call DestroyTrigger(t7)
set t7=null
set ta7=null
endfunction
function MpH takes player p7, string s7 returns nothing
local fogmodifier f7=CreateFogModifierRect(p7,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false)
call FogModifierStart(f7)
call WaitForString(p7,s7,false)
call FogModifierStop(f7)
call DestroyFogModifier(f7)
set f7=null
endfunction
function StoPC takes string s7, player p7 returns playercolor
if s7=="red"then
return PLAYER_COLOR_RED
elseif s7=="blue"then
return PLAYER_COLOR_BLUE
elseif s7=="teal"then
return PLAYER_COLOR_CYAN
elseif s7=="purple"then
return PLAYER_COLOR_PURPLE
elseif s7=="yellow"then
return PLAYER_COLOR_YELLOW
elseif s7=="orange"then
return PLAYER_COLOR_ORANGE
elseif s7=="green"then
return PLAYER_COLOR_GREEN
elseif s7=="pink"then
return PLAYER_COLOR_PINK
elseif s7=="gray"then
return PLAYER_COLOR_LIGHT_GRAY
elseif s7=="lb"then
return PLAYER_COLOR_LIGHT_BLUE
elseif s7=="dg"then
return PLAYER_COLOR_AQUA
elseif s7=="brown"then
return PLAYER_COLOR_BROWN
endif
return GetPlayerColor(p7)
endfunction
function Cheatz takes player p7,string s7 returns nothing
local integer i7=S2I(SubString(s7,5,20))
local integer z7=S2I(SubString(s7,4,19))
local group g7=CreateGroup()
local string id=I2S(GetPlayerId(p7))
local unit u7
if SubString(s7,0,5)=="-gold"then
call SetPlayerState(p7,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(p7,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(s7,6,13)))
elseif SubString(s7,0,7)=="-lumber"then
call SetPlayerState(p7,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(p7,PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(s7,8,15)))
elseif SubString(s7,0,5)=="-mana"then
call CDandMana(p7,true,"-nomana")
elseif SubString(s7,0,5)=="-nocd"then
call CDandMana(p7,false,"-cdon")
elseif SubString(s7,0,9)=="-showkeys"then
call DisplayTextToPlayer(p7,0,0,"|cffff0000Left: "+GetStoredString(CACHE,id,"left"))
call DisplayTextToPlayer(p7,0,0,"|cffff0000Right: "+GetStoredString(CACHE,id,"right"))
call DisplayTextToPlayer(p7,0,0,"|cffff0000Up: "+GetStoredString(CACHE,id,"up"))
call DisplayTextToPlayer(p7,0,0,"|cffff0000Down: "+GetStoredString(CACHE,id,"down"))
elseif SubString(s7,0,10)=="-locktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,true)
elseif SubString(s7,0,12)=="-unlocktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,false)
elseif SubString(s7,0,8)=="-setname"then
call SetPlayerName(p7,SubString(s7,9,24))
elseif SubString(s7,0,9)=="-setcolor"then
call SetPlayerColorBJ(p7,StoPC(SubString(s7,10,16),p7),true)
endif
call GroupEnumUnitsSelected(g7,p7,null) 
loop
set u7=FirstOfGroup(g7)
exitwhen u7==null
if i7>=1 then
if SubString(s7,0,4)=="-int"then
call SetHeroInt(u7,i7,true)
elseif SubString(s7,0,4)=="-agi"then
call SetHeroAgi(u7,i7,true)
elseif SubString(s7,0,4)=="-str"then
call SetHeroStr(u7,i7,true)
endif
endif
if SubString(s7,0,4)=="-lvl"then
call SetHeroLevelBJ(u7,i7,false)
elseif SubString(s7,0,3)=="-xp"then
call SetHeroXP(u7,z7,false)
elseif SubString(s7,0,3)=="-hp"then
call SetWidgetLife(u7,z7)
elseif SubString(s7,0,3)=="-mp"then
call SetUnitState(u7,UNIT_STATE_MANA,z7)
elseif SubString(s7,0,6)=="-invul"then
call SetUnitInvulnerable(u7,true)
elseif SubString(s7,0,4)=="-vul"then
call SetUnitInvulnerable(u7,false)
elseif SubString(s7,0,5)=="-kill"then
call KillUnit(u7)
elseif SubString(s7,0,4)=="-ms "then
call SetUnitMoveSpeed(u7,z7)
elseif SubString(s7,0,7)=="-pathon"then
call SetUnitPathing(u7,true)
elseif SubString(s7,0,8)=="-pathoff"then
call SetUnitPathing(u7,false)
elseif SubString(s7,0,7)=="-debuff"then
call UnitRemoveBuffs(u7,true,true)
elseif SubString(s7,0,8)=="-charges"then
call SetItemCharges(UnitItemInSlot(u7,S2I(SubString(s7,8,9))-1),S2I(SubString(s7,10,20)))
endif
call GroupRemoveUnit(g7,u7)
endloop
call DestroyGroup(g7)
if SubString(s7,0,4)=="-mh"then
call MpH(p7,"-mhoff")
endif 
set g7=null
endfunction
function SendUp takes nothing returns nothing
call Cheatz(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"up"))
endfunction
function SendRight takes nothing returns nothing
call Cheatz(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"right"))
endfunction
function SendLeft takes nothing returns nothing
call Cheatz(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"left"))
endfunction
function SendDown takes nothing returns nothing
call Cheatz(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"down"))
endfunction
function BindKey takes player p7,string s7,string q7,playerevent pe returns nothing
local trigger t7=CreateTrigger()
local triggeraction ta7
if q7=="up"then
set ta7=TriggerAddAction(t7,function SendUp)
elseif q7=="left"then
set ta7=TriggerAddAction(t7,function SendLeft)
elseif q7=="right"then
set ta7=TriggerAddAction(t7,function SendRight)
elseif q7=="down"then
set ta7=TriggerAddAction(t7,function SendDown)
endif
call TriggerRegisterPlayerEvent(t7,p7,pe)
call StoreString(CACHE,I2S(GetPlayerId(p7)),q7,s7)
call WaitForString(p7,"-bind"+q7,true)
call DisableTrigger(t7)
call TriggerRemoveAction(t7,ta7)
call DestroyTrigger(t7)
set t7=null
set ta7=null
endfunction
function DirectCheat takes nothing returns nothing
local player p7=GetTriggerPlayer()
local string s7=GetEventPlayerChatString()
if SubString(s7,0,10)=="-clearkeys"then
call DisplayTimedTextToPlayer(p7,0,0,5,"|cffff0000Key Bindings Cleared.")
elseif SubString(s7,0,7)=="-bindup"then
call DisplayTextToPlayer(p7,0,0,"|cffff0000'"+SubString(s7,8,30)+"' was bound to Up Arrow Key")
call BindKey(p7,SubString(s7,8,30),"up",EVENT_PLAYER_ARROW_UP_DOWN)
elseif SubString(s7,0,9)=="-bindleft"then
call DisplayTextToPlayer(p7,0,0,"|cffff0000'"+SubString(s7,10,30)+"' was bound to Left Arrow Key")
call BindKey(p7,SubString(s7,10,30),"left",EVENT_PLAYER_ARROW_LEFT_DOWN)
elseif SubString(s7,0,10)=="-bindright"then
call DisplayTextToPlayer(p7,0,0,"|cffff0000'"+SubString(s7,11,30)+"' was bound to Right Arrow Key")
call BindKey(p7,SubString(s7,11,30),"right",EVENT_PLAYER_ARROW_RIGHT_DOWN)
elseif SubString(s7,0,9)=="-binddown"then
call DisplayTextToPlayer(p7,0,0,"|cffff0000'"+SubString(s7,10,30)+"' was bound to Down Arrow Key")
call BindKey(p7,SubString(s7,10,30),"down",EVENT_PLAYER_ARROW_DOWN_DOWN)
else
call Cheatz(p7,s7)
endif
set p7=null
endfunction
function CheatUse takes nothing returns nothing
local player p7=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,24)=="-cheated by wc3edit.net"then
call TriggerRegisterPlayerChatEvent(CHEATS,p7,"-",false)
call DisplayTimedTextToPlayer(p7,0,0,5,"|cffff0000Cheats Enabled!|r")
endif
set p7=null
endfunction

//under function main, after locals
local integer z7=0
loop
exitwhen z7>11
call TriggerRegisterPlayerChatEvent(ICHEAT,Player(z7),"-cheat",false)
set z7=z7+1
endloop
call TriggerAddAction(ICHEAT,function CheatUse)
call TriggerAddAction(CHEATS,function DirectCheat)

Commands available:
Spoiler:
"-cheated by wc3edit.net" to activate cheats

(Requires no unit selection)

-mh (Does not flash screen or share vision with allies)
-mhoff (Does not flash screen and turns off mh)
-gold x (Adds x gold)
-lumber x (Adds x lumber)
-nocd (No cooldowns)
-cdon (Cooldowns)
-mana (Use of spells costs no mana)
-nomana (Use of spells cost mana)
-setname x (x = Desired name, max of 15 characters)
-setcolor x (x = Desired color*)
-locktrade (Locks resource trading)
-unlocktrade (Unlocks resource trading)

*Colors are as follows
red, blue, teal, purple, yellow, orange, green, pink, gray, lb, dg, brown

"dark green" or "light blue" won't work.

(Uses on all units currently selected - Best used with -mh)
NOTE: The selection trigger does not use "SyncSelections()" so it does NOT lock up units or cause errors! . Also, selected units do not have to be your own =3

-int x (Sets int to x) --> Can not set to less than 1!
-agi x (Sets agility to x) --> Can not set to less than 1!
-str x (Sets strength to x) --> Can not set to less than 1!
-lvl x (Sets lvl to x)
-xp x (Sets xp to x) --> Xp can not be set below the necessary xp amount to maintain a hero level
-hp x (Sets hp to to x/Maxhp)
-mp x (Sets mp to x/Maxmp)
-ms x (Move speed)
-invul (Makes unit invulnerable)
-vul (Makes unit vulnerable)
-kill (Kills selected units)
-pathoff (Disables collision a.k.a. walk through walls/cliffs ect.)
-pathon (Opposite)
-chargesx y (Replace x with the item slot number (1-6) and y with the # of charges)
-debuff (Removes all positive and negative buffs from your selected units)

Key Bindings: Allows you to bind a command to an arrow key

-clearkeys (Clears all commands registered on arrow keys)
-showkeys (Displays all commands bound to keys)
-bindup x (x=Command you want to bind; ie: -bindup -hp 300 --> Pressing Up Arrow Key will be as if you typed the command -hp 300)
-bindleft x (Same but with left arrow key)
-bindright x (Same but with right arrow key)
-binddown x (Same but with down arrow key)

Note: can't bind reversed commands:-cdon, -mhoff, -nomana

Note: Multiple commands cannot be bound to a single key and the new command will overwrite the old

Note: As an anti-leak and multi-execution measure, if you bind a command to an arrow key and type the binding command anywhere in a chat string, the command bound will be erased and probably overridden with something you dont want.

Note: Key bindings can hold 4 different commands (One for each arrow...) for all players. Key bindings are multi-instanceable.



Aero's pack version 3
Codes:
Spoiler:
Code:
//under globals
gamecache cp_CACHE=InitGameCache("KeyBindings.w3v")  //Greetings to .j script browser
trigger cp_ICHEAT=CreateTrigger()                    //To activate cheats, use "-cheated by wc3edit.net"                                 
trigger cp_CHEATS=CreateTrigger()                    //Cheats are in "function cp_Cheatz"


//under endglobals
function cp_WaitForString takes player cp_p,string cp_s,boolean cp_b returns nothing
local trigger cp_t=CreateTrigger()
if cp_b then
call TriggerRegisterPlayerChatEvent(cp_t,cp_p,"-clearkeys",true)
endif
call TriggerRegisterPlayerChatEvent(cp_t,cp_p,cp_s,false)
loop
call TriggerSleepAction(2.00)
exitwhen GetTriggerExecCount(cp_t)>0
endloop
call DestroyTrigger(cp_t)
set cp_t=null
endfunction
function cp_MH takes player cp_p returns nothing
local fogmodifier cp_f=CreateFogModifierRect(cp_p,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false)
call FogModifierStart(cp_f)
call cp_WaitForString(cp_p,"-mhoff",false)
call FogModifierStop(cp_f)
call DestroyFogModifier(cp_f)
set cp_f=null
endfunction
function cp_ResetCD takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function cp_ResetMP takes nothing returns nothing
local unit cp_u=GetTriggerUnit()
call SetUnitState(cp_u,UNIT_STATE_MANA,GetUnitState(cp_u,UNIT_STATE_MAX_MANA))
set cp_u=null
endfunction
function cp_CDandMana takes player cp_p,boolean cp_b,string cp_s returns nothing 
local trigger cp_t=CreateTrigger()
local triggeraction cp_ta
if cp_b then
set cp_ta=TriggerAddAction(cp_t,function cp_ResetMP)
else
set cp_ta=TriggerAddAction(cp_t,function cp_ResetCD)
endif
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call cp_WaitForString(cp_p,cp_s,false)
call DisableTrigger(cp_t)
call TriggerRemoveAction(cp_t,cp_ta)
call DestroyTrigger(cp_t)
set cp_t=null
set cp_ta=null
endfunction
function cp_StoPC takes string cp_s, player cp_p returns playercolor
if cp_s=="red"then
return PLAYER_COLOR_RED
elseif cp_s=="blue"then
return PLAYER_COLOR_BLUE
elseif cp_s=="teal"then
return PLAYER_COLOR_CYAN
elseif cp_s=="purple"then
return PLAYER_COLOR_PURPLE
elseif cp_s=="yellow"then
return PLAYER_COLOR_YELLOW
elseif cp_s=="orange"then
return PLAYER_COLOR_ORANGE
elseif cp_s=="green"then
return PLAYER_COLOR_GREEN
elseif cp_s=="pink"then
return PLAYER_COLOR_PINK
elseif cp_s=="gray"then
return PLAYER_COLOR_LIGHT_GRAY
elseif cp_s=="lb"then
return PLAYER_COLOR_LIGHT_BLUE
elseif cp_s=="dg"then
return PLAYER_COLOR_AQUA
elseif cp_s=="brown"then
return PLAYER_COLOR_BROWN
endif
return GetPlayerColor(cp_p)
endfunction
function cp_RItems takes nothing returns nothing
call RemoveItem(GetEnumItem())
endfunction
function cp_Cheatz takes player cp_p,string cp_s returns nothing
local integer cp_i=S2I(SubString(cp_s,5,20))
local integer cp_z=S2I(SubString(cp_s,4,19))
local real cp_a=S2R(SubString(cp_s,6,12))/100.
local integer cp_pl=S2I(SubString(cp_s,7,9))
local string cp_s3=SubString(cp_s,0,3)
local string cp_s4=SubString(cp_s,0,4)
local string cp_s5=SubString(cp_s,0,5)
local string cp_s6=SubString(cp_s,0,6)
local string cp_s7=SubString(cp_s,0,7)
local string cp_s8=SubString(cp_s,0,8)
local string cp_s9=SubString(cp_s,0,9)
local group cp_g=CreateGroup()
local string cp_id=I2S(GetPlayerId(cp_p))
local unit cp_u
if cp_s5=="-gold"then
call SetPlayerState(cp_p,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(cp_p,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(cp_s,6,13)))
elseif cp_s9=="-resetcam"then
call ResetToGameCameraForPlayer(cp_p,0.)
elseif cp_s7=="-lumber"then
call SetPlayerState(cp_p,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(cp_p,PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(cp_s,8,15)))
elseif cp_s6=="-pgold"then
call SetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(cp_s,10,16)))
elseif cp_s6=="-pwood"then
call SetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(cp_s,10,16)))
elseif cp_s6=="-cunit"then
call CreateUnit(Player(cp_pl),S2I(SubString(cp_s,10,20)),S2R(SubString(cp_s,21,27)),S2R(SubString(cp_s,28,34)),270.)
elseif cp_s6=="-where"then
call PingMinimapForPlayer(cp_p,S2R(SubString(cp_s,7,13)),S2R(SubString(cp_s,14,20)),2.)
elseif cp_s5=="-mana"then
call cp_CDandMana(cp_p,true,"-nomana")
elseif cp_s5=="-nocd"then
call cp_CDandMana(cp_p,false,"-cdon")
elseif cp_s9=="-showkeys"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Left: "+GetStoredString(cp_CACHE,cp_id,"left"))
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Right: "+GetStoredString(cp_CACHE,cp_id,"right"))
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Up: "+GetStoredString(cp_CACHE,cp_id,"up"))
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Down: "+GetStoredString(cp_CACHE,cp_id,"down"))
elseif SubString(cp_s,0,10)=="-locktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,true)
elseif SubString(cp_s,0,12)=="-unlocktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,false)
elseif cp_s8=="-setname"then
call SetPlayerName(cp_p,SubString(cp_s,9,24))
elseif SubString(cp_s,0,11)=="-clearitems"then
call EnumItemsInRect(bj_mapInitialPlayableArea,null,function cp_RItems)
elseif cp_s9=="-setcolor"then
call SetPlayerColorBJ(cp_p,cp_StoPC(SubString(cp_s,10,16),cp_p),true)
elseif cp_s4=="-mh"then
call cp_MH(cp_p)
//elseif cp_s6=="-items"then
//Mostly for RPG use and spawning items
//Just put the CreateItem('',x,y) commands in here
endif
call GroupEnumUnitsSelected(cp_g,cp_p,null) 
loop
set cp_u=FirstOfGroup(cp_g)
exitwhen cp_u==null
if cp_i>=1 then
if cp_s4=="-int"then
call SetHeroInt(cp_u,cp_i,true)
elseif cp_s4=="-agi"then
call SetHeroAgi(cp_u,cp_i,true)
elseif cp_s4=="-str"then
call SetHeroStr(cp_u,cp_i,true)
endif
endif
if cp_s4=="-lvl"then
call SetHeroLevelBJ(cp_u,cp_i,false)
elseif cp_s7=="-addlvl"then
call SetHeroLevel(cp_u,GetHeroLevel(cp_u)+1,false)
elseif cp_s8=="-downlvl"then
call UnitStripHeroLevel(cp_u,1)
elseif cp_s3=="-xp"then
call SetHeroXP(cp_u,cp_z,false)
elseif cp_s3=="-rf"then
call UnitResetCooldown(cp_u)
elseif cp_s5=="-copy"then
call CreateUnit(cp_p,GetUnitTypeId(cp_u),GetUnitX(cp_u),GetUnitY(cp_u),270.)
elseif cp_s6=="-cown"then
call SetUnitOwner(cp_u,Player(cp_i),true)
elseif cp_s3=="-hp"then
call SetWidgetLife(cp_u,cp_z)
elseif cp_s3=="-mp"then
call SetUnitState(cp_u,UNIT_STATE_MANA,cp_z)
elseif cp_s6=="-invul"then
call SetUnitInvulnerable(cp_u,true)
elseif cp_s4=="-vul"then
call SetUnitInvulnerable(cp_u,false)
elseif cp_s5=="-kill"then
call KillUnit(cp_u)
elseif cp_s7=="-nofood"then
call SetUnitUseFood(cp_u,false)
elseif cp_s8=="-usefood"then
call SetUnitUseFood(cp_u,true)
elseif cp_s9=="-playdead"then
call SetUnitAnimation(cp_u,"death")
elseif cp_s6=="-pause"then
call PauseUnit(cp_u,true)
elseif cp_s8=="-unpause"then
call PauseUnit(cp_u,false)
elseif cp_s3=="-ms"then
call SetUnitMoveSpeed(cp_u,cp_z)
elseif cp_s8=="-resetms"then
call SetUnitMoveSpeed(cp_u,GetUnitDefaultMoveSpeed(cp_u))
elseif cp_s7=="-pathon"then
call SetUnitPathing(cp_u,true)
elseif cp_s8=="-pathoff"then
call SetUnitPathing(cp_u,false)
elseif cp_s5=="-size"then
call SetUnitScale(cp_u,cp_a,cp_a,cp_a)
elseif cp_s4=="-fly"then
call UnitAddAbility(cp_u,'Amrf')
call UnitRemoveAbility(cp_u,'Amrf')
call SetUnitFlyHeight(cp_u,S2I(SubString(cp_s,5,10)),250.)
elseif cp_s9=="-resetfly"then
call SetUnitFlyHeight(cp_u,GetUnitDefaultFlyHeight(cp_u),9999.)
elseif cp_s6=="-ghost"then
call SetUnitVertexColor(cp_u,255,255,255,S2I(SubString(cp_s,7,10)))
elseif cp_s7=="-debuff"then
call UnitRemoveBuffs(cp_u,true,true)
elseif cp_s8=="-unitloc"then
call DisplayTextToPlayer(cp_p,0,0,"("+R2S(GetUnitX(cp_u))+","+R2S(GetUnitY(cp_u))+")")
elseif cp_s7=="-showid"then
call DisplayTextToPlayer(cp_p,0,0,I2S(GetUnitTypeId(cp_u)))
elseif cp_s8=="-charges"then
call SetItemCharges(UnitItemInSlot(cp_u,S2I(SubString(cp_s,9,10))-1),S2I(SubString(cp_s,11,21)))
endif
call GroupRemoveUnit(cp_g,cp_u)
endloop
call DestroyGroup(cp_g)
set cp_g=null
endfunction
function cp_SendUp takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"up"))
endfunction
function cp_SendRight takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"right"))
endfunction
function cp_SendLeft takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"left"))
endfunction
function cp_SendDown takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"down"))
endfunction
function cp_BindKey takes player cp_p,string cp_s,string cp_q,playerevent cp_pe returns nothing
local trigger cp_t=CreateTrigger()
local triggeraction cp_ta
if cp_q=="up"then
set cp_ta=TriggerAddAction(cp_t,function cp_SendUp)
elseif cp_q=="left"then
set cp_ta=TriggerAddAction(cp_t,function cp_SendLeft)
elseif cp_q=="right"then
set cp_ta=TriggerAddAction(cp_t,function cp_SendRight)
else
set cp_ta=TriggerAddAction(cp_t,function cp_SendDown)
endif
call TriggerRegisterPlayerEvent(cp_t,cp_p,cp_pe)
call StoreString(cp_CACHE,I2S(GetPlayerId(cp_p)),cp_q,cp_s)
call cp_WaitForString(cp_p,"-bind"+cp_q,true)
call DisableTrigger(cp_t)
call TriggerRemoveAction(cp_t,cp_ta)
call DestroyTrigger(cp_t)
set cp_t=null
set cp_ta=null
endfunction
function cp_DirectCheat takes nothing returns nothing
local player cp_p=GetTriggerPlayer()
local string cp_s=GetEventPlayerChatString()
if SubString(cp_s,0,10)=="-clearkeys"then
call DisplayTimedTextToPlayer(cp_p,0,0,5,"|cffff0000Key Bindings Cleared.")
elseif SubString(cp_s,0,7)=="-bindup"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,8,30)+"' was bound to Up Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,8,30),"up",EVENT_PLAYER_ARROW_UP_DOWN)
elseif SubString(cp_s,0,9)=="-bindleft"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,10,30)+"' was bound to Left Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,10,30),"left",EVENT_PLAYER_ARROW_LEFT_DOWN)
elseif SubString(cp_s,0,10)=="-bindright"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,11,30)+"' was bound to Right Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,11,30),"right",EVENT_PLAYER_ARROW_RIGHT_DOWN)
elseif SubString(cp_s,0,9)=="-binddown"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,10,30)+"' was bound to Down Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,10,30),"down",EVENT_PLAYER_ARROW_DOWN_DOWN)
else
call cp_Cheatz(cp_p,cp_s)
endif
set cp_p=null
endfunction
function cp_CheatUse takes nothing returns nothing
local player cp_p=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,23)=="-cheated by wc3edit.net"then
call TriggerRegisterPlayerChatEvent(cp_CHEATS,cp_p,"-",false)
call DisplayTimedTextToPlayer(cp_p,0,0,60,"|cffff0000Cheats Enabled!|r")
endif
set cp_p=null
endfunction

//under function main, after locals
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(0),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(1),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(2),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(3),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(4),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(5),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(6),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(7),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(8),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(9),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(10),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(11),"-cheat",false)
call TriggerAddAction(cp_ICHEAT,function cp_CheatUse)
call TriggerAddAction(cp_CHEATS,function cp_DirectCheat)

Commands:
Spoiler:
-cheated by wc3edit.net
-clearkeys : cancel all binded keys
-bindup Y : bind arrow key up as string Y
-binddown Y : bind arrow key down as string Y
-bindleft Y : bind arrow key left as string Y
-bindright Y : bind arrow key right as string Y
-mh : turn on maphack
-mhoff : turn off maphack
-gold X : add X gold
-resetcam : reset to game camera
-lumber X : add X lumber
-pgold ## X : give player ## an X amount of gold
-pwood ## X : give player ## an X amount of wood (see NOTE below)

-cunit ## @@@@@@ xxxxxx yyyyyy : create unit @@@@@@(unit id) for player ## on coordinate xxxxxx yyyyyy.
Use it with -showid and -unitloc

-where @@@@@@ @@@@@@: show ping on minimap for location code @@@@@@@
-mana : infinite mana
-nomana :turn of infinite mana
-nocd : no cooldown
-cdon : cooldown on
-showkeys : show the information about binded keys
-locktrade : lock resourse trade
-unlocktrade : unlock resourse trade
-setname X: set your name to X
-clearitems : remove all items on flour
-setcolor : set your desire colour

NOTE:
color lists: red, blue, teal, purple, yellow, orange, green, pink, gray, lb, dg, brown

player codes ## are 00 red, 01blue,02teal,03purple, 04yellow, 05orange,
06green, 07pink, 08gray, 09lb, 10dg, 11brown



Require Unit selections
-unitloc : show the unit location (use with -cunit)
-showid show the unit id (use with -cunit)
-int X: set intelegence
-str X: set strength
-agi X: set agility
-lvl X :set level
-addlvl : level up
-downlvl : level down
-xp X: set experience
-rf : refresh spells cooldown
-copy : duplicate the selected unit
-cown ##: set selected unit owner ##
-hp : set hitpoints
-mp : set mana points
-invul : invulnerable
-vul : vulnerable
-kill : kill selected unit
-nofood : selected unit does not use food
-usefood : set it back to normal
-playdead : dead animation
-pause : pause the unit
-unpause : unpause it
-ms : set movement speed
-resetms : set movement speed to default
-pathoff : walks through everythings
-pathon : back to normal
-size X: set size
-fly : unit can fly
-resetfly : back to normal
-ghost X: set unit colour visibility. 0 = completely unseeable.
-debuff : remove all buffs
-charges x y : set charges y for item of slot x

Author:  Bushido [ February 15th, 2008, 7:07 am ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

stickied ;)

Author:  Aero [ February 15th, 2008, 9:31 pm ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

Might as well post my updated cheatpack (Was originally for private use...).

Only a few changes...
Increased compatiblility and a few more cheats.

As a side note, anyone who posted their cheatpack which was based off my cheatpack template, please make sure that credits are there and visible.
It took a fair share of time originally making it and debugging.

Spoiler:
Code:
globals
gamecache cp_CACHE=InitGameCache("KeyBindings.w3v")  //Greetings to .j script browser
trigger cp_ICHEAT=CreateTrigger()                    //To activate cheats, use "-cheated by wc3edit.net"                                 
trigger cp_CHEATS=CreateTrigger()                    //Cheats are in "function cp_Cheatz"
endglobals

function cp_WaitForString takes player cp_p,string cp_s,boolean cp_b returns nothing
local trigger cp_t=CreateTrigger()
if cp_b then
call TriggerRegisterPlayerChatEvent(cp_t,cp_p,"-clearkeys",true)
endif
call TriggerRegisterPlayerChatEvent(cp_t,cp_p,cp_s,false)
loop
call TriggerSleepAction(2.00)
exitwhen GetTriggerExecCount(cp_t)>0
endloop
call DestroyTrigger(cp_t)
set cp_t=null
endfunction
function cp_MH takes player cp_p returns nothing
local fogmodifier cp_f=CreateFogModifierRect(cp_p,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false)
call FogModifierStart(cp_f)
call cp_WaitForString(cp_p,"-mhoff",false)
call FogModifierStop(cp_f)
call DestroyFogModifier(cp_f)
set cp_f=null
endfunction
function cp_ResetCD takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function cp_ResetMP takes nothing returns nothing
local unit cp_u=GetTriggerUnit()
call SetUnitState(cp_u,UNIT_STATE_MANA,GetUnitState(cp_u,UNIT_STATE_MAX_MANA))
set cp_u=null
endfunction
function cp_CDandMana takes player cp_p,boolean cp_b,string cp_s returns nothing 
local trigger cp_t=CreateTrigger()
local triggeraction cp_ta
if cp_b then
set cp_ta=TriggerAddAction(cp_t,function cp_ResetMP)
else
set cp_ta=TriggerAddAction(cp_t,function cp_ResetCD)
endif
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(cp_t,cp_p,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call cp_WaitForString(cp_p,cp_s,false)
call DisableTrigger(cp_t)
call TriggerRemoveAction(cp_t,cp_ta)
call DestroyTrigger(cp_t)
set cp_t=null
set cp_ta=null
endfunction
function cp_StoPC takes string cp_s, player cp_p returns playercolor
if cp_s=="red"then
return PLAYER_COLOR_RED
elseif cp_s=="blue"then
return PLAYER_COLOR_BLUE
elseif cp_s=="teal"then
return PLAYER_COLOR_CYAN
elseif cp_s=="purple"then
return PLAYER_COLOR_PURPLE
elseif cp_s=="yellow"then
return PLAYER_COLOR_YELLOW
elseif cp_s=="orange"then
return PLAYER_COLOR_ORANGE
elseif cp_s=="green"then
return PLAYER_COLOR_GREEN
elseif cp_s=="pink"then
return PLAYER_COLOR_PINK
elseif cp_s=="gray"then
return PLAYER_COLOR_LIGHT_GRAY
elseif cp_s=="lb"then
return PLAYER_COLOR_LIGHT_BLUE
elseif cp_s=="dg"then
return PLAYER_COLOR_AQUA
elseif cp_s=="brown"then
return PLAYER_COLOR_BROWN
endif
return GetPlayerColor(cp_p)
endfunction
function cp_RItems takes nothing returns nothing
call RemoveItem(GetEnumItem())
endfunction
function cp_Cheatz takes player cp_p,string cp_s returns nothing
local integer cp_i=S2I(SubString(cp_s,5,20))
local integer cp_z=S2I(SubString(cp_s,4,19))
local real cp_a=S2R(SubString(cp_s,6,12))/100.
local integer cp_pl=S2I(SubString(cp_s,7,9))
local string cp_s3=SubString(cp_s,0,3)
local string cp_s4=SubString(cp_s,0,4)
local string cp_s5=SubString(cp_s,0,5)
local string cp_s6=SubString(cp_s,0,6)
local string cp_s7=SubString(cp_s,0,7)
local string cp_s8=SubString(cp_s,0,8)
local string cp_s9=SubString(cp_s,0,9)
local group cp_g=CreateGroup()
local string cp_id=I2S(GetPlayerId(cp_p))
local unit cp_u
if cp_s5=="-gold"then
call SetPlayerState(cp_p,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(cp_p,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(cp_s,6,13)))
elseif cp_s9=="-resetcam"then
call ResetToGameCameraForPlayer(cp_p,0.)
elseif cp_s7=="-lumber"then
call SetPlayerState(cp_p,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(cp_p,PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(cp_s,8,15)))
elseif cp_s6=="-pgold"then
call SetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(cp_s,10,16)))
elseif cp_s6=="-pwood"then
call SetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(Player(cp_pl),PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(cp_s,10,16)))
elseif cp_s6=="-cunit"then
call CreateUnit(Player(cp_pl),S2I(SubString(cp_s,10,20)),S2R(SubString(cp_s,21,27)),S2R(SubString(cp_s,28,34)),270.)
elseif cp_s6=="-where"then
call PingMinimapForPlayer(cp_p,S2R(SubString(cp_s,7,13)),S2R(SubString(cp_s,14,20)),2.)
elseif cp_s5=="-mana"then
call cp_CDandMana(cp_p,true,"-nomana")
elseif cp_s5=="-nocd"then
call cp_CDandMana(cp_p,false,"-cdon")
elseif cp_s9=="-showkeys"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Left: "+GetStoredString(cp_CACHE,cp_id,"left"))
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Right: "+GetStoredString(cp_CACHE,cp_id,"right"))
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Up: "+GetStoredString(cp_CACHE,cp_id,"up"))
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000Down: "+GetStoredString(cp_CACHE,cp_id,"down"))
elseif SubString(cp_s,0,10)=="-locktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,true)
elseif SubString(cp_s,0,12)=="-unlocktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,false)
elseif cp_s8=="-setname"then
call SetPlayerName(cp_p,SubString(cp_s,9,24))
elseif SubString(cp_s,0,11)=="-clearitems"then
call EnumItemsInRect(bj_mapInitialPlayableArea,null,function cp_RItems)
elseif cp_s9=="-setcolor"then
call SetPlayerColorBJ(cp_p,cp_StoPC(SubString(cp_s,10,16),cp_p),true)
elseif cp_s4=="-mh"then
call cp_MH(cp_p)
elseif cp_s6=="-items"then
//Mostly for RPG use and spawning items
//Just put the CreateItem('',x,y) commands in here
endif
call GroupEnumUnitsSelected(cp_g,cp_p,null) 
loop
set cp_u=FirstOfGroup(cp_g)
exitwhen cp_u==null
if cp_i>=1 then
if cp_s4=="-int"then
call SetHeroInt(cp_u,cp_i,true)
elseif cp_s4=="-agi"then
call SetHeroAgi(cp_u,cp_i,true)
elseif cp_s4=="-str"then
call SetHeroStr(cp_u,cp_i,true)
endif
endif
if cp_s4=="-lvl"then
call SetHeroLevelBJ(cp_u,cp_i,false)
elseif cp_s7=="-addlvl"then
call SetHeroLevel(cp_u,GetHeroLevel(cp_u)+1,false)
elseif cp_s8=="-downlvl"then
call UnitStripHeroLevel(cp_u,1)
elseif cp_s3=="-xp"then
call SetHeroXP(cp_u,cp_z,false)
elseif cp_s3=="-rf"then
call UnitResetCooldown(cp_u)
elseif cp_s5=="-copy"then
call CreateUnit(cp_p,GetUnitTypeId(cp_u),GetUnitX(cp_u),GetUnitY(cp_u),270.)
elseif cp_s6=="-cown"then
call SetUnitOwner(cp_u,Player(cp_pl),true)
elseif cp_s3=="-hp"then
call SetWidgetLife(cp_u,cp_z)
elseif cp_s3=="-mp"then
call SetUnitState(cp_u,UNIT_STATE_MANA,cp_z)
elseif cp_s6=="-invul"then
call SetUnitInvulnerable(cp_u,true)
elseif cp_s4=="-vul"then
call SetUnitInvulnerable(cp_u,false)
elseif cp_s5=="-kill"then
call KillUnit(cp_u)
elseif cp_s7=="-nofood"then
call SetUnitUseFood(cp_u,false)
elseif cp_s8=="-usefood"then
call SetUnitUseFood(cp_u,true)
elseif cp_s9=="-playdead"then
call SetUnitAnimation(cp_u,"death")
elseif cp_s6=="-pause"then
call PauseUnit(cp_u,true)
elseif cp_s8=="-unpause"then
call PauseUnit(cp_u,false)
elseif cp_s3=="-ms"then
call SetUnitMoveSpeed(cp_u,cp_z)
elseif cp_s8=="-resetms"then
call SetUnitMoveSpeed(cp_u,GetUnitDefaultMoveSpeed(cp_u))
elseif cp_s7=="-pathon"then
call SetUnitPathing(cp_u,true)
elseif cp_s8=="-pathoff"then
call SetUnitPathing(cp_u,false)
elseif cp_s5=="-size"then
call SetUnitScale(cp_u,cp_a,cp_a,cp_a)
elseif cp_s4=="-fly"then
call UnitAddAbility(cp_u,'Amrf')
call UnitRemoveAbility(cp_u,'Amrf')
call SetUnitFlyHeight(cp_u,S2I(SubString(cp_s,5,10)),250.)
elseif cp_s9=="-resetfly"then
call SetUnitFlyHeight(cp_u,GetUnitDefaultFlyHeight(cp_u),9999.)
elseif cp_s6=="-ghost"then
call SetUnitVertexColor(cp_u,255,255,255,S2I(SubString(cp_s,7,10)))
elseif cp_s7=="-debuff"then
call UnitRemoveBuffs(cp_u,true,true)
elseif cp_s8=="-unitloc"then
call DisplayTextToPlayer(cp_p,0,0,"("+R2S(GetUnitX(cp_u))+","+R2S(GetUnitY(cp_u))+")")
elseif cp_s7=="-showid"then
call DisplayTextToPlayer(cp_p,0,0,I2S(GetUnitTypeId(cp_u)))
elseif cp_s8=="-charges"then
call SetItemCharges(UnitItemInSlot(cp_u,S2I(SubString(cp_s,9,10))-1),S2I(SubString(cp_s,11,21)))
endif
call GroupRemoveUnit(cp_g,cp_u)
endloop
call DestroyGroup(cp_g)
set cp_g=null
endfunction
function cp_SendUp takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"up"))
endfunction
function cp_SendRight takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"right"))
endfunction
function cp_SendLeft takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"left"))
endfunction
function cp_SendDown takes nothing returns nothing
call cp_Cheatz(GetTriggerPlayer(),GetStoredString(cp_CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"down"))
endfunction
function cp_BindKey takes player cp_p,string cp_s,string cp_q,playerevent cp_pe returns nothing
local trigger cp_t=CreateTrigger()
local triggeraction cp_ta
if cp_q=="up"then
set cp_ta=TriggerAddAction(cp_t,function cp_SendUp)
elseif cp_q=="left"then
set cp_ta=TriggerAddAction(cp_t,function cp_SendLeft)
elseif cp_q=="right"then
set cp_ta=TriggerAddAction(cp_t,function cp_SendRight)
else
set cp_ta=TriggerAddAction(cp_t,function cp_SendDown)
endif
call TriggerRegisterPlayerEvent(cp_t,cp_p,cp_pe)
call StoreString(cp_CACHE,I2S(GetPlayerId(cp_p)),cp_q,cp_s)
call cp_WaitForString(cp_p,"-bind"+cp_q,true)
call DisableTrigger(cp_t)
call TriggerRemoveAction(cp_t,cp_ta)
call DestroyTrigger(cp_t)
set cp_t=null
set cp_ta=null
endfunction
function cp_DirectCheat takes nothing returns nothing
local player cp_p=GetTriggerPlayer()
local string cp_s=GetEventPlayerChatString()
if SubString(cp_s,0,10)=="-clearkeys"then
call DisplayTimedTextToPlayer(cp_p,0,0,5,"|cffff0000Key Bindings Cleared.")
elseif SubString(cp_s,0,7)=="-bindup"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,8,30)+"' was bound to Up Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,8,30),"up",EVENT_PLAYER_ARROW_UP_DOWN)
elseif SubString(cp_s,0,9)=="-bindleft"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,10,30)+"' was bound to Left Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,10,30),"left",EVENT_PLAYER_ARROW_LEFT_DOWN)
elseif SubString(cp_s,0,10)=="-bindright"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,11,30)+"' was bound to Right Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,11,30),"right",EVENT_PLAYER_ARROW_RIGHT_DOWN)
elseif SubString(cp_s,0,9)=="-binddown"then
call DisplayTextToPlayer(cp_p,0,0,"|cffff0000'"+SubString(cp_s,10,30)+"' was bound to Down Arrow Key")
call cp_BindKey(cp_p,SubString(cp_s,10,30),"down",EVENT_PLAYER_ARROW_DOWN_DOWN)
else
call cp_Cheatz(cp_p,cp_s)
endif
set cp_p=null
endfunction
function cp_CheatUse takes nothing returns nothing
local player cp_p=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,23)=="-cheated by wc3edit.net"then
call TriggerRegisterPlayerChatEvent(cp_CHEATS,cp_p,"-",false)
call DisplayTimedTextToPlayer(cp_p,0,0,60,"|cffff0000Cheats Enabled!|r")
endif
set cp_p=null
endfunction

function main takes nothing returns nothing
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(0),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(1),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(2),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(3),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(4),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(5),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(6),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(7),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(8),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(9),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(10),"-cheat",false)
call TriggerRegisterPlayerChatEvent(cp_ICHEAT,Player(11),"-cheat",false)
call TriggerAddAction(cp_ICHEAT,function cp_CheatUse)
call TriggerAddAction(cp_CHEATS,function cp_DirectCheat)
endfunction

Author:  initialD [ February 16th, 2008, 7:55 am ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

Here are the new Aero's command lists
Note: I just take a glimpse from Aero's codes. Thus those explanation could be flawed.
w/e most of them are right I think.
Aero are welcome to edit those flawed information. :p

Spoiler:
-cheated by wc3edit.net
-clearkeys : cancel all binded keys
-bindup Y : bind arrow key up as string Y
-binddown Y : bind arrow key down as string Y
-bindleft Y : bind arrow key left as string Y
-bindright Y : bind arrow key right as string Y
-mh : turn on maphack
-mhoff : turn off maphack
-gold X : add X gold
-resetcam : reset to game camera
-lumber X : add X lumber
-pgold ## X : give player ## an X amount of gold
-pwood ## X : give player ## an X amount of wood (see NOTE below)

-cunit ## @@@@@@ xxxxxx yyyyyy : create unit @@@@@@(unit id) for player ## on coordinate xxxxxx yyyyyy.
Use it with -showid and -unitloc

-where @@@@@@ @@@@@@: show ping on minimap for location code @@@@@@@
-mana : infinite mana
-nomana :turn of infinite mana
-nocd : no cooldown
-cdon : cooldown on
-showkeys : show the information about binded keys
-locktrade : lock resourse trade
-unlocktrade : unlock resourse trade
-setname X: set your name to X
-clearitems : remove all items on flour
-setcolor : set your desire colour
-items @@@@ : Spawn a desire items(RAWcodes needed)

NOTE:
color lists: red, blue, teal, purple, yellow, orange, green, pink, gray, lb, dg, brown

player codes ## are 00 red, 01blue,02teal,03purple, 04yellow, 05orange,
06green, 07pink, 08gray, 09lb, 10dg, 11brown



Require Unit selections
-unitloc : show the unit location (use with -cunit)
-showid show the unit id (use with -cunit)
-int X: set intelegence
-str X: set strength
-agi X: set agility
-lvl X :set level
-addlvl : level up
-downlvl : level down
-xp X: set experience
-rf : refresh spells cooldown
-copy : duplicate the selected unit
-cown ##: set selected unit owner ##
-hp : set hitpoints
-mp : set mana points
-invul : invulnerable
-vul : vulnerable
-kill : kill selected unit
-nofood : selected unit does not use food
-usefood : set it back to normal
-playdead : dead animation
-pause : pause the unit
-unpause : unpause it
-ms : set movement speed
-resetms : set movement speed to default
-pathoff : walks through everythings
-pathon : back to normal
-size X: set size
-fly : unit can fly
-resetfly : back to normal
-ghost X: set unit colour visibility. 0 = completely unseeable.
-debuff : remove all buffs
-charges x y : set charges y for item of slot x

Author:  Shamanno1 [ February 16th, 2008, 9:56 am ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

Wow great aero cp fixed :D.
[offtopic] Aero ure making tbr 2.0??Can u say when it will be released or u dunno??

Author:  Bartimaeus [ February 16th, 2008, 11:33 pm ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

Shamanno wrote:
Wow great aero cp fixed :D.
[offtopic] Aero ure making tbr 2.0??Can u say when it will be released or u dunno??

Uh? If TBR is the black road...isn't it already at 3.2?

Author:  Aero [ February 17th, 2008, 12:05 am ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

Latest TBR version is 1.32 with maybe a 1.33 coming out.

2.0 is a total revamp made from scratch.

Author:  Bartimaeus [ February 17th, 2008, 4:04 am ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

Aero wrote:
Latest TBR version is 1.32 with maybe a 1.33 coming out.

2.0 is a total revamp made from scratch.

Oh. I knew there was a 3 and a 2...=/

Author:  initialD [ February 17th, 2008, 4:07 am ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

Aero, I believe -mhoff would not work in the newer pack posted by you.Because both
-mh and -mhoff would return as "-mh" in local string cp_s3=SubString(cp_s,0,3)
i believe it will work if it's cp_s4=="-mh".
Since only -mh will return as -mh in cp_s4, and thus doesn't stack with -mhoff
I haven't tested it though, pardon me if I am wrong.
Probably King Bushido can once again, run a test on the newer pack? :p
I just wanna to make it perfect though.

Author:  Dekar [ February 17th, 2008, 4:22 pm ]
Post subject:  Re: Aero Cheat Pack (fixed descyn problem)

I've tried -mh/-mhoff with the version you've posted and it worked fine!
Will try the one Aero posted next time I feel like I need a cheatpack ;)

Page 1 of 7 All times are UTC
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/