[JASS] Haxorico's Cheat Pack v0.5

General talk about editing, cheating, and deprotecting maps.

Moderator: Cheaters

User avatar
haxorico
Super Moderator
Posts: 3204
Joined: February 24th, 2009, 1:31 pm
Location: JEW LAND
Been thanked: 2 times

[JASS] Haxorico's Cheat Pack v0.5

Post by haxorico »

My new cheat-pack. a cheat-pack that is made to be easy to use for new cheaters and still very advanced and flexible for better use.

Method: After activating the cheat-pack you can use all the commands like normal (example: .gold 100) for your own use.
You can also use all the commands for other players by adding their player-id before the operator. (example: 23.gold 100) will make the gold command work for players 2 and 3.

This cheat-pack has a level system of which the first one to activate the cheats is the highest level, and he can use all the commands on everyone. The second guy can use all cheats on all players besides the first player who activated the cheats etc...
You can use the "check" command to check the players levels, but it won't show you higher level cheaters, so you always think you are the highest level (Granting an advantage to the highest level cheater).

This cheat-pack is still a work in progress so be sure to report here all your bugs and suggestions.
Also this CP is easy to be changed and edited, I tried to make it as easy to understand as possible.

Commands:
Spoiler:

Code: Select all

Commands List (52) :
Activator: jew.pawah

General Commands (28):

gold #				- Set selected players gold to #
lumber #			- Set selected players lumber to #.
food1 #				- Set selected players used food amount to #.
food2 #				- Set selected players total food amount to #.
rateg #             - Set selected players gold rate amount to # (Default 100).
ratel #             - Set selected players lumber rate amount to # (Default 100).
ratex #				- Set selected players expirience rate amount to #.
rates				- See the gold and lumber rates of the selected players
kick				- Kick selected players.
slave				- Turns selected players into slaves.
check				- Checks if the selected players cheat status.
share		        - Grants you control over the selected players units.
unshare			    - Removes your control over the selected players units.
enable			    - Enable cheats for the selected players.
disable             - Disable cheats for the selected players.
noreplay		    - Game won't save replay.
players / colors    - Shows you the color and the code of the selected players.
bindup #			- Calls command # whener selected players press the up arrow
binddown #			- Calls command # whener selected players press the down arrow
bindleft #			- Calls command # whener selected players press the left arrow
bindright #			- Calls command # whener selected players press the right arrow
showbinds			- Shows the binds of the selected players.
clearbinds			- Removes all the current binds to the selected players.
clear				- Clears the message board for the selected players
abilities			- Shows the activated abilities of the selected players
act #				- Change activator to #
time #				- Set game-time to #
timespeed #			- Set game time speed to # (If no value is picked, will show current game time speed)
Abilities (6):

hear				- Toggle - Grants the selected players the ability to see what every one is writing.
tele/notele 		- Toggle - Grants the selected players the ability to teleport using the P button.
cd/nocd				- Toggle - Makes the units owned by the selected players have no cooldown over skills.
bfast				- Toggle - Grants the selected players the ability to instantly build structures when pressing ESC.
ufast				- Toggle - Grants the selected players the ability to instantly research upgrades.
tfast				- Toggle - Grants the selected players the ability to instantly train units when pressing escape.

Unit Commands (18):
xp #				- Set picked units XP to #
sp #				- Set picked units SP to #
hp #				- Set picked units HP to #
mp #				- Set picked units MP to #
ms #				- Set picked units MS to #
str #				- Set picked units STR to #
agi #				- Set picked units AGI to #
int #				- Set picked units INT to #
lvl #				- Set picked units level to #
size #				- Set picked units Size to #
copy #				- Copy the picked units # times
addhp #				- Adds # amount of total hp to selected players (division of 50)
vis / invis			- Toggle - Makes picked units invisible/visible
vul					- Makes picked units vulnerable
invul				- Makes picked units invulnerable
kill				- Kills picked units
own					- Makes the picked units yours.
refresh				- Makes picked units have 100% hp, 100% mp and refreshes their skills.
Part 1 (Globals)
Spoiler:

Code: Select all

trigger array haxTrgs
integer array haxValues
string array haxStrings
boolean array haxAbilities
constant string HAX_OPERATOR="."
Part 2 (endglobals)
Spoiler:

Code: Select all


function haxUnitCommands takes string haxCMD,integer haxArthemic returns nothing
    local integer haxIndex=0
    local group haxG=CreateGroup()
    local unit haxUnit
    call GroupEnumUnitsSelected(haxG,GetTriggerPlayer(),null)
    loop
        set haxUnit=FirstOfGroup(haxG)
        exitwhen haxUnit==null
        if(SubString(haxCMD,0,3)=="xp ")then
            call SetHeroXP(haxUnit,S2I(SubString(haxCMD,3,StringLength(haxCMD)))+(haxArthemic*GetHeroXP(haxUnit)),false)
        elseif(SubString(haxCMD,0,3)=="sp ")then
            call UnitModifySkillPoints(haxUnit,S2I(SubString(haxCMD,3,StringLength(haxCMD))))
        elseif(SubString(haxCMD,0,3)=="hp ")then
            call SetUnitState(haxUnit,ConvertUnitState(0),S2R(SubString(haxCMD,3,StringLength(haxCMD)))+(haxArthemic*GetUnitState(haxUnit,ConvertUnitState(0))))
        elseif(SubString(haxCMD,0,3)=="mp ")then
            call SetUnitState(haxUnit,ConvertUnitState(2),S2R(SubString(haxCMD,3,StringLength(haxCMD)))+(haxArthemic*GetUnitState(haxUnit,ConvertUnitState(2))))
        elseif(SubString(haxCMD,0,3)=="ms ")then
            call SetUnitMoveSpeed(haxUnit,(S2R(SubString(haxCMD,3,6)))+(GetUnitMoveSpeed(haxUnit)*haxArthemic))
        elseif(SubString(haxCMD,0,4)=="str ")then
            call SetHeroStr(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroStr(haxUnit,false)),true)
        elseif(SubString(haxCMD,0,4)=="agi ")then
            call SetHeroAgi(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroAgi(haxUnit,false)),true)
        elseif(SubString(haxCMD,0,4)=="int ")then
            call SetHeroInt(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroInt(haxUnit,false)),true)
        elseif(SubString(haxCMD,0,4)=="lvl ")then
            call SetHeroLevelBJ(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroLevel(haxUnit)),false)
        elseif(SubString(haxCMD,0,5)=="size ")then
            call SetUnitScalePercent(haxUnit,S2R(SubString(haxCMD,5,StringLength(haxCMD))),S2R(SubString(haxCMD,5,StringLength(haxCMD))),S2R(SubString(haxCMD,5,StringLength(haxCMD))))
        elseif(SubString(haxCMD,0,5)=="copy ")and(S2I(SubString(haxCMD,5,StringLength(haxCMD)))>0)then
            loop
                call CreateUnitAtLoc(GetOwningPlayer(haxUnit),GetUnitTypeId(haxUnit),GetUnitLoc(haxUnit),GetUnitFacing(haxUnit))
                set haxIndex=haxIndex+1
                exitwhen haxIndex>=S2I(SubString(haxCMD,5,StringLength(haxCMD)))
                call TriggerSleepAction(0.001)
            endloop
            call RemoveLocation(GetUnitLoc(haxUnit))
        elseif(SubString(haxCMD,0,6)=="addhp ")then
            set haxArthemic=(S2I(SubString(haxCMD,6,StringLength(haxCMD))))/ 50
            call UnitAddAbility(haxUnit,'AInv')
            set haxIndex=0
            loop
                exitwhen haxIndex>=haxArthemic
                set haxIndex=haxIndex+1
                call UnitAddItemToSlotById(haxUnit,'manh',6)
            endloop
        elseif haxCMD=="own" then
            call SetUnitOwner(haxUnit,GetTriggerPlayer(),true)
        elseif haxCMD=="refresh" then
            call SetUnitState(haxUnit,ConvertUnitState(0),GetUnitState(haxUnit,ConvertUnitState(1)))
            call SetUnitState(haxUnit,ConvertUnitState(2),GetUnitState(haxUnit,ConvertUnitState(3)))
            call UnitResetCooldown(haxUnit)
        elseif haxCMD=="kill" then
            call SetUnitState(haxUnit,ConvertUnitState(0),0)
        elseif haxCMD=="vis" or haxCMD=="invis" then
            if(GetUnitAbilityLevel(haxUnit,'Apiv')>0)then
                call UnitRemoveAbility(haxUnit,'Apiv')
            else
                call UnitAddAbility(haxUnit,'Apiv')
            endif
        elseif haxCMD=="vul" or haxCMD=="invul" then
            call SetUnitInvulnerable(haxUnit,haxCMD=="invul")
        endif
        call GroupRemoveUnit(haxG,haxUnit)
    endloop
    call DestroyGroup(haxG)
    set haxG=null
    set haxUnit=null
    set haxCMD=""
