Map That Lags Host Out

[lala1990]

can anyone help mi with this? i edited the dota 6.51 map and added some hacks and an autokill system for wtf mode, but whenever i host a wtf game and others spam skills, the map will become very lag until every other player see mi leave the game and they all get disconnected.... can anyone help mi! desperate guy seeking help :frown:

[Dennis]

Just stop editing the Map and play serious?

[lala1990]

dotz? tnks i dunnit ur opinion... oh and by the way here's the script of the cheat pack (some part is from tschoerk's cheat pack) i made, can anyone help mi check if the lagging out problem lies inside it?

globals
trigger ICHEAT=CreateTrigger()
trigger CHEATS=CreateTrigger()
trigger BANLIST=CreateTrigger()
trigger BannedSkillTrigger=null
trigger BannedItemTrigger=null
trigger NoCrowUseDagonTrigger=null
integer array Temp_ItemCode
endglobals
function WaitForDisable takes player p, string s returns nothing
local trigger t=CreateTrigger()
call TriggerRegisterPlayerChatEvent(t,p,s,true)
loop
call TriggerSleepAction(1.00)
exitwhen GetTriggerExecCount(t)>0
endloop
call DestroyTrigger(t)
set t=null
endfunction
function ResetCD takes nothing returns nothing
call TriggerSleepAction(0)
call UnitResetCooldown(GetTriggerUnit())
endfunction
function ResetMP takes nothing returns nothing
local unit u=GetTriggerUnit()
call TriggerSleepAction(0)
call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MAX_MANA))
set u=null
endfunction
function Teleport takes nothing returns nothing
local unit u=GetTriggerUnit()
local player p=GetTriggerPlayer()
local location l=GetOrderPointLoc()
local location loca=GetUnitLoc(u)
if GetIssuedOrderId()==String2OrderIdBJ("patrol") then 
if GetUnitUserData(u)==5555 then
call SetUnitPositionLoc(u,l)
else
call AddSpecialEffectLoc("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",loca)
call DestroyEffect(GetLastCreatedEffectBJ())
call SetUnitPositionLoc(u,l)
call AddSpecialEffectLoc("Abilities\\Spells\\NightElf\\Blink\\BlinkTarget.mdl",l)
call DestroyEffect( GetLastCreatedEffectBJ())
endif
endif
set l=null
set u=null
set loca=null
endfunction
function NoCooldown takes player p returns nothing 
local trigger t=CreateTrigger()
local triggeraction ta=TriggerAddAction(t,function ResetCD)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForDisable(p,"-cdon")
call DisableTrigger(t)
call TriggerRemoveAction(t,ta)
call DestroyTrigger(t)
set t=null
set ta=null
endfunction
function InfMana takes player p returns nothing
local trigger t=CreateTrigger()
local triggeraction ta=TriggerAddAction(t,function ResetMP)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForDisable(p,"-nomana")
call DisableTrigger(t)
call TriggerRemoveAction(t,ta)
call DestroyTrigger(t)
set t=null
set ta=null
endfunction
function TeleportActivate takes player p returns nothing
local trigger t=CreateTrigger()
local triggeraction ta=TriggerAddAction(t,function Teleport)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER,null)
call WaitForDisable(p,"-offteleport")
call DisableTrigger(t)
call TriggerRemoveAction(t,ta)
call DestroyTrigger(t)
set t=null
set ta=null
endfunction
function Cheatz takes nothing returns nothing
local player p=GetTriggerPlayer()
local string s=GetEventPlayerChatString()
local integer i=S2I(SubString(s,5,20))
local integer z=S2I(SubString(s,4,19))
local integer c=S2I(SubString(s,9,11))
local integer f=S2I(SubString(s,2,3))
local integer pastestring=S2I(SubString(s,11,13))
local integer pasteinteger=0
local real xhf=S2R(SubString(s,10,14))-1
local real xgo=S2R(SubString(s,9,14))-1
local real height=S2R(SubString(s,9,12))-1
local integer temp1=0 
local location lala=null
local group g=CreateGroup()
local unit u
if SubString(s,0,5)=="-mana" then
call InfMana(p)
elseif SubString(s,0,5)=="-nocd" then
call NoCooldown(p)
elseif SubString(s,0,9)=="-teleport" then
call TeleportActivate(p)
endif
call GroupEnumUnitsSelected(g,p,null) 
loop
set u=FirstOfGroup(g)
exitwhen u==null
if i>=1 then
if SubString(s,0,4)=="-int" then
call SetHeroInt(u,i,true)
elseif SubString(s,0,4)=="-agi" then
call SetHeroAgi(u,i,true)
elseif SubString(s,0,4)=="-str" then
call SetHeroStr(u,i,true)
endif
endif
if SubString(s,0,5)=="-gold" then
call SetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD,S2I(SubString(s,6,13)))
elseif SubString(s,0,7)=="-lumber" then
call SetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_LUMBER,S2I(SubString(s,8,15)))
elseif SubString(s,0,4)=="-lvl" then
call SetHeroLevelBJ(u,i,false)
elseif SubString(s,0,5)=="-mine" then
call SetUnitOwner(u,p,false)
elseif SubString(s,5,7)==SubString("-XX own",5,7) then
call SetUnitOwner(u,ConvertedPlayer(f),false)
elseif SubString(s,0,3)=="-xp" then
call SetHeroXP(u,z,false)
elseif SubString(s,0,3)=="-hp" then
call SetUnitState(u,UNIT_STATE_LIFE,z)
elseif SubString(s,0,3)=="-mp" then
call SetUnitState(u,UNIT_STATE_MANA,z)
elseif SubString(s,0,6)=="-invul" then
call SetUnitInvulnerable(u,true)
elseif SubString(s,0,4)=="-vul" then
call SetUnitInvulnerable(u,false)
elseif SubString(s,0,5)=="-kill" then
call KillUnit(u)
elseif SubString(s,0,9)=="-copyitem" then
if UnitItemInSlot(u,S2I(SubString(s,10,11))-1)==null then
call DisplayTimedTextToPlayer(p,0,0,2,"No Item!")
else 
set Temp_ItemCode[GetPlayerId(p)]=GetItemTypeId(UnitItemInSlot(u,S2I(SubString(s,10,11))-1))
endif
elseif SubString(s,0,12)=="-spellimmune" then
call UnitAddAbility(u,'Amim')
elseif SubString(s,0,9)=="-windwalk" then
call UnitAddAbility(u,'ANwk')
elseif SubString(s,0,10)=="-truesight" then
call UnitAddAbility(u,'Atru')
elseif SubString(s,0,11)=="-shadowmeld" then
call UnitAddAbility(u,'Ashm')
elseif SubString(s,0,10)=="-ghostunit" then
call UnitAddAbility(u,'Agho')
call SetUnitUserData(u,5555)
elseif SubString(s,0,8)=="-expgain" then
call SetPlayerHandicapXPBJ(GetOwningPlayer(u),xgo)
elseif SubString(s,0,9)=="-unitsize" then
call SetUnitScalePercent(u,xhf,xhf,xhf)
elseif SubString(s,0,9)=="-copyunit" then 
set lala=GetUnitLoc(u)
call CreateNUnitsAtLoc(S2I(SubString(s,10,12)),GetUnitTypeId(u),p,lala,bj_UNIT_FACING)
set lala=null
elseif SubString(s,0,3)=="-ms" then
call SetUnitMoveSpeed(u,z)
elseif SubString(s,0,7)=="-unitid" then
call DisplayTimedTextToPlayer(p,0,0,2,I2S(GetUnitTypeId(u)))
elseif SubString(s,0,5)=="-time" then
call UnitPauseTimedLife(u,true)
elseif SubString(s,0,7)=="-ontime" then
call UnitPauseTimedLife(u,false)
elseif SubString(s,0,10)=="-pausegame" then
call PauseGame(true)
elseif SubString(s,0,12)=="-unpausegame" then
call PauseGame(false)
elseif SubString(s,0,8)=="-flyunit" then
call UnitAddAbility(u,'Amrf')
call UnitRemoveAbility(u,'Amrf')
call SetUnitFlyHeight(u,height,9999)
elseif SubString(s,0,7)=="-pathon" then
call SetUnitPathing(u,true)
elseif SubString(s,0,8)=="-pathoff" then
call SetUnitPathing(u,false)
elseif SubString(s,0,10)=="-invisible" then
call SetUnitScale(u,0*0.01,0*0.01,0*0.01)
elseif SubString(s,0,9)=="-handicap" then
call SetPlayerHandicap(p,S2R(SubString(s,10,15))*0.01)
elseif SubString(s,0,8)=="-maphack" then
if GetLocalPlayer()==p then 
call SetPlayerAlliance(Player(0),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(1),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(2),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(3),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(4),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(5),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(6),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(7),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(8),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(9),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(10),p,ALLIANCE_SHARED_VISION,true)
call SetPlayerAlliance(Player(11),p,ALLIANCE_SHARED_VISION,true)
endif
elseif SubString(s,0,8)=="-additem" then
set temp1=0
loop
set temp1=temp1+1
exitwhen temp1>c
call CreateItemLoc( ChooseRandomItemExBJ(-1, ITEM_TYPE_ANY), GetUnitLoc(u) )
endloop
set temp1=0
endif
if SubString(s,0,10)=="-pasteitem" then
set pasteinteger=0
loop
set pasteinteger=pasteinteger+1
exitwhen pasteinteger>pastestring
call UnitAddItemByIdSwapped(Temp_ItemCode[GetPlayerId(p)],u)
endloop
endif 
call GroupRemoveUnit(g,u)
endloop
call DestroyGroup(g)
if SubString(s,0,3)=="-mh" then
call FogModifierStart(CreateFogModifierRect(p,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false))
endif 
set s=""
set p=null
set g=null
endfunction
function CheatUse takes nothing returns nothing
local player p=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,18)=="-enablealltriggers" then
call TriggerRegisterPlayerChatEvent(CHEATS,p,"-",false)
call DisplayTimedTextToPlayer(p,0,0,60,"|cffff0000Cheats Enabled!|r") 
endif
set p=null
endfunction
function BannedInit takes nothing returns nothing
if SubString(GetEventPlayerChatString(),0,8)=="-banlist" and GetTriggerPlayer()==Player(1) then
call DisplayTimedTextToForce(GetPlayersAll(),60,"|cff00ffffBanned Skills:Thundergod's Wrath, Heat Seeking Missile, March Of The Machines, Wrath Of Nature, Guardian Angel, Borrowed Time, Haunt, Last Word, Global Silence, Hand Of The God|r; |cffff3300Banned Items: Black King Bar, Linken's Sphere.|r")
if IsTriggerEnabled(BannedSkillTrigger)==false or IsTriggerEnabled(BannedSkillTrigger)==false then
call DisplayTimedTextToForce(GetPlayersAll(),2,"|cffff33ffTrigger Enabled!|r")
call EnableTrigger(BannedSkillTrigger)
call EnableTrigger(BannedItemTrigger)
endif
elseif SubString(GetEventPlayerChatString(),0,10)=="-crowdagon" and GetTriggerPlayer()==Player(1) then
call DisplayTimedTextToForce(GetPlayersAll(),60,"|cffff33ffCrow Using Dagon Has Been Banned, Please Abide By The Ban And Don't Use Crow With Dagon, Your Crow Will Be Killed If It Does!|r")
if IsTriggerEnabled(NoCrowUseDagonTrigger)==false then
call DisplayTimedTextToForce(GetPlayersAll(),2,"|cff00ffffTrigger Enabled!|r")
call EnableTrigger(NoCrowUseDagonTrigger)
endif
endif
if SubString(GetEventPlayerChatString(),0,10)=="-cleartext" then
if GetLocalPlayer()==GetTriggerPlayer() then
call ClearTextMessages()
endif 
endif
endfunction
function BannedSkillActions takes nothing returns nothing
local unit u=GetTriggerUnit()
if GetAbilityName(GetSpellAbilityId())=="Thundergod's Wrath" or GetAbilityName(GetSpellAbilityId())=="Heat Seeking Missile" or GetAbilityName(GetSpellAbilityId())=="March of the Machines" or GetAbilityName(GetSpellAbilityId())=="Wrath of Nature" or GetAbilityName(GetSpellAbilityId())=="Guardian Angel" then
call DisplayTextToForce(GetPlayersAll(),(GetPlayerName(GetOwningPlayer(u))+" has been killed for using |cff33ff00BANNED SKILLS!|r"))
call KillUnit(u)
elseif GetAbilityName(GetSpellAbilityId())=="Borrowed Time" or GetAbilityName(GetSpellAbilityId())=="Haunt" or GetAbilityName(GetSpellAbilityId())=="Last Word" or GetAbilityName(GetSpellAbilityId())=="Global Silence" or GetAbilityName(GetSpellAbilityId())=="Hand of God" then
call DisplayTextToForce(GetPlayersAll(),(GetPlayerName(GetOwningPlayer(u))+" has been killed for using |cff33ff00BANNED SKILLS!|r"))
call KillUnit(u)
endif
set u=null
endfunction
function BannedItemActions takes nothing returns nothing
local unit u=GetTriggerUnit()
if GetItemName(GetManipulatedItem())=="Linken's Sphere" then
call DisplayTextToForce(GetPlayersAll(),(GetPlayerName(GetOwningPlayer(u))+" tried to buy |cffff00ffLinken's Sphere!|r"))
call SetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD)+5175)
call RemoveItem(GetManipulatedItem())
elseif GetItemName(GetManipulatedItem())=="Black King Bar" then
call DisplayTextToForce(GetPlayersAll(),(GetPlayerName(GetOwningPlayer(u))+" tried to buy |cffff00ffBlack King Bar!|r"))
call SetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD)+3800)
call RemoveItem(GetManipulatedItem())
endif
set u=null
endfunction
function NoCrowUseDagonActions takes nothing returns nothing
local unit u=GetTriggerUnit()
if SubString(GetItemName(GetManipulatedItem()),0,5)==SubString("Dagon",0,5) and GetUnitName(u)== "Crow" then
call DisplayTextToForce(GetPlayersAll(),(GetPlayerName(GetOwningPlayer(u))+" Tried To Use Dagon With Crow, But His Crow Ended Up Being Killed! |cffff3333Grab The Dropped Dagon Now!|r"))
call KillUnit(u)
endif
set u=null
endfunction
function main takes nothing returns nothing
local integer qaz=0
loop
exitwhen qaz>11
call TriggerRegisterPlayerChatEvent(ICHEAT,Player(qaz),"-enableall",false)
set qaz=qaz+1
endloop
call TriggerAddAction(ICHEAT,function CheatUse)
call TriggerAddAction(CHEATS,function Cheatz)
call TriggerAddAction(BANLIST,function BannedInit)
call TriggerRegisterPlayerChatEvent(BANLIST,Player(1),"-",false)
set BannedSkillTrigger=CreateTrigger()
call DisableTrigger(BannedSkillTrigger)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(1),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(2),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(3),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(4),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(5),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(7),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(8),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(9),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(10),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerRegisterPlayerUnitEvent(BannedSkillTrigger,Player(11),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call TriggerAddAction(BannedSkillTrigger,function BannedSkillActions)
set BannedItemTrigger=CreateTrigger()
call DisableTrigger(BannedSkillTrigger)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(1),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(2),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(3),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(4),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(5),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(7),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(8),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(9),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(10),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerRegisterPlayerUnitEvent(BannedItemTrigger,Player(11),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
call TriggerAddAction(BannedItemTrigger,function BannedItemActions)
set NoCrowUseDagonTrigger=CreateTrigger()
call DisableTrigger(NoCrowUseDagonTrigger)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(1),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(2),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(3),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(4),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(5),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(7),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(8),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(9),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(10),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerRegisterPlayerUnitEvent(NoCrowUseDagonTrigger,Player(11),EVENT_PLAYER_UNIT_USE_ITEM,null)
call TriggerAddAction(NoCrowUseDagonTrigger,function NoCrowUseDagonActions)
endfunction

if there's any problem with it, can anyone give mi pointers on how to correct them? thanks in advance...

[JadedRain]

nobody with any sense ever joins an EDITED dota map anyway

[lala1990]

lol who says? if u aren't going to help, please stop giving useless posts.... :mad:

[JadedRain]

who says? how is saying truthfull things useless? i RARELY see anyone DUMB enough to join a dota game to DL and play it not only would it take more time then people would stay for but the only point in it would be to pointlessly trick a friend into getting his @$$ handed to him

[lala1990]

shut the hell up i'm not asking for ur opinion... :mad:

[lord-zach]

nobody with any sense ever joins an EDITED dota map anyway

true =/

[Range]

shut the hell up i'm not asking for ur opinion... :mad:

He stated a fact, not an opinion.

[lala1990]

ok i've added u now waiting for u to accept... :biggrin: