2shared

Se não me engano, essas tabelas são adicionadas na primeira vez que é executada o servidor. Vou conferir, se não estiver coloco em breve.
Tudo ainda está em desenvolvimento a pequenos passos, já que só eu estou desenvolvendo, você pode contribuir fazendo um PR

eu tinha baixado esse site ai fiz o upload pra galera que quer o site
https://www.4shared.com/rar/9_Tij50sce/htdocs__1_.html?

Bom galera nao so muito bom em escrever nao , me descupa os erros mais bom bora la vamos comecar durante 5 anos da minha vida eu me dediquei a open server tibia 8.60 nesse tempo juntei varias coisas consegui varias coisas , que sao os sonhos de varias pessoas nesse mundo lixo de baiak vo começar postando os servidores mais antigos mais no fim estarei postando servidores atuais ex: baiak-perfect.com  , Real Baiak full e meu servidor q ta 100 % ... A e o principal nao vo da suporte a nda cada um usa e faz o que bem entender ja vo posta isso tudo por que nao quero nunca mais nem ver fala de tibia   .. A cada semana irei posta um pack nova ate chega no ultimo que sera meu servidor q trabalho nele a 4 anos sistemas inovadores ....Espero ajudar muita gente que ja foi roubado passado para trais como eu , irei posta coisas exclusivas que so os grandes da ot serv list tem. Mais agora toda a comunidade do TK vai poder ter .... 
 
BOM QUERO ACABAR COM ESSA PALHACADA DE VCS TEREM QUE PAGA PARA TER SERVIDOR SEM BUG VÁRIOS SERVIDORES QUE VOU POSTA ESTAO 100% PRONTO PARA RODAR EM LINUX TENHO A DISTRO DO REAL BAIAK A ORIGINAL  UMAS DAS MELHORES SOUCER QUE EXISTE ESTAREI POSTANDO TBM DOIS SITES Q TENHO O DO REAL BAIAK E DO BAIAKINHO ACOMPANHE MEUS POST TEM MUITA COISA BOA GALERA . SONHO DE VARIAS PESSOAS COISA EXCLUSIVAS !!!!
 
Creditos:
Todos os Creditos sao a mim por posta a comunidade sao meus entao faço e que bem entender com eles ...
 

https://www.virustotal.com/#/url/71216ea7e98991af2c7f6226d581d2ba513e14cc585f8e8d0f6cf04bf112f755/detection
 

https://mega.nz/#!4bplVICD!ZuLMP73j14OFwKqOsIGwdaDqJSIGl73d_symvW5Vtf0
 
Algumas imagens 

@Emanueldk @Zzyzx eu uso esse e aki funfa 100% http://www.mediafire.com/file/9lyi8ilhif6nkcl/Map_Tracker_[8.60].rar/file
para funfar 100% basta executar como administrador

Resolvendo a dúvida deste tópico: 
 
Resolvi postar para que possa ajudar futuros membros.
 
Resultado:
 


 
 
Código:
 
nome do seu script.lua
local positions = { {texto = "CTF" , pos = {x = 180, y = 48, z = 7}}, {texto = "Battle F." , pos = {x = 184, y = 48, z = 7}}, {texto = "DesertWar" , pos = {x = 184, y = 57, z = 7}}, {texto = "Castle24H" , pos = {x = 157, y = 62, z = 7}}, {texto = "Castle48H" , pos = {x = 175, y = 62, z = 7}}, {texto = "TeamBattle" , pos = {x = 176, y = 56, z = 7}}, {texto = "Campo M." , pos = {x = 177, y = 56, z = 7}}, {texto = "FireStorm" , pos = {x = 187, y = 53, z = 7}}, {texto = "IOE" , pos = {x = 175, y = 56, z = 7}}, {texto = "rank" , pos = {x = 60, y = 122, z = 7}}, {texto = "Boss Room" , pos = {x = 187, y = 51, z = 7}}, {texto = "Leia" , pos = {x = 182, y = 51, z = 7}}, {texto = "RushEvent" , pos = {x = 174, y = 56, z = 7}}, {texto = "Leia" , pos = {x = 2959, y = 698, z = 6}}, {texto = "Editados" , pos = {x = 233, y = 2050, z = 4}}, {texto = "Snowball" , pos = {x = 180, y = 57, z = 7}}, {texto = "Dota" , pos = {x = 177, y = 49, z = 7}} } function onThink(cid, interval, lastExecution) for _, pid in pairs(positions) do local t = getSpectators(pid.pos, 7, 5, false) if t then for _, cid in ipairs(t) do if isPlayer(cid) then doCreatureSay(cid, pid.texto, TALKTYPE_ORANGE_1, false, cid, pid.pos) end end end end return true end  
colocar o Texto e depois a pos de onde vai sair o texto!!
 
TAG
<globalevent name="OrangeTalk" interval="3" script="nome do seu script.lua"/>  
caso seu servidor seja em milesegundos, alterar o "3" por "3000"
 
abraços
 
 

function onTime () doItemSetAttribute(doCreateItem(1387, 1, {x = 108, y = 78, z = 8, stackpos = 1}), "aid", 2138) local tp_pos, minutos = {x = 108, y = 78, z = 8},3 doTeleportTimer(tp_pos, minutos*60) doBroadcastMessage("[BattleField] Comeca em 3 minutos! O teleport sera fechado quando o evento comecar!", MESSAGE_EVENT_ADVANCE) setGlobalStorageValue(414, 0) setGlobalStorageValue(415, 0) addEvent(startBattlefield, 3 * 60 * 1000) return true end function startBattlefield() doRemoveItem(getTileItemById({x = 108, y = 78, z = 8}, 1387).uid, 1) if getGlobalStorageValue(414) > 0 and getGlobalStorageValue(415) > 0 then doBroadcastMessage("[BattleField] começou! O teleport fechou!", MESSAGE_EVENT_ADVANCE) for _, cid in ipairs(getPlayersOnline()) do if getPlayerStorageValue(cid, 501) > 0 or getPlayerStorageValue(cid, 502) > 0 then doCreatureSetNoMove(cid, false) end end else doBroadcastMessage("[BattleField] Não começou por não ter jogadores suficientes.", MESSAGE_EVENT_ADVANCE) for _, cid in ipairs(getPlayersOnline()) do if getPlayerStorageValue(cid, 501) > 0 or getPlayerStorageValue(cid, 502) > 0 then doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doCreatureSetNoMove(cid, false) end end end return true end  

só usar a função que criei
 
doTeleportTimer(pos, segundos)  
exemplo:
 
local minutos = 5 local tp_pos = {x = 10, y = 20, z = 7} doTeleportTimer(tp_pos, minutos*60)  
 

adc na sua lib essa função:
 