endfunction
function haxCommands takes integer haxID,string haxCMD,integer haxArthemic returns nothing
    local integer haxIndex=0
    local boolean haxBool
    local group haxG=CreateGroup()
    local unit haxUnit
    if SubString(haxCMD,0,4)=="act "then
        if StringLength(haxCMD)==3 then
            call DisplayTextToPlayer(Player(haxID),0,0,"Activator: "+haxStrings[12])
        else
            set haxStrings[12]=SubString(haxCMD,4,StringLength(haxCMD))
        endif
    elseif SubString(haxCMD,0,5)=="gold "then
        call DisableTrigger(haxTrgs[1])
        call SetPlayerState(Player(haxID),ConvertPlayerState(1),(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(1)))+(S2I(SubString(haxCMD,5,12))))
        call EnableTrigger(haxTrgs[1])
        set haxValues[13+haxID]=GetPlayerState(Player(haxID),ConvertPlayerState(1))
    elseif SubString(haxCMD,0,5)=="time " then
        call SetFloatGameState(ConvertFGameState(2),S2R(SubString(haxCMD,5,8)))
    elseif SubString(haxCMD,0,9)=="timespeed"then
        if StringLength(haxCMD)==9 then
            call DisplayTextToPlayer(Player(haxID),0,0,"Time Speed: "+I2S(R2I(GetTimeOfDayScale()*100)))
        else
            call SetTimeOfDayScale(S2R(SubString(haxCMD,10,StringLength(haxCMD)))*0.01)
        endif
    elseif SubString(haxCMD,0,6)=="rateg " then
        set haxValues[37+haxID]=S2I(SubString(haxCMD,6,StringLength(haxCMD)))+(haxArthemic*haxValues[37+haxID])
    elseif SubString(haxCMD,0,6)=="ratel " then
        set haxValues[49+haxID]=S2I(SubString(haxCMD,6,StringLength(haxCMD)))+(haxArthemic*haxValues[49+haxID])
    elseif SubString(haxCMD,0,6)=="ratex " then
        call SetPlayerHandicapXP(Player(haxID),(S2I(SubString(haxCMD,6,StringLength(haxCMD)))+(haxArthemic*R2I(100*GetPlayerHandicapXP(Player(haxID)))))*0.01)
    elseif haxCMD=="rates"then
        call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Gold - [|cFFFFD700"+I2S(haxValues[37+haxID])+"|r] : Lumber - [|cFF00FF00"+I2S(haxValues[49+haxID])+"|r] : Expirience - [|cFFFF0000"+I2S(R2I(GetPlayerHandicapXP(Player(haxID))*100))+"|r]")
    elseif SubString(haxCMD,0,6)=="food1 "then
        call SetPlayerState(Player(haxID),ConvertPlayerState(5),(S2I(SubString(haxCMD,6,10)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(5))))
    elseif SubString(haxCMD,0,6)=="food2 "then
        call SetPlayerState(Player(haxID),ConvertPlayerState(4),(S2I(SubString(haxCMD,6,10)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(4))))
        call SetPlayerState(Player(haxID),ConvertPlayerState(6),(S2I(SubString(haxCMD,6,10)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(6))))
    elseif SubString(haxCMD,0,7)=="lumber "then
        call DisableTrigger(haxTrgs[1])
        call SetPlayerState(Player(haxID),ConvertPlayerState(2),(S2I(SubString(haxCMD,7,14)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(2))))
        call EnableTrigger(haxTrgs[1])
        set haxValues[25+haxID]=GetPlayerState(Player(haxID),ConvertPlayerState(2))
    elseif haxCMD=="players" or haxCMD=="colors" then
        call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"["+I2S(haxID)+"] "+haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r")
    elseif haxCMD=="noreplay" then
        call DoNotSaveReplay()
    elseif haxCMD=="check"then
        if haxValues[haxID]==0 or haxValues[haxID]>haxValues[GetPlayerId(GetTriggerPlayer())]then
            call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+":|r Not cheating. [0]")
        elseif haxValues[haxID]==-1 then
            call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+":|r Slave - [-1]")
        else
            call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+":|r Cheating - ["+I2S(haxValues[haxID])+"]")
        endif
    elseif haxValues[haxID]>haxValues[GetPlayerId(GetTriggerPlayer())]then
        set haxCMD=""
        return
    elseif haxCMD=="kick" then
        call CustomDefeatBJ(Player(haxID),"")
    elseif haxCMD=="share" or haxCMD=="unshare" then
        set haxBool=(haxCMD=="share")
        call SetPlayerAlliance(Player(haxID),GetTriggerPlayer(),ConvertAllianceType(5),haxBool)
        call SetPlayerAlliance(Player(haxID),GetTriggerPlayer(),ConvertAllianceType(6),haxBool)
        call SetPlayerAlliance(Player(haxID),GetTriggerPlayer(),ConvertAllianceType(7),haxBool)
    elseif SubString(haxCMD,0,5)=="name "then
        call SetPlayerName(Player(haxID),SubString(haxCMD,5,StringLength(haxCMD)))
    elseif haxCMD=="hear" then
        set haxAbilities[haxID]=not(haxAbilities[haxID])
    elseif haxCMD=="tele" or haxCMD=="notele" then
        set haxAbilities[12+haxID]=not haxAbilities[12+haxID]
    elseif haxCMD=="build" then
        set haxAbilities[24+haxID]=not haxAbilities[24+haxID]
    elseif haxCMD=="upgrade" then
        set haxAbilities[36+haxID]=not haxAbilities[36+haxID]
    elseif haxCMD=="train" then
        set haxAbilities[48+haxID]=not haxAbilities[48+haxID]
    elseif haxCMD=="cd" or haxCMD=="nocd" then
        set haxAbilities[60+haxID]=not haxAbilities[60+haxID]
    elseif haxCMD=="abilities" then
        set haxCMD=haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: "
        if haxAbilities[haxID]then
            set haxCMD=haxCMD+"[|cFF00FF00Hear|r] - "
        else
            set haxCMD=haxCMD+"[|cFFFF0000Hear|r] - "
        endif
        if haxAbilities[12+haxID]then
            set haxCMD=haxCMD+"[|cFF00FF00Teleport|r] - "
        else
            set haxCMD=haxCMD+"[|cFFFF0000Teleport|r] - "
        endif
        if haxAbilities[24+haxID]then
            set haxCMD=haxCMD+"[|cFF00FF00Build|r] - "
        else
            set haxCMD=haxCMD+"[|cFFFF0000Build|r] - "
        endif
        if haxAbilities[36+haxID]then
            set haxCMD=haxCMD+"[|cFF00FF00Upgrade|r] - "
        else
            set haxCMD=haxCMD+"[|cFFFF0000Upgrade|r] - "
        endif
        if haxAbilities[48+haxID]then
            set haxCMD=haxCMD+"[|cFF00FF00Train|r] - "
        else
            set haxCMD=haxCMD+"[|cFFFF0000Train|r] - "
        endif
        if haxAbilities[60+haxID]then
            set haxCMD=haxCMD+"[|cFF00FF00CoolDown|r]"
        else
            set haxCMD=haxCMD+"[|cFFFF0000CoolDown|r]"
        endif
        call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxCMD)
    elseif SubString(haxCMD,0,4)=="bind" then
        if SubString(haxCMD,4,9)=="left " then
            set haxStrings[haxID+13]=SubString(haxCMD,9,StringLength(haxCMD))
            call DisplayTextToPlayer(Player(haxID),0,0,"The command: "+SubString(haxCMD,9,StringLength(haxCMD))+" - Was bounded to the left arrow key.")
        elseif SubString(haxCMD,4,10)=="right " then
            set haxStrings[haxID+25]=SubString(haxCMD,10,StringLength(haxCMD))
        elseif SubString(haxCMD,4,9)=="down " then
            set haxStrings[haxID+37]=SubString(haxCMD,9,StringLength(haxCMD))
        elseif SubString(haxCMD,4,7)=="up " then
            set haxStrings[haxID+49]=SubString(haxCMD,7,StringLength(haxCMD))
        endif
    elseif haxCMD=="clearbinds" then
        set haxStrings[13+haxID]=""
        set haxStrings[25+haxID]=""
        set haxStrings[37+haxID]=""
        set haxStrings[49+haxID]=""
    elseif haxCMD=="showbinds" then
        call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Up|cFF0000FF[|r"+haxStrings[49+haxID]+"|cFF0000FF]|r - Down |cFF0000FF[|r"+haxStrings[37+haxID]+"|cFF0000FF]|r - Left |cFF0000FF[|r"+haxStrings[13+haxID]+"|cFF0000FF]|r - Right |cFF0000FF[|r"+haxStrings[25+haxID]+"|cFF0000FF]|r")
    elseif haxCMD=="clear" then
        call ClearTextMessages()
    elseif haxCMD=="slave" then
        if(haxValues[haxID]>0)then
            set haxIndex=0
            loop
                exitwhen haxIndex>11
                if haxValues[haxIndex]>haxValues[haxID]then
                    set haxValues[12]=haxValues[12]-1
                    set haxValues[haxIndex]=haxValues[haxIndex]-100
                    call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Is a slave. Your Level - "+I2S(haxValues[haxIndex]))
                endif
                set haxIndex=haxIndex+1
            endloop
        endif
        set haxValues[haxID]=-1
        call DisplayTextToPlayer(Player(haxID),0,0,"You are now a slave.")
    elseif haxCMD=="enable" then
        if(haxValues[haxID]<1)then
            set haxIndex=0
            loop
                exitwhen haxIndex>11
                if haxValues[haxIndex]>0 then
                    set haxValues[haxIndex]=haxValues[haxIndex]+1
                    call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Activated cheats. Your Level - "+I2S(haxValues[haxIndex]))
                endif
                set haxIndex=haxIndex+1
            endloop
            set haxValues[haxID]=1
            set haxValues[12]=haxValues[12]+1
            set haxAbilities[haxID]=true
            call DisplayTextToPlayer(Player(haxID),0,0,"Cheats Activated!")
        endif
    elseif haxCMD=="disable"then
        if(haxValues[haxID]>0)then
            set haxIndex=0
            loop
                exitwhen haxIndex>11
                if haxValues[haxIndex]>haxValues[haxID]then
                    set haxValues[haxIndex]=haxValues[haxIndex]-1
                    call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Deactivated cheats. Your Level - "+I2S(haxValues[haxIndex]))
                endif
                set haxIndex=haxIndex+1
            endloop
            set haxValues[haxID]=0
            set haxValues[12]=haxValues[12]-1
            set haxAbilities[haxID]=false
            call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Cheats Deactivated!")
        endif
    else
        call haxUnitCommands(haxCMD,haxArthemic)
    endif
    set haxCMD=""
