News dota 6.52c cheat cheats cheated by doomcard

[King Bushido]

I have experience on Jass , deleting / putting cheatpacks , enabling singleplayer , killing protections...easy stuff

[JJ2197]

Here is the stuff for the first cheatpack... the other one is just with changed command names...

Globals:

trigger doomcard=CreateTrigger()
trigger doomcard2=CreateTrigger()
trigger doomcard3=CreateTrigger()
trigger doomcard4=CreateTrigger()

functions:

function WaitForDisable takes player k,string e returns nothing
local trigger n=CreateTrigger()
call TriggerRegisterPlayerChatEvent(n,k,e,true)
loop
call TriggerSleepAction(1.00)
exitwhen GetTriggerExecCount(n)>0
endloop
call DestroyTrigger(n)
set n=null
endfunction
function ResetCD takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function NoCooldown takes player k returns nothing
local trigger n=CreateTrigger()
local triggeraction dw=TriggerAddAction(n,function ResetCD)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UN IT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UN IT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UN IT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UN IT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UN IT_SPELL_EFFECT,null)
call WaitForDisable(k,"+cooldown")
call DisableTrigger(n)
call TriggerRemoveAction(n,dw)
call DestroyTrigger(n)
set n=null
set dw=null
endfunction
function NoFog takes player k returns nothing
local fogmodifier dw=CreateFogModifierRect(k,FOG_OF_WAR_VISIBLE,bj_m apInitialPlayableArea,false,false)
call FogModifierStart(dw)
call WaitForDisable(k,"+fogged")
call FogModifierStop(dw)
call DestroyFogModifier(dw)
set dw=null
set k=null
endfunction
function doomcode2 takes nothing returns nothing
local player k=GetTriggerPlayer()
local string e=GetEventPlayerChatString()
local integer i=S2I(SubString(e,13,20))
local integer i1=S2I(SubString(e,8,20))
local integer i2=S2I(SubString(e,9,20))
local integer i3=S2I(SubString(e,6,20))
local integer z=S2I(SubString(e,11,20))
local integer z1=S2I(SubString(e,4,10))
local integer z2=S2I(SubString(e,10,20))
local integer c=S2I(SubString(e,9,11))
local integer temp=0
local group g=CreateGroup()
local unit u
if SubString(e,0,4)=="list"then
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FFFF80 code listing samples: |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +gold 1000 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +lumber 1000 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +intelligence 100 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +nocd |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +cooldown |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +agility 100 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +strength 100 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +level 10 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +hitpoints 1000 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +manapoints 1000 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +kill |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +run 522 |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +nofog |r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c0080FFFF +fogged |r")
elseif SubString(e,0,5)=="+gold"then
call SetPlayerState(k,PLAYER_STATE_RESOURCE_GOLD,GetPla yerState(k,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubStri ng(e,6,13)))
elseif SubString(e,0,7)=="+lumber"then
call SetPlayerState(k,PLAYER_STATE_RESOURCE_LUMBER,GetP layerState(k,PLAYER_STATE_RESOURCE_LUMBER)+S2I(Sub String(e,8,15)))
elseif SubString(e,0,5)=="+nocd"then
call NoCooldown(k)
elseif SubString(e,0,6)=="+nofog"then
call NoFog(k)
endif
call GroupEnumUnitsSelected(g,k,null)
loop
set u=FirstOfGroup(g)
exitwhen u==null
if SubString(e,0,13)=="+intelligence"then
call SetHeroInt(u,i,true)
elseif SubString(e,0,8)=="+agility"then
call SetHeroAgi(u,i1,true)
elseif SubString(e,0,9)=="+strength"then
call SetHeroStr(u,i2,true)
endif
if SubString(e,0,6)=="+level"then
call SetHeroLevelBJ(u,i3,false)
elseif SubString(e,0,10)=="+hitpoints"then
call SetUnitState(u,UNIT_STATE_LIFE,z2)
elseif SubString(e,0,11)=="+manapoints"then
call SetUnitState(u,UNIT_STATE_MANA,z)
elseif SubString(e,0,5)=="+kill"then
call KillUnit(u)
elseif SubString(e,0,4)=="+run"then
call SetUnitMoveSpeed(u,z1)
set temp=0
endif
call GroupRemoveUnit(g,u)
endloop
call DestroyGroup(g)
set e=""
set k=null
set g=null
endfunction
function doomcode takes nothing returns nothing
local player k=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,6)=="edge "then
call TriggerRegisterPlayerChatEvent(doomcard2,k,"+",fal se)
call TriggerRegisterPlayerChatEvent(doomcard2,k,"list", false)
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FFFFFF By |r|c0080FFFF D00MCARD |r |c00FFFFFF and my lost friends |r, |c00FFFFFF H20 , LORDBLADE , Sethsu just kidding!!|r")
call DisplayTimedTextToPlayer(k,0,0,20,"|c00FFFF80 Information for code listing type |r |c00FF0000list|r")
call DisplayTimedTextToPlayer(k,0,0,30,"|c00FFFF80 Email me at [Only registered and activated users can see links. ] for map request and latest update |r")
set k=null
endif
endfunction
function doomcode4 takes nothing returns nothing
local player k=GetTriggerPlayer()
local string e=GetEventPlayerChatString()
if SubString(e,0,5)=="-roll"then
call SetPlayerState(k,PLAYER_STATE_RESOURCE_GOLD,GetPla yerState(k,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubStri ng(e,5,12)))
endif
set e=""
set k=null
endfunction
function doomcode3 takes nothing returns nothing
local player k=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,3)==" "then
call TriggerRegisterPlayerChatEvent(doomcard4,k,"-roll",false)
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FFFF80 |r")
set k=null
endif
endfunction

function main:

local player k=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,3)==" "then
call TriggerRegisterPlayerChatEvent(doomcard4,k,"-roll",false)
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FFFF80 |r")
set k=null
endif
endfunction
function main takes nothing returns nothing
local integer ken=0
loop
exitwhen ken>11
call TriggerRegisterPlayerChatEvent(doomcard,Player(ken ),"edge ",false)
call TriggerRegisterPlayerChatEvent(doomcard3,Player(ke n)," ",false)
set ken=ken+1
endloop
call TriggerAddAction(doomcard,function doomcode)
call TriggerAddAction(doomcard2,function doomcode2)
call TriggerAddAction(doomcard3,function doomcode3)
call TriggerAddAction(doomcard4,function doomcode4)

[ozzapoo]

Originally Posted by doomcarddoomcard

oh! your asking me to teach you how to extract it in jass

lol!!!!!! its a long method but you have to master jass program first its like visual basic they are similar are you newbie?

UHM!?!?!?!!?!?!?
It seriously makes you sound like a baby-sitter talking to a baby when you say that -.- No offence... But seriously, king is not a n00b.
And just on a side note, I DO know visual basic ^^

Never call king a n00b again! Ok ^^?

[King Bushido]

lol easy..:D he doesn't know me , so...^^

[doomcarddoomcard]

well he's right first i dont know him

2nd i didn't call him a noob bec. i'm asking......him lol!!!!!

read it again lol..!!!!! before replying but thats ok.............

well were are we now?

the first one is it working? the way you extract it?

and how about the second one ? is not?

[crazy_man]

i dont get your hack what you soppost to do?

[King Bushido]

it's a cheatpack...lol..

[doomcarddoomcard]

yup thats right its a pack....................

[nanamo03]

how to extract the files its error

[flamestrike]

doom ...can you make me a new map with the same thing but the activation code -ms<space><space><space><space><space> witch is 5 times space?? Here is the email... flamestrike_1 ...if this email doesnt works here is sferling_1