loreal

vlw isso mesmo ou também achei uma solução de colocar
<?xml version="1.0" encoding="ISO-8859-1"?> antes do script  deu certo com migo vlw

tenta assim amigo.
ocal config = {playerCount = 2001, -- Global storage for counting the players left/entered in the event zombieCount = 2002, -- Global storage for counting the zombies in the event teleportActionId = 2000, -- Action id of the teleport needed for the movement script teleportPosition = {x = 32364, y = 32232, z = 7, stackpos = 1}, -- Where the teleport will be created teleportToPosition = {x = 32324, y = 31941, z = 7}, -- Where the teleport will take you teleportId = 1387, -- Id of the teleport timeToStartEvent = 5, -- Minutes, after these minutes the teleport will be removed and the event will be declared started timeBetweenSpawns = 20, -- Seconds between each spawn of zombie zombieName = "event zombie", -- Name of the zombie that should be summoned playersNeededToStartEvent = 5, -- Players needed before the zombies can spawn. -- Should be the same as in the creaturescript! -- The zombies will spawn randomly inside this area fromPosition = {x = 32298, y = 31915, z = 7}, -- top left cornor of the playground toPosition = {x = 32357, y = 31970, z = 7}, -- bottom right cornor of the playground } function onTime() local tp = doCreateTeleport(config.teleportId, config.teleportToPosition, config.teleportPosition) doItemSetAttribute(tp, "aid", config.teleportActionId) doBroadcastMessage("Zombie Event iniciara em " .. config.timeToStartEvent .. " Minutos! O Teleporte sera fechado quando der inicio ao Evento!", MESSAGE_STATUS_WARNING) setGlobalStorageValue(config.playerCount, 0) setGlobalStorageValue(config.zombieCount, 0) addEvent(startEvent, config.timeToStartEvent * 1000 * 60) print(getGlobalStorageValue(2001)) end function startEvent() local get = getThingfromPos(config.teleportPosition) if get.itemid == config.teleportId then doRemoveItem(get.uid, 1) end local fromp, top = config.fromPosition, config.toPosition if getGlobalStorageValue(config.playerCount) >= config.playersNeededToStartEvent then addEvent(spawnZombie, config.timeBetweenSpawns * 1000) doBroadcastMessage("Boa Sorte Participantes! O Teleporte Foi Fechado", MESSAGE_STATUS_WARNING) for x = fromp.x, top.x do for y = fromp.y, top.y do for z = fromp.z, top.z do areapos = {x = x, y = y, z = z, stackpos = 253} getPlayers = getThingfromPos(areapos) if isPlayer(getPlayers.uid) then doPlayerSendTextMessage(getPlayers.uid, MESSAGE_EVENT_ADVANCE, "Os Primeiros Zombie Vao aparecer em " .. config.timeBetweenSpawns .. " Segundos! Boa Sorte!") end end end end else doBroadcastMessage("O Evento Zombie nao pode iniciar devido a alguns Participantes.\n Pelo Menos " .. config.playersNeededToStartEvent .. " Participantes Necessarios!", MESSAGE_STATUS_WARNING) for x = fromp.x, top.x do for y = fromp.y, top.y do for z = fromp.z, top.z do areapos = {x = x, y = y, z = z, stackpos = 253} getPlayers = getThingfromPos(areapos) if isPlayer(getPlayers.uid) then doTeleportThing(getPlayers.uid, getTownTemplePosition(getPlayerTown(getPlayers.uid)), false) doSendMagicEffect(getPlayerPosition(getPlayers.uid), CONST_ME_TELEPORT) end end end end end end function spawnZombie() if getGlobalStorageValue(config.playerCount) >= 2 then pos = {x = math.random(config.fromPosition.x, config.toPosition.x), y = math.random(config.fromPosition.y, config.toPosition.y), z = math.random(config.fromPosition.z, config.toPosition.z)} doSummonCreature(config.zombieName, pos) doSendMagicEffect(pos, CONST_ME_MORTAREA) setGlobalStorageValue(config.zombieCount, getGlobalStorageValue(config.zombieCount)+1) doBroadcastMessage("Um Zombie Tem Gerado! Nao Existe Atualmente " .. getGlobalStorageValue(config.zombieCount) .. " Zombie em Caso Zombies!", MESSAGE_STATUS_CONSOLE_RED) addEvent(spawnZombie, config.timeBetweenSpawns * 1000) end end

amigo primeiro quer despenho então não utilize vps e sim um dedicado ou um cloud... provavelmente o grande processamento da cpu pode ser algum conflito na sua source ou algum script que pode ta causando elevado porcentagem de processamento. recomendo da uma analisada em todos scripts e e sua source abraço! 

tenta assim

vai no seu config.lua 
 
procure por 
showManaChange mude para 
showManaChange = true

vlw isso mesmo rep+

vlw era isso memso

em player.cpp procure por 
if(!Position::areInRange<1,1,0>(it->second->getPosition(), getPosition())) containers.push_back(it->second); } mude para
if(!Position::areInRange<3,3,0>(it->second->getPosition(), getPosition())) containers.push_back(it->second); }