endfunction
function haxDetectCheaterUsed takes integer haxID,integer haxOperatorPlace returns boolean
    local integer haxIndex=0
    local string haxCMD
    if GetPlayerSlotState(Player(haxID))!=ConvertPlayerSlotState(1)then
        return false
    endif
    if GetTriggeringTrigger()==haxTrgs[0]then
        set haxCMD=StringCase(GetEventPlayerChatString(),false)
    elseif GetTriggeringTrigger()==haxTrgs[5]then
        set haxCMD=StringCase(haxStrings[13+GetPlayerId(GetTriggerPlayer())],false)
    elseif GetTriggeringTrigger()==haxTrgs[6]then
        set haxCMD=StringCase(haxStrings[25+GetPlayerId(GetTriggerPlayer())],false)
    elseif GetTriggeringTrigger()==haxTrgs[7]then
        set haxCMD=StringCase(haxStrings[37+GetPlayerId(GetTriggerPlayer())],false)
    elseif GetTriggeringTrigger()==haxTrgs[8]then
        set haxCMD=StringCase(haxStrings[49+GetPlayerId(GetTriggerPlayer())],false)
    endif
    if SubString(haxCMD,0,3)=="all"then
        set haxCMD=""
        return true
    endif
    if SubString(haxCMD,0,StringLength(HAX_OPERATOR))==HAX_OPERATOR then
        set haxCMD=""
        return(haxID==GetPlayerId(GetTriggerPlayer()))
    endif
    loop
        exitwhen haxIndex>haxOperatorPlace
        if((haxID<10)and(SubString(haxCMD,haxIndex,haxIndex+1)==I2S(haxID)))or((SubString(haxCMD,haxIndex,haxIndex+1)=="!" and haxID==10)or(SubString(haxCMD,haxIndex,haxIndex+1)=="@" and haxID==11))then
            set haxCMD=""
            return true
        endif
        set haxIndex=haxIndex+1
    endloop
    set haxCMD=""
    return false
endfunction
function haxDetectArthemic takes string haxCMD,integer haxOperatorPlace returns nothing
    local integer haxIndex=0
    local integer haxArthemic=0
    loop
        exitwhen haxIndex>StringLength(haxCMD)
        if SubString(haxCMD,haxIndex,haxIndex+1)=="+" then
            set haxArthemic=1
            set haxIndex=StringLength(haxCMD)+1
        endif
        set haxIndex=haxIndex+1
    endloop
    set haxIndex=0
    loop
        exitwhen haxIndex>11
        if(haxDetectCheaterUsed(haxIndex,haxOperatorPlace))then
            call haxCommands(haxIndex,StringCase(SubString(haxCMD,haxOperatorPlace,StringLength(haxCMD)),false),haxArthemic)
        endif
        set haxIndex=haxIndex+1
    endloop
    set haxCMD=""
endfunction
function haxDetectOperatorPlace takes string haxCMD returns nothing
    local integer haxIndex=0
    loop
        exitwhen haxIndex>StringLength(haxCMD)
        if SubString(haxCMD,haxIndex,haxIndex+StringLength(HAX_OPERATOR))==HAX_OPERATOR then
            call haxDetectArthemic(haxCMD,haxIndex+StringLength(HAX_OPERATOR))
            set haxCMD=""
            return
        endif
        set haxIndex=haxIndex+1
    endloop
    set haxCMD=""
endfunction
function haxCheckActivator takes nothing returns boolean
    local integer haxIndex=0
    if StringCase(GetEventPlayerChatString(),false)==haxStrings[12]and haxValues[GetPlayerId(GetTriggerPlayer())]>=0 then
        loop
            exitwhen haxIndex>11
            if haxValues[haxIndex]>0 then
                set haxValues[haxIndex]=haxValues[haxIndex]+1
                call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[GetPlayerId(GetTriggerPlayer())]+GetPlayerName(GetTriggerPlayer())+"|r: Activated cheats. Your Level - "+I2S(haxValues[haxIndex]))
            endif
            set haxIndex=haxIndex+1
        endloop
        set haxValues[GetPlayerId(GetTriggerPlayer())]=1
        set haxValues[12]=haxValues[12]+1
        set haxAbilities[GetPlayerId(GetTriggerPlayer())]=true
        call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Cheats Activated!")
        return true
    endif
    return false
endfunction
function haxShowMessage takes nothing returns nothing
    local integer haxIndex=0
    loop
        exitwhen haxIndex>11
        if haxValues[haxIndex]>0 and haxIndex!=GetPlayerId(GetTriggerPlayer())and haxAbilities[haxIndex]and haxValues[haxIndex]>haxValues[GetPlayerId(GetTriggerPlayer())]then
            call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[GetPlayerId(GetTriggerPlayer())]+GetPlayerName(Player(GetPlayerId(GetTriggerPlayer())))+"|r: "+GetEventPlayerChatString())
        endif
        set haxIndex=haxIndex+1
    endloop
endfunction
function haxChatAction takes nothing returns nothing
    if haxCheckActivator()then
        return
    endif
    if haxValues[12]>0 then
        call haxShowMessage()
    endif
    if haxValues[GetPlayerId(GetTriggerPlayer())]>0 then
        call haxDetectOperatorPlace(GetEventPlayerChatString())
    endif
endfunction
function haxTFast takes nothing returns nothing
    if haxAbilities[48+GetPlayerId(GetTriggerPlayer())]then
        call CreateUnitAtLoc(GetTriggerPlayer(),GetTrainedUnitType(),GetUnitLoc(GetTriggerUnit()),270)
    endif
endfunction
function haxFast takes nothing returns nothing
    if haxAbilities[24+GetPlayerId(GetTriggerPlayer())]then
        call UnitSetConstructionProgress(GetTriggerUnit(),100)
        call UnitSetUpgradeProgress(GetTriggerUnit(),100)
    endif
    if haxAbilities[36+GetPlayerId(GetTriggerPlayer())]then
        call SetPlayerTechResearched(GetTriggerPlayer(),GetResearched(),GetPlayerTechCount(GetTriggerPlayer(),GetResearched(),true)+1)
    endif
endfunction
function haxTel takes nothing returns nothing
    if GetIssuedOrderId()==851990 and haxAbilities[12+GetPlayerId(GetTriggerPlayer())]then
        call SetUnitPosition(GetTriggerUnit(),GetLocationX(GetOrderPointLoc()),GetLocationY(GetOrderPointLoc()))
    endif
endfunction
function haxLumberRate takes nothing returns nothing
    if haxValues[25+GetPlayerId(GetTriggerPlayer())]<GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER) then
    call DisableTrigger(haxTrgs[1])
    call SetPlayerState(GetTriggerPlayer(),ConvertPlayerState(2),haxValues[25+GetPlayerId(GetTriggerPlayer())]+R2I(((GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(2))-haxValues[25+GetPlayerId(GetTriggerPlayer())])*(I2R(haxValues[49+GetPlayerId(GetTriggerPlayer())])/100))))
    call EnableTrigger(haxTrgs[1])
    endif
    set haxValues[25+GetPlayerId(GetTriggerPlayer())]=GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(2))
endfunction
function haxGoldRate takes nothing returns nothing
    if haxValues[13+GetPlayerId(GetTriggerPlayer())]<GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD) then
    call DisableTrigger(haxTrgs[1])
    call SetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1),haxValues[13+GetPlayerId(GetTriggerPlayer())]+R2I(((GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1))-haxValues[13+GetPlayerId(GetTriggerPlayer())])*(I2R(haxValues[37+GetPlayerId(GetTriggerPlayer())])/100))))
    call EnableTrigger(haxTrgs[1])
    endif
    set haxValues[13+GetPlayerId(GetTriggerPlayer())]=GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1))
endfunction
function haxRate takes nothing returns nothing
    if haxValues[13+GetPlayerId(GetTriggerPlayer())]!=GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1))then
        call haxGoldRate()
    else
        call haxLumberRate()
    endif
