Ir para conteúdo
  • Cadastre-se

Posts Recomendados

Ae pessoal, eu arrumei um script de uma Arena Survival, que funciona com Sessões de monstros e tals... Só que com esse mod (Script) só da pra ir um por vez. Alguém consegue editar pra que possam ser 4 players na missão, ao invés de 1? E que no final, as recompensas sejam pra todos os players tbm? Abraços, REP+ pra quem tentar ajudar.

 

Script (Não estou conseguindo colocar como Spoiler)

 

 

 

<?xml version="1.0" encoding="UTF-8"?>
<!--
                ULTIMATE SURVIVAL - Codigo feito por Omega / Pedido por vinnevinne
                    

-->
 
<mod name="Ultimate Survival" version="1.0" author="Omega" enabled="yes">
<config name="ultimatelib"><![CDATA[
USurvival = {
    posi = {x=754, y=1300, z=7}, -- parte esquerda superior da arena
    posf = {x=763, y=1309, z=7}, -- parte direita inferior da arena
    posc = {x=759, y=1305, z=7}, -- onde o player entra na arena
    
    waves = {
    [1] = {monsters = {'wolf', 'fighter'}, count = 15, reward = {exp = 0, item = 2148, amount = 1, money = 100}},
    [2] = {monsters = {'Bandit Scout', 'fighter', 'mummy'}, count = 15, reward = {exp = 0, item = 2152, amount = 1, money = 1000}},
    [3] = {monsters = {'Dino', 'pig', 'Triceratops', 'Djin'}, count = 20, reward = {exp = 0, item = 2160, amount = 1, money = 10000}},
    [4] = {monsters = {'Android', 'Android Warrior', 'Destroyer', 'Terminator', 'Ancient Dinosaur', 'bandit swordman'}, count = 20, reward = {exp = 0, item = 2160, amount = 1, money = 10000}},
    },
    exhaust = 0 * 24 * 60 * 60, -- Tempo em segundos ate poder entrar novamente na arena (1 * 24 * 60 * 60 = 1 dia)
    
    final_reward = {item = 2160, amount = 300, exp = 1000, money = 10000},
    
    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..' has started! FIGHT!')
    end
end
]]></config>

<action actionid="4599" event="script" override="yes"><![CDATA[
domodlib('ultimatelib')
function onUse(cid, item)
    if getPlayerStorageValue(cid, USurvival.storage_ex) <= os.time() then
        if #getPlayersInArea(USurvival.posi, USurvival.posf) == 0 then
            doCleanArena()
            doTeleportThing(cid, USurvival.posc)
            doPlayerSendTextMessage(cid, 21, 'Arena survival se inicia em 10 segundos! Prepare-se para enfrentar os monstros.')
            addEvent(doStartWave, 10000, 1, cid)
            setPlayerStorageValue(cid, USurvival.storage_wave, 1)
            setPlayerStorageValue(cid, USurvival.storage_ex, os.time() + USurvival.exhaust)
            if item.itemid % 2 == 1 then
                doTransformItem(item.uid, item.itemid+1)
            else
                doTransformItem(item.uid, item.itemid-1)
            end
        else
            doPlayerSendCancel(cid, 'Aguarde, um player esta na arena.')
            doSendMagicEffect(getThingPos(cid), 2)
        end
    else
        local left = getPlayerStorageValue(cid, USurvival.storage_ex) - os.time()
        left = {hour = math.floor(left/3600), minutes = math.ceil((left % 3600)/60)}
        doPlayerSendCancel(cid, 'You have to wait '.. left.hour ..'h and '..left.minutes..'min.')
        doSendMagicEffect(getThingPos(cid), 2)
    end
    return true
end
]]></action>

<event type="login" name="US Login" event="script"><![CDATA[
domodlib('ultimatelib')
function onLogin(cid)
    registerCreatureEvent(cid,'UltimateSurvival1')
    registerCreatureEvent(cid,'UltimateSurvival2')
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
        doSendMagicEffect(getThingPos(cid), 10)
    end
    return true
end
]]></event>

<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, 'Congratulations! Next wave will start in 5 seconds!')
            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 awarded to '..getCreatureName(cid)..' for completing the Ultimate Survival.')
                    doItemSetAttribute(medal,'name', 'Ultimate Survival Medal')
                end
                doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
            end
        end
    end
    return true
end

]]></event>