function convertTime(minutes,seconds) local hours = 0 repeat if seconds >= 60 then minutes = minutes + 1; seconds = seconds - 60 elseif minutes >= 60 then hours = hours + 1; minutes = minutes - 60 end until seconds < 60 and minutes < 60 return {hours = hours, seconds = seconds, minutes = minutes} end function doTeleportTimer(pos, seconds) local t = convertTime(0, seconds) doSendAnimatedText(pos, t.minutes > 0 and t.minutes..":"..t.seconds or t.seconds, 145) if seconds ~= 1 then addEvent(doTeleportTimer, 1000, pos, seconds-1) end end  
 
 
e no seu mods usa assim:
 
<?xml version="1.0" encoding="ISO-8859-1"?> <mod name="Perfect Zombie System" version="8.6" author="Vodkart" contact="tibiaking.com" enabled="yes"> <config name="zombie_config"><![CDATA[ zombie_config = { storages = {172100, 172101, 172102}, -- n edite players = {min = 2, max = 30}, -- min, max players no evento rewards = {items ={{10503,1},{11192,10}}, trophy = 5805}, timeToStartEvent = 30, -- segundos para começar o evento CheckTime = 3, -- tempo que o TP fica aberto para os jogadores adrentarem o evento teleport = {{x=108, y=78, z=7}, {x=144 , y=3161, z=7}}, -- position do tp onde aparece, position para onde o jogador vai ao entrar no tp arena = {{x=109,y=3135,z=7},{x=188,y=3203,z=7}}, -- area positions monster_name = "Zombie Event", timeBetweenSpawns = 10, min_Level = 1000 } zombie_days = { ["Monday"] = {"19:00"}, ["Tuesday"] = {"19:00"}, ["Wednesday"] = {"19:00"}, ["Thursday"] = {"19:00"}, ["Friday"] = {"19:00"}, ["Saturday"] = {"19:00"}, ["Sunday"] = {"19:00"} } function removeZombieTp() local t = getTileItemById(zombie_config.teleport[1], 1387).uid return t > 0 and doRemoveItem(t) and doSendMagicEffect(zombie_config.teleport[1], CONST_ME_POFF) end function ZerarStoragesZombie() for _, stor in pairs(zombie_config.storages) do setGlobalStorageValue(stor, 0) end end function getPlayersInZombieEvent() local t = {} for _, pid in pairs(getPlayersOnline()) do if isInRange(getPlayerPosition(pid), zombie_config.arena[1], zombie_config.arena[2]) and getPlayerAccess(pid) < 3 then t[#t+1] = pid end end return t end function getZombieRewards(cid, items) local backpack = doPlayerAddItem(cid, 1999, 1) -- backpackID for _, i_i in ipairs(items) do local item, amount = i_i[1],i_i[2] if isItemStackable(item) or amount == 1 then doAddContainerItem(backpack, item, amount) else for i = 1, amount do doAddContainerItem(backpack, item, 1) end end end end function HaveCreatureZombie(area, remove) for x = area[1].x - 1, area[2].x + 1 do for y = area[1].y - 1, area[2].y + 1 do local pos = {x=x, y=y, z=area[1].z} local m = getTopCreature(pos).uid if remove ~= false and m ~= 0 and isMonster(m) then doRemoveCreature(m) end end end end function spawnZombie() if #getPlayersInZombieEvent() > 1 then local pos = {x=math.random(zombie_config.arena[1].x, zombie_config.arena[2].x), y=math.random(zombie_config.arena[1].y,zombie_config.arena[2].y), z=zombie_config.arena[1].z} doSendDistanceShoot({x = pos.x - math.random(4, 6), y = pos.y - 5, z = pos.z}, pos, CONST_ANI_FIRE) addEvent(doSendMagicEffect, 150, pos, CONST_ME_HITBYFIRE) addEvent(doSendMagicEffect, 150, pos, CONST_ME_FIREAREA) doSendMagicEffect(pos, CONST_ME_MORTAREA) doSummonCreature(zombie_config.monster_name, pos, false) setGlobalStorageValue(zombie_config.storages[2], getGlobalStorageValue(zombie_config.storages[2]) <= 0 and 1 or getGlobalStorageValue(zombie_config.storages[2])+1) doBroadcastMessage("A zombie has spawned! There is currently " .. getGlobalStorageValue(zombie_config.storages[2]) .. " zombies in the zombie event!", MESSAGE_STATUS_CONSOLE_RED) addEvent(spawnZombie, zombie_config.timeBetweenSpawns *1000) end end function CheckZombieEvent(delay) if getGlobalStorageValue(zombie_config.storages[1]) ~= (zombie_config.players.max+1) then if delay > 0 and getGlobalStorageValue(zombie_config.storages[1]) < zombie_config.players.max then doBroadcastMessage("Zombie event starting in " .. delay .. " minutes! The teleport will be closed when the event start!", MESSAGE_STATUS_WARNING) elseif delay == 0 and getGlobalStorageValue(zombie_config.storages[1]) < zombie_config.players.min then for _, cid in pairs(getPlayersInZombieEvent()) do doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_TELEPORT) end removeZombieTp() doBroadcastMessage("The Zombie event could not start because of to few players participating.\n At least " .. zombie_config.players.min .. " players is needed!", MESSAGE_STATUS_WARNING) ZerarStoragesZombie() elseif delay == 0 and getGlobalStorageValue(zombie_config.storages[1]) >= zombie_config.players.min then removeZombieTp() doBroadcastMessage("The Zombie event is now full [" .. getGlobalStorageValue(zombie_config.storages[1]) .. " players]! The event will soon start.") for _, var in pairs(getPlayersInZombieEvent()) do doPlayerSendTextMessage(var, MESSAGE_EVENT_ADVANCE, "The first zombie will spawn in " .. zombie_config.timeToStartEvent .. " seconds! Good luck!") end addEvent(spawnZombie, zombie_config.timeToStartEvent*1000) end addEvent(CheckZombieEvent, 60000, delay-1) end end]]></config> <event type="statschange" name="ZombieStats" event="script"><![CDATA[ domodlib('zombie_config') if isPlayer(cid) and isMonster(attacker) and getCreatureName(attacker) == zombie_config.monster_name then if isInRange(getPlayerPosition(cid), zombie_config.arena[1], zombie_config.arena[2]) then if #getPlayersInZombieEvent() > 1 then doBroadcastMessage(getPlayerName(cid) .. " have been eated by Zombies!", MESSAGE_STATUS_CONSOLE_RED) local corpse = doCreateItem(getPlayerSex(cid) == 1 and 3058 or 6081, 1, getPlayerPosition(cid)) doItemSetAttribute(corpse, "description", "You recognize " .. getCreatureName(cid) .. ". He was killed by "..(isMonster(attacker) and "a "..string.lower(getCreatureName(attacker)) or isCreature(attacker) and getCreatureName(attacker) or "a field item")..".") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), false) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_TELEPORT) if #getPlayersInZombieEvent() == 1 then local winner = getPlayersInZombieEvent()[1] doBroadcastMessage(getCreatureName(winner)..' has survived at zombie event!') local goblet = doPlayerAddItem(winner, zombie_config.rewards.trophy, 1) doItemSetAttribute(goblet, "description", "Awarded to " .. getPlayerName(winner) .. " for winning the Zombie event.") getZombieRewards(winner, zombie_config.rewards.items) doTeleportThing(winner, getTownTemplePosition(getPlayerTown(winner)), false) doSendMagicEffect(getPlayerPosition(winner), CONST_ME_TELEPORT) doBroadcastMessage(getPlayerName(winner).." won the Zombie event! Congratulations!") HaveCreatureZombie(zombie_config.arena, true) ZerarStoragesZombie() end else doBroadcastMessage("No one survived in the Zombie Event.", MESSAGE_EVENT_ADVANCE) HaveCreatureZombie(zombie_config.arena, true) ZerarStoragesZombie() end return false end end return true]]></event> <globalevent name="Zombie_Start" interval="60000" event="script"><![CDATA[ domodlib('zombie_config') function onThink(interval, lastExecution) if zombie_days[os.date("%A")] then local hrs = tostring(os.date("%X")):sub(1, 5) if isInArray(zombie_days[os.date("%A")], hrs) and getGlobalStorageValue(zombie_config.storages[3]) <= 0 then local tp = doCreateItem(1387, 1, zombie_config.teleport[1]) doItemSetAttribute(tp, "aid", 45110) CheckZombieEvent(zombie_config.CheckTime) doTeleportTimer(zombie_config.teleport[1], zombie_config.CheckTime*60) setGlobalStorageValue(zombie_config.storages[1], 0) setGlobalStorageValue(zombie_config.storages[2], 0) HaveCreatureZombie(zombie_config.arena, true) end end return true end]]></globalevent> <event type="login" name="Zombie_Login" event="script"><![CDATA[ domodlib('zombie_config') function onLogin(cid) registerCreatureEvent(cid, "ZombieBattle") registerCreatureEvent(cid, "ZombieStats") if isInRange(getPlayerPosition(cid), zombie_config.arena[1], zombie_config.arena[2]) then doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) end return true end]]></event> <event type="combat" name="ZombieBattle" event="script"><![CDATA[ domodlib('zombie_config') if isPlayer(cid) and isPlayer(target) and isInRange(getPlayerPosition(cid), zombie_config.arena[1], zombie_config.arena[2]) then doPlayerSendCancel(cid, "You may not attack this player.") return false end return true ]]></event> <movevent type="StepIn" actionid ="45110" event="script"><![CDATA[ domodlib('zombie_config') function onStepIn(cid, item, position, fromPosition) if not isPlayer(cid) then return true end if getPlayerAccess(cid) > 3 then return doTeleportThing(cid, zombie_config.teleport[2]) end if getPlayerLevel(cid) < zombie_config.min_Level then doTeleportThing(cid, fromPosition, true) doPlayerSendCancel(cid, "You need to be at least level " .. zombie_config.min_Level .. ".") doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE) return true end if getGlobalStorageValue(zombie_config.storages[1]) <= zombie_config.players.max then doTeleportThing(cid, zombie_config.teleport[2]) setGlobalStorageValue(zombie_config.storages[1], getGlobalStorageValue(zombie_config.storages[1])+1) doBroadcastMessage(getPlayerName(cid) .. " entered the Zombie event! Currently " .. getGlobalStorageValue(zombie_config.storages[1]) .. " players have joined!", MESSAGE_STATUS_CONSOLE_RED) if getGlobalStorageValue(zombie_config.storages[1]) == zombie_config.players.max then setGlobalStorageValue(zombie_config.storages[1], getGlobalStorageValue(zombie_config.storages[1])+1) removeZombieTp() doBroadcastMessage("The Zombie event is now full [" .. getGlobalStorageValue(zombie_config.storages[1])-1 .. " players]! The event will soon start.") for _, var in pairs(getPlayersInZombieEvent()) do doPlayerSendTextMessage(var, MESSAGE_EVENT_ADVANCE, "The first zombie will spawn in " .. zombie_config.timeToStartEvent .. " seconds! Good luck!") end addEvent(spawnZombie, zombie_config.timeToStartEvent*1000) end end return true end]]></movevent> <talkaction words="/zombiestart;!zombiestart" access="5" event="buffer"><![CDATA[ domodlib('zombie_config') if getGlobalStorageValue(zombie_config.storages[3]) > 0 then doPlayerSendCancel(cid, "The event is already starting.") return true elseif not param or not tonumber(param) then doPlayerSendCancel(cid, "Use only numbers.") return true end local param = tonumber(param) <= 0 and 1 or tonumber(param) local tp = doCreateItem(1387, 1, zombie_config.teleport[1]) doItemSetAttribute(tp, "aid", 45110) CheckZombieEvent(tonumber(param)) doTeleportTimer(zombie_config.teleport[1], tonumber(param)*60) ZerarStoragesZombie() setGlobalStorageValue(zombie_config.storages[3], 1) HaveCreatureZombie(zombie_config.arena, true) ]]></talkaction> <globalevent name="ZombieDebug-Start" type="start" event="buffer"><![CDATA[ domodlib('zombie_config') ZerarStoragesZombie() return true]]></globalevent> </mod>  

@@Gnius ve agora
local combats = {                       
[PSYCHICDAMAGE] = {cor = COLOR_PSYCHIC},
[GRASSDAMAGE] = {cor = COLOR_GRASS},
[POISONEDDAMAGE] = {cor = COLOR_GRASS},
[FIREDAMAGE] = {cor = COLOR_FIRE2},                         
[BURNEDDAMAGE] = {cor = COLOR_BURN},
[WATERDAMAGE] = {cor = COLOR_WATER},
[ICEDAMAGE] = {cor = COLOR_ICE},
[NORMALDAMAGE] = {cor = COLOR_NORMAL},
[FLYDAMAGE] = {cor = COLOR_FLYING},           
[GHOSTDAMAGE] = {cor = COLOR_GHOST},
[GROUNDDAMAGE] = {cor = COLOR_GROUND},
[ELECTRICDAMAGE] = {cor = COLOR_ELECTRIC},
[ROCKDAMAGE] = {cor = COLOR_ROCK},
[BUGDAMAGE] = {cor = COLOR_BUG},
[FIGHTDAMAGE] = {cor = COLOR_FIGHTING},
[DRAGONDAMAGE] = {cor = COLOR_DRAGON},
[POISONDAMAGE] = {cor = COLOR_POISON},
[DARKDAMAGE] = {cor = COLOR_DARK},               
[STEELDAMAGE] = {cor = COLOR_STEEL},
[MIRACLEDAMAGE] = {cor = COLOR_PSYCHIC},  
[DARK_EYEDAMAGE] = {cor = COLOR_GHOST},
[SEED_BOMBDAMAGE] = {cor = COLOR_GRASS},
[SACREDDAMAGE] = {cor = COLOR_FIRE2}, 
[MUDBOMBDAMAGE] = {cor = COLOR_GROUND}, --alterado v1.9
}
local function sendPlayerDmgMsg(cid, text)
    if not isCreature(cid) then return true end
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text)
end
local races = {
[4] = {cor = COLOR_FIRE2},
[6] = {cor = COLOR_WATER},
[7] = {cor = COLOR_NORMAL},
[8] = {cor = COLOR_FIRE2},
[9] = {cor = COLOR_FIGHTING},
[10] = {cor = COLOR_FLYING},
[11] = {cor = COLOR_GRASS},
[12] = {cor = COLOR_POISON},
[13] = {cor = COLOR_ELECTRIC},
[14] = {cor = COLOR_GROUND},
[15] = {cor = COLOR_PSYCHIC},
[16] = {cor = COLOR_ROCK},
[17] = {cor = COLOR_ICE},
[18] = {cor = COLOR_BUG},
[19] = {cor = COLOR_DRAGON},
[20] = {cor = COLOR_GHOST},
[21] = {cor = COLOR_STEEL},
[22] = {cor = COLOR_DARK},
[1] = {cor = 180},
[2] = {cor = 180},
[3] = {cor = 180},
[5] = {cor = 180},
}
local damages = {GROUNDDAMAGE, ELECTRICDAMAGE, ROCKDAMAGE, FLYDAMAGE, BUGDAMAGE, FIGHTINGDAMAGE, DRAGONDAMAGE, POISONDAMAGE, DARKDAMAGE, STEELDAMAGE}
local fixdmgs = {PSYCHICDAMAGE, COMBAT_PHYSICALDAMAGE, GRASSDAMAGE, FIREDAMAGE, WATERDAMAGE, ICEDAMAGE, NORMALDAMAGE, GHOSTDAMAGE}
local ignored = {POISONEDDAMAGE, BURNEDDAMAGE}                
local cannotkill = {BURNEDDAMAGE, POISONEDDAMAGE}
function onStatsChange(cid, attacker, type, combat, value)
if combat == FLYSYSTEMDAMAGE then return false end
if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV
if not isCreature(attacker) then  
return true
end
local damageCombat = combat
--------------------------------------------------
if type == STATSCHANGE_HEALTHGAIN then
    if cid == attacker then
    return true
    end
    if isSummon(cid) and isSummon(attacker) and canAttackOther(cid, attacker) == "Cant" then
    return false
    end
return true
end
--------------------------------------------------
if isMonster(cid) then
local valor = value
   if not pokes[getCreatureName(cid)] and damageCombat == COMBAT_PHYSICALDAMAGE then
      valor = getOffense(attacker)
      doCreatureAddHealth(cid, -math.abs(valor), 3, races[7].cor)                       
      return false
   elseif not pokes[getCreatureName(cid)] and damageCombat ~= COMBAT_PHYSICALDAMAGE then
      doCreatureAddHealth(cid, -math.abs(valor), 3, combats[damageCombat].cor)
      return false
   end
end
--------------------------------------------------
if isPlayer(attacker) then
    local valor = value
    if valor > getCreatureHealth(cid) then
        valor = getCreatureHealth(cid)
    end
    if combat == COMBAT_PHYSICALDAMAGE then
    return false
    end
    if combat == PHYSICALDAMAGE then
    doSendMagicEffect(getThingPos(cid), 3)
    doSendAnimatedText(getThingPos(cid), valor, races[getMonsterInfo(getCreatureName(cid)).race].cor)
    end
    if combats[damageCombat] and not isInArray(fixdmgs, damageCombat) then
    doSendAnimatedText(getThingPos(cid), valor, combats[damageCombat].cor)
    end
    if #getCreatureSummons(attacker) >= 1 and not isInArray({POISONEDDAMAGE, BURNEDDAMAGE}, combat) then
        doPlayerSendTextMessage(attacker, MESSAGE_STATUS_DEFAULT, "Your "..getPokeName(getCreatureSummons(attacker)[1]).." dealt "..valor.." damage to "..getSomeoneDescription(cid)..".")
    end
return true
end
--------------------------------------------------
if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then
return false                                                                           
end
--------------------------------------------------
if isPlayer(cid) and #getCreatureSummons(cid) <= 0 and type == STATSCHANGE_HEALTHLOSS then
if isSummon(attacker) or isPlayer(attacker) then
   if canAttackOther(cid, attacker) == "Cant" then return false end
end
    local valor = 0
        if combat == COMBAT_PHYSICALDAMAGE then
            valor = getOffense(attacker)
        else
            valor = getSpecialAttack(attacker)
        end
    valor = valor * playerDamageReduction
    valor = valor * math.random(83, 117) / 100
    if valor >= getCreatureHealth(cid) then
        valor = getCreatureHealth(cid)
    end
    valor = math.floor(valor)
    if valor >= getCreatureHealth(cid) then
       if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then
          setPlayerStorageValue(cid, 6598754, -1)
          setPlayerStorageValue(cid, 6598755, -1)
          doRemoveCondition(cid, CONDITION_OUTFIT)             
          doTeleportThing(cid, posBackPVP, false)
          doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
          return false --alterado v1.8
       end
       
       if getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then
          doRemoveCondition(cid, CONDITION_OUTFIT)
          setPlayerStorageValue(cid, 17000, 0)
          setPlayerStorageValue(cid, 17001, 0)
          setPlayerStorageValue(cid, 63215, -1) 
          doChangeSpeed(cid, PlayerSpeed)
          local item = getPlayerSlotItem(cid, 8)
          local btype = getPokeballType(item.itemid)
          if #getCreatureSummons(cid) <= 0 then
               if isInArray(pokeballs[btype].all, item.itemid) then
                   doTransformItem(item.uid, pokeballs[btype].off)
                   doItemSetAttribute(item.uid, "hp", 0)
             end
          end
       end
       if getPlayerStorageValue(cid, 22545) == 1 then
          if getGlobalStorageValue(22550) == 1 then
             doPlayerSendTextMessage(cid, 20, "You are the last survivor of the golden arena! Take your reward!")
             doPlayerAddItem(cid, 2152, getPlayerStorageValue(cid, 22551)*2)  
             setPlayerStorageValue(cid, 22545, -1)
             doTeleportThing(cid, getClosestFreeTile(cid, getClosestFreeTile(cid, posBackGolden)), false)  
             doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))
             setPlayerRecordWaves(cid)     
             endGoldenArena()
             return false --alterado v1.8           
          else
             setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)
             setPlayerStorageValue(cid, 22545, -1)
             doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)    
             doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))
             setPlayerRecordWaves(cid)     
             return true
          end 
       end
       if getPlayerStorageValue(cid, 98796) >= 1 then
          setPlayerStorageValue(cid, 98796, -1) 
          setPlayerStorageValue(cid, 98797, -1)                      --alterado v1.8
          doTeleportThing(cid, SafariOut, false)
          doSendMagicEffect(getThingPos(cid), 21)
          doPlayerSendTextMessage(cid, 27, "You die in the saffari... Best luck in the next time!")
          return false --alterado v1.8
       end
       local corpse = doCreateItem(3058, 1, getThingPos(cid))
       doDecayItem(corpse)
       doItemSetAttribute(corpse, "pName", getCreatureName(cid))          --alterado v1.7 coloca corpse quando o player morre!
       doItemSetAttribute(corpse, "attacker", getCreatureName(attacker))
       doItemSetAttribute(corpse, "article", getPlayerSex(cid) == 0 and "She" or "He")
       
       if getPlayerStorageValue(cid, Agatha.stoIni) >= 1 and getPlayerStorageValue(cid, Agatha.stoIni) <= 10 then
          setPlayerStorageValue(cid, Agatha.stoIni, -1)
          setPlayerStorageValue(cid, Agatha.stoRec, -1)
          setPlayerStorageValue(cid, Agatha.stoPer, -1)
          setPlayerStorageValue(cid, Agatha.stoEni, -1)        --alterado v1.9  agatha quest
          setPlayerStorageValue(cid, Agatha.stoRes, -1)
       end 
    end
    doCreatureAddHealth(cid, -valor, 3, 180)
    if not isPlayer(cid) then
       addEvent(sendPlayerDmgMsg, 5, cid, "You lost "..valor.." hitpoints due to an attack from "..getSomeoneDescription(attacker)..".")
    end
