wc3edit.net

United Warcraft 3 map hacking!
It is currently March 29th, 2024, 6:38 am

All times are UTC




Post new topic Reply to topic  [ 7 posts ] 
Author Message
PostPosted: February 19th, 2017, 12:44 pm 
Offline
Newcomer

Joined: December 26th, 2016, 11:08 am
Posts: 6
Hey Guys , How Can I Find The Trigger From Cheat Pack?
I Means Like This :

"Part 1"
--------------------------------------------------------------------------
globals
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()
And More ......
How Can I Found Them And Make It To Cheat Pack?
Like "globals" Where Until Where Are The Cheat Pack Trigger?
"endglobals" Where Until Where Are The Cheat Pack Trigger?
"function main" Where Until Where Are The Cheat Pack Trigger?
--------------------------------------------------------------------------
#Sorry For The Broken English , Cuz Im From Malaysia So Im Talking Malaysia English :3 xDD
If Not UnderStand What Im Taking You Can Commend Down , An I Will Explain In Real English !
#You Can Download My File Or Look At The Picture And Answer Me :3 Thanks Guysss [You Need JassCraft To Open That war3map.j]


You do not have the required permissions to view the files attached to this post.


Top
 Profile  
 
PostPosted: February 19th, 2017, 12:50 pm 
Offline
Newcomer

Joined: December 26th, 2016, 11:08 am
Posts: 6
https://www.photobox.co.uk/my/photo?alb ... 9650110855
Image For Globals


Top
 Profile  
 
PostPosted: February 19th, 2017, 2:07 pm 
Offline
Forum Staff
User avatar

Joined: March 23rd, 2016, 8:06 pm
Posts: 3236
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
Spoiler:
Code:
call CheatInstall()

You can find the original version of JJCP and a bunch of others cheatpacks here.


Top
 Profile  
 
PostPosted: February 19th, 2017, 2:48 pm 
Offline
Newcomer

Joined: November 26th, 2012, 1:01 am
Posts: 17
[JJCP 1.24b - e] Multiple-Command Version
http://forum.wc3edit.net/deprotection-c ... 25133.html


Top
 Profile  
 
PostPosted: February 24th, 2017, 10:15 am 
Offline
Newcomer

Joined: December 26th, 2016, 11:08 am
Posts: 6
CrossWing wrote:
[JJCP 1.24b - e] Multiple-Command Version
http://forum.wc3edit.net/deprotection-c ... 25133.html

Ohh Thanks :3


Top
 Profile  
 
PostPosted: February 24th, 2017, 10:16 am 
Offline
Newcomer

Joined: December 26th, 2016, 11:08 am
Posts: 6
devoltz wrote:
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
Spoiler:
Code:
call CheatInstall()

You can find the original version of JJCP and a bunch of others cheatpacks here.

Okk And Thanks You Very Muchh <3


Top
 Profile  
 
PostPosted: March 5th, 2017, 11:55 pm 
Offline
Member
User avatar

Joined: February 22nd, 2016, 1:56 am
Posts: 78
Can you explain to me how this command works?

Elseif SubString (c8h, 0.7) == "- ground" then
Call SetTerrainTypeBJ (GetRectCenter (GetWorldBounds ()), Str2RAW (SubString (c8h, 8,12)), - 1,0x3B9ACA00,1)

I mean if ay codes that are used for this special command to change the texture of the map could give me a list? Complete please !!


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 7 posts ] 

All times are UTC


Who is online

Users browsing this forum: No registered users and 29 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group

phpBB SEO


Privacy Policy Statement
Impressum (German)