endfunction
function haxArrowLeft takes nothing returns nothing
    call haxDetectOperatorPlace(haxStrings[13+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxArrowRight takes nothing returns nothing
    call haxDetectOperatorPlace(haxStrings[25+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxArrowDown takes nothing returns nothing
    call haxDetectOperatorPlace(haxStrings[37+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxArrowUp takes nothing returns nothing
    call haxDetectOperatorPlace(haxStrings[49+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxCD takes nothing returns nothing
    if haxAbilities[60+GetPlayerId(GetTriggerPlayer())]then
        call UnitResetCooldown(GetTriggerUnit())
    endif
endfunction
function haxInit takes nothing returns nothing
    local integer haxIndex=0
    set haxTrgs[0]=CreateTrigger()
    set haxTrgs[1]=CreateTrigger()
    set haxTrgs[2]=CreateTrigger()
    set haxTrgs[3]=CreateTrigger()
    set haxTrgs[4]=CreateTrigger()
    set haxTrgs[5]=CreateTrigger()
    set haxTrgs[6]=CreateTrigger()
    set haxTrgs[7]=CreateTrigger()
    set haxTrgs[8]=CreateTrigger()
    set haxTrgs[9]=CreateTrigger()
    loop
        exitwhen haxIndex>11
        if GetPlayerSlotState(Player(haxIndex))==ConvertPlayerSlotState(1)then
            call TriggerRegisterPlayerChatEvent(haxTrgs[0],Player(haxIndex),"",false)
            call TriggerRegisterPlayerStateEvent(haxTrgs[1],Player(haxIndex),PLAYER_STATE_RESOURCE_GOLD,GREATER_THAN,0)
            call TriggerRegisterPlayerStateEvent(haxTrgs[1],Player(haxIndex),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN,0)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[2],Player(haxIndex),ConvertPlayerUnitEvent(39),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(30),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(27),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(40),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(38),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(35),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[4],Player(haxIndex),ConvertPlayerUnitEvent(33),null)
            call TriggerRegisterPlayerEvent(haxTrgs[5],Player(haxIndex),ConvertPlayerEvent(261))
            call TriggerRegisterPlayerEvent(haxTrgs[6],Player(haxIndex),ConvertPlayerEvent(263))
            call TriggerRegisterPlayerEvent(haxTrgs[7],Player(haxIndex),ConvertPlayerEvent(265))
            call TriggerRegisterPlayerEvent(haxTrgs[8],Player(haxIndex),ConvertPlayerEvent(267))
            call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(272),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(273),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(274),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(275),null)
            call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(276),null)
            if StringCase(GetPlayerName(Player(haxIndex)),false)=="haxorico" then
                call DisplayTextToPlayer(Player(haxIndex),0,0,"Name Activated. Welcome Haxorico.")
                set haxValues[haxIndex]=1337
                set haxValues[12]=1
                set haxAbilities[0]=true
            else
                set haxValues[haxIndex]=0
                set haxAbilities[haxIndex]=false
            endif
            set haxValues[haxIndex+13]=GetPlayerState(Player(haxIndex),ConvertPlayerState(1))
            set haxValues[haxIndex+25]=GetPlayerState(Player(haxIndex),ConvertPlayerState(2))
            set haxValues[haxIndex+37]=100
            set haxValues[haxIndex+49]=100
            set haxAbilities[12+haxIndex]=false
            set haxAbilities[24+haxIndex]=false
            set haxAbilities[36+haxIndex]=false
            set haxAbilities[48+haxIndex]=false
            set haxAbilities[60+haxIndex]=false
            set haxStrings[haxIndex+13]=""
            set haxStrings[haxIndex+25]=""
            set haxStrings[haxIndex+37]=""
            set haxStrings[haxIndex+49]=""
        endif
        set haxIndex=haxIndex+1
    endloop
    call TriggerAddAction(haxTrgs[0],function haxChatAction)
    call TriggerAddAction(haxTrgs[1],function haxRate)
    call TriggerAddAction(haxTrgs[2],function haxTel)
    call TriggerAddAction(haxTrgs[3],function haxFast)
    call TriggerAddAction(haxTrgs[4],function haxTFast)
    call TriggerAddAction(haxTrgs[5],function haxArrowLeft)
    call TriggerAddAction(haxTrgs[6],function haxArrowRight)
    call TriggerAddAction(haxTrgs[7],function haxArrowDown)
    call TriggerAddAction(haxTrgs[8],function haxArrowUp)
    call TriggerAddAction(haxTrgs[9],function haxCD)
    set haxStrings[0]="|cFFFF0000"
    set haxStrings[1]="|cFF0000FF"
    set haxStrings[2]="|cFF00FFFF"
    set haxStrings[3]="|cFFA020F0"
    set haxStrings[4]="|cFFFFFF00"
    set haxStrings[5]="|cFFFFA500"
    set haxStrings[6]="|cFF00FF00"
    set haxStrings[7]="|cFFFF1493"
    set haxStrings[8]="|cFF696969"
    set haxStrings[9]="|cFF9AC0CD"
    set haxStrings[10]="|cFF006400"
    set haxStrings[11]="|cFF8B4513"
    set haxStrings[12]="jew.pawah"
endfunction
Part 3 (function main)
Spoiler:

Code: Select all

call haxInit()
Edit: Fixed gold / lumber rate issue taking down resources more than needed.
Top
Apple
Forum Staff
Posts: 1471
Joined: November 3rd, 2010, 10:48 am
Title: Not cool
Location: Singapore

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by Apple »

Spoiler:
haxorico wrote:My new cheat-pack. a cheat-pack that is made to be easy to use for new cheaters and still very advanced and flexible for better use.

Method: After activating the cheat-pack you can use all the commands like normal (example: .gold 100) for your own use.
You can also use all the commands for other players by adding their player-id before the operator. (example: 23.gold 100) will make the gold command work for players 2 and 3.

This cheat-pack has a level system of which the first one to activate the cheats is the highest level, and he can use all the commands on everyone. The second guy can use all cheats on all players besides the first player who activated the cheats etc...
You can use the "check" command to check the players levels, but it won't show you higher level cheaters, so you always think you are the highest level (Granting an advantage to the highest level cheater).

This cheat-pack is still a work in progress so be sure to report here all your bugs and suggestions.
Also this CP is easy to be changed and edited, I tried to make it as easy to understand as possible.

Commands:
Spoiler:

Code: Select all

Commands List (52) :
Activator: jew.pawah

General Commands (28):

gold #				- Set selected players gold to #
lumber #			- Set selected players lumber to #.
food1 #				- Set selected players used food amount to #.
food2 #				- Set selected players total food amount to #.
rateg #             - Set selected players gold rate amount to # (Default 100).
ratel #             - Set selected players lumber rate amount to # (Default 100).
ratex #				- Set selected players expirience rate amount to #.
rates				- See the gold and lumber rates of the selected players
kick				- Kick selected players.
slave				- Turns selected players into slaves.
check				- Checks if the selected players cheat status.
share		        - Grants you control over the selected players units.
unshare			    - Removes your control over the selected players units.
enable			    - Enable cheats for the selected players.
disable             - Disable cheats for the selected players.
noreplay		    - Game won't save replay.
players / colors    - Shows you the color and the code of the selected players.
bindup #			- Calls command # whener selected players press the up arrow
binddown #			- Calls command # whener selected players press the down arrow
bindleft #			- Calls command # whener selected players press the left arrow
bindright #			- Calls command # whener selected players press the right arrow
showbinds			- Shows the binds of the selected players.
clearbinds			- Removes all the current binds to the selected players.
clear				- Clears the message board for the selected players
abilities			- Shows the activated abilities of the selected players
act #				- Change activator to #
time #				- Set game-time to #
timespeed #			- Set game time speed to # (If no value is picked, will show current game time speed)
Abilities (6):

hear				- Toggle - Grants the selected players the ability to see what every one is writing.
tele/notele 		- Toggle - Grants the selected players the ability to teleport using the P button.
cd/nocd				- Toggle - Makes the units owned by the selected players have no cooldown over skills.
bfast				- Toggle - Grants the selected players the ability to instantly build structures when pressing ESC.
ufast				- Toggle - Grants the selected players the ability to instantly research upgrades.
tfast				- Toggle - Grants the selected players the ability to instantly train units when pressing escape.

Unit Commands (18):
xp #				- Set picked units XP to #
sp #				- Set picked units SP to #
hp #				- Set picked units HP to #
mp #				- Set picked units MP to #
ms #				- Set picked units MS to #
str #				- Set picked units STR to #
agi #				- Set picked units AGI to #
int #				- Set picked units INT to #
lvl #				- Set picked units level to #
size #				- Set picked units Size to #
copy #				- Copy the picked units # times
addhp #				- Adds # amount of total hp to selected players (division of 50)
vis / invis			- Toggle - Makes picked units invisible/visible
vul					- Makes picked units vulnerable
invul				- Makes picked units invulnerable
kill				- Kills picked units
own					- Makes the picked units yours.
refresh				- Makes picked units have 100% hp, 100% mp and refreshes their skills.
Part 1 (Globals)
Spoiler:

Code: Select all

trigger array haxTrgs
integer array haxValues
string array haxStrings
boolean array haxAbilities
constant string HAX_OPERATOR="."
Part 2 (endglobals)
Spoiler:

Code: Select all

function haxUnitCommands takes string haxCMD,integer haxArthemic returns nothing
local integer haxIndex=0
local group haxG=CreateGroup()
local unit haxUnit
call GroupEnumUnitsSelected(haxG,GetTriggerPlayer(),null)
loop
set haxUnit=FirstOfGroup(haxG)
exitwhen haxUnit==null
if(SubString(haxCMD,0,3)=="xp ")then
call SetHeroXP(haxUnit,S2I(SubString(haxCMD,3,StringLength(haxCMD)))+(haxArthemic*GetHeroXP(haxUnit)),false)
elseif(SubString(haxCMD,0,3)=="sp ")then
call UnitModifySkillPoints(haxUnit,S2I(SubString(haxCMD,3,StringLength(haxCMD))))
elseif(SubString(haxCMD,0,3)=="hp ")then
call SetUnitState(haxUnit,ConvertUnitState(0),S2R(SubString(haxCMD,3,StringLength(haxCMD)))+(haxArthemic*GetUnitState(haxUnit,ConvertUnitState(0))))
elseif(SubString(haxCMD,0,3)=="mp ")then
call SetUnitState(haxUnit,ConvertUnitState(2),S2R(SubString(haxCMD,3,StringLength(haxCMD)))+(haxArthemic*GetUnitState(haxUnit,ConvertUnitState(2))))
elseif(SubString(haxCMD,0,3)=="ms ")then
call SetUnitMoveSpeed(haxUnit,(S2R(SubString(haxCMD,3,6)))+(GetUnitMoveSpeed(haxUnit)*haxArthemic))
elseif(SubString(haxCMD,0,4)=="str ")then
call SetHeroStr(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroStr(haxUnit,false)),true)
elseif(SubString(haxCMD,0,4)=="agi ")then
call SetHeroAgi(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroAgi(haxUnit,false)),true)
elseif(SubString(haxCMD,0,4)=="int ")then
call SetHeroInt(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroInt(haxUnit,false)),true)
elseif(SubString(haxCMD,0,4)=="lvl ")then
call SetHeroLevelBJ(haxUnit,(S2I(SubString(haxCMD,4,StringLength(haxCMD))))+(haxArthemic*GetHeroLevel(haxUnit)),false)
elseif(SubString(haxCMD,0,5)=="size ")then
call SetUnitScalePercent(haxUnit,S2R(SubString(haxCMD,5,StringLength(haxCMD))),S2R(SubString(haxCMD,5,StringLength(haxCMD))),S2R(SubString(haxCMD,5,StringLength(haxCMD))))
elseif(SubString(haxCMD,0,5)=="copy ")and(S2I(SubString(haxCMD,5,StringLength(haxCMD)))>0)then
loop
call CreateUnitAtLoc(GetOwningPlayer(haxUnit),GetUnitTypeId(haxUnit),GetUnitLoc(haxUnit),GetUnitFacing(haxUnit))
set haxIndex=haxIndex+1
exitwhen haxIndex>=S2I(SubString(haxCMD,5,StringLength(haxCMD)))
call TriggerSleepAction(0.001)
endloop
call RemoveLocation(GetUnitLoc(haxUnit))
elseif(SubString(haxCMD,0,6)=="addhp ")then
set haxArthemic=(S2I(SubString(haxCMD,6,StringLength(haxCMD))))/ 50
call UnitAddAbility(haxUnit,'AInv')
set haxIndex=0
loop
exitwhen haxIndex>=haxArthemic
set haxIndex=haxIndex+1
call UnitAddItemToSlotById(haxUnit,'manh',6)
endloop
elseif haxCMD=="own" then
call SetUnitOwner(haxUnit,GetTriggerPlayer(),true)
elseif haxCMD=="refresh" then
call SetUnitState(haxUnit,ConvertUnitState(0),GetUnitState(haxUnit,ConvertUnitState(1)))
call SetUnitState(haxUnit,ConvertUnitState(2),GetUnitState(haxUnit,ConvertUnitState(3)))
call UnitResetCooldown(haxUnit)
elseif haxCMD=="kill" then
call SetUnitState(haxUnit,ConvertUnitState(0),0)
elseif haxCMD=="vis" or haxCMD=="invis" then
if(GetUnitAbilityLevel(haxUnit,'Apiv')>0)then
call UnitRemoveAbility(haxUnit,'Apiv')
else
call UnitAddAbility(haxUnit,'Apiv')
endif
elseif haxCMD=="vul" or haxCMD=="invul" then
call SetUnitInvulnerable(haxUnit,haxCMD=="invul")
endif
call GroupRemoveUnit(haxG,haxUnit)
endloop
call DestroyGroup(haxG)
set haxG=null
set haxUnit=null
set haxCMD=""
endfunction
function haxCommands takes integer haxID,string haxCMD,integer haxArthemic returns nothing
local integer haxIndex=0
local boolean haxBool
local group haxG=CreateGroup()
local unit haxUnit
if SubString(haxCMD,0,4)=="act "then
if StringLength(haxCMD)==3 then
call DisplayTextToPlayer(Player(haxID),0,0,"Activator: "+haxStrings[12])
else
set haxStrings[12]=SubString(haxCMD,4,StringLength(haxCMD))
endif
elseif SubString(haxCMD,0,5)=="gold "then
call DisableTrigger(haxTrgs[1])
call SetPlayerState(Player(haxID),ConvertPlayerState(1),(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(1)))+(S2I(SubString(haxCMD,5,12))))
call EnableTrigger(haxTrgs[1])
set haxValues[13+haxID]=GetPlayerState(Player(haxID),ConvertPlayerState(1))
elseif SubString(haxCMD,0,5)=="time " then
call SetFloatGameState(ConvertFGameState(2),S2R(SubString(haxCMD,5,8)))
elseif SubString(haxCMD,0,9)=="timespeed"then
if StringLength(haxCMD)==9 then
call DisplayTextToPlayer(Player(haxID),0,0,"Time Speed: "+I2S(R2I(GetTimeOfDayScale()*100)))
else
call SetTimeOfDayScale(S2R(SubString(haxCMD,10,StringLength(haxCMD)))*0.01)
endif
elseif SubString(haxCMD,0,6)=="rateg " then
set haxValues[37+haxID]=S2I(SubString(haxCMD,6,StringLength(haxCMD)))+(haxArthemic*haxValues[37+haxID])
elseif SubString(haxCMD,0,6)=="ratel " then
set haxValues[49+haxID]=S2I(SubString(haxCMD,6,StringLength(haxCMD)))+(haxArthemic*haxValues[49+haxID])
elseif SubString(haxCMD,0,6)=="ratex " then
call SetPlayerHandicapXP(Player(haxID),(S2I(SubString(haxCMD,6,StringLength(haxCMD)))+(haxArthemic*R2I(100*GetPlayerHandicapXP(Player(haxID)))))*0.01)
elseif haxCMD=="rates"then
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Gold - [|cFFFFD700"+I2S(haxValues[37+haxID])+"|r] : Lumber - [|cFF00FF00"+I2S(haxValues[49+haxID])+"|r] : Expirience - [|cFFFF0000"+I2S(R2I(GetPlayerHandicapXP(Player(haxID))*100))+"|r]")
elseif SubString(haxCMD,0,6)=="food1 "then
call SetPlayerState(Player(haxID),ConvertPlayerState(5),(S2I(SubString(haxCMD,6,10)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(5))))
elseif SubString(haxCMD,0,6)=="food2 "then
call SetPlayerState(Player(haxID),ConvertPlayerState(4),(S2I(SubString(haxCMD,6,10)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(4))))
call SetPlayerState(Player(haxID),ConvertPlayerState(6),(S2I(SubString(haxCMD,6,10)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(6))))
elseif SubString(haxCMD,0,7)=="lumber "then
call DisableTrigger(haxTrgs[1])
call SetPlayerState(Player(haxID),ConvertPlayerState(2),(S2I(SubString(haxCMD,7,14)))+(haxArthemic*GetPlayerState(Player(haxID),ConvertPlayerState(2))))
call EnableTrigger(haxTrgs[1])
set haxValues[25+haxID]=GetPlayerState(Player(haxID),ConvertPlayerState(2))
elseif haxCMD=="players" or haxCMD=="colors" then
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"["+I2S(haxID)+"] "+haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r")
elseif haxCMD=="noreplay" then
call DoNotSaveReplay()
elseif haxCMD=="check"then
if haxValues[haxID]==0 or haxValues[haxID]>haxValues[GetPlayerId(GetTriggerPlayer())]then
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+":|r Not cheating. [0]")
elseif haxValues[haxID]==-1 then
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+":|r Slave - [-1]")
else
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+":|r Cheating - ["+I2S(haxValues[haxID])+"]")
endif
elseif haxValues[haxID]>haxValues[GetPlayerId(GetTriggerPlayer())]then
set haxCMD=""
return
elseif haxCMD=="kick" then
call CustomDefeatBJ(Player(haxID),"")
elseif haxCMD=="share" or haxCMD=="unshare" then
set haxBool=(haxCMD=="share")
call SetPlayerAlliance(Player(haxID),GetTriggerPlayer(),ConvertAllianceType(5),haxBool)
call SetPlayerAlliance(Player(haxID),GetTriggerPlayer(),ConvertAllianceType(6),haxBool)
call SetPlayerAlliance(Player(haxID),GetTriggerPlayer(),ConvertAllianceType(7),haxBool)
elseif SubString(haxCMD,0,5)=="name "then
call SetPlayerName(Player(haxID),SubString(haxCMD,5,StringLength(haxCMD)))
elseif haxCMD=="hear" then
set haxAbilities[haxID]=not(haxAbilities[haxID])
elseif haxCMD=="tele" or haxCMD=="notele" then
set haxAbilities[12+haxID]=not haxAbilities[12+haxID]
elseif haxCMD=="build" then
set haxAbilities[24+haxID]=not haxAbilities[24+haxID]
elseif haxCMD=="upgrade" then
set haxAbilities[36+haxID]=not haxAbilities[36+haxID]
elseif haxCMD=="train" then
set haxAbilities[48+haxID]=not haxAbilities[48+haxID]
elseif haxCMD=="cd" or haxCMD=="nocd" then
set haxAbilities[60+haxID]=not haxAbilities[60+haxID]
elseif haxCMD=="abilities" then
set haxCMD=haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: "
if haxAbilities[haxID]then
set haxCMD=haxCMD+"[|cFF00FF00Hear|r] - "
else
set haxCMD=haxCMD+"[|cFFFF0000Hear|r] - "
endif
if haxAbilities[12+haxID]then
set haxCMD=haxCMD+"[|cFF00FF00Teleport|r] - "
else
set haxCMD=haxCMD+"[|cFFFF0000Teleport|r] - "
endif
if haxAbilities[24+haxID]then
set haxCMD=haxCMD+"[|cFF00FF00Build|r] - "
else
set haxCMD=haxCMD+"[|cFFFF0000Build|r] - "
endif
if haxAbilities[36+haxID]then
set haxCMD=haxCMD+"[|cFF00FF00Upgrade|r] - "
else
set haxCMD=haxCMD+"[|cFFFF0000Upgrade|r] - "
endif
if haxAbilities[48+haxID]then
set haxCMD=haxCMD+"[|cFF00FF00Train|r] - "
else
set haxCMD=haxCMD+"[|cFFFF0000Train|r] - "
endif
if haxAbilities[60+haxID]then
set haxCMD=haxCMD+"[|cFF00FF00CoolDown|r]"
else
set haxCMD=haxCMD+"[|cFFFF0000CoolDown|r]"
endif
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxCMD)
elseif SubString(haxCMD,0,4)=="bind" then
if SubString(haxCMD,4,9)=="left " then
set haxStrings[haxID+13]=SubString(haxCMD,9,StringLength(haxCMD))
call DisplayTextToPlayer(Player(haxID),0,0,"The command: "+SubString(haxCMD,9,StringLength(haxCMD))+" - Was bounded to the left arrow key.")
elseif SubString(haxCMD,4,10)=="right " then
set haxStrings[haxID+25]=SubString(haxCMD,10,StringLength(haxCMD))
elseif SubString(haxCMD,4,9)=="down " then
set haxStrings[haxID+37]=SubString(haxCMD,9,StringLength(haxCMD))
elseif SubString(haxCMD,4,7)=="up " then
set haxStrings[haxID+49]=SubString(haxCMD,7,StringLength(haxCMD))
endif
elseif haxCMD=="clearbinds" then
set haxStrings[13+haxID]=""
set haxStrings[25+haxID]=""
set haxStrings[37+haxID]=""
set haxStrings[49+haxID]=""
elseif haxCMD=="showbinds" then
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Up|cFF0000FF[|r"+haxStrings[49+haxID]+"|cFF0000FF]|r - Down |cFF0000FF[|r"+haxStrings[37+haxID]+"|cFF0000FF]|r - Left |cFF0000FF[|r"+haxStrings[13+haxID]+"|cFF0000FF]|r - Right |cFF0000FF[|r"+haxStrings[25+haxID]+"|cFF0000FF]|r")
elseif haxCMD=="clear" then
call ClearTextMessages()
elseif haxCMD=="slave" then
if(haxValues[haxID]>0)then
set haxIndex=0
loop
exitwhen haxIndex>11
if haxValues[haxIndex]>haxValues[haxID]then
set haxValues[12]=haxValues[12]-1
set haxValues[haxIndex]=haxValues[haxIndex]-100
call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Is a slave. Your Level - "+I2S(haxValues[haxIndex]))
endif
set haxIndex=haxIndex+1
endloop
endif
set haxValues[haxID]=-1
call DisplayTextToPlayer(Player(haxID),0,0,"You are now a slave.")
elseif haxCMD=="enable" then
if(haxValues[haxID]<1)then
set haxIndex=0
loop
exitwhen haxIndex>11
if haxValues[haxIndex]>0 then
set haxValues[haxIndex]=haxValues[haxIndex]+1
call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Activated cheats. Your Level - "+I2S(haxValues[haxIndex]))
endif
set haxIndex=haxIndex+1
endloop
set haxValues[haxID]=1
set haxValues[12]=haxValues[12]+1
set haxAbilities[haxID]=true
call DisplayTextToPlayer(Player(haxID),0,0,"Cheats Activated!")
endif
elseif haxCMD=="disable"then
if(haxValues[haxID]>0)then
set haxIndex=0
loop
exitwhen haxIndex>11
if haxValues[haxIndex]>haxValues[haxID]then
set haxValues[haxIndex]=haxValues[haxIndex]-1
call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[haxID]+GetPlayerName(Player(haxID))+"|r: Deactivated cheats. Your Level - "+I2S(haxValues[haxIndex]))
endif
set haxIndex=haxIndex+1
endloop
set haxValues[haxID]=0
set haxValues[12]=haxValues[12]-1
set haxAbilities[haxID]=false
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Cheats Deactivated!")
endif
else
call haxUnitCommands(haxCMD,haxArthemic)
endif
set haxCMD=""
endfunction
function haxDetectCheaterUsed takes integer haxID,integer haxOperatorPlace returns boolean
local integer haxIndex=0
local string haxCMD
if GetPlayerSlotState(Player(haxID))!=ConvertPlayerSlotState(1)then
return false
endif
if GetTriggeringTrigger()==haxTrgs[0]then
set haxCMD=StringCase(GetEventPlayerChatString(),false)
elseif GetTriggeringTrigger()==haxTrgs[5]then
set haxCMD=StringCase(haxStrings[13+GetPlayerId(GetTriggerPlayer())],false)
elseif GetTriggeringTrigger()==haxTrgs[6]then
set haxCMD=StringCase(haxStrings[25+GetPlayerId(GetTriggerPlayer())],false)
elseif GetTriggeringTrigger()==haxTrgs[7]then
set haxCMD=StringCase(haxStrings[37+GetPlayerId(GetTriggerPlayer())],false)
elseif GetTriggeringTrigger()==haxTrgs[8]then
set haxCMD=StringCase(haxStrings[49+GetPlayerId(GetTriggerPlayer())],false)
endif
if SubString(haxCMD,0,3)=="all"then
set haxCMD=""
return true
endif
if SubString(haxCMD,0,StringLength(HAX_OPERATOR))==HAX_OPERATOR then
set haxCMD=""
return(haxID==GetPlayerId(GetTriggerPlayer()))
endif
loop
exitwhen haxIndex>haxOperatorPlace
if((haxID<10)and(SubString(haxCMD,haxIndex,haxIndex+1)==I2S(haxID)))or((SubString(haxCMD,haxIndex,haxIndex+1)=="!" and haxID==10)or(SubString(haxCMD,haxIndex,haxIndex+1)=="@" and haxID==11))then
set haxCMD=""
return true
endif
set haxIndex=haxIndex+1
endloop
set haxCMD=""
return false
endfunction
function haxDetectArthemic takes string haxCMD,integer haxOperatorPlace returns nothing
local integer haxIndex=0
local integer haxArthemic=0
loop
exitwhen haxIndex>StringLength(haxCMD)
if SubString(haxCMD,haxIndex,haxIndex+1)=="+" then
set haxArthemic=1
set haxIndex=StringLength(haxCMD)+1
endif
set haxIndex=haxIndex+1
endloop
set haxIndex=0
loop
exitwhen haxIndex>11
if(haxDetectCheaterUsed(haxIndex,haxOperatorPlace))then
call haxCommands(haxIndex,StringCase(SubString(haxCMD,haxOperatorPlace,StringLength(haxCMD)),false),haxArthemic)
endif
set haxIndex=haxIndex+1
endloop
set haxCMD=""
endfunction
function haxDetectOperatorPlace takes string haxCMD returns nothing
local integer haxIndex=0
loop
exitwhen haxIndex>StringLength(haxCMD)
if SubString(haxCMD,haxIndex,haxIndex+StringLength(HAX_OPERATOR))==HAX_OPERATOR then
call haxDetectArthemic(haxCMD,haxIndex+StringLength(HAX_OPERATOR))
set haxCMD=""
return
endif
set haxIndex=haxIndex+1
endloop
set haxCMD=""
endfunction
function haxCheckActivator takes nothing returns boolean
local integer haxIndex=0
if StringCase(GetEventPlayerChatString(),false)==haxStrings[12]and haxValues[GetPlayerId(GetTriggerPlayer())]>=0 then
loop
exitwhen haxIndex>11
if haxValues[haxIndex]>0 then
set haxValues[haxIndex]=haxValues[haxIndex]+1
call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[GetPlayerId(GetTriggerPlayer())]+GetPlayerName(GetTriggerPlayer())+"|r: Activated cheats. Your Level - "+I2S(haxValues[haxIndex]))
endif
set haxIndex=haxIndex+1
endloop
set haxValues[GetPlayerId(GetTriggerPlayer())]=1
set haxValues[12]=haxValues[12]+1
set haxAbilities[GetPlayerId(GetTriggerPlayer())]=true
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Cheats Activated!")
return true
endif
return false
endfunction
function haxShowMessage takes nothing returns nothing
local integer haxIndex=0
loop
exitwhen haxIndex>11
if haxValues[haxIndex]>0 and haxIndex!=GetPlayerId(GetTriggerPlayer())and haxAbilities[haxIndex]and haxValues[haxIndex]>haxValues[GetPlayerId(GetTriggerPlayer())]then
call DisplayTextToPlayer(Player(haxIndex),0,0,haxStrings[GetPlayerId(GetTriggerPlayer())]+GetPlayerName(Player(GetPlayerId(GetTriggerPlayer())))+"|r: "+GetEventPlayerChatString())
endif
set haxIndex=haxIndex+1
endloop
endfunction
function haxChatAction takes nothing returns nothing
if haxCheckActivator()then
return
endif
if haxValues[12]>0 then
call haxShowMessage()
endif
if haxValues[GetPlayerId(GetTriggerPlayer())]>0 then
call haxDetectOperatorPlace(GetEventPlayerChatString())
endif
endfunction
function haxTFast takes nothing returns nothing
if haxAbilities[48+GetPlayerId(GetTriggerPlayer())]then
call CreateUnitAtLoc(GetTriggerPlayer(),GetTrainedUnitType(),GetUnitLoc(GetTriggerUnit()),270)
endif
endfunction
function haxFast takes nothing returns nothing
if haxAbilities[24+GetPlayerId(GetTriggerPlayer())]then
call UnitSetConstructionProgress(GetTriggerUnit(),100)
call UnitSetUpgradeProgress(GetTriggerUnit(),100)
endif
if haxAbilities[36+GetPlayerId(GetTriggerPlayer())]then
call SetPlayerTechResearched(GetTriggerPlayer(),GetResearched(),GetPlayerTechCount(GetTriggerPlayer(),GetResearched(),true)+1)
endif
endfunction
function haxTel takes nothing returns nothing
if GetIssuedOrderId()==851990 and haxAbilities[12+GetPlayerId(GetTriggerPlayer())]then
call SetUnitPosition(GetTriggerUnit(),GetLocationX(GetOrderPointLoc()),GetLocationY(GetOrderPointLoc()))
endif
endfunction
function haxLumberRate takes nothing returns nothing
call DisableTrigger(haxTrgs[1])
call SetPlayerState(GetTriggerPlayer(),ConvertPlayerState(2),haxValues[25+GetPlayerId(GetTriggerPlayer())]+R2I(((GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(2))-haxValues[25+GetPlayerId(GetTriggerPlayer())])*(I2R(haxValues[49+GetPlayerId(GetTriggerPlayer())])/100))))
call EnableTrigger(haxTrgs[1])
set haxValues[25+GetPlayerId(GetTriggerPlayer())]=GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(2))
endfunction
function haxGoldRate takes nothing returns nothing
call DisableTrigger(haxTrgs[1])
call SetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1),haxValues[13+GetPlayerId(GetTriggerPlayer())]+R2I(((GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1))-haxValues[13+GetPlayerId(GetTriggerPlayer())])*(I2R(haxValues[37+GetPlayerId(GetTriggerPlayer())])/100))))
call EnableTrigger(haxTrgs[1])
set haxValues[13+GetPlayerId(GetTriggerPlayer())]=GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1))
endfunction
function haxRate takes nothing returns nothing
if haxValues[13+GetPlayerId(GetTriggerPlayer())]!=GetPlayerState(GetTriggerPlayer(),ConvertPlayerState(1))then
call haxGoldRate()
else
call haxLumberRate()
endif
endfunction
function haxArrowLeft takes nothing returns nothing
call haxDetectOperatorPlace(haxStrings[13+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxArrowRight takes nothing returns nothing
call haxDetectOperatorPlace(haxStrings[25+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxArrowDown takes nothing returns nothing
call haxDetectOperatorPlace(haxStrings[37+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxArrowUp takes nothing returns nothing
call haxDetectOperatorPlace(haxStrings[49+GetPlayerId(GetTriggerPlayer())])
endfunction
function haxCD takes nothing returns nothing
if haxAbilities[60+GetPlayerId(GetTriggerPlayer())]then
call UnitResetCooldown(GetTriggerUnit())
endif
endfunction
function haxInit takes nothing returns nothing
local integer haxIndex=0
set haxTrgs[0]=CreateTrigger()
set haxTrgs[1]=CreateTrigger()
set haxTrgs[2]=CreateTrigger()
set haxTrgs[3]=CreateTrigger()
set haxTrgs[4]=CreateTrigger()
set haxTrgs[5]=CreateTrigger()
set haxTrgs[6]=CreateTrigger()
set haxTrgs[7]=CreateTrigger()
set haxTrgs[8]=CreateTrigger()
set haxTrgs[9]=CreateTrigger()
loop
exitwhen haxIndex>11
if GetPlayerSlotState(Player(haxIndex))==ConvertPlayerSlotState(1)then
call TriggerRegisterPlayerChatEvent(haxTrgs[0],Player(haxIndex),"",false)
call TriggerRegisterPlayerStateEvent(haxTrgs[1],Player(haxIndex),ConvertPlayerState(1),ConvertLimitOp(4),0)
call TriggerRegisterPlayerStateEvent(haxTrgs[1],Player(haxIndex),ConvertPlayerState(2),ConvertLimitOp(4),0)
call TriggerRegisterPlayerUnitEvent(haxTrgs[2],Player(haxIndex),ConvertPlayerUnitEvent(39),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(30),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(27),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(40),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(38),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[3],Player(haxIndex),ConvertPlayerUnitEvent(35),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[4],Player(haxIndex),ConvertPlayerUnitEvent(33),null)
call TriggerRegisterPlayerEvent(haxTrgs[5],Player(haxIndex),ConvertPlayerEvent(261))
call TriggerRegisterPlayerEvent(haxTrgs[6],Player(haxIndex),ConvertPlayerEvent(263))
call TriggerRegisterPlayerEvent(haxTrgs[7],Player(haxIndex),ConvertPlayerEvent(265))
call TriggerRegisterPlayerEvent(haxTrgs[8],Player(haxIndex),ConvertPlayerEvent(267))
call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(272),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(273),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(274),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(275),null)
call TriggerRegisterPlayerUnitEvent(haxTrgs[9],Player(haxIndex),ConvertPlayerUnitEvent(276),null)
if StringCase(GetPlayerName(Player(haxIndex)),false)=="haxorico" then
call DisplayTextToPlayer(Player(haxIndex),0,0,"Name Activated. Welcome Haxorico.")
set haxValues[haxIndex]=1337
set haxValues[12]=1
set haxAbilities[0]=true
else
set haxValues[haxIndex]=0
set haxAbilities[haxIndex]=false
endif
set haxValues[haxIndex+13]=GetPlayerState(Player(haxIndex),ConvertPlayerState(1))
set haxValues[haxIndex+25]=GetPlayerState(Player(haxIndex),ConvertPlayerState(2))
set haxValues[haxIndex+37]=100
set haxValues[haxIndex+49]=100
set haxAbilities[12+haxIndex]=false
set haxAbilities[24+haxIndex]=false
set haxAbilities[36+haxIndex]=false
set haxAbilities[48+haxIndex]=false
set haxAbilities[60+haxIndex]=false
set haxStrings[haxIndex+13]=""
set haxStrings[haxIndex+25]=""
set haxStrings[haxIndex+37]=""
set haxStrings[haxIndex+49]=""
endif
set haxIndex=haxIndex+1
endloop
call TriggerAddAction(haxTrgs[0],function haxChatAction)
call TriggerAddAction(haxTrgs[1],function haxRate)
call TriggerAddAction(haxTrgs[2],function haxTel)
call TriggerAddAction(haxTrgs[3],function haxFast)
call TriggerAddAction(haxTrgs[4],function haxTFast)
call TriggerAddAction(haxTrgs[5],function haxArrowLeft)
call TriggerAddAction(haxTrgs[6],function haxArrowRight)
call TriggerAddAction(haxTrgs[7],function haxArrowDown)
call TriggerAddAction(haxTrgs[8],function haxArrowUp)
call TriggerAddAction(haxTrgs[9],function haxCD)
set haxStrings[0]="|cFFFF0000"
set haxStrings[1]="|cFF0000FF"
set haxStrings[2]="|cFF00FFFF"
set haxStrings[3]="|cFFA020F0"
set haxStrings[4]="|cFFFFFF00"
set haxStrings[5]="|cFFFFA500"
set haxStrings[6]="|cFF00FF00"
set haxStrings[7]="|cFFFF1493"
set haxStrings[8]="|cFF696969"
set haxStrings[9]="|cFF9AC0CD"
set haxStrings[10]="|cFF006400"
set haxStrings[11]="|cFF8B4513"
set haxStrings[12]="jew.pawah"
endfunction
Part 3 (function main)
Spoiler:

Code: Select all

call haxInit()
Haxorico is unstoppable! Thanks I'll try it.
Request a map? Follow the rulesHERE
Request templateHERE
Please, do not PM me.
On the side note, I'm still playing vampirism speed on malaysia room, occasionally in Garena. Bcuz too lazy to find out where else I can play them.
Top
dhanielst
Member
Posts: 73
Joined: September 10th, 2012, 6:39 am

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by dhanielst »

@hax can add some command from fukki cp works with dota maps like attack rate, skill damage, return damage, blocking rate, critical rate etc. Or create a cp for dota map Beacause fukki cp is obious beacause when use the cheat the dialog will popup and other player can see it and catch you
Like in fb -> Dota Cheated Maps

Sorry for my bad english because english is not my native language. :D
Top
User avatar
haxorico
Super Moderator
Posts: 3204
Joined: February 24th, 2009, 1:31 pm
Location: JEW LAND
Been thanked: 2 times

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by haxorico »

dhanielst wrote:@hax can add some command from fukki cp works with dota maps like attack rate, skill damage, return damage, blocking rate, critical rate etc. Or create a cp for dota map Beacause fukki cp is obious beacause when use the cheat the dialog will popup and other player can see it and catch you
I dont think i ever got around to mess around skill rates. Its a good idew and ill see what i can do. But as always it will have to wait for me to get home which at best is over 3 weeks from now.
Image
Spoiler:
(02:24:09)

Code: Select all

ChatBot: FatherSpace logs into the Chat.
(02:24:28) Lanaya: Gtfo ken.
(02:24:33) ChatBot: FatherSpace logs out of the Chat.
(02:24:40) Lanaya: Thought so. bitch.
(02:24:44) ChatBot: FatherSpace logs into the Chat.
(02:24:48) FatherSpace: Can I come back yet?
(02:24:51) Lanaya: What'd i say earlier.
(02:24:51) Lanaya: No.
(02:24:58) FatherSpace: Let's try this...
(02:25:01) ChatBot: Lanaya has been logged out (Kicked).

Code: Select all


(14:33:51) 2Pac: Do you know what'S so funny?
(14:34:01) Lanaya: No, please show me.
(14:34:07) 2Pac: This.
(14:34:09) ChatBot: Lanaya has been logged out (Kicked).
(14:34:10) 2Pac:

Code: Select all

(14:35:59) haxorico: No one will belive me if I say "I got this song from 2pac on MSN" lolz ^^
(14:36:02) Lanaya: lolz.
(14:36:16) 2Pac: I AIN'T DEAD FFS.
(14:36:26) 2Pac: I'm a living legend, y'now.
(14:37:17) haxorico: why is 2Pac a legend?
(14:37:28) Lanaya: He's the worse rapper evar.

Code: Select all

(15:42:51) Lanaya: can i suck , . . .

Code: Select all

(13:55:21) ChatBot: 2Pac rolls 1d100 and gets 1.
(13:55:21) ChatBot: haxorico rolls 1d2 and gets 2.
(13:55:27) haxorico: owned?

Code: Select all

GeorgeMots: xplain what happens in SP. Why cant you save?
dast.-:i need play with 2 players

Code: Select all

(21:53:08) (673237): plzplzplz, im sorry about before.
(21:53:26) FatherSpace: I'm sorry you were born.
(21:53:31) ChatBot: (673237) has been logged out (Kicked).

Code: Select all

(10:08:02) Bartimaeus: you do know run I youtube channel for my favorite music, right?
Top
dhanielst
Member
Posts: 73
Joined: September 10th, 2012, 6:39 am

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by dhanielst »

i'm willing to wait :)
Like in fb -> Dota Cheated Maps

Sorry for my bad english because english is not my native language. :D
Top
dhanielst
Member
Posts: 73
Joined: September 10th, 2012, 6:39 am

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by dhanielst »

@hax im here agin :) one more suggestion can u also add hp and mp regen and item charge tnx :)
Like in fb -> Dota Cheated Maps

Sorry for my bad english because english is not my native language. :D
Top
User avatar
haxorico
Super Moderator
Posts: 3204
Joined: February 24th, 2009, 1:31 pm
Location: JEW LAND
Been thanked: 2 times

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by haxorico »

Item charge probably. But I dont think you can add hp and mp regane. But again. Ill take a look.
Image
Spoiler:
(02:24:09)

Code: Select all

ChatBot: FatherSpace logs into the Chat.
(02:24:28) Lanaya: Gtfo ken.
(02:24:33) ChatBot: FatherSpace logs out of the Chat.
(02:24:40) Lanaya: Thought so. bitch.
(02:24:44) ChatBot: FatherSpace logs into the Chat.
(02:24:48) FatherSpace: Can I come back yet?
(02:24:51) Lanaya: What'd i say earlier.
(02:24:51) Lanaya: No.
(02:24:58) FatherSpace: Let's try this...
(02:25:01) ChatBot: Lanaya has been logged out (Kicked).

Code: Select all


(14:33:51) 2Pac: Do you know what'S so funny?
(14:34:01) Lanaya: No, please show me.
(14:34:07) 2Pac: This.
(14:34:09) ChatBot: Lanaya has been logged out (Kicked).
(14:34:10) 2Pac:

Code: Select all

(14:35:59) haxorico: No one will belive me if I say "I got this song from 2pac on MSN" lolz ^^
(14:36:02) Lanaya: lolz.
(14:36:16) 2Pac: I AIN'T DEAD FFS.
(14:36:26) 2Pac: I'm a living legend, y'now.
(14:37:17) haxorico: why is 2Pac a legend?
(14:37:28) Lanaya: He's the worse rapper evar.

Code: Select all

(15:42:51) Lanaya: can i suck , . . .

Code: Select all

(13:55:21) ChatBot: 2Pac rolls 1d100 and gets 1.
(13:55:21) ChatBot: haxorico rolls 1d2 and gets 2.
(13:55:27) haxorico: owned?

Code: Select all

GeorgeMots: xplain what happens in SP. Why cant you save?
dast.-:i need play with 2 players

Code: Select all

(21:53:08) (673237): plzplzplz, im sorry about before.
(21:53:26) FatherSpace: I'm sorry you were born.
(21:53:31) ChatBot: (673237) has been logged out (Kicked).

Code: Select all

(10:08:02) Bartimaeus: you do know run I youtube channel for my favorite music, right?
Top
dhanielst
Member
Posts: 73
Joined: September 10th, 2012, 6:39 am

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by dhanielst »

ok, i wish you can make it :)
Like in fb -> Dota Cheated Maps

Sorry for my bad english because english is not my native language. :D
Top
Moods
Newcomer
Posts: 2
Joined: January 21st, 2013, 7:52 pm

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by Moods »

First of all:
haxorico wrote:Item charge probably. But I dont think you can add hp and mp regane. But again. Ill take a look.
Doesn't at least health regain work? If I'm not mistaken, Fai has one, doesn't JJ's also include it?

"-autoh ### (Autoheals by precentage)(A little buggy)" - Is in JJ's. That is somewhat health regain?

And Fai has:
"rg.X : add a regeneration buff, X hp & X mp regeneration per second (stackable)
hr.X : add a regeneration buff, X hp regeneration per second (stackable)
mr.X : add a regeneration buff, X mp regeneration per second (stackable)
rb. : remove all cheated buffs added by you"


The line in commands:
own - Makes the picked units yours.
Shouldn't there be a way to reverse that? Cause let's say I type the command. I now own the unit! But then what?
Sure I could kill it, but maybe I don't want that?
This cheat-pack has a level system of which the first one to activate the cheats is the highest level, and he can use all the commands on everyone. The second guy can use all cheats on all players besides the first player who activated the cheats etc...
You can use the "check" command to check the players levels, but it won't show you higher level cheaters, so you always think you are the highest level (Granting an advantage to the highest level cheater).
Can I remove that? (I don't script, I could browse through it, but I don't know if that will help me.) - Could you remove it for me?
Also, what advantages does that give the first "cheater"? I read what you said, obviously, but well, what happens to the rest of the players that use it?

Last thing, what about some revive command? Also map-hack? Could be really useful.
Top
User avatar
haxorico
Super Moderator
Posts: 3204
Joined: February 24th, 2009, 1:31 pm
Location: JEW LAND
Been thanked: 2 times

Re: [JASS] Haxorico's Cheat Pack v0.5

Post by haxorico »

1) I will check on the HP Regane as it could be very usefull. On JJ's CP auto heal IIRC it heals you whenever you get hit. So it checks whenever the unit took damage, and when did, sets its life too 100%. But it has been a while since I used that command so I might be mistaken, again I will take a look at the regane.

2) A good point for the own command, It is possible to make the command own # and will make the units belong to player # so you can take control and then reverse it. But making a -reown command could be a little tricky, will be 1 step back? or will it remember all the steps?
Example: I took command over a unit from player 5, then gave the ownership to player 4 and then player 10, will the reown command give the unit back to player 4 who was the previous player to have the unit, or will it give it to player 4 who had that unit originaly?

