Ir para conteúdo
Banner com Efeitos
BR seuserver.com.br DESCRIÇÃO: ANUNCIE AQUI neste countdown e dê maior visibilidade ao seu lançamento | Fórum Otserv | Downloads | Tutoriais | IA Especializada para otserv | Lista de Servidores | mais de 10 anos de conteúdos! INICIA EM:

[PEDIDO] Sistema de Refinar Item para TFS 1.0

Por TioSlash
em Suporte Tibia OTServer

Featured Replies

Postado

--- Sistema de Upgrade de itens feito por Killua.
--- Sistema feito com base no do Bronson Server.
 
local vocations = {1, 2, 4, 5, 6, 7, 8} -- Vocações que podem refinar itens
 
local idsbloqueados = {2160, 5706, 2463} -- Itens que não podem ser refinados
 
local controle = {
    {level = 0, quantOre = 1, chance = 100}, -- Level do item, quantidade de Iron Ore necessaria, chance de sucesso
    {level = 1, quantOre = 2, chance = 90},
    {level = 2, quantOre = 3, chance = 80},
    {level = 3, quantOre = 4, chance = 70},
    {level = 4, quantOre = 5, chance = 60},
    {level = 5, quantOre = 6, chance = 50},
    {level = 6, quantOre = 7, chance = 40},
    {level = 7, quantOre = 8, chance = 30},
    {level = 8, quantOre = 9, chance = 20},
    {level = 9, quantOre = 10, chance = 10}
}
 
function getItemLevel(uid)
    if uid > 0 then
        return getItemAttribute(uid, "lvl") or 0
    end
    return false
end
 
function doItemAddLevel(uid, count)
    if uid > 0 and tonumber(count) > 0 then
        return doItemSetAttribute(uid, "lvl", getItemLevel(uid) + count)
    end
    return false
end
 
function onUse(cid, item, fromPosition, itemEx, toPosition)
    if not isInArray(vocations, getPlayerVocation(cid)) then
        return doPlayerSendCancel(cid, "Sua vocacao nao pode refinar.")
    elseif isInArray(idsbloqueados, itemEx.uid) then
        return doPlayerSendCancel(cid, "Este item nao pode ser refinado.")
    end 
    
    if getItemName(itemId).attack > 0 or getItemName(itemId).defense > 0 or getItemName(itemId).armor > 0 then
        for _, upgrade in pairs(controle) do
            local atk = getItemAttribute(itemEx.uid, "attack") or getItemName(itemId).attack
            local def = getItemAttribute(itemEx.uid, "defense") or getItemName(itemId).defense
            local arm = getItemAttribute(itemEx.uid, "armor") or getItemName(itemId).armor
            local chance = math.random(1, 100)
            if getItemLevel(itemEx.uid) == upgrade.level then
               if doPlayerRemoveItem(cid, 5880, upgrade.quantOre) then
                   doSendMagicEffect(getThingPos(itemEx.uid), CONST_ME_CRAPS)
                  if chance <= upgrade.chance then
                      if getItemLevel(itemEx.uid) == 0 then
                          doItemSetAttribute(itemEx.uid, "description", "Esse item foi refinado por" ..getCreatureName(cid))
                      end
                      doItemAddLevel(itemEx.uid, 1)
                      doItemSetAttribute(itemEx.uid, "name", getItemNameById(itemEx.itemid).. " + " ..getItemLevel(itemEx.uid))
                      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce refinou com sucesso! Agora seu "..getItemNameById(itemEx.itemid).." eh level " ..getItemLevel(itemEx.uid))
                      if getItemName(itemId).attack > 0 then
                          doItemSetAttribute(itemEx.uid, "attack", atk + 1)
                          return true
                      elseif getItemName(itemId).armor > 0 then
                          doItemSetAttribute(itemEx.uid, "armor", arm + 1)
                          return true
                      elseif getItemName(itemId).defense > 0 and getItemName(itemId).attack <= 0 then
                          doItemSetAttribute(itemEx.uid, "defense", def + 1)
                          return true
                      end
                  else
                      doTransformItem(itemEx.uid, 2256)
                      doItemSetAttribute(itemEx.uid, 'name', "metal trash")
                      doItemSetAttribute(itemEx.uid, 'attack', 0)
                      doItemSetAttribute(itemEx.uid, 'armor', 0)
                      doItemSetAttribute(itemEx.uid, 'defense', 0)
                      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce falhou.")
                      return true
                  end
              else
                  doPlayerSendCancel(cid, "Voce nao tem iron ores o suficiente. Voce precisa de "..upgrade.quantOre.." iron ores.")
              end
          end
      end
  else
      doPlayerSendCancel(cid, "Esse item nao pode ser refinado.")
  end
  return true
end  

 
Editado, se não for agora eu me mato, vlw flw.

                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Assinatura~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                                                                pmnz1.jpg

  • Citar
  • Mention
    • Respostas 16
    • Visualizações 2.7k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Postado
    • Autor

     

    --- Sistema de Upgrade de itens feito por Killua.
    --- Sistema feito com base no do Bronson Server.
     
    local vocations = {1, 2, 4, 5, 6, 7, 8} -- Vocações que podem refinar itens
     
    local idsbloqueados = {2160, 5706, 2463} -- Itens que não podem ser refinados
     
    local controle = {
        {level = 0, quantOre = 1, chance = 100}, -- Level do item, quantidade de Iron Ore necessaria, chance de sucesso
        {level = 1, quantOre = 2, chance = 90},
        {level = 2, quantOre = 3, chance = 80},
        {level = 3, quantOre = 4, chance = 70},
        {level = 4, quantOre = 5, chance = 60},
        {level = 5, quantOre = 6, chance = 50},
        {level = 6, quantOre = 7, chance = 40},
        {level = 7, quantOre = 8, chance = 30},
        {level = 8, quantOre = 9, chance = 20},
        {level = 9, quantOre = 10, chance = 10}
    }
     
    function getItemLevel(uid)
        if uid > 0 then
            return getItemAttribute(uid, "lvl") or 0
        end
        return false
    end
     
    function doItemAddLevel(uid, count)
        if uid > 0 and tonumber(count) > 0 then
            return doItemSetAttribute(uid, "lvl", getItemLevel(uid) + count)
        end
        return false
    end
     
    function onUse(cid, item, fromPosition, itemEx, toPosition)
        if not isInArray(vocations, getPlayerVocation(cid)) then
            return doPlayerSendCancel(cid, "Sua vocacao nao pode refinar.")
        elseif isInArray(idsbloqueados, itemEx.uid) then
            return doPlayerSendCancel(cid, "Este item nao pode ser refinado.")
        end 
        
        if getItemName(itemId).attack > 0 or getItemName(itemId).defense > 0 or getItemName(itemId).armor > 0 then
            for _, upgrade in pairs(controle) do
                local atk = getItemAttribute(itemEx.uid, "attack") or getItemName(itemId).attack
                local def = getItemAttribute(itemEx.uid, "defense") or getItemName(itemId).defense
                local arm = getItemAttribute(itemEx.uid, "armor") or getItemName(itemId).armor
                local chance = math.random(1, 100)
                if getItemLevel(itemEx.uid) == upgrade.level then
                   if doPlayerRemoveItem(cid, 5880, upgrade.quantOre) then
                       doSendMagicEffect(getThingPos(itemEx.uid), CONST_ME_CRAPS)
                      if chance <= upgrade.chance then
                          if getItemLevel(itemEx.uid) == 0 then
                              doItemSetAttribute(itemEx.uid, "description", "Esse item foi refinado por" ..getCreatureName(cid))
                          end
                          doItemAddLevel(itemEx.uid, 1)
                          doItemSetAttribute(itemEx.uid, "name", getItemNameById(itemEx.itemid).. " + " ..getItemLevel(itemEx.uid))
                          doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce refinou com sucesso! Agora seu "..getItemNameById(itemEx.itemid).." eh level " ..getItemLevel(itemEx.uid))
                          if getItemName(itemId).attack > 0 then
                              doItemSetAttribute(itemEx.uid, "attack", atk + 1)
                              return true
                          elseif getItemName(itemId).armor > 0 then
                              doItemSetAttribute(itemEx.uid, "armor", arm + 1)
                              return true
                          elseif getItemName(itemId).defense > 0 and getItemName(itemId).attack <= 0 then
                              doItemSetAttribute(itemEx.uid, "defense", def + 1)
                              return true
                          end
                      else
                          doTransformItem(itemEx.uid, 2256)
                          doItemSetAttribute(itemEx.uid, 'name', "metal trash")
                          doItemSetAttribute(itemEx.uid, 'attack', 0)
                          doItemSetAttribute(itemEx.uid, 'armor', 0)
                          doItemSetAttribute(itemEx.uid, 'defense', 0)
                          doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce falhou.")
                          return true
                      end
                  else
                      doPlayerSendCancel(cid, "Voce nao tem iron ores o suficiente. Voce precisa de "..upgrade.quantOre.." iron ores.")
                  end
              end
          end
      else
          doPlayerSendCancel(cid, "Esse item nao pode ser refinado.")
      end
      return true
    end  

     
    Editado, se não for agora eu me mato, vlw flw.

     

     

     

    Pode pegar o revolver:

    Log em anexo.

     
    Lua Script Error: [Action Interface]
    data/actions/scripts/upgrade.lua:onUse
    data/actions/scripts/upgrade.lua:6: attempt to index global 'UpgradeHandler' (a nil value)
    stack traceback:
            [C]: in function '__index'
            data/actions/scripts/upgrade.lua:6: in function <data/actions/scripts/upgrade.lua:1>

    1609891_3.png

    Trimera

    Tibia Old 7.4

     

     

  • Citar
  • Mention
    • Postado

    local vocations = {1, 2, 4, 5, 6, 7, 8} -- Vocações que podem refinar itens 
    local blocks = {2160, 5706, 2463} -- Itens que não podem ser refinados
     
    local controle = {
        {level = 0, quantOre = 1, chance = 100}, -- Level do item, quantidade de Iron Ore necessaria, chance de sucesso
        {level = 1, quantOre = 2, chance = 90},
        {level = 2, quantOre = 3, chance = 80},
        {level = 3, quantOre = 4, chance = 70},
        {level = 4, quantOre = 5, chance = 60},
        {level = 5, quantOre = 6, chance = 50},
        {level = 6, quantOre = 7, chance = 40},
        {level = 7, quantOre = 8, chance = 30},
        {level = 8, quantOre = 9, chance = 20},
        {level = 9, quantOre = 10, chance = 10}
    }
     
    function getItemLevel(uid)
        if uid > 0 then
            return getItemAttribute(uid, "lvl") or 0
        end
        return false
    end
     
    function doItemAddLevel(uid, count)
        if uid > 0 and tonumber(count) > 0 then
            return doItemSetAttribute(uid, "lvl", getItemLevel(uid) + count)
        end
        return false
    end
     
    function onUse(cid, item, fromPosition, itemEx, toPosition)
        if not isInArray(vocations, getPlayerVocation(cid)) then
            return doPlayerSendCancel(cid, "Sua vocacao nao pode refinar.")
        elseif isInArray(blocks, itemEx.uid) then
            return doPlayerSendCancel(cid, "Este item nao pode ser refinado.")
        end 
        
        if getItemName(itemId).attack > 0 or getItemName(itemId).defense > 0 or getItemName(itemId).armor > 0 then
            for _, upgrade in pairs(controle) do
                local atk = getItemAttribute(itemEx.uid, "attack") or getItemName(itemId).attack
                local def = getItemAttribute(itemEx.uid, "defense") or getItemName(itemId).defense
                local arm = getItemAttribute(itemEx.uid, "armor") or getItemName(itemId).armor
                local chance = math.random(1, 100)
                if getItemLevel(itemEx.uid) == upgrade.level then
                   if doPlayerRemoveItem(cid, 5880, upgrade.quantOre) then
                       doSendMagicEffect(getThingPos(itemEx.uid), CONST_ME_CRAPS)
                      if chance <= upgrade.chance then
                          if getItemLevel(itemEx.uid) == 0 then
                              doItemSetAttribute(itemEx.uid, "description", "Esse item foi refinado por" ..getCreatureName(cid))
                          end
                          doItemAddLevel(itemEx.uid, 1)
                          doItemSetAttribute(itemEx.uid, "name", getItemNameById(itemEx.itemid).. " + " ..getItemLevel(itemEx.uid))
                          doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce refinou com sucesso! Agora seu "..getItemNameById(itemEx.itemid).." eh level " ..getItemLevel(itemEx.uid))
                          if getItemName(itemId).attack > 0 then
                              doItemSetAttribute(itemEx.uid, "attack", atk + 1)
                              return true
                          elseif getItemName(itemId).armor > 0 then
                              doItemSetAttribute(itemEx.uid, "armor", arm + 1)
                              return true
                          elseif getItemName(itemId).defense > 0 and getItemName(itemId).attack <= 0 then
                              doItemSetAttribute(itemEx.uid, "defense", def + 1)
                              return true
                          end
                      else
                          doTransformItem(itemEx.uid, 2256)
                          doItemSetAttribute(itemEx.uid, 'name', "metal trash")
                          doItemSetAttribute(itemEx.uid, 'attack', 0)
                          doItemSetAttribute(itemEx.uid, 'armor', 0)
                          doItemSetAttribute(itemEx.uid, 'defense', 0)
                          doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce falhou.")
                          return true
                      end
                  else
                      doPlayerSendCancel(cid, "Voce nao tem iron ores o suficiente. Voce precisa de "..upgrade.quantOre.." iron ores.")
                  end
              end
          end
      else
          doPlayerSendCancel(cid, "Esse item nao pode ser refinado.")
      end
      return true
    end  

    tenta aê... não to podendo testar aqui ;/
     

    Falecido em 09/07/2014

                                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Assinatura~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                                                                    pmnz1.jpg

  • Citar
  • Mention

    • 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
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.7k

    Informação Importante

    Confirmação de Termo

    I accept