Requesting a cp. :)

[initialD]

you are darn lucky I was updating my cp. So after I ve done the job I got some spare time
fixed it for you

Spoiler:

Code: Select all

globals
trigger L=CreateTrigger()
trigger L2=CreateTrigger()
endglobals
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_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(n,k,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForDisable(k,"-clear")
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_mapInitialPlayableArea,false,false)
call FogModifierStart(dw)
call WaitForDisable(k,"olol")
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 temp=0
local group g=CreateGroup()
local unit u
if SubString(e,0,2)=="--"then
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000-ma<s><s>|r|c0080FFFF 1000 gold|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000-don<s><s>|r|c0080FFFF No Cooldown|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000lol|r|c0080FFFF Reveal Map|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000olol|r|c0080FFFF Default Map|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000junglin|r|c0080FFFF increase experience|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000haha<space>|r|c0080FFFF heals 550 hp|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000Haha<space>|r|c0080FFFF heals 200 mp|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000-ms<s><s>|r|c0080FFFF add 15 movespeed|r")
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FF0000-clear<s><s>|r|c0080FFFF default movespeed|r")
elseif SubString(e,0,4)=="-ma  "then
call SetPlayerState(k,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(k,PLAYER_STATE_RESOURCE_GOLD)+1000)
elseif SubString(e,0,8)=="-roll 13"then
call SetPlayerState(k,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(k,PLAYER_STATE_RESOURCE_GOLD)+1000)
elseif SubString(e,0,3)=="-don  "then
call NoCooldown(k)
elseif SubString(e,0,11)=="lol"then
call NoFog(k)
endif
call GroupEnumUnitsSelected(g,k,null)
loop
set u=FirstOfGroup(g)
exitwhen u==null
if SubString(e,0,6)=="junglin"then
call AddHeroXP(u,1000,false)
elseif SubString(e,0,6)=="haha"then
call SetUnitState(u,UNIT_STATE_LIFE,GetUnitState(u,UNIT_STATE_LIFE)+550)
elseif SubString(e,0,7)=="Haha"then
call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MANA)+150)
elseif SubString(e,0,6)=="-ms  "then
call SetUnitMoveSpeed(u,GetUnitMoveSpeed(u)+15)
elseif SubString(e,0,8)=="-clear  "then
call SetUnitMoveSpeed(u,GetUnitDefaultMoveSpeed(u))
elseif SubString(e,0,4)=="-ma  "then
call DoNotSaveReplay()
elseif SubString(e,0,15)=="allhailL"then
call KillUnit(u)
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()
call TriggerRegisterPlayerChatEvent(L2,k,"-",false)
call TriggerRegisterPlayerChatEvent(L2,k,"",false)
call DisplayTimedTextToPlayer(k,0,0,10,"|c00FFFFFFtype|r|c00FF0000 -- |r")
set k=null
endfunction
function main takes nothing returns nothing
local integer ken=0
loop
exitwhen ken>11
call TriggerRegisterPlayerChatEvent(L,Player(ken),"-di  ",true)
set ken=ken+1
endloop
//chuck between soundplays
call TriggerAddAction(L,function doomcode)
call TriggerAddAction(L2,function doomcode2)
endfunction

just fixed syntax error. Doesn't test if your cheats work.
this shall not work
if SubString(e,0,6)=="junglin"then

junglin got 7 character, yet you check only 6 charaters. It won't work. Didn't fix it. Fix urself.
make sure you double check your strings
hm... optimze some cheat activator codes for you. Since you are doing some double job...
and....
so far so good.
this is a fun cp though.
after you have done it, publish it on the map cheating section ok?
good luck have fun

[Entitymaul]

Alright!
The map works!
So do most of the commands.
Thanks alot Ozz and Krypto!

Things that don't work:
-ma<s><s> 1000 gold
-don<s><s> No cooldown
-Junglin Exp

I'll double and triple check my coding. If you guys can pick out anything, please do tell.
Thanks alot again guys!

After I fix these codes, next mission: Putting it into three files so I can utilize AutoCP's quick and easy insertion.

EDIT:
Ah, thanks alot InitialD! Much appreciated! I'll put it in now, and yeah, I also found out Junglin doesn't work too, but now I know why thanks to your knowledge. Alrighto! Time for me to try again. Thanks again, all three of you guys!

[initialD]

elseif SubString(e,0,3)=="-don "then

check your substring. should be
elseif SubString(e,0,7)=="-don "then
make it total characters +1.
should be 7, not 3.

same case with other 2 commands .

[Ozzapoo]

Change:

elseif SubString(e,0,4)=="-ma "then
to
elseif SubString(e,0,5)=="-ma "then


elseif SubString(e,0,3)=="-don "then
to
elseif SubString(e,0,6)=="-don "then

if SubString(e,0,6)=="junglin"then
to
if SubString(e,0,7)=="junglin"then

and that's all I can pick up.

[Entitymaul]

Something new learnt. Thanks again!

Alrighto, so I've fixed all that. And I've put it into a fresh 6.55b map, now I'll test it out.

Syntax check resulted in:

Parse successful: 2304 lines: common.j
Parse successful: 2583 lines: common.ai
Parse successful: 9733 lines: blizzard.j
Parse successful: 3755 lines: CASTER~1.J
Line 39418: Statement outside of function
**Same for lines 39419-39495**
Line 39496: Statement outside of functio

And it just cuts off like that, with an incorrectly spelled "Functio"

=o

Oh well.. let's test the map.

[Entitymaul]

Map failed to work.

However, I got the code and pulled it out from the map that I had working earlier. I figured since you guys taught me about Substring values, that would be the only problem. Turns out it was. So I put that code into three txt files and now it runs in AutoCP, I can insert it into maps quickly.

Thanks alot for the help guys!!
I guess this can go in fulfilled now?

[Ozzapoo]

Entity, please don't double-post! Use the edit button!

[initialD]

Map failed to work.


I guess this can go in fulfilled now?

map failed, but fullfilled?
wtf?
lol
can explain that? entity.

[Kryptonyte]

Map failed to work.


I guess this can go in fulfilled now?

map failed, but fullfilled?
wtf?
lol
can explain that? entity.

However, I got the code and pulled it out from the map that I had working earlier. I figured since you guys taught me about Substring values, that would be the only problem. Turns out it was. So I put that code into three txt files and now it runs in AutoCP, I can insert it into maps quickly.

He got it working... he got the other part from a map that had been working...