<?xml version="1.0" encoding="UTF-8"?>
<mod name="Exame Chunin" enabled="yes" author="Demonbholder" forum="XTibia.com">
<config name="ArenaLib"><![CDATA[
dinheiro = 10000
storage = 40008
storage2 = 40007
playerpos = {x = 983, y = 893, z = 7} -- posicao da arena
trofypos = {x=966, y=888, z=8} -- posicao da area apos a arena
monpos = {x = 983, y = 889, z = 7} -- posicao onde o monstro sera criado
fromPos,toPos = {x = 987, y = 887, z = 7},{x = 978, y = 894, z = 7} -- posio do canto superior direito, posio do canto inferior esquerdo da arena
monsters = {
[0] = 'kiba',
[1] = 'neji',
[2] = 'temari',
[3] = 'shikamaru',
[4] = 'sasuke',
[5] = 'gaara'
}
function doRemoveCorpse(pos)
        for i = 0, 255 do
            pos.stackpos = i
            tile = getTileThingByPos(pos)
            if tile.uid > 0 and isCorpse(tile.uid) then
                doRemoveItem(tile.uid)
            end
        end
    end
]]></config>
<creaturescript type="death" name="Arena" event="script"><![CDATA[
domodlib('ArenaLib')
if isPlayer(deathList[1]) and isMonster(cid) then
if getPlayerStorageValue(deathList[1], storage) >= 0 and getPlayerStorageValue(deathList[1], storage) < 6 then
setPlayerStorageValue(deathList[1], storage, getPlayerStorageValue(deathList[1], storage) + 1)
addEvent(doRemoveCorpse, 500, getCreaturePosition(cid))
setPlayerStorageValue(deathList[1], storage2, -1)
end
if getPlayerStorageValue(deathList[1], storage) == 6 then
doTeleportThing(deathList[1], trofypos)
setPlayerStorageValue(deathList[1],49501,1)
end
end
return TRUE
]]></creaturescript>
<creaturescript type="kill" name="ArenaK" event="script"><![CDATA[
domodlib('ArenaLib')
if isMonster(cid) and isPlayer(target) then
if getPlayerStorageValue(target, storage) >= 0 then
setPlayerStorageValue(target, storage, -1)
doTeleportThing(target, getTownTemplePosition(getPlayerTown(target)))
setPlayerStorageValue(target, storage2, -1)
doRemoveCreature(cid)
addEvent(doRemoveCorpse, 500, getCreaturePosition(target))
end
end
return TRUE
]]></creaturescript>
<creaturescript type="logout" name="ArenaL" event="script"><![CDATA[
domodlib('ArenaLib')
if isInRange(getPlayerPosition(cid), fromPos, toPos) then
return FALSE, doPlayerSendCancel(cid, "You can't logout during arena!")
end
return TRUE
]]></creaturescript>
<movevent type="StepIn" actionid="40000" event="script"><![CDATA[
domodlib('ArenaLib')
if monsters[getPlayerStorageValue(cid, storage)] then
if getPlayerStorageValue(cid, storage2) == -1 then
local mon = doCreateMonster(monsters[getPlayerStorageValue(cid, storage)], monpos)
setPlayerStorageValue(cid, storage2, 1)
registerCreatureEvent(mon, "Arena")
registerCreatureEvent(mon, "ArenaK")
end
end
return TRUE
]]></movevent>
<movevent type="StepIn" actionid="40001" event="script"><![CDATA[
domodlib('ArenaLib')
      for _, pid in ipairs(getPlayersOnline()) do
          if isInRange(getPlayerPosition(pid), fromPos, toPos) then
            doPlayerSendCancel(cid, "Alguem esta fazendo o exame Chunin.") return true
          end
      end
if getPlayerMoney(cid) < dinheiro then
return TRUE, doTeleportThing(cid, fromPosition), doPlayerSendCancel(cid, "Tens que ter 1g para fazer o exame chunin, sera para seus proprios medicamentos.")
end
doPlayerRemoveMoney(cid, dinheiro)
setPlayerStorageValue(cid, storage, 0)
doPlayerSendTextMessage(cid, 4, "Exame Chunin!")
return TRUE, doTeleportThing(cid, playerpos)
]]></movevent>
</mod>

 

--------------

Na real se eu tiver um tempo eu refaço esse código do demonbholder, a gente fez em 2010, eu tbm tinha feito uma versão antes do drakylukas e do demon mas eu perdi ela kk

@Vodkart mas ta funcionando?

34 minutos atrás, King Laker disse:

@Vodkart mas ta funcionando?

 

acho que está sim, só testar!

@Vodkart Eu precisaria reiniciar e o servidor ta com 60 players online, eles não iam gostar muito kk

1 minuto atrás, King Laker disse:

@Vodkart Eu precisaria reiniciar e o servidor ta com 60 players online, eles não iam gostar muito kk

 é só dar /reload mods