<event type="preparedeath" name="UltimateSurvival2" event="script"><![CDATA[
domodlib('ultimatelib')
function onPrepareDeath(cid, killers)
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        doCreatureAddHealth(cid, getCreatureMaxHealth(cid), 65535, 256, true)
        doRemoveConditions(cid, false)
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
        doPlayerSendTextMessage(cid, 21, 'Too bad, you couldn\'t defeat the Ultimate Survival... Better luck next time.')
        local reward = USurvival.waves[getPlayerStorageValue(cid, USurvival.storage_wave)].reward
        if reward.item then
            doPlayerAddItem(cid, reward.item, reward.amount or 1)
        end
        if reward.exp then
            doPlayerAddExp(cid, reward.exp)
        end
        if reward.money then
            doPlayerAddMoney(cid, reward.money)
        end
        return false
    end
    return true
end
]]></event>

</mod>

 

 

Editado por Fredson
Tentando colocar o Spoiler (veja o histórico de edições)
Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.


  • Conteúdo Similar

    • Por LeoTK
      Salve galera neste tópico irei postar algumas prints do mapa do servidor para quem queira acompanhar e quem sabe até utilizar de inspiração para mapear o seu NTO.
       
      #Att 11/08/2022

       
       
       
       
      Konoha (Em Desenvolvimento)
       
       
       
       
    • Por King Laker
      Olá, passei um tempo procurando este script até que um amigo do TK disponibilizou (credito no fim do post)
      Edit1: O evento funciona assim, o evento começa as 14:00:00 para inscrições realizando as inscrições você é levado para sala de espera (coloque no-logout e protection) onde você tera de esperar 5 minutos passado os 5 minutos todos na sala de espera serão teleportados para uma arena que você pode fazer facilmente e configurar conforme explicado na script --> apenas lembre de colocar o no-logout e pvp tool na arena.
      (As 13:59:00 vai aparecer um broadcast dizendo que o Npc PvP irá aparecer em 1 minutos que você terá então 5 minutos para se inscrever com o custo de 10k (configurável na script do actions) a área onde o npc nasce é configurável, o npc sumirá após 6 minutos (1 minuto depois do inicio da matança)-) 
      O ultimo vivo na arena terá de clicar na alavanca e será teleportado para o templo (coordenadas configuráveis) ganhando o devido premio do evento (configuravel na script do actions).
      Vamos lá:

      data/lib adicione um arquivo .lua e renomeie para Torneio.lua e coloque dentro
       
      vai em Globalevents adicione Torneio.lua e dentro dele coloque
       
      (se sua versão é em millisegundos então mude para)
       
      Adicione a tag em globalevents.xml
       
      se seu servidor for em millisegundos:
       
      vai em Actions adicione Torneio.lua e dentro:
      Atenção: Voce faz uma area do Torneio no Map editor e Coloca PVP-Zone e no-logout no Mapa editor e coloca uma Alavanca com a uniqueid "18279" e actionid "18279" antes verifique se não tem a action e unique id no seu servidor com o mesmo numero (18279) [ a alavanca serve para quando o ultimo player vivo no evento volte para o templo e receba os premios]
       
      Em Actions.xml adcione a tag 
       
      Agora o NPC TORNEIO em  data/NPC adicione um xml, renomeie para o nome torneio.xml (pode mudar mais tarde, se não souber oque esta fazendo não mexa)
       
      em NPC/SCRIPTS/torneio.lua
       
      LEIA:
       
      ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
       
      aqui um script que achei no TK que você pode usar no seu evento, ele faz o npc aparecer 1 minuto depois do horario marcado na posição que você quiser, com um broadcast dizendo que ele esta chegando. (é bom para dizer que o evento esta começando)
      vá em globalevents.xml e adicione a tag
      Dica: Coloque 1 minuto antes do inicio do evento (configuravel no lib/torneio.lua) no meu caso seria as 12:00:00 hrs (meio dia)
       
      se o seu servidor não for millisegundos use
       
      va em globalevents/scripts e crie um arquivo .lua com o nome de npcpvp
       
      se o seu servidor não for em millisegundos use assim:
       

      Creditos:
      @J.L por disponibilizar os script do Evento PvP.
      @Stigal por disponibilizar o script do Npc que aparece sozinho na hr marcada.
      @King Laker por editar e mesclar os scripts.
    • Por OmegaZero
      Olá gostaria que alguém me ajudasse com uma "scripting" não sei se é pela mesma, seria o seguinte uma determinada arma teria a chance de dar double hit e não sei oque fazer alguem poderia ajudar?

      OBS:não sei se é o local correto se não for mova, desculpe
    • Por DiigooMix
      Como o título já diz, será que alguém possui sprite do hitto e se possível as transformações dele?
    • Por Madarasenju
      Olá galera do Tibia King, queria por uns npc's no meu server que não tem função de trade nem nada do tipo, queria que eles só andassem como enfeite, Rep+ Pra quem me ajudar... grato desde já.
×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo