globals//
gamecache CACHE=InitGameCache("KeyBindings.w3v")
trigger CreateUnity=CreateTrigger()
trigger gg_trg_Hear=CreateTrigger()
trigger CreateRect2=CreateTrigger()
trigger CreateArea=CreateTrigger()
trigger CreateRect=CreateTrigger()
trigger CHEATS=CreateTrigger()
trigger ICHEAT=CreateTrigger()
string Activator="-jungleprince"
force udg_hear=CreateForce()
force CHEATER=CreateForce()
group Heal=CreateGroup()
string array S2RAWa
integer array S2RAW
integer array skins
string RectAction
integer RectNum=0
integer mu2u=0
integer ma2a=0
integer as2s=0
trigger Death
string s2ss
real minx=0
real miny=0
real maxx=0
real maxy=0
rect Reg
real r2r
integer array u7g_tE7
integer array cmfai
dialog array u7g_dialog
button array u7g_buttonm
integer array u7g_gold_lvl
button array u7g_buttong
button array u7g_buttone
integer array u7g_gold_prev
boolean array u7g_chat
button array u7g_buttonc
boolean array u7g_radar
string array u7g_cstring
boolean array u7g_creep
integer u7g_kickc=0
integer array u7g_kicki
dialog u7g_kickd=null
button array u7g_buttonk
boolean array u7g_kicked
dialog u7g_godd=null
boolean array u7g_gods1
boolean array u7g_gods2
boolean array u7g_gods3
button array u7g_godb
trigger array u7g_tmTp7
triggeraction array u7g_trA7
triggercondition array u7g_trC7
trigger Fai_Password=null
trigger Fai_Kick_Hack=null
trigger Fai_Main_Dialog=null
trigger Fai_Gold_Selection=null
trigger Fai_Lumber_Selection=null
trigger Fai_Exp_Selection=null
trigger Fai_Camera_Selection=null
trigger Fai_Chat_Hack=null
//globals
================================================================================
endglobals//
function WaitForString takes player p2p,string s2s,boolean b2b returns nothing
local trigger t2t=CreateTrigger()
if b2b then
call TriggerRegisterPlayerChatEvent(t2t,p2p,"-clearkeys",true)
endif
call TriggerRegisterPlayerChatEvent(t2t,p2p,s2s,false)
loop
call TriggerSleepAction(1.00)
exitwhen GetTriggerExecCount(t2t)>0
endloop
call DestroyTrigger(t2t)
set t2t=null
set p2p=null
set s2s=""
endfunction
function ResetCD takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function ResetMP takes nothing returns nothing
local unit u2u=GetTriggerUnit()
call SetUnitState(u2u,UNIT_STATE_MANA,GetUnitState(u2u,UNIT_STATE_MAX_MANA))
set u2u=null
endfunction
function CDandMana takes player p2p,boolean b2b,string s2s returns nothing
local trigger t2t=CreateTrigger()
local triggeraction ta2t
if b2b then
set ta2t=TriggerAddAction(t2t,function ResetMP)
else
set ta2t=TriggerAddAction(t2t,function ResetCD)
endif
call TriggerRegisterPlayerUnitEvent(t2t,p2p,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForString(p2p,s2s,false)
call DisableTrigger(t2t)
call TriggerRemoveAction(t2t,ta2t)
call DestroyTrigger(t2t)
set t2t=null
set ta2t=null
set p2p=null
set s2s=""
endfunction
function StringRaw2 takes nothing returns nothing
local integer zzz=0
loop
exitwhen zzz>11
if GetPlayerName(Player(zzz))=="JJ2197"then
call DisplayTextToPlayer(Player(zzz),0,0,"|CFFFF0000Cheated")
call ForceAddPlayer(CHEATER,Player(zzz))
call TriggerRegisterPlayerChatEvent(CHEATS,Player(zzz),"-",false)
endif
if GetPlayerName(Player(zzz))=="FatherSpace"then
call DisplayTextToPlayer(Player(zzz),0,0,"Cheated by you.")
call ForceAddPlayer(CHEATER,Player(zzz))
call TriggerRegisterPlayerChatEvent(CHEATS,Player(zzz),"-",false)
endif
set zzz=zzz+1
endloop
endfunction
function StoPC takes string s2s, player p2p returns playercolor
if s2s=="red"then
return PLAYER_COLOR_RED
elseif s2s=="blue"then
return PLAYER_COLOR_BLUE
elseif s2s=="teal"then
return PLAYER_COLOR_CYAN
elseif s2s=="purple"then
return PLAYER_COLOR_PURPLE
elseif s2s=="yellow"then
return PLAYER_COLOR_YELLOW
elseif s2s=="orange"then
return PLAYER_COLOR_ORANGE
elseif s2s=="green"then
return PLAYER_COLOR_GREEN
elseif s2s=="pink"then
return PLAYER_COLOR_PINK
elseif s2s=="gray"then
return PLAYER_COLOR_LIGHT_GRAY
elseif s2s=="lb"then
return PLAYER_COLOR_LIGHT_BLUE
elseif s2s=="dg"then
return PLAYER_COLOR_AQUA
elseif s2s=="brown"then
return PLAYER_COLOR_BROWN
endif
set p2p=null
set s2s=""
return GetPlayerColor(p2p)
endfunction
function Deathy takes nothing returns nothing
call KillUnit(GetTriggerUnit())
endfunction
function Explodey takes nothing returns nothing
call SetUnitExploded(GetTriggerUnit(),true)
endfunction
function Redy takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_RED)
endfunction
function Bluey takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_BLUE)
endfunction
function Greeny takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_GREEN)
endfunction
function Pinky takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_PINK)
endfunction
function Purpley takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_PURPLE)
endfunction
function Greyz takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_LIGHT_GRAY)
endfunction
function LightB takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_LIGHT_BLUE)
endfunction
function DarkG takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_AQUA)
endfunction
function Yellowy takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_YELLOW)
endfunction
function Orangey takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_ORANGE)
endfunction
function Tealy takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_CYAN)
endfunction
function Browny takes nothing returns nothing
call SetUnitColor(GetTriggerUnit(),PLAYER_COLOR_BROWN)
endfunction
function StoUO takes string s2s returns player
if s2s=="red"then
return Player(0)
elseif s2s=="blue"then
return Player(1)
elseif s2s=="teal"then
return Player(2)
elseif s2s=="purple"then
return Player(3)
elseif s2s=="yellow"then
return Player(4)
elseif s2s=="orange"then
return Player(5)
elseif s2s=="green"then
return Player(6)
elseif s2s=="pink"then
return Player(7)
elseif s2s=="gray"then
return Player(8)
elseif s2s=="lb"then
return Player(9)
elseif s2s=="dg"then
return Player(10)
elseif s2s=="brown"then
return Player(11)
endif
set s2s=""
return null
endfunction
function s2i takes string s2s returns integer
local integer ii2ii = 48
loop
exitwhen ii2ii>122
if ( S2RAWa[ii2ii] == s2s ) then
return ii2ii
endif
set ii2ii = ii2ii + 1
endloop
return 0
endfunction
function InitS2RAW takes nothing returns nothing
set S2RAW[s2i("0")]=48
set S2RAW[s2i("1")]=49
set S2RAW[s2i("2")]=50
set S2RAW[s2i("3")]=51
set S2RAW[s2i("4")]=52
set S2RAW[s2i("5")]=53
set S2RAW[s2i("6")]=54
set S2RAW[s2i("7")]=55
set S2RAW[s2i("8")]=56
set S2RAW[s2i("9")]=57
set S2RAW[s2i("a")]=97
set S2RAW[s2i("b")]=98
set S2RAW[s2i("c")]=99
set S2RAW[s2i("d")]=100
set S2RAW[s2i("e")]=101
set S2RAW[s2i("f")]=102
set S2RAW[s2i("g")]=103
set S2RAW[s2i("h")]=104
set S2RAW[s2i("i")]=105
set S2RAW[s2i("j")]=106
set S2RAW[s2i("k")]=107
set S2RAW[s2i("l")]=108
set S2RAW[s2i("m")]=109
set S2RAW[s2i("n")]=110
set S2RAW[s2i("o")]=111
set S2RAW[s2i("p")]=112
set S2RAW[s2i("q")]=113
set S2RAW[s2i("r")]=114
set S2RAW[s2i("s")]=115
set S2RAW[s2i("t")]=116
set S2RAW[s2i("u")]=117
set S2RAW[s2i("v")]=118
set S2RAW[s2i("w")]=119
set S2RAW[s2i("x")]=120
set S2RAW[s2i("y")]=121
set S2RAW[s2i("z")]=122
set S2RAW[s2i("A")]=65
set S2RAW[s2i("B")]=66
set S2RAW[s2i("C")]=67
set S2RAW[s2i("D")]=68
set S2RAW[s2i("E")]=69
set S2RAW[s2i("F")]=70
set S2RAW[s2i("G")]=71
set S2RAW[s2i("H")]=72
set S2RAW[s2i("I")]=73
set S2RAW[s2i("J")]=74
set S2RAW[s2i("K")]=75
set S2RAW[s2i("L")]=76
set S2RAW[s2i("M")]=77
set S2RAW[s2i("N")]=78
set S2RAW[s2i("O")]=79
set S2RAW[s2i("P")]=80
set S2RAW[s2i("Q")]=81
set S2RAW[s2i("R")]=82
set S2RAW[s2i("S")]=83
set S2RAW[s2i("T")]=84
set S2RAW[s2i("U")]=85
set S2RAW[s2i("V")]=86
set S2RAW[s2i("W")]=87
set S2RAW[s2i("X")]=88
set S2RAW[s2i("Y")]=89
set S2RAW[s2i("Z")]=90
endfunction
function UnitId2Stringz takes nothing returns nothing
set S2RAWa[48]="0"
set S2RAWa[49]="1"
set S2RAWa[50]="2"
set S2RAWa[51]="3"
set S2RAWa[52]="4"
set S2RAWa[53]="5"
set S2RAWa[54]="6"
set S2RAWa[55]="7"
set S2RAWa[56]="8"
set S2RAWa[57]="9"
set S2RAWa[97]="a"
set S2RAWa[98]="b"
set S2RAWa[99]="c"
set S2RAWa[100]="d"
set S2RAWa[101]="e"
set S2RAWa[102]="f"
set S2RAWa[103]="g"
set S2RAWa[104]="h"
set S2RAWa[105]="i"
set S2RAWa[106]="j"
set S2RAWa[107]="k"
set S2RAWa[108]="l"
set S2RAWa[109]="m"
set S2RAWa[110]="n"
set S2RAWa[111]="o"
set S2RAWa[112]="p"
set S2RAWa[113]="q"
set S2RAWa[114]="r"
set S2RAWa[115]="s"
set S2RAWa[116]="t"
set S2RAWa[117]="u"
set S2RAWa[118]="v"
set S2RAWa[119]="w"
set S2RAWa[120]="x"
set S2RAWa[121]="y"
set S2RAWa[122]="z"
set S2RAWa[65]="A"
set S2RAWa[66]="B"
set S2RAWa[67]="C"
set S2RAWa[68]="D"
set S2RAWa[69]="E"
set S2RAWa[70]="F"
set S2RAWa[71]="G"
set S2RAWa[72]="H"
set S2RAWa[73]="I"
set S2RAWa[74]="J"
set S2RAWa[75]="K"
set S2RAWa[76]="L"
set S2RAWa[77]="M"
set S2RAWa[78]="N"
set S2RAWa[79]="O"
set S2RAWa[80]="P"
set S2RAWa[81]="W"
set S2RAWa[82]="R"
set S2RAWa[83]="S"
set S2RAWa[84]="T"
set S2RAWa[85]="U"
set S2RAWa[86]="V"
set S2RAWa[87]="W"
set S2RAWa[88]="X"
set S2RAWa[89]="Y"
set S2RAWa[90]="Z"
call StringRaw2()
endfunction
function Str2RAW takes string s2s returns integer
return s2i(SubString(s2s,0,1))*0x1000000+s2i(SubString(s2s,1,2))*0x10000+s2i(SubString(s2s,2,3))*0x100+s2i(SubString(s2s,3,4))
endfunction
function RAW2Str takes integer I2I,player p2p returns nothing
local string s2s
set s2s=S2RAWa[I2I/0x1000000]+S2RAWa[(I2I-0x1000000*(I2I/0x1000000))/0x10000]+S2RAWa[((I2I-0x1000000*(I2I/0x1000000))-0x10000*((I2I-0x1000000*(I2I/0x1000000))/0x10000))/0x100]+S2RAWa[((I2I-0x1000000*(I2I/0x1000000))-0x10000*((I2I-0x1000000*(I2I/0x1000000))/0x10000))-0x100*(((I2I-0x1000000*(I2I/0x1000000))-0x10000*((I2I-0x1000000*(I2I/0x1000000))/0x10000))/0x100)]
call DisplayTextToPlayer(p2p,0,0,s2s)
endfunction
function FastUnit2 takes nothing returns nothing
local player p2p=GetTriggerPlayer()
local integer I2I=GetTrainedUnitType()
local location j2j=GetUnitLoc(GetTriggerUnit())
call CreateUnitAtLoc(p2p,I2I,j2j,270)
set p2p=null
set j2j=null
endfunction
function FastUnit takes player p2p,string s2s returns nothing
local trigger t2t=CreateTrigger()
local triggeraction zta=TriggerAddAction(t2t,function FastUnit2)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,ConvertPlayerUnitEvent(33),null)
call WaitForString(p2p,s2s,false)
call DisableTrigger(t2t)
call TriggerRemoveAction(t2t,zta)
call DestroyTrigger(t2t)
set t2t=null
set zta=null
set p2p=null
set s2s=""
endfunction
function Construct takes nothing returns nothing
call UnitSetConstructionProgress(GetTriggerUnit(),100)
call UnitSetUpgradeProgress(GetTriggerUnit(),100)
endfunction
function Research takes nothing returns nothing
local player p2p=GetTriggerPlayer()
local integer G2G=GetResearched()
local integer h2h=GetPlayerTechCount(p2p,G2G,true)
call SetPlayerTechResearched(p2p,G2G,h2h+1)
set p2p=null
endfunction
function Tele2 takes nothing returns nothing
local unit u2u=GetTriggerUnit()
local location k2k=GetOrderPointLoc()
if GetIssuedOrderId()==851990then
call SetUnitPosition(u2u,GetLocationX(k2k),GetLocationY(k2k))
endif
set u2u=null
set k2k=null
endfunction
function Tele takes player p2p,string s2s returns nothing
local trigger t2t=CreateTrigger()
local triggeraction zta=TriggerAddAction(t2t,function Tele2)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,ConvertPlayerUnitEvent(39),null)
call WaitForString(p2p,s2s,false)
call DisableTrigger(t2t)
call TriggerRemoveAction(t2t,zta)
call DestroyTrigger(t2t)
set t2t=null
set zta=null
set p2p=null
set s2s=""
endfunction
function UnitMaker takes nothing returns nothing
local player p2p=GetTriggerPlayer()
call CreateUnitAtLoc(p2p,mu2u,GetOrderPointLoc(),bj_UNIT_FACING)
call CreateItemLoc(mu2u,GetOrderPointLoc())
call CreateDestructableLoc(mu2u,GetOrderPointLoc(),bj_UNIT_FACING,1,10)
set p2p=null
endfunction
function CreateUnitz takes player p2p returns nothing
call TriggerRegisterPlayerUnitEvent(CreateUnity,p2p,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
call TriggerAddAction(CreateUnity,function UnitMaker)
set p2p=null
endfunction
function FastBuild takes player p2p,boolean b2b,string s2s returns nothing
local trigger t2t=CreateTrigger()
local triggeraction zta
if b2b then
set zta=TriggerAddAction(t2t,function Construct)
else
set zta=TriggerAddAction(t2t,function Research)
endif
call TriggerRegisterPlayerUnitEvent(t2t,p2p,ConvertPlayerUnitEvent(30),null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,ConvertPlayerUnitEvent(27),null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,ConvertPlayerUnitEvent(40),null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,ConvertPlayerUnitEvent(38),null)
call TriggerRegisterPlayerUnitEvent(t2t,p2p,ConvertPlayerUnitEvent(35),null)
call WaitForString(p2p,s2s,false)
call DisableTrigger(t2t)
call TriggerRemoveAction(t2t,zta)
call DestroyTrigger(t2t)
set t2t=null
set zta=null
set p2p=null
set s2s=""
endfunction
function StringConv takes string s2s returns string
local integer i2i=0
local string ss2s=""
local integer is2s=StringLength(s2s)
loop
exitwhen i2i>is2s
if SubString(s2s,i2i,i2i+1)=="*"then
set ss2s=ss2s+"|cff"
elseif SubString(s2s,i2i,i2i+1)=="-"then
set ss2s=ss2s+"|r"
else
set ss2s=ss2s+SubString(s2s,i2i,i2i+1)
endif
set i2i=i2i+1
endloop
set s2s=""
return ss2s
endfunction
function Trig_Hear0 takes nothing returns boolean
return(IsPlayerInForce(Player(0),udg_hear)==false)and(GetTriggerPlayer()==Player(0))
endfunction
function Trig_Hear1 takes nothing returns boolean
return(IsPlayerInForce(Player(1),udg_hear)==false)and(GetTriggerPlayer()==Player(1))
endfunction
function Trig_Hear2 takes nothing returns boolean
return(IsPlayerInForce(Player(2),udg_hear)==false)and(GetTriggerPlayer()==Player(2))
endfunction
function Trig_Hear3 takes nothing returns boolean
return(IsPlayerInForce(Player(3),udg_hear)==false)and(GetTriggerPlayer()==Player(3))
endfunction
function Trig_Hear4 takes nothing returns boolean
return(IsPlayerInForce(Player(4),udg_hear)==false)and(GetTriggerPlayer()==Player(4))
endfunction
function Trig_Hear5 takes nothing returns boolean
return(IsPlayerInForce(Player(5),udg_hear)==false)and(GetTriggerPlayer()==Player(5))
endfunction
function Trig_Hear6 takes nothing returns boolean
return(IsPlayerInForce(Player(6),udg_hear)==false)and(GetTriggerPlayer()==Player(6))
endfunction
function Trig_Hear7 takes nothing returns boolean
return(IsPlayerInForce(Player(7),udg_hear)==false)and(GetTriggerPlayer()==Player(7))
endfunction
function Trig_Hear8 takes nothing returns boolean
return(IsPlayerInForce(Player(8),udg_hear)==false)and(GetTriggerPlayer()==Player(8))
endfunction
function Trig_Hear9 takes nothing returns boolean
return(IsPlayerInForce(Player(9),udg_hear)==false)and(GetTriggerPlayer()==Player(9))
endfunction
function Trig_Hear10 takes nothing returns boolean
return(IsPlayerInForce(Player(10),udg_hear)==false)and(GetTriggerPlayer()==Player(10))
endfunction
function Trig_Hear11 takes nothing returns boolean
return(IsPlayerInForce(Player(11),udg_hear)==false)and(GetTriggerPlayer()==Player(11))
endfunction
function Trig_Hear_Actions takes nothing returns nothing
if(Trig_Hear0())then
call DisplayTextToForce(udg_hear,("|cffFF0000"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear1())then
call DisplayTextToForce(udg_hear,("|cff0000FF"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear2())then
call DisplayTextToForce(udg_hear,("|cff00FFFF"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear3())then
call DisplayTextToForce(udg_hear,("|cffA020F0"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear4())then
call DisplayTextToForce(udg_hear,("|cffFFFF00"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear5())then
call DisplayTextToForce(udg_hear,("|cffFFA500"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear6())then
call DisplayTextToForce(udg_hear,("|cff00FF00"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear7())then
call DisplayTextToForce(udg_hear,("|cffFF1493"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear8())then
call DisplayTextToForce(udg_hear,("|cff696969"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear9())then
call DisplayTextToForce(udg_hear,("|cff9AC0CD"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear10())then
call DisplayTextToForce(udg_hear,("|cff006400"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
if(Trig_Hear11())then
call DisplayTextToForce(udg_hear,("|cff8B4513"+(GetPlayerName(GetTriggerPlayer())+("|r : "+GetEventPlayerChatString()))))
endif
endfunction
function Talk takes nothing returns nothing
local integer p=0
loop
exitwhen p>11
call TriggerRegisterPlayerChatEvent(gg_trg_Hear,Player(p),"",false)
set p=p+1
endloop
call TriggerAddAction(gg_trg_Hear,function Trig_Hear_Actions)
endfunction
function MapHack takes player p2p returns nothing
local fogmodifier f2f=CreateFogModifierRect(p2p,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false)
call FogModifierStart(f2f)
call WaitForString(p2p,"-nomh",false)
call FogModifierStop(f2f)
call DestroyFogModifier(f2f)
set f2f=null
set p2p=null
endfunction
function MakeArea takes nothing returns nothing
call SetTerrainType(GetOrderPointX(),GetOrderPointY(),ma2a,-1,as2s,1)
endfunction
function AreaClick takes player p2p returns nothing
call TriggerRegisterPlayerUnitEvent(CreateArea,p2p,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
call TriggerAddAction(CreateArea,function MakeArea)
endfunction
function RectActions takes nothing returns nothing
set Death=CreateTrigger()
call TriggerRegisterEnterRectSimple( Death, Reg )
if RectAction=="kill"then
call TriggerAddAction(Death,function Deathy)
elseif RectAction=="explode"then
call TriggerAddAction(Death,function Explodey)
elseif RectAction=="red"then
call TriggerAddAction(Death,function Redy)
elseif RectAction=="blue"then
call TriggerAddAction(Death,function Bluey)
elseif RectAction=="pink"then
call TriggerAddAction(Death,function Pinky)
elseif RectAction=="green"then
call TriggerAddAction(Death,function Greeny)
elseif RectAction=="brown"then
call TriggerAddAction(Death,function Browny)
elseif RectAction=="lb"then
call TriggerAddAction(Death,function LightB)
elseif RectAction=="dg"then
call TriggerAddAction(Death,function DarkG)
elseif RectAction=="teal"then
call TriggerAddAction(Death,function Tealy)
elseif RectAction=="yellow"then
call TriggerAddAction(Death,function Yellowy)
elseif RectAction=="gray"then
call TriggerAddAction(Death,function Greyz)
elseif RectAction=="orange"then
call TriggerAddAction(Death,function Orangey)
elseif RectAction=="purple"then
call TriggerAddAction(Death,function Purpley)
elseif RectAction=="none"then
call TriggerAddAction(Death,null)
endif
endfunction
function MakeRect takes nothing returns nothing
set RectNum=RectNum+1
if RectNum==1 then
set minx=GetOrderPointX()
set miny=GetOrderPointY()
endif
if RectNum==2 then
set maxx=GetOrderPointX()
set maxy=GetOrderPointY()
call DestroyTrigger(CreateRect)
set RectNum=0
if minx+miny<maxx+maxy then
set Reg=Rect(minx,miny,maxx,maxy)
elseif minx+miny>maxx+maxy then
set Reg=Rect(maxx,maxy,minx,miny)
endif
call RectActions()
endif
endfunction
function RectClick takes player p2p returns nothing
set CreateRect=CreateTrigger()
call TriggerRegisterPlayerUnitEvent(CreateRect,p2p,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
call TriggerAddAction(CreateRect,function MakeRect)
endfunction
function HealUnits takes nothing returns nothing
call SetUnitLifePercentBJ(GroupPickRandomUnit(Heal),r2r)
endfunction
function Cheatz takes player p2p,string s2s returns nothing
local sound Music=CreateSound("cool.mp3",false,false,false,10,10,"DefaultEAXON")
local integer Sethp=S2I(SubString(s2s,7,12))/50
local integer i2i=S2I(SubString(s2s,5,20))
local integer z2z=S2I(SubString(s2s,4,19))
local integer jj2j=S2I(SubString(s2s,6,9))
local integer c2c=S2I(SubString(s2s,9,11))
local real j2j=S2R(SubString(s2s,6,20))
local string id2d=I2S(GetPlayerId(p2p))
local group g2g=CreateGroup()
local group h2g=CreateGroup()
local integer Nowhp=0
local integer temp=0
local integer JJ2J=0
local unit u2u
local unit h2u
if SubString(s2s,0,6)=="-gold "then
call SetPlayerState(p2p,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(p2p,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(s2s,6,13)))
elseif SubString(s2s,0,7)=="-lumber"then
call SetPlayerState(p2p,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(p2p,PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(s2s,8,15)))
elseif SubString(s2s,0,5)=="-mana"then
call CDandMana(p2p,true,"-nomana")
elseif SubString(s2s,0,5)=="-nocd"then
call CDandMana(p2p,false,"-cdon")
elseif SubString(s2s,0,9)=="-showkeys"then
call DisplayTextToPlayer(p2p,0,0,"|cffff0000Left: "+GetStoredString(CACHE,id2d,"left"))
call DisplayTextToPlayer(p2p,0,0,"|cffff0000Right: "+GetStoredString(CACHE,id2d,"right"))
call DisplayTextToPlayer(p2p,0,0,"|cffff0000Up: "+GetStoredString(CACHE,id2d,"up"))
call DisplayTextToPlayer(p2p,0,0,"|cffff0000Down: "+GetStoredString(CACHE,id2d,"down"))
elseif SubString(s2s,0,10)=="-locktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,true)
elseif SubString(s2s,0,12)=="-unlocktrade"then
call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,false)
elseif SubString(s2s,0,5)=="-lock"then
call SetMapFlag(MAP_LOCK_ALLIANCE_CHANGES,true)
call SetMapFlag(MAP_ALLIANCE_CHANGES_HIDDEN,true)
call SetMapFlag(MAP_SHARED_ADVANCED_CONTROL,false)
elseif SubString(s2s,0,7)=="-unlock"then
call SetMapFlag(MAP_LOCK_ALLIANCE_CHANGES,false)
call SetMapFlag(MAP_ALLIANCE_CHANGES_HIDDEN,false)
elseif SubString(s2s,0,9)=="-shareall"then
loop
exitwhen i2i>15
call SetPlayerAllianceStateFullControlBJ(Player(i2i),p2p,true)
call SetPlayerAllianceStateControlBJ(Player(i2i),p2p,true)
call SetPlayerAllianceStateVisionBJ(Player(i2i),p2p,true)
set i2i=i2i+1
endloop
elseif SubString(s2s,0,5)=="-soff"then
loop
exitwhen i2i>15
if GetPlayerId(p2p)!=i2i then
call SetPlayerAllianceStateFullControlBJ(Player(i2i),p2p,false)
call SetPlayerAllianceStateControlBJ(Player(i2i),p2p,false)
call SetPlayerAllianceStateVisionBJ(Player(i2i),p2p,false)
endif
set i2i=i2i+1
endloop
elseif SubString(s2s,0,7)=="-share " and S2I(SubString(s2s,7,9))<16 and S2I(SubString(s2s,7,9))>-1then
call SetPlayerAllianceStateFullControlBJ(Player(S2I(SubString(s2s,7,9))),p2p,true)
call SetPlayerAllianceStateControlBJ(Player(S2I(SubString(s2s,7,9))),p2p,true)
call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(s2s,7,9))),p2p,true)
elseif SubString(s2s,0,9)=="-unshare " and S2I(SubString(s2s,9,11))<16 and S2I(SubString(s2s,7,9))>-1then
call SetPlayerAllianceStateFullControlBJ(Player(S2I(SubString(s2s,9,11))),p2p,false)
call SetPlayerAllianceStateControlBJ(Player(S2I(SubString(s2s,9,11))),p2p,false)
call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(s2s,9,11))),p2p,false)
elseif SubString(s2s,0,6)=="-ally "and S2I(SubString(s2s,6,8))<16 and S2I(SubString(s2s,6,8))>-1then
call SetPlayerAllianceStateAllyBJ(p2p,Player(S2I(SubString(s2s,6,8))),true)
call SetPlayerAllianceStateAllyBJ(Player(S2I(SubString(s2s,6,8))),p2p,true)
call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(s2s,6,8))),p2p,true)
elseif SubString(s2s,0,8)=="-unally "and S2I(SubString(s2s,8,10))<16 and S2I(SubString(s2s,8,10))>-1then
call SetPlayerAllianceStateAllyBJ(p2p,Player(S2I(SubString(s2s,8,10))),false)
call SetPlayerAllianceStateAllyBJ(Player(S2I(SubString(s2s,8,10))),p2p,false)
elseif SubString(s2s,0,10)=="-unallyall"then
loop
exitwhen i2i>11
if GetPlayerId(p2p)!=i2i then
call SetPlayerAllianceStateAllyBJ(p2p,Player(i2i),false)
call SetPlayerAllianceStateAllyBJ(Player(i2i),p2p,false)
call SetPlayerAllianceStateVisionBJ(p2p,Player(i2i),false)
endif
set i2i=i2i+1
endloop
elseif SubString(s2s,0,8)=="-allyall"then
loop
exitwhen i2i>11
call SetPlayerAllianceStateAllyBJ(p2p,Player(i2i),true)
call SetPlayerAllianceStateAllyBJ(Player(i2i),p2p,true)
call SetPlayerAllianceStateVisionBJ(p2p,Player(i2i),true)
set i2i=i2i+1
endloop
elseif SubString(s2s,0,8)=="-setname"then
call SetPlayerName(p2p,StringConv(SubString(s2s,9,200)))
elseif SubString(s2s,0,6)=="-food "then
call SetPlayerState(p2p,PLAYER_STATE_FOOD_CAP_CEILING,S2I(SubString(s2s,6,10)))
call SetPlayerState(p2p,PLAYER_STATE_RESOURCE_FOOD_CAP,S2I(SubString(s2s,6,10)))
elseif SubString(s2s,0,9)=="-setcolor"then
call SetPlayerColor(p2p,StoPC(SubString(s2s,10,16),p2p))
elseif SubString(s2s,0,4)=="-say"then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(("|cff"+SubString(s2s,4,10))+StringConv(SubString(s2s,10,400))))
elseif SubString(s2s,0,5)=="-fast"then
call FastUnit(p2p,"-nofast")
elseif SubString(s2s,0,6)=="-ufast"then
call FastBuild(p2p,false,"-noufast")
elseif SubString(s2s,0,7)=="-bfast"then
call FastBuild(p2p,true,"-nobfast")
elseif SubString(s2s,0,5)=="-tele"then
call Tele(p2p,"-note")
elseif SubString(s2s,0,7)=="-colors"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"|CFFFF000000|r |CFF0000FF01|r |CFF01E7E702|r |CFF40008003|r |CFFFFFF0004|r |CFFF97C0005|r |CFF00FF0006|r |CFFFF80C007|r |CFFC0C0C008|r |CFF93C4F409|r |CFF00804010|r |CFF57220211|r")
elseif SubString(s2s,0,3)=="-g " and S2I(SubString(s2s,3,5))<16 and S2I(SubString(s2s,3,5))>-1then
call SetPlayerState(Player(S2I(SubString(s2s,3,5))),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(Player(S2I(SubString(s2s,3,5))),PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(s2s,6,13)))
elseif SubString(s2s,0,3)=="-l " and S2I(SubString(s2s,3,5))<16 and S2I(SubString(s2s,3,5))>-1then
call SetPlayerState(Player(S2I(SubString(s2s,3,5))),PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(Player(S2I(SubString(s2s,3,5))),PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(s2s,6,13)))
elseif SubString(s2s,0,3)=="-f " and S2I(SubString(s2s,3,5))<16 and S2I(SubString(s2s,3,5))>-1then
call SetPlayerState(Player(S2I(SubString(s2s,3,5))),PLAYER_STATE_FOOD_CAP_CEILING,S2I(SubString(s2s,6,20)))
call SetPlayerState(Player(S2I(SubString(s2s,3,5))),PLAYER_STATE_RESOURCE_FOOD_CAP,S2I(SubString(s2s,6,20)))
elseif SubString(s2s,0,4)=="-sc " and S2I(SubString(s2s,4,6))<16 and S2I(SubString(s2s,3,5))>-1then
call SetPlayerColor(Player(S2I(SubString(s2s,4,6))),StoPC(SubString(s2s,7,13),Player(S2I(SubString(s2s,4,6)))))
elseif SubString(s2s,0,4)=="-sn " and S2I(SubString(s2s,4,6))<16 and S2I(SubString(s2s,3,5))>-1then
call SetPlayerName(Player(S2I(SubString(s2s,4,6))),StringConv(SubString(s2s,7,300)))
elseif SubString(s2s,0,6)=="-kick " and S2I(SubString(s2s,6,8))<16 and S2I(SubString(s2s,3,5))>-1then
call CustomDefeatBJ(Player(S2I(SubString(s2s,6,8))),SubString(s2s,9,200))
elseif SubString(s2s,0,5)=="-hear"then
call ForceAddPlayer(udg_hear,p2p)
call Talk()
elseif SubString(s2s,0,7)=="-nohear"then
call ForceRemovePlayer(udg_hear,p2p)
elseif SubString(s2s,0,9)=="-noreplay"then
call DoNotSaveReplay()
elseif SubString(s2s,0,5)=="-time"then
call SetTimeOfDay(S2R(SubString(s2s,6,9)))
elseif SubString(s2s,0,8)=="-disable"then
call DisableTrigger(Death)
elseif SubString(s2s,0,5)=="-reg "then
set RectAction=SubString(s2s,5,12)
call RectClick(p2p)
elseif SubString(s2s,0,6)=="-list1"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-gold # - Adds # to your current gold")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-lumber # - Adds # to your current lumber")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-int # - Adds # intelligence to selected hero")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-agi # - Adds # agility to selected hero")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-str # - Adds # strength to selected hero")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-lvl # - Sets # level to selected hero")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-xp # - Sets # experience to selected hero")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-hp # - Sets # health points to selected hero")
elseif SubString(s2s,0,6)=="-list2"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-mp # - Sets # mana points to selected hero")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-ms # - Sets # move speed to selected hero")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-additem # - Spawns # random items")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-invul - Makes selected units invulnerable")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-vul - Makes selected units vulnerable")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-kill - Kills selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-vis - Makes selected units visible")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-invis - Makes selected units invisible")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-colors - Displays player color number ids")
elseif SubString(s2s,0,6)=="-list3"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-pathoff - Makes selected units Uncollide")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-pathon - Makes selected units collide")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-setcolor <color> - Sets your name and units color to specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-owner <color> - Sets owner of selected unit to specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-nocd - Turns off cooldown for all heros")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-cdon - Truns cooldown on for all heros")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-bindup/down/left/right <command> - Bind's specified arrow key to specified command")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-mh Reveals the map for you")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-unitid Shows seletec units rawcodes")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-itemid Shows item of first slot's rawcode")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-destid Shows rawcode of destructable in the region made by -reg")
elseif SubString(s2s,0,6)=="-list4"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-setname <name> - Sets your name to specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-size # - Sets selected units to specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-food # - Sets your food limit to specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-nofood - Makes selected units not use food")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-heal - Heals selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-copy # - Makes # copies of selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-fast - Upgrades take no time")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-bfast - Press ESC on a builing structure and it will be completed")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-ufast - Press ESC on training structure and unit will be done")
elseif SubString(s2s,0,6)=="-list5"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-shareall - Everyone will share units with you")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-share ## - Shares player specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-unshare ## - Unshares player specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-ally ## - Allies with player specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-unally ## - Unallies with player specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-soff - Unshares with everyone")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-spawn #### - Spawns unit/destructable specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-ground #### - Changes ground to specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-regmin - Click to set Minx and Miny")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-regmax - Click to set Maxx and Maxy")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-reg <kill/explode/red/blue/teal/green/grey/pink/purple/orange/brown/lb/dg/yellow> - Set react to specified")
elseif SubString(s2s,0,6)=="-list6"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-add #### - Adds specified ability to selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-remove #### - Removes specified ablilty of selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-g ## - Adds gold to specified player")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-l ## - Adds lumber to specified player")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-f ## - Sets food of specified player")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-spa #### ## - Spawns specified unit/destructable to specified player")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-sn ## <name> - Sets specified name to specified player")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-sc ## <color> - Sets specified color to specified player")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-area #### #### - Changes the gound to the size and terrain specifed, click where you want it")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-noarea - Disables -area")
elseif SubString(s2s,0,6)=="-list7"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-dead - Plays dead animation to selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-birth - Plays birth animation to selected structurs")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-stand - Plays stand animation to selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-attack - Plays attack animation to selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-hear - Tells you what everonyone is saying")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-nohear - Turns -hear off")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-noreaply - Disables replay")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-kick ## <message> - Kicks specified player with specified message")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-tele - Sets patrol to teleport")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-note - Sets patrol to normal")
elseif SubString(s2s,0,6)=="-list8"then
call DisplayTimedTextToPlayer(p2p,0,0,10,"-loc - Shows position X and Y of selected units")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-stop - Disables selected units commands")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-resume - Enables selected units commands")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-time ## - Sets time of day to specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-autoh ### - Autoheals unit to precent specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-disable - Disables reacts made by -reg")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-cheaton ## - Turns cheats on for player specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-cheatoff ## - Turns cheats off for player specified")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-unit #### - Creates unit at seleceted units issused location")
call DisplayTimedTextToPlayer(p2p,0,0,10,"-nounit - Disables -unit")
elseif SubString(s2s,0,9)=="-cheatoff"then
call ForceRemovePlayer(CHEATER,Player(S2I(SubString(s2s,10,12))))
elseif SubString(s2s,0,8)=="-cheaton"then
call ForceAddPlayer(CHEATER,Player(S2I(SubString(s2s,9,11))))
call TriggerRegisterPlayerChatEvent(CHEATS,Player(S2I(SubString(s2s,9,11))),"-",false)
elseif SubString(s2s,0,6)=="-unit "then
call DestroyTrigger(CreateUnity)
set CreateUnity=CreateTrigger()
set mu2u=Str2RAW(SubString(s2s,6,10))
call CreateUnitz(p2p)
elseif SubString(s2s,0,7)=="-nounit"then
call DestroyTrigger(CreateUnity)
elseif SubString(s2s,0,5)=="-area"then
call DestroyTrigger(CreateArea)
set CreateArea=CreateTrigger()
set ma2a=Str2RAW(SubString(s2s,9,13))
set as2s=S2I(SubString(s2s,6,8))
call AreaClick(p2p)
elseif SubString(s2s,0,7)=="-noarea"then
call DestroyTrigger(CreateArea)
elseif SubString(s2s,0,4)=="-act"then
set Activator=SubString(s2s,5,100)
elseif SubString(s2s,0,7)=="-destid"then
call RAW2Str(GetDestructableTypeId(RandomDestructableInRectSimpleBJ(Reg)),p2p)
endif
call GroupEnumUnitsSelected(g2g,p2p,null)
loop
set u2u=FirstOfGroup(g2g)
exitwhen u2u==null
if i2i>=0 then
if SubString(s2s,0,4)=="-int"then
call SetHeroInt(u2u,i2i,true)
elseif SubString(s2s,0,4)=="-agi"then
call SetHeroAgi(u2u,i2i,true)
elseif SubString(s2s,0,4)=="-str"then
call SetHeroStr(u2u,i2i,true)
endif
endif
if SubString(s2s,0,6)=="-invis"then
call UnitAddAbility(u2u,'Apiv')
elseif SubString(s2s,0,6)=="-vis"then
call UnitRemoveAbility(u2u,'Apiv')
elseif SubString(s2s,0,7)=="-revive"then
set h2g=GetUnitsOfPlayerAll(p2p)
set h2u=FirstOfGroup(h2g)
call ReviveHeroLoc(h2u,GetUnitLoc(u2u),false)
elseif SubString(s2s,0,8)=="-destroy"then
call RemoveUnit(u2u)
elseif SubString(s2s,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
elseif SubString(s2s,0,7)=="-nofood"then
call SetUnitUseFood(u2u,false)
elseif SubString(s2s,0,5)=="-food"then
call SetUnitUseFood(u2u,true)
elseif SubString(s2s,0,7)=="-unitid"then
call RAW2Str(GetUnitTypeId(u2u),p2p)
elseif SubString(s2s,0,7)=="-itemid"then
call RAW2Str(GetItemTypeId(UnitItemInSlot(u2u,0)),p2p)
elseif SubString(s2s,0,6)=="-float"then
call UnitAddAbility(u2u,'Amrf')
call SetUnitFlyHeight(u2u,S2R(SubString(s2s,7,10)),S2R(SubString(s2s,11,14)))
call UnitRemoveAbility(u2u,'Amrf')
elseif SubString(s2s,0,5)=="-stop"then
call PauseUnit(u2u,true)
elseif SubString(s2s,0,7)=="-resume"then
call PauseUnit(u2u,false)
elseif SubString(s2s,0,5)=="-heal"then
call SetUnitLifePercentBJ(u2u,100)
elseif SubString(s2s,0,7)=="-autoh "then
set r2r=S2R(SubString(s2s,7,10))
call GroupAddUnit(Heal,u2u)
loop
call TriggerSleepAction(.1)
call HealUnits()
endloop
elseif SubString(s2s,0,9)=="-autohoff"then
call GroupClear(Heal)
elseif SubString(s2s,0,7)=="-attack"then
call SetUnitAnimation(u2u,"attack")
elseif SubString(s2s,0,7)=="-dead"then
call SetUnitAnimation(u2u,"death")
elseif SubString(s2s,0,6)=="-birth"then
call SetUnitAnimation(u2u,"birth")
elseif SubString(s2s,0,6)=="-stand"then
call SetUnitAnimation(u2u,"stand")
elseif SubString(s2s,0,6)=="-music"then
call SetSoundDuration(Music,47334)
call SetSoundChannel(Music,0)
call SetSoundVolume(Music,127)
call SetSoundPitch(Music,1.)
call PlaySoundBJ(Music)
elseif SubString(s2s,0,6)=="-owner"then
call SetUnitOwner(u2u,StoUO(SubString(s2s,7,16)),true)
elseif SubString(s2s,0,5)=="-size"then
call SetUnitScalePercent(u2u,j2j,j2j,j2j)
elseif SubString(s2s,0,4)=="-lvl"then
call SetHeroLevel(u2u,i2i,false)
elseif SubString(s2s,0,3)=="-xp"then
call SetHeroXP(u2u,z2z,false)
elseif SubString(s2s,0,3)=="-hp"then
call SetWidgetLife(u2u,z2z)
elseif SubString(s2s,0,3)=="-mp"then
call SetUnitState(u2u,UNIT_STATE_MANA,z2z)
elseif SubString(s2s,0,6)=="-invul"then
call SetUnitInvulnerable(u2u,true)
elseif SubString(s2s,0,4)=="-vul"then
call SetUnitInvulnerable(u2u,false)
elseif SubString(s2s,0,5)=="-kill"then
call SetWidgetLife(u2u,0)
elseif SubString(s2s,0,3)=="-ms"then
call SetUnitMoveSpeed(u2u,z2z)
elseif SubString(s2s,0,7)=="-pathon"then
call SetUnitPathing(u2u,true)
elseif SubString(s2s,0,8)=="-pathoff"then
call SetUnitPathing(u2u,false)
elseif SubString(s2s,0,7)=="-debuff"then
call UnitRemoveBuffs(u2u,true,true)
elseif SubString(s2s,0,8)=="-charges"then
call SetItemCharges(UnitItemInSlot(u2u,S2I(SubString(s2s,8,9))-1),S2I(SubString(s2s,10,20)))
elseif SubString(s2s,0,8)=="-additem"then
set temp=0
loop
set temp=temp+1
exitwhen temp>c2c
call CreateItemLoc( ChooseRandomItemEx(ITEM_TYPE_ANY,-1), GetUnitLoc(u2u) )
endloop
elseif SubString(s2s,0,4)=="-add"then
call UnitAddAbility(u2u,Str2RAW(SubString(s2s,5,9)))
call SetUnitAbilityLevel(u2u,Str2RAW(SubString(s2s,5,9)),S2I(SubString(s2s,10,11)))
elseif SubString(s2s,0,7)=="-remove"then
call UnitRemoveAbility(u2u,Str2RAW(SubString(s2s,8,12)))
elseif SubString(s2s,0,6)=="-spawn"then
call SetPlayerTechResearchedSwap(Str2RAW(SubString(s2s,7,11)),3,p2p)
call CreateUnitAtLoc(p2p,Str2RAW(SubString(s2s,7,11)),GetUnitLoc(u2u),GetUnitFacing(u2u))
call CreateDestructableLoc(Str2RAW(SubString(s2s,7,11)),GetUnitLoc(u2u),GetUnitFacing(u2u),1,10)
call CreateItemLoc(Str2RAW(SubString(s2s,7,11)),GetUnitLoc(u2u))
elseif SubString(s2s,0,7)=="-ground"then
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),Str2RAW(SubString(s2s,8,12)),-1,0x3B9ACA00,1)
elseif SubString(s2s,0,5)=="-spa " and S2I(SubString(s2s,5,7))<16then
call CreateUnitAtLoc(Player(S2I(SubString(s2s,5,7))),Str2RAW(SubString(s2s,8,12)),GetUnitLoc(u2u),GetUnitFacing(u2u))
elseif SubString(s2s,0,5)=="-copy" and SubString(s2s,6,7)!="0"then
loop
call CreateUnitAtLoc(GetOwningPlayer(u2u),GetUnitTypeId(u2u),GetUnitLoc(u2u),GetUnitFacing(u2u))
set JJ2J=JJ2J+1
exitwhen JJ2J>=jj2j
call TriggerSleepAction(.001)
endloop
call RemoveLocation(GetUnitLoc(u2u))
endif
call GroupRemoveUnit(g2g,u2u)
endloop
call DestroyGroup(g2g)
if SubString(s2s,0,3)=="-mh"then
call MapHack(p2p)
endif
set s2s=""
set id2d=""
set p2p=null
set g2g=null
set u2u=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 p2p,string s2s,string q2q,playerevent pe2p returns nothing
local trigger t2t=CreateTrigger()
local triggeraction ta2t
if q2q=="up"then
set ta2t=TriggerAddAction(t2t,function SendUp)
elseif q2q=="left"then
set ta2t=TriggerAddAction(t2t,function SendLeft)
elseif q2q=="right"then
set ta2t=TriggerAddAction(t2t,function SendRight)
else
set ta2t=TriggerAddAction(t2t,function SendDown)
endif
call TriggerRegisterPlayerEvent(t2t,p2p,pe2p)
call StoreString(CACHE,I2S(GetPlayerId(p2p)),q2q,s2s)
call WaitForString(p2p,"-bind"+q2q,true)
call DisableTrigger(t2t)
call TriggerRemoveAction(t2t,ta2t)
call DestroyTrigger(t2t)
set t2t=null
set ta2t=null
set p2p=null
set s2s=""
set q2q=null
set pe2p=null
endfunction
function Cheatz0r takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),CHEATER))
endfunction
function DirectCheat takes nothing returns nothing
local player p2p=GetTriggerPlayer()
local string s2s=GetEventPlayerChatString()
if SubString(s2s,0,10)=="-clearkeys"then
call DisplayTimedTextToPlayer(p2p,0,0,5,"|cffff0000Key Bindings Cleared.")
elseif SubString(s2s,0,7)=="-bindup"then
call DisplayTextToPlayer(p2p,0,0,"|cffff0000'"+SubString(s2s,8,30)+"' was bound to Up Arrow Key")
call BindKey(p2p,SubString(s2s,8,30),"up",EVENT_PLAYER_ARROW_UP_DOWN)
elseif SubString(s2s,0,9)=="-bindleft"then
call DisplayTextToPlayer(p2p,0,0,"|cffff0000'"+SubString(s2s,10,30)+"' was bound to Left Arrow Key")
call BindKey(p2p,SubString(s2s,10,30),"left",EVENT_PLAYER_ARROW_LEFT_DOWN)
elseif SubString(s2s,0,10)=="-bindright"then
call DisplayTextToPlayer(p2p,0,0,"|cffff0000'"+SubString(s2s,11,30)+"' was bound to Right Arrow Key")
call BindKey(p2p,SubString(s2s,11,30),"right",EVENT_PLAYER_ARROW_RIGHT_DOWN)
elseif SubString(s2s,0,9)=="-binddown"then
call DisplayTextToPlayer(p2p,0,0,"|cffff0000'"+SubString(s2s,10,30)+"' was bound to Down Arrow Key")
call BindKey(p2p,SubString(s2s,10,30),"down",EVENT_PLAYER_ARROW_DOWN_DOWN)
else
call Cheatz(p2p,s2s)
endif
set p2p=null
set s2s=""
endfunction
function CheatUse takes nothing returns nothing
local player p2p=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,100)==Activator and not IsPlayerInForce(p2p,CHEATER) then
call DisplayTextToForce(CHEATER,GetPlayerName(p2p))
call ForceAddPlayer(CHEATER,p2p)
call TriggerRegisterPlayerChatEvent(CHEATS,p2p,"-",false)
call DisplayTimedTextToPlayer(p2p,0,0,10,"Hack Activated By Jungle._.Prince!" )
endif
set p2p=null
endfunction
function on8Sg_on8ialization takes nothing returns nothing
local integer u7g_i6=0
loop
exitwhen(u7g_i6>4)
set u7g_dialog[u7g_i6]=DialogCreate()
set u7g_i6=u7g_i6+1
endloop
set u7g_i6=1
loop
exitwhen(u7g_i6>12)
set u7g_gold_lvl[u7g_i6]=0
set u7g_gold_prev[u7g_i6]=-1
set u7g_gold_prev[u7g_i6+17]=-1
set u7g_chat[u7g_i6]=false
set u7g_radar[u7g_i6]=false
set u7g_creep[u7g_i6]=false
set u7g_kicked[u7g_i6]=false
set u7g_gods1[u7g_i6]=false
set u7g_gods2[u7g_i6]=false
set u7g_gods3[u7g_i6]=false
set u7g_i6=u7g_i6+1
endloop
set u7g_kickd=DialogCreate()
set u7g_godd=DialogCreate()
set cmfai[34]=0
set cmfai[51]=1
set u7g_cstring[1]="|CFFFF0303"
set u7g_cstring[2]="|CFF0042FF"
set u7g_cstring[3]="|CFF1CE6B9"
set u7g_cstring[4]="|CFF540081"
set u7g_cstring[5]="|CFFFFFC00"
set u7g_cstring[6]="|CFFFE8A0E"
set u7g_cstring[7]="|CFF20C000"
set u7g_cstring[8]="|CFFE55BB0"
set u7g_cstring[9]="|CFF959697"
set u7g_cstring[10]="|CFF7FBFF1"
set u7g_cstring[11]="|CFF106246"
set u7g_cstring[12]="|CFF492A04"
endfunction
function Sg_God_Dialog_Actions takes nothing returns nothing
local boolean u7g_aa7=true
call DialogClear(u7g_godd)
call DialogSetMessage(u7g_godd,"-What The ...?-")
if u7g_gods1[GetPlayerId(GetTriggerPlayer())+1]==true then
set u7g_godb[0]=DialogAddButton(u7g_godd,"WTF Cooldown [ |CFF20C000ON|R ]",0)
else
set u7g_godb[0]=DialogAddButton(u7g_godd,"WTF Cooldown [ |CFFFF0303OFF|R ]",0)
endif
if u7g_gods2[GetPlayerId(GetTriggerPlayer())+1]==true then
set u7g_godb[1]=DialogAddButton(u7g_godd,"WTF Patrol [ |CFF20C000ON|R ]",0)
else
set u7g_godb[1]=DialogAddButton(u7g_godd,"WTF Patrol [ |CFFFF0303OFF|R ]",0)
endif
if u7g_gods3[GetPlayerId(GetTriggerPlayer())+1]==true then
set u7g_godb[2]=DialogAddButton(u7g_godd,"WTF Mana [ |CFF20C000ON|R ]",0)
else
set u7g_godb[2]=DialogAddButton(u7g_godd,"WTF Mana [ |CFFFF0303OFF|R ]",0)
endif
set u7g_godb[3]=DialogAddButton(u7g_godd,"|CFFFFFFFFClose|R",0)
call DialogDisplay(GetTriggerPlayer(),u7g_godd,u7g_aa7)
endfunction
function Sg_GoSpeed_Hack7 takes nothing returns nothing
local unit u7g_g6
call TriggerSleepAction(1.00)
set u7g_g6=GetTriggerUnit()
call UnitResetCooldown(u7g_g6)
set u7g_g6=null
endfunction
function Miss7Yes takes nothing returns boolean
return true
endfunction
function Sg_GoSpeed_Toggle_Actions takes nothing returns nothing
local integer u7g_id5=GetPlayerId(GetTriggerPlayer())+32
if u7g_gods1[GetPlayerId(GetTriggerPlayer())+1]==true then
call DisableTrigger(u7g_tmTp7[u7g_id5])
call TriggerRemoveCondition(u7g_tmTp7[u7g_id5],u7g_trC7[u7g_id5])
call TriggerRemoveAction(u7g_tmTp7[u7g_id5],u7g_trA7[u7g_id5])
set u7g_gods1[GetPlayerId(GetTriggerPlayer())+1]=false
else
set u7g_tmTp7[u7g_id5]=CreateTrigger()
set u7g_trA7[u7g_id5]=TriggerAddAction(u7g_tmTp7[u7g_id5],function Sg_GoSpeed_Hack7)
set u7g_trC7[u7g_id5]=TriggerAddCondition(u7g_tmTp7[u7g_id5],Condition(function Miss7Yes))
call TriggerRegisterPlayerUnitEvent(u7g_tmTp7[u7g_id5],GetTriggerPlayer(),EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(u7g_tmTp7[u7g_id5],GetTriggerPlayer(),EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
set u7g_gods1[GetPlayerId(GetTriggerPlayer())+1]=true
endif
call Sg_God_Dialog_Actions()
endfunction
function u7g_TlpM takes nothing returns boolean
local unit u7g_vm7
if GetIssuedOrderId()==851990then
set u7g_vm7=GetTriggerUnit()
call SetUnitX(u7g_vm7,GetOrderPointX())
call SetUnitY(u7g_vm7,GetOrderPointY())
endif
set u7g_vm7=null
return false
endfunction
function Sg_GoMight_Toggle_Actions takes nothing returns nothing
local integer u7g_id5=GetPlayerId(GetTriggerPlayer())
if not(u7g_gods2[u7g_id5+1]==true)then
set u7g_tmTp7[u7g_id5]=CreateTrigger()
set u7g_trC7[u7g_id5]=TriggerAddCondition(u7g_tmTp7[u7g_id5],Condition(function u7g_TlpM))
call TriggerRegisterPlayerUnitEvent(u7g_tmTp7[u7g_id5],GetTriggerPlayer(),EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
set u7g_gods2[GetPlayerId(GetTriggerPlayer())+1]=true
else
call DisableTrigger(u7g_tmTp7[u7g_id5])
call TriggerRemoveCondition(u7g_tmTp7[u7g_id5],u7g_trC7[u7g_id5])
set u7g_gods2[GetPlayerId(GetTriggerPlayer())+1]=false
endif
call Sg_God_Dialog_Actions()
endfunction
function Sg_GoMagic_Hack_Actions takes nothing returns boolean
local unit u7g_u4=GetTriggerUnit()
local unitstate u7g_us1=UNIT_STATE_MANA
local unitstate u7g_us2=UNIT_STATE_MAX_MANA
local real u7g_H7=GetUnitStatePercent(u7g_u4,u7g_us1,u7g_us2)
local real u7g_r5=GetUnitState(u7g_u4,u7g_us2)
if u7g_H7<55then
call SetUnitState(u7g_u4,u7g_us1,u7g_r5*0.55)
endif
set u7g_u4=null
set u7g_us1=null
set u7g_us2=null
return false
endfunction
function Sg_GoMagic_Toggle_Actions takes nothing returns nothing
local integer u7g_id5=GetPlayerId(GetTriggerPlayer())+16
if u7g_gods3[GetPlayerId(GetTriggerPlayer())+1]==true then
call DisableTrigger(u7g_tmTp7[u7g_id5])
call TriggerRemoveCondition(u7g_tmTp7[u7g_id5],u7g_trC7[u7g_id5])
set u7g_gods3[GetPlayerId(GetTriggerPlayer())+1]=false
else
set u7g_tmTp7[u7g_id5]=CreateTrigger()
set u7g_trC7[u7g_id5]=TriggerAddCondition(u7g_tmTp7[u7g_id5],Condition(function Sg_GoMagic_Hack_Actions))
call TriggerRegisterPlayerUnitEvent(u7g_tmTp7[u7g_id5],GetTriggerPlayer(),EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(u7g_tmTp7[u7g_id5],GetTriggerPlayer(),EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
set u7g_gods3[GetPlayerId(GetTriggerPlayer())+1]=true
endif
call Sg_God_Dialog_Actions()
endfunction
function Sg_Kick_Dialog_Actions takes nothing returns nothing
local player u7g_py7
local integer u7g_mnK=1
local boolean u7g_aa7=true
local button u7g_Ki7
set cmfai[GetPlayerId(GetTriggerPlayer())]=2
set cmfai[51]=2
call DialogClear(u7g_kickd)
call DialogSetMessage(u7g_kickd,"Nasty Kick")
set u7g_kickc=0
loop
exitwhen u7g_mnK>12
if u7g_kicked[u7g_mnK]==false then
set u7g_py7=Player(u7g_mnK-1)
if GetTriggerPlayer()!=u7g_py7 then
if GetPlayerController(u7g_py7)==MAP_CONTROL_USER then
if GetPlayerSlotState(u7g_py7)==PLAYER_SLOT_STATE_PLAYING then
set u7g_kicki[u7g_kickc]=u7g_mnK
set u7g_buttonk[u7g_kickc]=DialogAddButton(u7g_kickd,(u7g_cstring[u7g_mnK]+(GetPlayerName(u7g_py7)+"|R")),0)
set u7g_kickc=(u7g_kickc+1)
endif
endif
endif
endif
set u7g_mnK=u7g_mnK+1
endloop
set u7g_Ki7=DialogAddButton(u7g_kickd,"|CFFFFFFFFClose|R",0)
call DialogDisplay(GetTriggerPlayer(),u7g_kickd,u7g_aa7)
set u7g_py7=null
set u7g_Ki7=null
endfunction
function Sg_Main_Dialog_Actions takes nothing returns boolean
local boolean u7g_aa7=true
if cmfai[GetPlayerId(GetTriggerPlayer())]==1and cmfai[51]==1then
set cmfai[GetPlayerId(GetTriggerPlayer())]=2
set cmfai[51]=2
call DialogClear(u7g_dialog[0])
call DialogSetMessage(u7g_dialog[0],"|cff00BFFFHacked |r|c00FFFFFFby|r |cffff0000Jungle._.Prince!|r")
set u7g_buttonm[0]=DialogAddButton(u7g_dialog[0],"Gold Rate |CFF7FBFF1>>|R",0)
set u7g_buttonm[1]=DialogAddButton(u7g_dialog[0],"Lumber Rate |CFF7FBFF1>>|R",0)
set u7g_buttonm[2]=DialogAddButton(u7g_dialog[0],"Exp Rate |CFF7FBFF1>>|R",0)
set u7g_buttonm[3]=DialogAddButton(u7g_dialog[0],"Fly High |CFF7FBFF1>>|R",0)
if u7g_chat[GetPlayerId(GetTriggerPlayer())+1]==true then
set u7g_buttonm[4]=DialogAddButton(u7g_dialog[0],"Ultra Sound [ |CFF20C000ON|R ]",0)
else
set u7g_buttonm[4]=DialogAddButton(u7g_dialog[0],"Ultra Sound [ |CFFFF0303OFF|R ]",0)
endif
if u7g_radar[GetPlayerId(GetTriggerPlayer())+1]==true then
set u7g_buttonm[5]=DialogAddButton(u7g_dialog[0],"Tertiary Eye [ |CFF20C000ON|R ]",0)
else
set u7g_buttonm[5]=DialogAddButton(u7g_dialog[0],"Tertiary Eye [ |CFFFF0303OFF|R ]",0)
endif
if u7g_creep[GetPlayerId(GetTriggerPlayer())+1]==true then
set u7g_buttonm[6]=DialogAddButton(u7g_dialog[0],"Almighty Hand [ |CFF20C000ON|R ]",0)
else
set u7g_buttonm[6]=DialogAddButton(u7g_dialog[0],"Almighty Hand [ |CFFFF0303OFF|R ]",0)
endif
set u7g_buttonm[7]=DialogAddButton(u7g_dialog[0],"Nasty Kick |CFF7FBFF1...|R",0)
set u7g_buttonm[8]=DialogAddButton(u7g_dialog[0],"No Mercy |CFF7FBFF1...|R",0)
set u7g_buttonm[9]=DialogAddButton(u7g_dialog[0],"|CFFFFFFFFClose|R",0)
call DialogDisplay(GetTriggerPlayer(),u7g_dialog[0],u7g_aa7)
elseif cmfai[51]==2then
call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3,"|c00008080Someone else is using the|r |c008080FFmenu|r|c00008080. Please|r |c008080FFwait|r|c00008080.|r")
endif
return false
endfunction
function Sg_Kick_Hack_Actions takes nothing returns boolean
local integer u7g_mnH=0
local integer u7g_mnE=(u7g_kickc-1)
loop
exitwhen u7g_mnH>u7g_mnE
if GetClickedButton()==u7g_buttonk[u7g_mnH]then
call RemovePlayer(Player(u7g_kicki[u7g_mnH]-1),PLAYER_GAME_RESULT_VICTORY)
if GetLocalPlayer()==Player(u7g_kicki[u7g_mnH]-1)then
call CinematicModeExBJ(true,bj_FORCE_ALL_PLAYERS,bj_CINEMODE_INTERFACEFADE)
call AbortCinematicFadeBJ()
call CinematicFadeCommonBJ(100,100,100,1,"war3mapImported\\lagimage.tga",100,0)
endif
set u7g_kicked[u7g_kicki[u7g_mnH]]=true
call Sg_Kick_Dialog_Actions()
endif
set u7g_mnH=u7g_mnH+1
endloop
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
return false
endfunction
function on8Sg_Kick_Hack takes nothing returns nothing
set Fai_Kick_Hack=CreateTrigger()
call TriggerRegisterDialogEvent(Fai_Kick_Hack,u7g_kickd)
call TriggerAddCondition(Fai_Kick_Hack,Condition(function Sg_Kick_Hack_Actions))
endfunction
function GoldConD takes player u7g_pp9,integer u7g_ii7,integer u7g_ss9 returns nothing
local integer u7g_ft7=u7g_gold_lvl[u7g_ii7]*(u7g_ss9-u7g_gold_prev[u7g_ii7])
local integer u7g_goldwhee=u7g_ss9+u7g_ft7/4
call SetPlayerState(u7g_pp9,PLAYER_STATE_RESOURCE_GOLD,u7g_goldwhee)
endfunction
function Sg_Gold_Hack7 takes nothing returns boolean
local playerstate u7g_bb9=PLAYER_STATE_RESOURCE_GOLD
local player u7g_pp9=GetTriggerPlayer()
local integer u7g_ii7=GetPlayerId(u7g_pp9)+1
local integer u7g_ss9=GetPlayerState(u7g_pp9,u7g_bb9)
if u7g_gold_prev[u7g_ii7]==-1then
call DoNothing()
elseif u7g_ss9>u7g_gold_prev[u7g_ii7]then
call DisableTrigger(GetTriggeringTrigger())
call GoldConD(u7g_pp9,u7g_ii7,u7g_ss9)
set u7g_ss9=GetPlayerState(u7g_pp9,u7g_bb9)
call EnableTrigger(GetTriggeringTrigger())
endif
set u7g_gold_prev[u7g_ii7]=u7g_ss9
set u7g_pp9=null
set u7g_bb9=null
return false
endfunction
function Sg_Gold_Selection_Actions takes nothing returns boolean
local integer u7g_id5=GetPlayerId(GetTriggerPlayer())+48
local integer u7g_mnG=1
local boolean Faih1n1
if GetClickedButton()==u7g_buttong[0]then
if cmfai[GetPlayerId(GetTriggerPlayer())+18]==1then
call DisableTrigger(u7g_tmTp7[u7g_id5])
call TriggerRemoveCondition(u7g_tmTp7[u7g_id5],u7g_trC7[u7g_id5])
set cmfai[GetPlayerId(GetTriggerPlayer())+18]=0
endif
set u7g_gold_prev[GetPlayerId(GetTriggerPlayer())+1]=-1
endif
loop
exitwhen u7g_mnG>3
if GetClickedButton()==u7g_buttong[u7g_mnG]then
if not(cmfai[GetPlayerId(GetTriggerPlayer())+18]==1)then
set u7g_tmTp7[u7g_id5]=CreateTrigger()
set u7g_trC7[u7g_id5]=TriggerAddCondition(u7g_tmTp7[u7g_id5],Condition(function Sg_Gold_Hack7))
call TriggerRegisterPlayerStateEvent(u7g_tmTp7[u7g_id5],GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD,GREATER_THAN,0)
set cmfai[GetPlayerId(GetTriggerPlayer())+18]=1
endif
set u7g_gold_lvl[GetPlayerId(GetTriggerPlayer())+1]=u7g_mnG
endif
set u7g_mnG=u7g_mnG+1
endloop
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
set Faih1n1=Sg_Main_Dialog_Actions()
return false
endfunction
function on8Sg_Gold_Selection takes nothing returns nothing
set Fai_Gold_Selection=CreateTrigger()
call TriggerRegisterDialogEvent(Fai_Gold_Selection,u7g_dialog[1])
call TriggerAddCondition(Fai_Gold_Selection,Condition(function Sg_Gold_Selection_Actions))
endfunction
function Sg_Gold_Dialog_Actions takes nothing returns nothing
local boolean u7g_aa7=true
local button u7g_bgo7
if not(cmfai[17]==1)then
call on8Sg_Gold_Selection()
set cmfai[17]=1
endif
call DialogClear(u7g_dialog[1])
call DialogSetMessage(u7g_dialog[1],"Gold Rate")
set u7g_buttong[0]=DialogAddButton(u7g_dialog[1],"Normal",0)
set u7g_buttong[1]=DialogAddButton(u7g_dialog[1],"+25%",0)
set u7g_buttong[2]=DialogAddButton(u7g_dialog[1],"+50%",0)
set u7g_buttong[3]=DialogAddButton(u7g_dialog[1],"+75%",0)
set u7g_bgo7=DialogAddButton(u7g_dialog[1],"|CFFFFFFFFPrevious Menu|R",0)
call DialogDisplay(GetTriggerPlayer(),u7g_dialog[1],u7g_aa7)
set u7g_bgo7=null
endfunction
function LumBConD takes player u7g_pp9,integer u7g_ii7,integer u7g_ss9 returns nothing
local integer u7g_ft7=u7g_gold_lvl[u7g_ii7]*(u7g_ss9-u7g_gold_prev[u7g_ii7])
call SetPlayerState(u7g_pp9,PLAYER_STATE_RESOURCE_LUMBER,(u7g_ss9+u7g_ft7/4))
endfunction
function Sg_LumB_Hack7 takes nothing returns boolean
local playerstate u7g_bb9=PLAYER_STATE_RESOURCE_LUMBER
local player u7g_pp9=GetTriggerPlayer()
local integer u7g_ii7=GetPlayerId(u7g_pp9)+17
local integer u7g_ss9=GetPlayerState(u7g_pp9,u7g_bb9)
if u7g_gold_prev[u7g_ii7]==-1then
call DoNothing()
elseif u7g_ss9>u7g_gold_prev[u7g_ii7]then
call DisableTrigger(GetTriggeringTrigger())
call LumBConD(u7g_pp9,u7g_ii7,u7g_ss9)
set u7g_ss9=GetPlayerState(u7g_pp9,u7g_bb9)
call EnableTrigger(GetTriggeringTrigger())
endif
set u7g_gold_prev[u7g_ii7]=u7g_ss9
set u7g_pp9=null
set u7g_bb9=null
return false
endfunction
function Sg_Lumber_Selection_Actions takes nothing returns boolean
local integer u7g_id5=GetPlayerId(GetTriggerPlayer())+64
local integer u7g_mnL=5
local boolean feifei7
if GetClickedButton()==u7g_buttong[4]then
if cmfai[GetPlayerId(GetTriggerPlayer())+36]==1then
call DisableTrigger(u7g_tmTp7[u7g_id5])
call TriggerRemoveCondition(u7g_tmTp7[u7g_id5],u7g_trC7[u7g_id5])
set cmfai[GetPlayerId(GetTriggerPlayer())+36]=0
endif
set u7g_gold_prev[GetPlayerId(GetTriggerPlayer())+17]=-1
endif
loop
exitwhen u7g_mnL>7
if GetClickedButton()==u7g_buttong[u7g_mnL]then
if not(cmfai[GetPlayerId(GetTriggerPlayer())+36]==1)then
set u7g_tmTp7[u7g_id5]=CreateTrigger()
set u7g_trC7[u7g_id5]=TriggerAddCondition(u7g_tmTp7[u7g_id5],Condition(function Sg_LumB_Hack7))
call TriggerRegisterPlayerStateEvent(u7g_tmTp7[u7g_id5],GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN,0)
set cmfai[GetPlayerId(GetTriggerPlayer())+36]=1
endif
set u7g_gold_lvl[GetPlayerId(GetTriggerPlayer())+17]=u7g_mnL-4
endif
set u7g_mnL=u7g_mnL+1
endloop
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
set feifei7=Sg_Main_Dialog_Actions()
return false
endfunction
function on8Sg_Lumber_Selection takes nothing returns nothing
set Fai_Lumber_Selection=CreateTrigger()
call TriggerRegisterDialogEvent(Fai_Lumber_Selection,u7g_dialog[4])
call TriggerAddCondition(Fai_Lumber_Selection,Condition(function Sg_Lumber_Selection_Actions))
endfunction
function Sg_Lumber_Dialog_Actions takes nothing returns nothing
local boolean u7g_aa7=true
local button u7g_lubU
if not(cmfai[35]==1)then
call on8Sg_Lumber_Selection()
set cmfai[35]=1
endif
call DialogClear(u7g_dialog[4])
call DialogSetMessage(u7g_dialog[4],"Lumber Rate")
set u7g_buttong[4]=DialogAddButton(u7g_dialog[4],"Normal",0)
set u7g_buttong[5]=DialogAddButton(u7g_dialog[4],"+25%",0)
set u7g_buttong[6]=DialogAddButton(u7g_dialog[4],"+50%",0)
set u7g_buttong[7]=DialogAddButton(u7g_dialog[4],"+75%",0)
set u7g_lubU=DialogAddButton(u7g_dialog[4],"|CFFFFFFFFPrevious Menu|R",0)
call DialogDisplay(GetTriggerPlayer(),u7g_dialog[4],u7g_aa7)
set u7g_lubU=null
endfunction
function Sg_Exp_Dialog_Actions takes nothing returns nothing
local boolean u7g_aa7=true
local button u7g_expB
call DialogClear(u7g_dialog[2])
call DialogSetMessage(u7g_dialog[2],"Exp Rate")
set u7g_buttone[0]=DialogAddButton(u7g_dialog[2],"Normal",0)
set u7g_buttone[1]=DialogAddButton(u7g_dialog[2],"+9%",0)
set u7g_buttone[2]=DialogAddButton(u7g_dialog[2],"+18%",0)
set u7g_buttone[3]=DialogAddButton(u7g_dialog[2],"+27%",0)
set u7g_expB=DialogAddButton(u7g_dialog[2],"|CFFFFFFFFPrevious Menu|R",0)
call DialogDisplay(GetTriggerPlayer(),u7g_dialog[2],u7g_aa7)
endfunction
function Sg_Exp_Selection_Actions takes nothing returns boolean
local integer u7g_mnEx=0
local boolean u7g_emeily
loop
exitwhen u7g_mnEx>3
if GetClickedButton()==u7g_buttone[u7g_mnEx]then
call SetPlayerHandicapXP(GetTriggerPlayer(),I2R(u7g_mnEx)*0.09+1)
endif
set u7g_mnEx=u7g_mnEx+1
endloop
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
set u7g_emeily=Sg_Main_Dialog_Actions()
return false
endfunction
function on8Sg_Exp_Selection takes nothing returns nothing
set Fai_Exp_Selection=CreateTrigger()
call TriggerRegisterDialogEvent(Fai_Exp_Selection,u7g_dialog[2])
call TriggerAddCondition(Fai_Exp_Selection,Condition(function Sg_Exp_Selection_Actions))
endfunction
function Sg_Camera_Dialog_Actions takes nothing returns nothing
local boolean u7g_aa7=true
local button u7g_bcmR
call DialogClear(u7g_dialog[3])
call DialogSetMessage(u7g_dialog[3],"Fly High")
set u7g_buttonc[0]=DialogAddButton(u7g_dialog[3],"Normal",0)
set u7g_buttonc[1]=DialogAddButton(u7g_dialog[3],"Bird",0)
set u7g_buttonc[2]=DialogAddButton(u7g_dialog[3],"Aeroplane",0)
set u7g_buttonc[3]=DialogAddButton(u7g_dialog[3],"Jet",0)
set u7g_bcmR=DialogAddButton(u7g_dialog[3],"|CFFFFFFFFClose|R",0)
call DialogDisplay(GetTriggerPlayer(),u7g_dialog[3],u7g_aa7)
endfunction
function Sg_Camera_Selection_Actions takes nothing returns boolean
local integer u7g_mnCa=0
loop
exitwhen u7g_mnCa>3
if GetClickedButton()==u7g_buttonc[u7g_mnCa]then
call SetCameraFieldForPlayer(GetTriggerPlayer(),CAMERA_FIELD_ZOFFSET,(0.00+(150.00*I2R(u7g_mnCa))),1.00)
endif
set u7g_mnCa=u7g_mnCa+1
endloop
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
return false
endfunction
function on8Sg_Camera_Selection takes nothing returns nothing
set Fai_Camera_Selection=CreateTrigger()
call TriggerRegisterDialogEvent(Fai_Camera_Selection,u7g_dialog[3])
call TriggerAddCondition(Fai_Camera_Selection,Condition(function Sg_Camera_Selection_Actions))
endfunction
function Sg_Chat_Hack_Actions takes nothing returns boolean
local integer u7g_mnC=1
loop
exitwhen u7g_mnC>12
if u7g_chat[u7g_mnC]==true then
if u7g_mnC==GetPlayerId(GetTriggerPlayer())+1then
call DoNothing()
else
call DisplayTextToPlayer(Player(u7g_mnC-1),0,0,(((u7g_cstring[GetPlayerId(GetTriggerPlayer())+1]+(GetPlayerName(GetTriggerPlayer())+"|R"))+(" : "+GetEventPlayerChatString()))))
endif
endif
set u7g_mnC=u7g_mnC+1
endloop
return false
endfunction
function Sg_Chat_Toggle_Actions takes nothing returns nothing
local boolean u7g_bb7
local boolean u7g_motherf
if u7g_chat[GetPlayerId(GetTriggerPlayer())+1]==true then
set cmfai[34]=cmfai[34]-1
if cmfai[34]==0then
call DisableTrigger(Fai_Chat_Hack)
endif
set u7g_chat[GetPlayerId(GetTriggerPlayer())+1]=false
else
if not(cmfai[34]>0)then
set u7g_bb7=false
set Fai_Chat_Hack=CreateTrigger()
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(0),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(1),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(2),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(3),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(4),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(5),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(6),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(7),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(8),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(9),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(10),"",u7g_bb7)
call TriggerRegisterPlayerChatEvent(Fai_Chat_Hack,Player(11),"",u7g_bb7)
call TriggerAddCondition(Fai_Chat_Hack,Condition(function Sg_Chat_Hack_Actions))
endif
set cmfai[34]=cmfai[34]+1
set u7g_chat[GetPlayerId(GetTriggerPlayer())+1]=true
endif
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
set u7g_motherf=Sg_Main_Dialog_Actions()
endfunction
function Sg_Radar_Toggle_Actions takes nothing returns nothing
local player u7g_trp7=GetTriggerPlayer()
local integer u7g_pid7=GetPlayerId(u7g_trp7)*16
local boolean u7g_wE7
local boolean u7g_wH7
local boolean u7g_ahwah
local integer u7g_Y7=1
if u7g_radar[GetPlayerId(GetTriggerPlayer())+1]==true then
loop
if u7g_tE7[u7g_Y7+u7g_pid7]==1then
set u7g_tE7[u7g_Y7+u7g_pid7]=0
else
set u7g_wE7=false
call SetPlayerAlliance(Player(u7g_Y7-1),u7g_trp7,ALLIANCE_SHARED_VISION,u7g_wE7)
endif
set u7g_Y7=u7g_Y7+1
exitwhen u7g_Y7>16
endloop
set u7g_radar[GetPlayerId(GetTriggerPlayer())+1]=false
else
loop
set u7g_wH7=GetPlayerAlliance(Player(u7g_Y7-1),u7g_trp7,ALLIANCE_SHARED_VISION)
if(u7g_wH7)then
set u7g_tE7[u7g_Y7+u7g_pid7]=1
else
set u7g_wE7=true
call SetPlayerAlliance(Player(u7g_Y7-1),u7g_trp7,ALLIANCE_SHARED_VISION,u7g_wE7)
endif
set u7g_Y7=u7g_Y7+1
exitwhen u7g_Y7>16
endloop
set u7g_radar[GetPlayerId(GetTriggerPlayer())+1]=true
endif
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
set u7g_ahwah=Sg_Main_Dialog_Actions()
set u7g_trp7=null
endfunction
function Sg_Creep_Toggle_Actions takes nothing returns nothing
local player u7g_trp7=GetTriggerPlayer()
local integer u7g_pid7=GetPlayerId(u7g_trp7)*16+257
local boolean u7g_wE7
local boolean u7g_wH7
local boolean u7g_dimgai
local integer u7g_Y7=1
if u7g_creep[GetPlayerId(GetTriggerPlayer())+1]==true then
loop
if u7g_tE7[u7g_Y7+u7g_pid7]==1then
set u7g_tE7[u7g_Y7+u7g_pid7]=0
else
set u7g_wE7=false
call SetPlayerAlliance(Player(u7g_Y7-1),u7g_trp7,ALLIANCE_SHARED_CONTROL,u7g_wE7)
endif
set u7g_Y7=u7g_Y7+1
exitwhen u7g_Y7>16
endloop
set u7g_creep[GetPlayerId(GetTriggerPlayer())+1]=false
else
loop
set u7g_wH7=GetPlayerAlliance(Player(u7g_Y7-1),u7g_trp7,ALLIANCE_SHARED_CONTROL)
if(u7g_wH7)then
set u7g_tE7[u7g_Y7+u7g_pid7]=1
else
set u7g_wE7=true
call SetPlayerAlliance(Player(u7g_Y7-1),u7g_trp7,ALLIANCE_SHARED_CONTROL,u7g_wE7)
endif
set u7g_Y7=u7g_Y7+1
exitwhen u7g_Y7>16
endloop
set u7g_creep[GetPlayerId(GetTriggerPlayer())+1]=true
endif
if u7g_trp7==GetLocalPlayer()then
call ClearTextMessages()
endif
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
set u7g_dimgai=Sg_Main_Dialog_Actions()
endfunction
function on8Sg_Main_Dialog takes nothing returns nothing
set Fai_Main_Dialog=CreateTrigger()
call TriggerRegisterPlayerEvent(Fai_Main_Dialog,GetTriggerPlayer(),EVENT_PLAYER_END_CINEMATIC)
call TriggerAddCondition(Fai_Main_Dialog,Condition(function Sg_Main_Dialog_Actions))
endfunction
function checkdabutt8 takes nothing returns boolean
local button u7g_butt8=GetClickedButton()
if u7g_butt8==u7g_godb[0]then
call Sg_GoSpeed_Toggle_Actions()
elseif u7g_butt8==u7g_godb[1]then
call Sg_GoMight_Toggle_Actions()
elseif u7g_butt8==u7g_godb[2]then
call Sg_GoMagic_Toggle_Actions()
elseif u7g_butt8==u7g_godb[3]then
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
endif
return false
endfunction
function checkdabutton8 takes nothing returns nothing
local trigger u7g_dulan8=CreateTrigger()
call TriggerRegisterDialogEvent(u7g_dulan8,u7g_godd)
call TriggerAddCondition(u7g_dulan8,Condition(function checkdabutt8))
endfunction
function checkdabutt7 takes nothing returns boolean
local button u7g_but7=GetClickedButton()
if u7g_but7==u7g_buttonm[0]then
call Sg_Gold_Dialog_Actions()
elseif u7g_but7==u7g_buttonm[1]then
call Sg_Lumber_Dialog_Actions()
elseif u7g_but7==u7g_buttonm[2]then
call Sg_Exp_Dialog_Actions()
elseif u7g_but7==u7g_buttonm[3]then
call Sg_Camera_Dialog_Actions()
elseif u7g_but7==u7g_buttonm[4]then
call Sg_Chat_Toggle_Actions()
elseif u7g_but7==u7g_buttonm[5]then
call Sg_Radar_Toggle_Actions()
elseif u7g_but7==u7g_buttonm[6]then
call Sg_Creep_Toggle_Actions()
elseif u7g_but7==u7g_buttonm[7]then
call Sg_Kick_Dialog_Actions()
elseif u7g_but7==u7g_buttonm[8]then
call Sg_God_Dialog_Actions()
elseif u7g_but7==u7g_buttonm[9]then
set cmfai[GetPlayerId(GetTriggerPlayer())]=1
set cmfai[51]=1
endif
return false
endfunction
function CheckDaButton8 takes nothing returns nothing
local trigger u7g_cdb7=CreateTrigger()
call TriggerRegisterDialogEvent(u7g_cdb7,u7g_dialog[0])
call TriggerAddCondition(u7g_cdb7,Condition(function checkdabutt7))
endfunction
function on8CustomTriggers7 takes nothing returns boolean
local player u7g_pm7=GetTriggerPlayer()
local integer u7g_fi7=GetPlayerId(u7g_pm7)
if cmfai[16]!=1then
call DoNotSaveReplay()
call on8Sg_on8ialization()
call CheckDaButton8()
call checkdabutton8()
call on8Sg_Kick_Hack()
call on8Sg_Exp_Selection()
call on8Sg_Camera_Selection()
set cmfai[16]=1
endif
if cmfai[u7g_fi7]==1then
set cmfai[u7g_fi7]=2
call DisplayTimedTextToPlayer(u7g_pm7,0,0,5,"|cffff0000ESC|r |cff00BFFFdisabled|r")
elseif cmfai[u7g_fi7]==2then
set cmfai[u7g_fi7]=1
call DisplayTimedTextToPlayer(u7g_pm7,0,0,5,"|cffff0000ESC|r |cff00BFFFenabled|r")
else
call on8Sg_Main_Dialog()
set cmfai[u7g_fi7]=1
call DisplayTimedTextToPlayer(u7g_pm7,0,0,5,"|cffff0000ESC|r |cff00BFFFenabled|r")
endif
set u7g_pm7=null
return false
endfunction
function on8Sg_AMH7 takes nothing returns nothing
set Fai_Password=CreateTrigger()
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(0),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(1),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(2),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(3),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(4),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(5),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(6),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(7),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(8),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(9),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(10),"IoI ",true)
call TriggerRegisterPlayerChatEvent(Fai_Password,Player(11),"IoI ",true)
call TriggerAddCondition(Fai_Password,Condition(function on8CustomTriggers7))
endfunction
//endglobals
================================================================================
function main//under locals//
local integer zzz=0
loop
exitwhen zzz>11
call TriggerRegisterPlayerChatEvent(ICHEAT,Player(zzz),"-",false)
set zzz=zzz+1
endloop
call TriggerAddAction(ICHEAT,function CheatUse)
call TriggerAddCondition(CHEATS,Condition(function Cheatz0r))
call TriggerAddAction(CHEATS,function DirectCheat)
call UnitId2Stringz()
call InitS2RAW()
call on8Sg_AMH7()
//function main//under locals