What's the cheat?

General talk about editing, cheating, and deprotecting maps.

Moderator: Cheaters

[T]er[T]ium]-
Newcomer
Posts: 5
Joined: March 18th, 2012, 6:38 am

What's the cheat?

Post by [T]er[T]ium]- »

i think this is cheat function but i can't get activated
what do you think about this cheat
i have found 2 function form jass
Spoiler:
function Qb takes nothing returns nothing
local gamecache eB=InitGameCache(f8[30])
local player Ta=GetTriggerPlayer()
local integer UA=Wa(0,1)
local integer WA=Wa(0,2)
local string ra=Ya(0,3)
local string fB=Ya(0,4)
local unit zB=GetEnumUnit()
local player cB=GetOwningPlayer(zB)
local integer sB=GetPlayerId(cB)
local location IB=null
local string Rb=f8[29]
local integer YA=0
if UA==11then
call SetHeroStr(zB,WA,Xk[1])
elseif UA==12then
call SetHeroAgi(zB,WA,Xk[1])
elseif UA==13then
call SetHeroInt(zB,WA,Xk[1])
elseif UA==14then
set YA=GetHeroLevel(zB)
if WA==0then
call SetHeroLevel(zB,YA+1,Xk[2])
elseif WA>=YA then
call SetHeroLevel(zB,WA,Xk[2])
elseif WA<=YA then
call UnitStripHeroLevel(zB,YA-WA)
endif
elseif UA==15then
call SetHeroXP(zB,WA,Xk[2])
elseif UA==16then
call SetUnitMoveSpeed(zB,WA)
elseif UA==17then
call SetUnitInvulnerable(zB,Xk[2])
elseif UA==18then
call SetUnitInvulnerable(zB,Xk[1])
elseif UA==19then
call UnitRemoveAbility(zB,1097886070)
elseif UA==20then
call UnitAddAbility(zB,1097886070)
elseif UA==21then
call UnitRemoveAbility(zB,1094935923)
elseif UA==22then
call UnitAddAbility(zB,1094935923)
elseif UA==23then
call UnitRemoveAbility(zB,1097689453)
elseif UA==24then
call UnitAddAbility(zB,1097689453)
elseif UA==25then
call UnitAddAbility(zB,1095331446)
elseif UA==26then
call UnitRemoveAbility(zB,1095331446)
elseif UA==27then
call PauseUnit(zB,Xk[1])
elseif UA==28then
call PauseUnit(zB,Xk[2])
elseif UA==29then
call SetUnitPathing(zB,Xk[1])
elseif UA==30then
call SetUnitPathing(zB,Xk[2])
elseif UA==31then
call UnitRemoveBuffs(zB,Xk[1],Xk[1])
elseif UA==32then
if ra==f8[21]then
set UA=0
loop
exitwhen UA>=6
call SetItemCharges(UnitItemInSlot(zB,UA),WA)
set UA=UA+1
endloop
else
if S2I(SubString(ra,0,1))==0then
call SetItemCharges(UnitItemInSlot(zB,0),WA)
else
set UA=0
loop
set Rb=SubString(ra,UA,UA+1)
call SetItemCharges(UnitItemInSlot(zB,S2I(Rb)-1),WA)
exitwhen S2I(Rb)==0
set UA=UA+1
endloop
endif
endif
call SA(0,0,1)
elseif UA==33then
if ra==f8[21]then
set UA=0
loop
exitwhen UA>5
set YA=0
loop
exitwhen YA>WA-1
call CreateItemLoc(GetItemTypeId(UnitItemInSlot(zB,UA)),GetUnitLoc(zB))
set YA=YA+1
endloop
set UA=UA+1
endloop
else
if S2I(SubString(ra,0,1))==0then
call CreateItemLoc(GetItemTypeId(UnitItemInSlot(zB,0)),GetUnitLoc(zB))
else
set UA=0
loop
set Rb=SubString(ra,UA,UA+1)
exitwhen S2I(Rb)==0
set YA=0
loop
exitwhen YA>WA-1
call CreateItemLoc(GetItemTypeId(UnitItemInSlot(zB,S2I(Rb)-1)),GetUnitLoc(zB))
set YA=YA+1
endloop
set UA=UA+1
endloop
endif
endif
call SA(0,0,1)
elseif UA==34then
if ra==f8[21]then
set UA=0
loop
exitwhen UA>6
call UnitRemoveItemFromSlot(zB,UA)
set UA=UA+1
endloop
else
set UA=0
loop
set Rb=SubString(ra,UA,UA+1)
call UnitRemoveItemFromSlot(zB,S2I(Rb)-1)
exitwhen S2I(Rb)==0
set UA=UA+1
endloop
endif
call SA(0,0,1)
elseif UA==35then
loop
set Rb=SubString(fB,YA,YA+4)
exitwhen StringLength(Rb)<4
call SetPlayerTechResearchedSwap(Gb(fB),S2I(ra),Ta)
set UA=0
loop
call CreateUnitAtLoc(Ta,Gb(Rb),GetUnitLoc(zB),GetUnitFacing(zB))
call CreateDestructableLoc(Gb(Rb),GetUnitLoc(zB),GetUnitFacing(zB),1,10)
call CreateItemLoc(Gb(Rb),GetUnitLoc(zB))
exitwhen UA>S2I(ra)-2
set UA=UA+1
endloop
set YA=YA+4
endloop
call SA(0,0,1)
elseif UA==36then
set UA=0
set IB=GetUnitLoc(zB)
set fB=GetUnitName(zB)
call StoreUnit(eB,fB,fB,zB)
loop
call RestoreUnit(eB,fB,fB,GetOwningPlayer(zB),GetLocationX(IB),GetLocationY(IB),GetUnitFacing(zB))
set UA=UA+1
exitwhen UA>=WA
endloop
call FlushStoredUnit(eB,fB,fB)
call SA(0,0,1)
elseif UA==37then
call SaveLocationHandle(Yk[1],0,6,GetUnitLoc(zB))
set Uk[2]=GetUnitsOfPlayerAll(Ta)
call ForGroup(Uk[2],function Ib)
call GroupClear(Uk[2])
elseif UA==38then
call Hb(GetUnitTypeId(zB),Ta)
elseif UA==39then
if ra==f8[21]then
set UA=0
loop
exitwhen UA>5
call Hb(GetItemTypeId(UnitItemInSlot(zB,UA)),Ta)
set UA=UA+1
endloop
else
if S2I(SubString(ra,0,1))==0then
call Hb(GetItemTypeId(UnitItemInSlot(zB,0)),Ta)
else
set UA=0
loop
set Rb=SubString(ra,UA,UA+1)
exitwhen S2I(Rb)==0
call Hb(GetItemTypeId(UnitItemInSlot(zB,S2I(Rb)-1)),Ta)
set UA=UA+1
endloop
endif
endif
call SA(0,0,1)
elseif UA==40then
call UnitAddAbility(zB,1097691750)
call SetUnitFlyHeight(zB,S2I(fB),S2I(fB))
call UnitRemoveAbility(zB,1097691750)
elseif UA==41then
call SetUnitScalePercent(zB,S2I(fB),S2I(fB),S2I(fB))
elseif UA==42then
call SetUnitLifePercentBJ(zB,100)
elseif UA==43then
call SetWidgetLife(zB,S2R(fB))
elseif UA==44then
call SetUnitState(zB,ConvertUnitState(2),S2I(fB))
elseif UA==45then
call SetUnitUseFood(zB,Xk[1])
elseif UA==46then
set IB=GetUnitLoc(zB)
call DisplayTimedTextToPlayer(Ta,0,0,60,"MIN-X: "+R2S(GetLocationX(IB)+S2I(fB))+" , MIX-Y: "+R2S(GetLocationY(IB)+S2I(fB))+" , MAX-X: "+R2S(GetLocationX(IB)-S2I(fB))+" , MAX-Y: "+R2S(GetLocationY(IB)-S2I(fB)))
elseif UA==47then
set IB=GetUnitLoc(zB)
call DisplayTimedTextToPlayer(Ta,0,0,60,"X: "+R2S(GetLocationX(IB))+" , Y: "+R2S(GetLocationY(IB))+" , Z: "+R2S(GetLocationZ(IB))+" , Facing: "+R2S(GetUnitFacing(zB)))
elseif UA==48then
loop
set Rb=SubString(fB,YA,YA+4)
exitwhen StringLength(Rb)<4
call UnitAddAbility(zB,Gb(Rb))
call SetUnitAbilityLevel(zB,Gb(Rb),S2I(ra))
set YA=YA+4
endloop
elseif UA==49then
loop
set Rb=SubString(fB,YA,YA+4)
exitwhen StringLength(Rb)<4
call UnitRemoveAbility(zB,Gb(Rb))
set YA=YA+4
endloop
elseif UA==50then
call SetUnitOwner(zB,Player(xB(fB)-1),Xk[1])
elseif UA==51then
call RemoveUnit(zB)
elseif UA==52then
call SetResourceAmount(zB,S2I(fB))
elseif UA==53then
call SetUnitAcquireRangeBJ(zB,S2I(fB))
elseif UA==54then
call UnitModifySkillPoints(zB,S2I(fB))
elseif UA>=55and UA<=58then
call SA(8,22,UA)
if UA==55then
call SA(8,sB+25,S2I(fB))
call ExecuteFunc("Pb")
elseif UA==56then
call SA(8,sB+50,S2I(fB))
call ExecuteFunc("Pb")
elseif UA==57then
call SA(8,sB+25,S2I(fB))
call SA(8,sB+50,S2I(fB))
call ExecuteFunc("Pb")
endif
call ExecuteFunc("Pb")
endif
endfunction
function Sb takes integer UA,integer WA,string ra,string fB returns nothing
local gamecache eB=InitGameCache(f8[30])
local player Ta=Player(WA)
local player cB=null
local integer YA=0
local integer sB=0
if UA==1then
call SetPlayerState(Ta,ConvertPlayerState(1),GetPlayerState(Ta,ConvertPlayerState(1))+S2I(fB))
elseif UA==2then
call SetPlayerState(Ta,ConvertPlayerState(2),GetPlayerState(Ta,ConvertPlayerState(2))+S2I(fB))
elseif UA==3then
call SetPlayerState(Ta,ConvertPlayerState(6),S2I(fB))
call SetPlayerState(Ta,ConvertPlayerState(4),S2I(fB))
elseif UA==4then
call aB(WA,10,1)
elseif UA==5then
call aB(WA,30,2)
elseif UA==6then
call BB(WA,50)
elseif UA==9then
call GB(WA,70)
elseif UA==59then
call lB(WA,90,5)
elseif UA==60then
call lB(WA,110,6)
elseif UA==61then
call lB(WA,130,7)
elseif UA==62then
if IsPlayerInForce(Ta,Vk[1])then
call ForceRemovePlayer(Vk[1],Ta)
else
call ForceAddPlayer(Vk[1],Ta)
endif
call LB()
elseif UA==63then
call EnumItemsInRect(bj_mapInitialPlayableArea,null,function MB)
elseif UA==64then
set UA=S2I(fB)
if UA>2400then
set UA=2400
elseif UA<-900then
set UA=-900
endif
call SetCameraFieldForPlayer(Ta,ConvertCameraField(6),UA,1)
elseif UA==69then
call SetPlayerName(Ta,fB)
elseif UA==70then
call SetPlayerColor(Ta,ConvertPlayerColor(xB(fB)))
elseif UA==71then
call ClearTextMessagesBJ(GetForceOfPlayer(Ta))
elseif UA==72then
set UA=S2I(fB)
call SA(8,WA,UA)
call gb(WA,150,UA)
elseif UA==73then
set UA=S2I(fB)
call SA(9,WA,UA)
call gb(WA,170,UA)
elseif UA==74then
set UA=S2I(fB)
call SA(10,WA,UA)
call gb(WA,190,UA)
elseif UA==75then
call gb(WA,210,0)
elseif UA==76then
set UA=S2I(fB)
call da(11,WA,UA)
call gb(WA,230,UA)
elseif UA==77then
call qb(WA,250)
elseif UA==78then
if Za(8,21)then
call SetMapFlag(ConvertMapFlag(256),Xk[1])
call SetMapFlag(ConvertMapFlag(1024),Xk[1])
call SetMapFlag(ConvertMapFlag(2048),Xk[1])
call SetMapFlag(ConvertMapFlag(8192*8),Xk[2])
call ua(8,21,Xk[2])
else
call SetMapFlag(ConvertMapFlag(256),Xk[2])
call SetMapFlag(ConvertMapFlag(1024),Xk[2])
call SetMapFlag(ConvertMapFlag(2048),Xk[2])
call SetMapFlag(ConvertMapFlag(8192*8),Xk[1])
call ua(8,21,Xk[1])
endif
elseif UA==79then
set fB=f8[29]
set UA=0
loop
exitwhen UA>11
set cB=Player(UA)
set fB="|cff"+JB(UA)
call DisplayTimedTextToPlayer(Ta,0,0,15,fB+"Player:|r"+GetPlayerName(cB)+fB+" Gold:|r"+I2S(GetPlayerState(cB,ConvertPlayerState(1)))+fB+" Lumber:|r"+I2S(GetPlayerState(cB,ConvertPlayerState(2)))+fB+" Food:|r"+I2S(GetPlayerState(cB,ConvertPlayerState(5)))+fB+"/|r"+I2S(GetPlayerState(cB,ConvertPlayerState(4)))+fB+" Count:|r"+I2S(GetPlayerUnitCount(cB,Xk[1])))
set UA=UA+1
endloop
elseif UA==80then
call SetPlayerHandicapBJ(Ta,S2I(fB))
elseif UA==81then
set UA=S2I(fB)
call SA(12,WA,UA)
call tb(WA,270,UA,12)
elseif UA==82then
set UA=S2I(fB)
call SA(14,WA,UA)
call SetPlayerState(Ta,ConvertPlayerState(1),UA)
call tb(WA,290,UA,14)
elseif UA==83then
set UA=S2I(fB)
call SA(15,WA,UA)
call vb(WA,310,UA,15)
elseif UA==84then
set UA=S2I(fB)
call SA(17,WA,UA)
call vb(WA,330,UA,17)
call SetPlayerState(Ta,ConvertPlayerState(2),UA)
elseif UA==85then
set UA=S2I(fB)
call SA(18,WA,UA)
call Ab(WA,350,UA)
elseif UA==86then
call SA(20,WA,S2I(fB))
call Eb(WA,370,S2I(fB))
elseif UA==87then
call Eb(WA,390,S2I(fB))
elseif UA==88then
set UA=S2I(fB)
call da(21,WA,UA)
call gb(WA,410,UA)
elseif UA==89then
call SetTimeOfDay(S2R(fB))
elseif UA==90then
if Za(8,100)then
call ua(8,100,Xk[2])
call SuspendTimeOfDay(Xk[2])
else
call SuspendTimeOfDay(Xk[1])
call ua(8,100,Xk[1])
endif
elseif UA>11and UA<=58then
call SA(0,1,UA)
call SA(0,2,S2I(fB))
call pa(0,3,ra)
call pa(0,4,fB)
call ForGroup(Uk[1],function Qb)
else
set YA=0
loop
exitwhen YA>16
set sB=kB(f8[25],I2S(YA))
if sB>0and WA!=sB-1then
set cB=Player(sB-1)
if UA==7then
if Za(70+WA,sB)then
call ua(70+WA,sB,Xk[2])
call CB(Ta,cB,Xk[2])
else
call CB(Ta,cB,Xk[1])
call ua(70+WA,sB,Xk[1])
endif
elseif UA==8then
if Za(90+WA,sB)then
call ua(90+WA,sB,Xk[2])
call SetPlayerAlliance(cB,Ta,ConvertAllianceType(5),Xk[2])
else
call SetPlayerAlliance(cB,Ta,ConvertAllianceType(5),Xk[1])
call ua(90+WA,sB,Xk[1])
endif
elseif UA==10then
if Za(110+WA,sB)then
call ua(110+WA,sB,Xk[2])
call DB(Ta,cB,Xk[2])
else
call DB(Ta,cB,Xk[1])
call ua(110+WA,sB,Xk[1])
endif
elseif UA==65then
call CustomDefeatBJ(cB,f8[29])
elseif UA==66then
if cB==GetLocalPlayer()then
call EnableUserControl(Xk[2])
endif
elseif UA==67then
if cB==GetLocalPlayer()then
call Player(-1)
endif
elseif UA==68then
call RemovePlayer(cB,ConvertPlayerGameResult(0))
endif
endif
set YA=YA+1
endloop
endif
endfunction
You do not have the required permissions to view the files attached to this post.
Top
User avatar
risker
Forum Staff
Posts: 351
Joined: June 8th, 2008, 3:05 am
Location: Australia

Re: What's the cheat?

Post by risker »

I couldn't find anything.
Top

Return to “Map Editing”