return false
end
--------------------------------------------------
if isMonster(attacker) and getPlayerStorageValue(attacker, 201) ~= -1 then
    if isPlayer(cid) then
    return false
    end
    if getPlayerStorageValue(getCreatureMaster(cid), ginasios[getPlayerStorageValue(attacker, 201)].storage) ~= 1 then
    return false
    end
end
--------------------------------------------------
if isMonster(cid) and getPlayerStorageValue(cid, 201) ~= -1 then
    if getPlayerStorageValue(getCreatureMaster(attacker), ginasios[getPlayerStorageValue(cid, 201)].storage) ~= 1 then
    return false
    end
end
--------------------------------------------------
if ehMonstro(cid) and ehMonstro(attacker) and not isSummon(cid) and not isSummon(attacker) then 
return false                                          --alterado v1.9 /\
end
--------------------------------------------------
--------------------REFLECT-----------------------
if getPlayerStorageValue(cid, 21099) >= 1 and combat ~= COMBAT_PHYSICALDAMAGE then
   if not isInArray({"Team Claw", "Team Slice"}, getPlayerStorageValue(attacker, 21102)) then
      doSendMagicEffect(getThingPosWithDebug(cid), 135)
      doSendAnimatedText(getThingPosWithDebug(cid), "REFLECT", COLOR_GRASS)
      addEvent(docastspell, 100, cid, getPlayerStorageValue(attacker, 21102))
      if getCreatureName(cid) == "Wobbuffet" then
         doRemoveCondition(cid, CONDITION_OUTFIT)    
      end
      setPlayerStorageValue(cid, 21099, -1)                    
      setPlayerStorageValue(cid, 21100, 1)
      setPlayerStorageValue(cid, 21101, attacker)
      setPlayerStorageValue(cid, 21103, getTableMove(attacker, getPlayerStorageValue(attacker, 21102)).f)
      setPlayerStorageValue(cid, 21104, getCreatureOutfit(attacker).lookType)
      return false
   end
end
-------------------------------------------------
if not races[getMonsterInfo(getCreatureName(cid)).race] then
return print("Error, poke: ".. getCreatureName(cid) ..", race isn't in the table!") and true
end
local multiplier = 1
   if isCreature(cid) then
      poketype1 = pokes[getCreatureName(cid)].type        
      poketype2 = pokes[getCreatureName(cid)].type2
   end
   if not poketype1 or not poketype2 then return false end  
   
    if getCreatureCondition(cid, CONDITION_INVISIBLE) then
    return false
    end
if combat == COMBAT_PHYSICALDAMAGE then
    if isGhostPokemon(cid) then               
       if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then  --passiva Foresight!!
          doSendMagicEffect(getThingPos(cid), 3)     
          return false
       end
    end
        local cd = getPlayerStorageValue(attacker, conds["Miss"])
        local cd2 = getPlayerStorageValue(attacker, conds["Confusion"]) 
        local cd3 = getPlayerStorageValue(attacker, conds["Stun"]) 
        if cd >= 0 or cd2 >= 0 or cd3 >= 0 then
           if math.random(1, 100) > 50 then  
              doSendMagicEffect(getThingPos(cid), 211)
              doSendAnimatedText(getThingPos(attacker), "MISS", 215)         
              return false
           end
        end