em player.cpp   procure por void Player::setChaseMode(chaseMode_t mode) { chaseMode_t prevChaseMode = chaseMode; chaseMode = mode; if(prevChaseMode == chaseMode) return; if(chaseMode == CHASEMODE_FOLLOW) { if(!followCreature && attackedCreature) //chase opponent setFollowCreature(attackedCreature); } else if(attackedCreature) { setFollowCreature(NULL); cancelNextWalk = true; } } mude para
void Player::setChaseMode(chaseMode_t mode) { chaseMode_t prevChaseMode = chaseMode; chaseMode = mode; if(prevChaseMode == chaseMode) return; if(chaseMode == CHASEMODE_FOLLOW) { if(!followCreature && attackedCreature) //chase opponent setFollowCreature(attackedCreature); } else if(attackedCreature) { setFollowCreature(NULL); cancelNextWalk = false; } }

vai em actions, crie um arquivo addons.lua
-- by loreal function onUse (cid, item, itemEx, toPosition, fromPosition)-- by loreal if doPlayerRemoveItem(cid, ID DO SEU ITEM AQUI PARA SER REMOVIDO DO PLAYER, 1) then doPlayerSendTextMessage(cid,22,"agora vc tem todas asddons!") -- addon 1 doPlayerAddOutfit(cid,335,1) doPlayerAddOutfit(cid,335,1) doPlayerAddOutfit(cid,136,1) doPlayerAddOutfit(cid,128,1) doPlayerAddOutfit(cid,128,1) doPlayerAddOutfit(cid,137,1) doPlayerAddOutfit(cid,129,1) doPlayerAddOutfit(cid,138,1) doPlayerAddOutfit(cid,130,1) doPlayerAddOutfit(cid,139,1) doPlayerAddOutfit(cid,131,1) doPlayerAddOutfit(cid,140,1) doPlayerAddOutfit(cid,141,1) doPlayerAddOutfit(cid,133,1) doPlayerAddOutfit(cid,142,1) doPlayerAddOutfit(cid,147,1) doPlayerAddOutfit(cid,146,1) doPlayerAddOutfit(cid,143,1) doPlayerAddOutfit(cid,148,1) doPlayerAddOutfit(cid,144,1) doPlayerAddOutfit(cid,149,1) doPlayerAddOutfit(cid,150,1) doPlayerAddOutfit(cid,145,1) doPlayerAddOutfit(cid,157,1) doPlayerAddOutfit(cid,153,1) doPlayerAddOutfit(cid,158,1) doPlayerAddOutfit(cid,154,1) doPlayerAddOutfit(cid,152,1) doPlayerAddOutfit(cid,156,1) doPlayerAddOutfit(cid,155,1) doPlayerAddOutfit(cid,251,1) doPlayerAddOutfit(cid,252,1) doPlayerAddOutfit(cid,268,1) doPlayerAddOutfit(cid,269,1) doPlayerAddOutfit(cid,270,1) doPlayerAddOutfit(cid,273,1) doPlayerAddOutfit(cid,279,1) doPlayerAddOutfit(cid,278,1) doPlayerAddOutfit(cid,288,1) doPlayerAddOutfit(cid,289,1) doPlayerAddOutfit(cid,324,1) doPlayerAddOutfit(cid,325,1) doPlayerAddOutfit(cid,329,1) doPlayerAddOutfit(cid,366,1) doPlayerAddOutfit(cid,367,1) -- addon 2 doPlayerAddOutfit(cid,335,2) doPlayerAddOutfit(cid,335,2) doPlayerAddOutfit(cid,136,2) doPlayerAddOutfit(cid,128,2) doPlayerAddOutfit(cid,128,2) doPlayerAddOutfit(cid,137,2) doPlayerAddOutfit(cid,129,2) doPlayerAddOutfit(cid,138,2) doPlayerAddOutfit(cid,130,2) doPlayerAddOutfit(cid,139,2) doPlayerAddOutfit(cid,131,2) doPlayerAddOutfit(cid,140,2) doPlayerAddOutfit(cid,141,2) doPlayerAddOutfit(cid,133,2) doPlayerAddOutfit(cid,142,2) doPlayerAddOutfit(cid,147,2) doPlayerAddOutfit(cid,146,2) doPlayerAddOutfit(cid,143,2) doPlayerAddOutfit(cid,148,2) doPlayerAddOutfit(cid,144,2) doPlayerAddOutfit(cid,149,2) doPlayerAddOutfit(cid,150,2) doPlayerAddOutfit(cid,145,2) doPlayerAddOutfit(cid,157,2) doPlayerAddOutfit(cid,153,2) doPlayerAddOutfit(cid,158,2) doPlayerAddOutfit(cid,154,2) doPlayerAddOutfit(cid,152,2) doPlayerAddOutfit(cid,156,2) doPlayerAddOutfit(cid,155,2) doPlayerAddOutfit(cid,251,2) doPlayerAddOutfit(cid,252,2) doPlayerAddOutfit(cid,268,2) doPlayerAddOutfit(cid,269,2) doPlayerAddOutfit(cid,270,2) doPlayerAddOutfit(cid,273,2) doPlayerAddOutfit(cid,279,2) doPlayerAddOutfit(cid,278,2) doPlayerAddOutfit(cid,288,2) doPlayerAddOutfit(cid,289,2) doPlayerAddOutfit(cid,324,2) doPlayerAddOutfit(cid,325,2) doPlayerAddOutfit(cid,329,2) doPlayerAddOutfit(cid,366,2) doPlayerAddOutfit(cid,367,2) setPlayerStorageValue(cid,3000,1) return true end end em actions xml  
<action uniqueid="ID DO SEU ITEN AQUI" event="script" value="quests/suprem vocations.lua"/>

pode fechar  eu mesmo fiz ...