Derivado [Survival]Sistema

Radamanthys Wov · Abril 6, 2017

Estou com esse sistema de survival, gostaria que algume me ajudasse a colocar ela para 4 players poderem entrar, para ser mais especifico de 1 a 4.

Spoiler

<?xml version="1.0" encoding="UTF-8"?>


<mod name="Ultimate Survival" version="1.0" author="Omega" enabled="yes">
<config name="ultimatelib"><![CDATA[
USurvival = {
   posi = {x=510, y=888, z=9}, -- parte esquerda superior da arena
posf = {x=521, y=899, z=9}, -- parte direita inferior da arena
posc = {x=515, y=894, z=9}, -- onde o player entra na arena

   waves = {
[1] = {monsters = {'snake', 'beezer'}, count = 5, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[2] = {monsters = {'dog', 'snake', 'beezer'}, count = 6, reward = {exp = 0, item = 2160, amount = 1, money = 5000000}},
[3] = {monsters = {'dog', 'haku', 'snake'}, count = 7, reward = {exp = 0, item = 2160, amount = 1, money = 10000000}},
[4] = {monsters = {'haku', 'dog', 'snake', 'beezer'}, count = 10, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[5] = {monsters = {'beezer', 'dog', 'snake', 'giat fear'}, count = 16, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[6] = {monsters = {'giat fear', 'bandit', 'haku', 'snake'}, count = 17, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[7] = {monsters = {'Anbu', 'bandit', 'haku', 'snake'}, count = 18, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[8] = {monsters = {'Anbu', 'bandit', 'haku', 'snake'}, count = 19, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[9] = {monsters = {'Anbu', 'bandit', 'haku', 'bandit', 'dark snake'}, count = 20, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[10] = {monsters = {'Anbu', 'bandit', 'haku', 'bandit', 'dog fear'}, count = 21, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[11] = {monsters = {'beezer', 'dog', 'snake', 'bandit', 'haku', 'bandit', 'sword man'}, count = 22, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[12] = {monsters = {'Anbu', 'bandit', 'haku', 'bandit', 'sword man'}, count = 23, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[13] = {monsters = {'beezer', 'dog', 'kikkai', 'bandit', 'haku', 'bandit', 'sword man'}, count = 24, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[14] = {monsters = {'beezer', 'dog', 'kikkai', 'bandit', 'dark snake', 'bandit', 'akatsuki'}, count = 25, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[15] = {monsters = {'severium snake', 'Anbu'}, count = 26, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[16] = {monsters = {'beezer', 'dog', 'kikkai', 'bandit', 'dark snake', 'bandit', 'akatsuki'}, count = 27, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[17] = {monsters = {'Anbu', 'Anbu'}, count = 28, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[18] = {monsters = {'Anbu', 'Anbu'}, count = 28, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[19] = {monsters = {'Anbu', 'Anbu'}, count = 28, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[21] = {monsters = {'Anbu', 'Anbu'}, count = 28, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[22] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[23] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[24] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[25] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[26] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[27] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[28] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[29] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[30] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[31] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[33] = {monsters = {'Anbu', 'Anbu'}, count = 29, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[34] = {monsters = {'Anbu', 'Anbu'}, count = 30, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
[35] = {monsters = {'Chuck norris', 'Anbu'}, count = 30, reward = {exp = 0, item = 2160, amount = 1, money = 1000000}},
   },
   exhaust = 1 * 24 * 60 * 60, -- Tempo em segundos ate poder entrar novamente na arena (1 * 24 * 60 * 60 = 1 dia)

   final_reward = {item = 2160, amount = 100, exp = 10000000, money = 0},

   storage_ex = 607069,
   storage_wave = 607089,
}

function isWalkable(pos)-- by Nord / editado por Omega
if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then
return false
elseif isCreature(getTopCreature(pos).uid) then
return false
elseif getTileInfo(pos).protection then
return false
elseif hasProperty(getThingFromPos(pos).uid, 3) or hasProperty(getThingFromPos(pos).uid, 7) then
return false
end
return true
end

function doSpawnMonsters(monsters, pos, radius, limit)
   if not pos.x or not pos.y or not pos.z or not type(monsters) == 'table' then
       return false
   end
       local radius = tonumber(radius)
   if radius > 5 then
       radius = 5
   elseif radius < 2 then
       radius = 2
   end
   if not limit or limit < 1 then
       limit = 1
   elseif limit > radius ^ 2 then
       limit = math.floor((radius*1.5) ^ 2)
   end

   local k = 0
   local tries = 0
   repeat
       for x = pos.x - radius, pos.x + radius do
           for y = pos.y - radius, pos.y + radius do
               if isWalkable({x=x, y=y, z=pos.z}) then
                   local monster = monsters[math.random(1, #monsters)]
                   local chance = math.random(1, 100)
                   if k == limit then
                       break
                   elseif chance <= 8 and doCreateMonster(monster, {x=x, y=y, z=pos.z}) then
                       k = k + 1
                   end
               end
           end
       end
       tries = tries + 1
   until k >= limit or tries >= 500
   return k >= limit and true or false
end

function getPlayersInArea(pos1,pos2)
   local players = {}
   if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
       for a = pos1.x, pos2.x do
           for b = pos1.y,pos2.y do
               local pos = {x=a,y=b,z=pos1.z}
               if isPlayer(getTopCreature(pos).uid) then
                   table.insert(players,getTopCreature(pos).uid)
               end
           end
       end
       return players
   else
       return false
   end
end

function getMonstersInArea(pos1,pos2)
   local players = {}
   if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
       for a = pos1.x, pos2.x do
           for b = pos1.y,pos2.y do
               local pos = {x=a,y=b,z=pos1.z}
               if isMonster(getTopCreature(pos).uid) then
                   table.insert(players,getTopCreature(pos).uid)
               end
           end
       end
       return players
   else
       return false
   end
end

function doCleanArena()
   local monsters = getMonstersInArea(USurvival.posi, USurvival.posf)
   for _, cid in pairs(monsters) do
       doRemoveCreature(cid)
   end
end

function doStartWave(waveID, cid)
   if not isCreature(cid) then return false end
   if USurvival.waves[waveID] then
       wave = USurvival.waves[waveID]
       doSpawnMonsters(wave.monsters, USurvival.posc, 5, wave.count)
       doPlayerSendTextMessage(cid, 21, 'Wave '..waveID..' inicie abatalha! FIGHT!')
   end
end
]]></config>

<event type="kill" name="UltimateSurvival1" event="script"><![CDATA[
domodlib('ultimatelib')
function onKill(cid, target)
   if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
       if #getMonstersInArea(USurvival.posi, USurvival.posf) == 1 then
           local wave = getPlayerStorageValue(cid, USurvival.storage_wave)
           if USurvival.waves[wave+1] then
               setPlayerStorageValue(cid, USurvival.storage_wave, wave + 1)
               addEvent(doStartWave, 5000, wave + 1, cid)
               doPlayerSendTextMessage(cid, 22, 'Voce passou de wave! proxima em 5 segundos')
           else
               doPlayerSendTextMessage(cid, 22, 'CONGRATULATIONS! YOU HAVE BEATEN THE ULTIMATE SURVIVAL!')
               local reward = USurvival.final_reward
               if reward.item then
                   doPlayerAddItem(cid, reward.item, (reward.amount or 1), false)
               end
               if reward.exp then
                   doPlayerAddExp(cid, reward.exp)
               end
               if reward.money then
                   doPlayerAddMoney(cid, reward.money)
               end
               local medal = doPlayerAddItem(cid, 5785, 1, false)
               if medal then
                   doItemSetAttribute(medal, 'description', 'This was given to '..getCreatureName(cid)..' by completing the Ultimate Survival.')
                   doItemSetAttribute(medal,'name', 'Ultimate Survival Medal')
               end
               doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
           end
       end
   end
   return true
end

]]></event>

</mod>

R4z0r · Abril 6, 2017

up

koalla1235 · Abril 7, 2017

Tambem gostaria Muito desse script para 4 player, alguem ajuda ai por favor !

R4z0r · Abril 7, 2017

up

koalla1123 · Abril 12, 2017

up

Entrar

Derivado [Survival]Sistema

Posts Recomendados

Radamanthys Wov 19

Link para o post

Compartilhar em outros sites

R4z0r 0

Link para o post

Compartilhar em outros sites

koalla1235 1

Link para o post

Compartilhar em outros sites

R4z0r 0

Link para o post

Compartilhar em outros sites

koalla1123 0

Link para o post

Compartilhar em outros sites

Participe da conversa

Quem Está Navegando 0 membros estão online

Conteúdo Similar

TibiaKing

Open Tibia Server

Redes Sociais

Anuncie no TibiaKing

Fóruns

Anuncie

Informação Importante