end
--------------------------------------------------
local valor = value
    if multiplier == 1.5 and poketype2 == "no type" then
        multiplier = 2                                         
    elseif multiplier == 1.5 and poketype2 ~= "no type" then    
        multiplier = 1.75       
    elseif multiplier == 1.25 then    
        multiplier = 1    
    end
--------------------------------------------------
    if isSummon(cid) and isSummon(attacker) then
        if getCreatureMaster(cid) == getCreatureMaster(attacker) then
           return false
        end
        if canAttackOther(cid, attacker) == "Cant" then
           return false
        end
    end
    valor = valor * multiplier
    if isSummon(attacker) then
        valor = valor * getHappinessRate(attacker)
    else
        valor = valor
    end
                                                              
    valor = math.floor(valor)                                 
    
    if combat == COMBAT_PHYSICALDAMAGE then
       
       local value = getOffense(attacker) > 1000 and 3 or 2
       block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid))) --alterado v1.9 testem essa nova formula plzzz '--'
        valor = (getOffense(attacker)/value) * block
       
        if valor <= 0 then
          valor = math.random(5, 10) --alterado v1.9
       end
       
       if isInArray(specialabilities["counter"], getCreatureName(cid)) then
          if math.random(1, 100) <= 10 then
             doCreatureAddHealth(attacker, -valor, 3, 180)    
             valor = 0
             doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215)
          end
       end      
    else
       valor = valor / getDefense(cid)
    end
    
    -------------------------Edited CLAN SYSTEM-----------------------------------
    if isSummon(attacker) and getPlayerStorageValue(getCreatureMaster(attacker), 86228) >= 1 then
       valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk")                           
    elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then
       valor = valor - (valor*getClanPorcent(getCreatureMaster(cid), combat, "def", pokes[getCreatureName(cid)].type, pokes[getCreatureName(cid)].type2))
    end
    -----------------------------------------------------------------------
    ---------------------- FEAR / ROAR ------------------------------------
    if getPlayerStorageValue(attacker, conds["Fear"]) >= 1 then         
    return true
    end