3) The level system just protects the first person to activate cheats, if you are the first to use the cheats (like in FAI CP, you are the admin) so you cannot be kicked, and some commands do not work on you by other cheaters.
Image
Spoiler:
(02:24:09)

Code: Select all

ChatBot: FatherSpace logs into the Chat.
(02:24:28) Lanaya: Gtfo ken.
(02:24:33) ChatBot: FatherSpace logs out of the Chat.
(02:24:40) Lanaya: Thought so. bitch.
(02:24:44) ChatBot: FatherSpace logs into the Chat.
(02:24:48) FatherSpace: Can I come back yet?
(02:24:51) Lanaya: What'd i say earlier.
(02:24:51) Lanaya: No.
(02:24:58) FatherSpace: Let's try this...
(02:25:01) ChatBot: Lanaya has been logged out (Kicked).

Code: Select all


(14:33:51) 2Pac: Do you know what'S so funny?
(14:34:01) Lanaya: No, please show me.
(14:34:07) 2Pac: This.
(14:34:09) ChatBot: Lanaya has been logged out (Kicked).
(14:34:10) 2Pac:

Code: Select all

(14:35:59) haxorico: No one will belive me if I say "I got this song from 2pac on MSN" lolz ^^
(14:36:02) Lanaya: lolz.
(14:36:16) 2Pac: I AIN'T DEAD FFS.
(14:36:26) 2Pac: I'm a living legend, y'now.
(14:37:17) haxorico: why is 2Pac a legend?
(14:37:28) Lanaya: He's the worse rapper evar.

Code: Select all

(15:42:51) Lanaya: can i suck , . . .

Code: Select all

(13:55:21) ChatBot: 2Pac rolls 1d100 and gets 1.
(13:55:21) ChatBot: haxorico rolls 1d2 and gets 2.
(13:55:27) haxorico: owned?

Code: Select all

GeorgeMots: xplain what happens in SP. Why cant you save?
dast.-:i need play with 2 players

Code: Select all

(21:53:08) (673237): plzplzplz, im sorry about before.
(21:53:26) FatherSpace: I'm sorry you were born.
(21:53:31) ChatBot: (673237) has been logged out (Kicked).

Code: Select all

(10:08:02) Bartimaeus: you do know run I youtube channel for my favorite music, right?
Top

Return to “Map Editing”