--------------------------------------------------------------------------
if damageCombat ~= COMBAT_PHYSICALDAMAGE and not isInArray(ignored, damageCombat) then
   if isInArray(effectiveness[damageCombat].non, poketype1) or isInArray(effectiveness[damageCombat].non, poketype2) then
      if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then     
         valor = valor * 0                      
      end
   end
end
if damageCombat == GROUNDDAMAGE then
   if isInArray(specialabilities["levitate"], getCreatureName(cid)) then
      valor = 0                      
   end
end
-----------------------------------------------------------------------------
local p = getThingPos(cid)                     
if p.x == 1 and p.y == 1 and p.z == 10 then
return false                                    
end
if getPlayerStorageValue(cid, 9658783) == 1 then
return false     --imune
end
-----------------------------------------------------------------------------
--------------- FIGHT MODE -----------------------
if useOTClient then
if isSummon(cid) then                                  
   local master = getCreatureMaster(cid)
   if getPlayerStorageValue(master, 248759) == 1 then
      valor = valor * 1.1
   elseif getPlayerStorageValue(master, 248759) == 3 then
      valor = valor * 0.9
   end
end
if isSummon(attacker) then
   local master = getCreatureMaster(attacker)
   if getPlayerStorageValue(master, 248759) == 1 then
      valor = valor * 1.1
   elseif getPlayerStorageValue(master, 248759) == 3 then
      valor = valor * 0.9
   end
end 
end   
-----------------------------------------------------------------------------
    if valor >= getCreatureHealth(cid) then
        if isInArray(cannotKill, combat) and isPlayer(cid) then
            valor = getCreatureHealth(cid) - 1
        else
            valor = getCreatureHealth(cid)
        end
    end
    valor = math.floor(valor)            
    
------------------ SKILLs Q CURAM O ATTACKER ---------------------------------
local function doHeal(cid, amount)
if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then
   amount = math.abs(getCreatureHealth(cid)-getCreatureMaxHealth(cid))
end
if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then           
   doCreatureAddHealth(cid, amount)
   doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65) 
end
end
          
if damageCombat == PSYCHICDAMAGE or damageCombat == MIRACLEDAMAGE then
   if getPlayerStorageValue(attacker, 95487) >= 1 then
      doHeal(attacker, valor)
      setPlayerStorageValue(attacker, 95487, -1)                  
   end
elseif damageCombat == SEED_BOMBDAMAGE then
   doHeal(attacker, valor)
end
--------------------------------------------
----------SACRED FIRE-----------------------
if combat == SACREDDAMAGE and not ehNPC(cid) then    
   local ret = {}
   ret.id = cid
   ret.cd = 9
   ret.check = getPlayerStorageValue(cid, conds["Silence"])
   ret.eff = 39
   ret.cond = "Silence"
   doCondition2(ret)
elseif combat == MUDBOMBDAMAGE and not ehNPC(cid) then
   local ret = {}                                        
   ret.id = cid
   ret.cd = 9
   ret.eff = 34
   ret.check = getPlayerStorageValue(cid, conds["Miss"])
   ret.spell = "Mud Bomb"       --alterado v1.9
   ret.cond = "Miss"
   
   doCondition2(ret)
end
---------------------------------------------
--------------Passiva Lifesteal Clobat------------
if combat == COMBAT_PHYSICALDAMAGE then
   if getCreatureName(attacker) == "Crobat" then                    
      doCreatureAddHealth(attacker, math.floor(valor))
      doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30)
   end
end
--------------------------------------------
    valor = math.abs(valor)    --alterado v1.9
    if isSummon(attacker) then
        if combat == COMBAT_PHYSICALDAMAGE then
            doTargetCombatHealth(getCreatureMaster(attacker), cid, PHYSICALDAMAGE, -valor, -valor, 255)
            addEvent(doDoubleHit, 1000, attacker, cid, valor, races)      
        else
            doTargetCombatHealth(getCreatureMaster(attacker), cid, damageCombat, -valor, -valor, 255)
        end
    else
        if combat ~= COMBAT_PHYSICALDAMAGE then
            doCreatureAddHealth(cid, -valor, 3, combats[damageCombat].cor)  
        else
            doCreatureAddHealth(cid, -valor, 3, races[getMonsterInfo(getCreatureName(cid)).race].cor)
            addEvent(doDoubleHit, 1000, attacker, cid, valor, races)   
        end
        if isSummon(cid) and valor ~= 0 then
            addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Your "..getCreatureName(cid).." lost "..valor.." hitpoints due to an attack from "..getSomeoneDescription(attacker)..".")
        end
    end
    
    if damageCombat == FIREDAMAGE and not isBurning(cid) then
       local ret = {}
       ret.id = cid
       ret.cd = math.random(5, 12)
       ret.check = getPlayerStorageValue(cid, conds["Burn"])
       ret.damage = isSummon(attacker) and getMasterLevel(attacker)+getPokemonBoost(attacker) or getPokemonLevel(attacker)
       ret.cond = "Burn"
       
       doCondition2(ret)
    elseif damageCombat == POISONDAMAGE and not isPoisoned(cid) then
       local ret = {}
       ret.id = cid
       ret.cd = math.random(6, 15)
       ret.check = getPlayerStorageValue(cid, conds["Poison"])
       local lvl = isSummon(attacker) and getMasterLevel(attacker) or getPokemonLevel(attacker)
       ret.damage = math.floor((getPokemonLevel(attacker)+lvl)/2)
       ret.cond = "Poison"
       
       doCondition2(ret)
    end
--[[---------------CD BAR-----------------------
if isSummon(cid) then
   doCreatureExecuteTalkAction(getCreatureMaster(cid), "/pokeread")
end  ]]
------------------------------------POTIONS-------------------------------------------
if isSummon(cid) and type == STATSCHANGE_HEALTHLOSS then
   if getPlayerStorageValue(cid, 173) >= 1 then
      if damageCombat ~= BURNEDDAMAGE and damageCombat ~= POISONEDDAMAGE then
         setPlayerStorageValue(cid, 173, -1)  
         doSendAnimatedText(getThingPos(cid), "Lost Heal", 144)
      end
   end
end
----------------------------------------PASSIVAS-------------------------------------  
-------------------------------------------Counter Helix------------------------------------
if passivesChances["Helix"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Helix"][getCreatureName(cid)] then
   docastspell(cid, "Counter Helix")
end
-------------------------------------------Lava Counter/Electricity----------------------------
if passivesChances["Fire_Thunder"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Fire_Thunder"][getCreatureName(cid)] then
   docastspell(cid, "Lava-Electricity")
end
---------------------------------------Stunning Confusion-----------------------------------------
if passivesChances["Stunning"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Stunning"][getCreatureName(cid)] then  
   docastspell(cid, "Stunning Confusion")
end
-----------------------------------------Groundshock-----------------------------------
if passivesChances["Groundshock"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Groundshock"][getCreatureName(cid)] then
   docastspell(cid, "Groundshock")
end
--------------------------------------Electric Charge---------------------------------------------
if passivesChances["Electric Charge"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Electric Charge"][getCreatureName(cid)] then
   docastspell(cid, "Electric Charge", 0, 0)
end
-------------------------------------Melody------------------------------------
if passivesChances["Melody"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Melody"][getCreatureName(cid)] then 
   docastspell(cid, "Melody")
end
------------------------------------- Dragon Fury / Fury ---------------------------------------
if passivesChances["Dragon Fury"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Dragon Fury"][getCreatureName(cid)] then
   docastspell(cid, "Dragon Fury", 0, 0)
end
------------------------------------- Mega Drain ---------------------------------------
if passivesChances["Mega Drain"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Mega Drain"][getCreatureName(cid)] then
   docastspell(cid, "Mega Drain")
end
------------------------------------- Spores Reaction ---------------------------------------
if passivesChances["Spores Reaction"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Spores Reaction"][getCreatureName(cid)] then
   docastspell(cid, "Spores Reaction")
end
------------------------------------ Amnesia ----------------------------------------   
if passivesChances["Amnesia"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Amnesia"][getCreatureName(cid)] then 
   docastspell(cid, "Amnesia", 0, 0)
end
----------------------------------- Zen Mind -----------------------------------------
if passivesChances["Zen Mind"][getCreatureName(cid)] and isWithCondition(cid) and math.random(1, 100) <= passivesChances["Zen Mind"][getCreatureName(cid)] then
   docastspell(cid, "Zen Mind", 0, 0)
end
---------------------------------- Mirror Coat ---------------------------------------
if passivesChances["Mirror Coat"][getCreatureName(cid)] and math.random(1, 100) <= passivesChances["Mirror Coat"][getCreatureName(cid)] then   
   docastspell(cid, "Mirror Coat", 0, 0)
end
--------------------------------- Illusion -----------------------------------------
return false
end

Eba Eba Galerinha do TK 

Eu Aqui do Novo para Trazer o Baiak ZIK VIP 18 
Espero que Gostem da Edição 
 
Mudanças Ocorrida    | Melhorado Mapa e Adicionado Varias Áreas
| Novos Itens
| Novas Questes
| Novos Bichos
| Adicionado VIP 18
| Retirado Bugs no Mapa...
| Retirado Varios Bugs no Distro 
| Novo Visual do Templo
| Guild Frags System 
| PvP Balanceado Agora todas vocações estão no balanço
| Armas Arrumadas Para Melhor PvP 
| Varios Eventos
| Ivasões no Templo de Boss Automatico
| Adicionado CASTLE 24HORAS (COM CASTELO) e AVISOS DE INVASORES 
| Itens DONATES 
| Área DONATE ~~ (Só Entra Quem Usar o Itens de Premium Days) 
| Vários Novos Script 
| Fast Atk Arrumado
| Frags no Look 
| Entre Muitas Outras Coisas
| Confira !
 
            Imagens Do Server
 
 
                                                                                                                            Templo
                                                      
 
                                          
                                                                                                                            Novas Areas
                                                       
                                        
 
                                                                                                                        Novos Tps E Npcs
                                                       
 
 
                                                                                                                                Treiner
                                                       
 
 
                                                                                                                           VIP 1 a VIP 15      
                                                       
 
     
                                                                                                                       Loja De Itens Fusion
                                                       
 
 
                                                                                                                             Area Donate
                                                       
 
 
                                                                                                                            Area Supreme
                                                       
 
 
                                                                                                                            Area Ultimate
                                                       
 
 
 
Download : http://www.4shared.com/rar/LIUa5Jnkba/Baiak_Zik__Vip_18.html?
Scan : https://www.virustotal.com/pt/file/9f3f18ff68648d6d33b430345b7eec7284554fa8706fcf3d91b73f5c5821d331/analysis/1479318127/
Os Virus/Malwares são Falsos/Positivos por causa do TFS 
 
Creditos : Eu Por Editar O mapa e o Deathrook pela mapa inteiro
                                                              
                     
                                                                                                  

é em globalevent.xml

e facil.
 
cria um arquivo na pasta mods do jeito que voce quiser!
 
mods/exp1
blz vamos la, na posta procura por essa linha
<action itemid="9942" event="script"><![CDATA[       ----- ai voce troca o 9942, para o numero do item que desejar
 
depois vai em creaturescripts
creaturescripts/perdereifetoo
a tag
<event type="logout" name="perderefeitoo" event="script" value="perderefeitoo.lua"/>
 
depois loguim.lua
    registerCreatureEvent(cid, "perdereifetoo")
 
 
blz está pronto,
agora se voce criar mais voce faz o mesmo procedimento, porém você vai ter que trocar algumas linhas
por ex
<config name="PotionExpConfigs">  ---- TUDO ONDE TA ESCRITO "PotionExpConfigs"> VOCE ADICIONA ASSIM "PotionExpConfigss"> ficando com 2 ss
 
para funcionar quando o player morrer ou deslogar, voce tem que trocar a storage também! a original e 49016
ai voce coloca na nova potiona a 49017, não esqueça de mudar dentro do arquivo creaturescripts!
ok boa sorte ai!
 

Olá a todos, criei um OTServ a um tempo atrás e não deu muito certo então resolvi deixar disponível para vocês baixarem.
 
O que editei: - Implementação da Aura System - Boss Event diário 100% automático. - Magias novas (!spells) - Quests inéditas - Eventos funcionais - Implementado um sistema de reset 100% funcional - Áreas Donate, Supreme, Ultimate, Super UP (cave exclusiva) e Reset City. - Sistema de compra de itens no templo. - Dodge e Critical System - Refinamento System - E muito mais...  
Algumas imagens:
 
 
Curtiu? dá um REP+ aí
 
Download: clique aqui
Scan: clique aqui
Site: clique aqui
 
O servidor vêm preparado para ser utilizado com MySQL.
Em breve colocarei o site que usei para download aqui.
 
Use a database que vêm junto com o arquivo.
 
 
Créditos:
75% Baiak Fusion
25% Movie

primeiro voce vai em na pasta wolrd la vai ter o spaw das house ai voce abre ele e muda os town id para 1 como na foto

depois voce abre seu rme e aperte ctrl+t ali vai ta os templo voce vai ter que excluir todos eles e botar tudo denovo que vai começar pelo town id 1 no town id 2 vc so deixa o nome por causa das town dos eventos, nao esqueca de salvar as towns dos eventos

 

Se for igual criatura, tenta por na tag de npc, tipo: name="Alice" shield="1"

Alguem para Me Ajudar?

não testei, mas testa assim:
 
local positions = { ["Baiak Sky"] = {{x = 160, y = 54, z = 7}, CONST_ANI_FIRE, CONST_ME_FIREAREA}, ["Zumbie"] = {{x = 165, y = 50, z = 7}, CONST_ANI_ENERGY, CONST_ME_ENERGYAREA}, ["ArenaPVP"] = {{x = 157, y = 53, z = 7}, CONST_ANI_ICE, CONST_ME_ICEAREA} } function onThink(cid, interval, lastExecution) for text, v in pairs(positions) do local pos = v[1] doSendAnimatedText(pos, text, math.random(1, 255)) doSendDistanceShoot({x = pos.x - math.random(4, 6), y = pos.y - 5, z = pos.z}, pos, v[3]) addEvent(doSendMagicEffect, 150, pos, v[2]) end return true end  

Evento esta com alguns bugs estou corrigindo assim que tiver 100% eu posto novamente. @Vodkart se quiser fechar assim que tiver rodando certinho eu coloca novamente.
 

Crie um arquivo chamado Livro.lua na pasta data/actions/scripts e coloca isso:
 

function onUse(cid, item, frompos, item2, topos)     doPlayerPopupFYI(cid, 'Coloque aqui\nOs Horarios.')      return TRUE end
 
no actions.xml adicione essa tag com o ID do livro:
 

<action itemid="1950" event="script" value="Livro.lua"/>
 
Use \n para pular uma linha 

Não sei pra que essa função serve, deve ser pra o client. 
remove essas 3 linhas e tenta: 
 

    if(getPlayerOperatingSystem(cid) >= CLIENTOS_OTCLIENT_LINUX) then         registerCreatureEvent(cid, "ExtendedOpcode")     end

Precisando

tive esse problema a dias atraz, peço para fazer os seguintes testes :
caso de certo, peço para que me ajude , me reputando +1
e avisando aqui, para outras pessoas que tiverem duvidas nesse sentido conseguirem solucionar
caso não de certo, volte e avise aqui pois estarei tentando ajudar
 
PRIMEIRO - , no seu config.lua procure por:
no exemplo abaixo ele está com id de um templo, você substitui pelo seu !!!
 
    newPlayerSpawnPosX = 160
    newPlayerSpawnPosY = 54
    newPlayerSpawnPosZ = 7
    newPlayerTownId = 1
 
modifique de acordo com seu servidor,
 
SEGUNDO - , na pasta do seu site vá em htdocs, procure pelo arquivo accountmanagement.php
muitas vezes ele pode estar dentro de uma pasta chamada PAGES estando assim C:/Xampp/Htdocs/Pages se não estará dentro da pasta Htdocs mesmo
Dentro Deste Arquivo Você Procura Por:
 
                    $char_to_copy->setPosX(160);
                    $char_to_copy->setPosY(54);
                    $char_to_copy->setPosZ(7);
 
No caso este exemplo está com id de um templo, você substitui pelo seu !!!

Eba Eba Galerinha do TK 

Eu Aqui do Novo para Trazer o Baiak ZIK VIP 18 
Espero que Gostem da Edição 
 
Mudanças Ocorrida    | Melhorado Mapa e Adicionado Varias Áreas
| Novos Itens
| Novas Questes
| Novos Bichos
| Adicionado VIP 18
| Retirado Bugs no Mapa...
| Retirado Varios Bugs no Distro 
| Novo Visual do Templo
| Guild Frags System 
| PvP Balanceado Agora todas vocações estão no balanço
| Armas Arrumadas Para Melhor PvP 
| Varios Eventos
| Ivasões no Templo de Boss Automatico
| Adicionado CASTLE 24HORAS (COM CASTELO) e AVISOS DE INVASORES 
| Itens DONATES 
| Área DONATE ~~ (Só Entra Quem Usar o Itens de Premium Days) 
| Vários Novos Script 
| Fast Atk Arrumado
| Frags no Look 
| Entre Muitas Outras Coisas
| Confira !
 
            Imagens Do Server
 
 
                                                                                                                            Templo
                                                      
 
                                          
                                                                                                                            Novas Areas
                                                       
                                        
 
                                                                                                                        Novos Tps E Npcs
                                                       
 
 
                                                                                                                                Treiner
                                                       
 
 
                                                                                                                           VIP 1 a VIP 15      
                                                       
 
     
                                                                                                                       Loja De Itens Fusion
                                                       
 
 
                                                                                                                             Area Donate
                                                       
 
 
                                                                                                                            Area Supreme
                                                       
 
 
                                                                                                                            Area Ultimate
                                                       
 
 
 
Download : http://www.4shared.com/rar/LIUa5Jnkba/Baiak_Zik__Vip_18.html?
Scan : https://www.virustotal.com/pt/file/9f3f18ff68648d6d33b430345b7eec7284554fa8706fcf3d91b73f5c5821d331/analysis/1479318127/
Os Virus/Malwares são Falsos/Positivos por causa do TFS 
 
Creditos : Eu Por Editar O mapa e o Deathrook pela mapa inteiro
                                                              
                     
                                                                                                  

Eba Eba Galerinha do TK 

Eu Aqui do Novo para Trazer o Baiak ZIK VIP 18 
Espero que Gostem da Edição 
 
Mudanças Ocorrida    | Melhorado Mapa e Adicionado Varias Áreas
| Novos Itens
| Novas Questes
| Novos Bichos
| Adicionado VIP 18
| Retirado Bugs no Mapa...
| Retirado Varios Bugs no Distro 
| Novo Visual do Templo
| Guild Frags System 
| PvP Balanceado Agora todas vocações estão no balanço
| Armas Arrumadas Para Melhor PvP 
| Varios Eventos
| Ivasões no Templo de Boss Automatico
| Adicionado CASTLE 24HORAS (COM CASTELO) e AVISOS DE INVASORES 
| Itens DONATES 
| Área DONATE ~~ (Só Entra Quem Usar o Itens de Premium Days) 
| Vários Novos Script 
| Fast Atk Arrumado
| Frags no Look 
| Entre Muitas Outras Coisas
| Confira !
 
            Imagens Do Server
 
 
                                                                                                                            Templo
                                                      
 
                                          
                                                                                                                            Novas Areas
                                                       
                                        
 
                                                                                                                        Novos Tps E Npcs
                                                       
 
 
                                                                                                                                Treiner
                                                       
 
 
                                                                                                                           VIP 1 a VIP 15      
                                                       
 
     
                                                                                                                       Loja De Itens Fusion
                                                       
 
 
                                                                                                                             Area Donate
                                                       
 
 
                                                                                                                            Area Supreme
                                                       
 
 
                                                                                                                            Area Ultimate
                                                       
 
 
 
Download : http://www.4shared.com/rar/LIUa5Jnkba/Baiak_Zik__Vip_18.html?
Scan : https://www.virustotal.com/pt/file/9f3f18ff68648d6d33b430345b7eec7284554fa8706fcf3d91b73f5c5821d331/analysis/1479318127/
Os Virus/Malwares são Falsos/Positivos por causa do TFS 
 
Creditos : Eu Por Editar O mapa e o Deathrook pela mapa inteiro
                                                              
                     
                                                                                                  

dentro da pasta do ot em data itens pega o que tem dentro e bota na pasta do rme na pasta 8.60