Advanced Forge System

[Oneshot 24]

Nome: Advanced Forge System

Autor: Lpz

Versão Testada: The Forgotten Server 0.4.0 rev3884

 

---

Sistema criado para trazer um pouco mais de RPG para os servidores. Que tal, ao invés de NPCs venderem todos os equipamentos, o jogador ter que forjar o que quiser usar?

 

O funcionamento do sistema é simples - O jogador adiciona itens em cima de uma bigorna e dando use com um item secundário em cima desse itens, cria um equipamento novo.

 

Características:

• Código orientado a objetos
  
• Código comentado
  
• As "receitas" de forja podem conter até 250 itens diferentes com suas respectivas quantidades
  
• O sistema é inteligente e identifica a receita em qualquer ordem, ou seja: A+B+C = C+A+B
  
• Intuitivo e fácil de configurar
  

---

 

Quando pedido, certifique-se de criar o arquivo na extensão .lua

 

- Na pasta data/lib, crie um arquivo de nome forgesystem.lua. Adicione o conteúdo abaixo:

 

--[[

     Advanced Forge System
     Version 3.0.0


]]--

----------********************----------
----         SYSTEM CONFIG            ----
----------********************----------

--[[
   Adicionar receitas no sistema é extremamente fácil e intuitivo, basta seguir o modelo:

       local _FORGERECIPES = {
           [itemid] = {
               items = {
                   {id, count},
                   {id, count},
                   ...
               }
           }
       }

   Por exemplo, quero adicionar uma receita de um Golden Helmet que irá precisar de 100 Gold Ingots e skill 11, então:

       local _FORGERECIPES = {
           [2400] = {
               items = {
                   {2157, 100}
               },
               skill = 10
           },
           {
           [2457] = {
               items = {
                   {9971, 100}
               },
               skill = 11
           }
       }

   Em hipótese alguma esqueça de colocar uma vírgula no fim da tabelas internas.

]]-- 
_FORGESYSTEM = {
   useMagicEffect = true, -- Mostrar efeitos animados no sistema?
   useSkill = true, -- Usar sistema de skill Forging
   storages = { -- Storages usados no sistema de skill
       level = 99900,
       tries = 99901
   },
   prompt = { -- Mexa aqui apenas se souber o que está fazendo
       invalidRecipe = "This recipe is not valid.",
       needSkill = "You need skill level %L to make this recipe.",
       createdItem = "You have created %a %N."
   }
}

_FORGERECIPES = {
   [2400] = {
       items = {
           {2157, 1},
           {9971, 1}
       },
       skill = 1
   }
}

----------********************----------
----       GENERAL FUNCTIONS        ----
----------********************----------

function RecipeFromPosition(position)
   --[[

       Essa é uma das funções mais importantes da biblioteca, consiste em checar se os itens
       agrupados em uma certa posição são uma receita pré-configurada.

       Caso sim, então a função cria um objeto e retorna ele, caso não ela retorna nulo.

   ]]--
   local ret, match = {}
   local obj = nil

   for itemid, parameter in pairs(_FORGERECIPES) do
       for i = 1, #parameter.items do
           local thing = getTileItemById(position, parameter.items[i][1])
           if thing.uid > 0 and math.max(1, thing.type) >= parameter.items[i][2] then
               table.insert(ret, {thing.itemid, parameter.items[i][2]})
               if i == #parameter.items then
                   match = itemid
                   obj = Recipe:new()
                   obj:setResult(match)
                   obj:setItems(ret)
                   obj:setSkill(parameter.skill)
               end
           else
               ret = {}
               break
           end
       end
       if match then break end
   end
   return obj
end

function getForgeLevel(cid)
   return (getPlayerStorageValue(cid, _FORGESYSTEM.storages.level) <= 0 and 1 or getPlayerStorageValue(cid, _FORGESYSTEM.storages.level))
end

function setForgeLevel(cid, value)
   setPlayerStorageValue(cid, _FORGESYSTEM.storages.level, value)
end

function getForgeTries(cid)
   return getPlayerStorageValue(cid, _FORGESYSTEM.storages.tries)
end

function addForgeTry(cid)
   local level = getForgeLevel(cid)
   local tries = getForgeTries(cid)

   if tries + 1 >= (level + (level + 1) * 2) * 3 then
       doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "You have advanced from level ".. level .." to level ".. level + 1 .." in Forging")
       setForgeLevel(cid, level + 1)
       setPlayerStorageValue(cid, _FORGESYSTEM.storages.tries, 0)
   else
       setPlayerStorageValue(cid, _FORGESYSTEM.storages.tries, tries + 1)
   end
end

----------********************----------
----         MAIN FUNCTIONS            ----
----------********************----------

RecipeList = {}

Recipe = {
   itemid = 0,
   items = {},
   skill = 0
}



function Recipe:new(obj)
   --[[

       - Função responsável pela criação de um novo objeto, em outras palavras,
         uma nova receita de forja.

         'obj' é o único parâmetro, sendo este opcional, de modo que é totalmente valido usar a função assim
         Recipe:new() ou já na forma de uma tabela assim Recipe:new({itemid = itemid, items = {{id, count}, ...}})

   ]]--
   return setmetatable(obj or {}, { __index = self })
end

function Recipe:setResult(id)
   --[[
       -     Responsável por atribuir um itemid como resultado do objeto criado por Recipe:new()
           Sua utilização é dada da seguinte forma:

           Recipe:new():setResult(2400)

           Por exemplo, criei um nova receita e 'setei' o resultado dela como o itemid 2400
   ]]--
   id = id or 0
   self.itemid = id
end

function Recipe:setItems(...)
   --[[

       -    Função que atribui uma receita para o objeto.
           Sua utilização é dada da seguinte forma:

           Recipe:new():setItems({{2157, 100}, {4258, 1}, {1000, 100}, ...})

   ]]--

   self.items = ...
end

function Recipe:setSkill(value)
   --[[

       - Função responsável por setar o skill necessário
       para criar o item da receita.

   ]]--
   self.skill = value
end

function Recipe:addItem(item, count)
   --[[
       -     Adiciona um array na forma {item, count} no index items do objeto.

   ]]--
   if not item or not count then
       return false
   end
   table.insert(self.items, {item, count})
end

function Recipe:forge(cid, position)
   if getForgeLevel(cid) >= self.skill or _FORGESYSTEM.useSkill == false then
       for i = 1, #self.items do
           local thing = getTileItemById(position, self.items[i][1])
           doRemoveItem(thing.uid, self.items[i][2])
       end
       if _FORGESYSTEM.useMagicEffect == true then doSendMagicEffect(position, CONST_ME_MAGIC_GREEN) end
       doCreateItem(self.itemid, position)
       if cid then
           doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, (_FORGESYSTEM.prompt.createdItem:gsub("%%N", getItemNameById(self.itemid)):gsub("%%a", getItemInfo(self.itemid).article)))
       end
   else
       doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, (_FORGESYSTEM.prompt.needSkill:gsub("%%L", self.skill)))
       if _FORGESYSTEM.useMagicEffect == true then doSendMagicEffect(position, CONST_ME_POFF) end
       for i = 1, #self.items do
           local thing = getTileItemById(position, self.items[i][1])
           doRemoveItem(thing.uid, self.items[i][2])
           doPlayerAddItem(cid, thing.itemid, self.items[i][2])
       end
   end
   return true
end

 

Pronto, a biblioteca do sistema está instalada, basta criar agora um arquivo que faça uso das funções acima.

 

- Em data/actions/scripts, crie um arquivo chamado forge.lua, adicione o seguinte conteúdo:

 

function onUse(cid, item, fromPosition, itemEx, toPosition)
   if isInArray({0, 65535}, toPosition.x) then
       return doPlayerSendCancel(cid, "Sorry, not possible.")
   elseif getTileItemById(toPosition, 2555).uid == 0 then
       return doPlayerSendCancel(cid, "You must put your ingredients in an anvil.")
   end

   local obj = RecipeFromPosition(toPosition)
   if obj then
       obj:forge(cid, toPosition)
       if _FORGESYSTEM.useSkill == true then addForgeTry(cid) end
   else
       doPlayerSendCancel(cid, _FORGESYSTEM.prompt.invalidRecipe)
   end
   return true
end

 

Se você quiser fazer uso de uma talkaction que liste as receitas, crie um arquivo chamado recipelist.lua em talkactions/scripts e adicione o conteúdo abaixo:

 

function onSay(cid, words, param, channel)
   local text = "All a blacksmith must know:\n"
   local n = 1
   for itemid, parameter in pairs(_FORGERECIPES) do
       text = text .. "\n#".. n .." Recipe for ".. getItemNameById(itemid) .."\n\n     You will need:\n\n"
       for i = 1, #parameter.items do
           text = text .. "          ".. parameter.items[i][2] .." un. of ".. getItemNameById(parameter.items[i][1]) .."\n"
       end
       if _FORGESYSTEM.useSkill == true then text = text .."\n".. (getForgeLevel(cid) >= parameter.skill and "     You can" or "     You still can't") .." make this item.\n\n" end
       n = n + 1
   end
   return doShowTextDialog(cid, 2555, text)
end

 

Lembre-se de declarar as seguintes linhas nos seus arquivos actions.xml e talkactions.xml

 

<action itemid="2422" event="script" value="forge.lua"/>

 

<talkaction words="/recipelist" event="script" value="recipelist.lua"/>

 

Pronto, sistema instalado e pronto para uso. Ele ainda está um pouco mal feito, mas estarei optimizando cada vez mais seu código.

 

---

Editado 2 Junho, 2012 por Garou

[Miltonhit 4]

Uooooooool, que script é esse cara? Com certeza merece meu respeito, code impecável e limpíssimo... Sistema diferente de todos postados aqui até hoje, muito criativo, abrindo bastante possibilidade p/ players e administradores.

 

Obrigado pela contribuição, se você puder adicionar algumas imagens para úsuarios menos experientes possam compreender melhor, eu agradeceria.

 

Nota: A+

Remuneração total: 115 v$

 

Exclusivo é obvio! Desculpa pela demora, até mais.

Editado 1 Abril, 2012 por Miltonhit

[Vittu 5]

Boa lpz, como sempre surpreendendo com seus codes.

[tigerx2 1]

@script

Só de ter usado POO já ganhou meu respeito D:

Mas realmente, código limpo, ótima aplicação de poo e grande organização.

Editado 2 Abril, 2012 por Miltonhit

[SombraNegra 0]

diferente de todos msm

como sempre surpreendendo com seus codes.

Editado 2 Abril, 2012 por Miltonhit

[newotserv 0]

Achei muito massa e queria usar no ot que estou fazendo. Esse script funciona em TFS 9.1? Se sim, quero usar, mas gostaria que se pudesse, fizesse algumas alterações pra mim. Quais são as alterações? É bem simples: Gostaria que o item que o Forjer usa para Forjar qualquer coisa, só pudesse ser usado se estivesse na mão do player. Sendo assim, o Forjer teria de tirar a arma que está usando da mão, colocar a "Marreta"(por exemplo), clicar na "Marreta" e clicar no item que está em cima da bigorna.

 

Não sei se o seu sistema de Forjer mecher com porcentagem de sucesso, mas eu gostaria de um sistema com % baseado no skills(que eu inventaria para essa classe - Crafiting seria o nome do skill). Vamos supor que skills 10 é 5% de chance de dar certo(mas mesmo não dando certo, ganha tipo 0,1% de exp no skill. E dando certo, 1% por exemplo) Ai se o skill do cara é 50, sua chance de dar certo para tal item(um item do inicio), 90%, mas para outro item novo, seria tipo 5%.

 

**Não sei se deu para entender, mas se não deu, posso explicar novamente**

[newotserv 0]

Achei muito massa e queria usar no ot que estou fazendo. Esse script funciona em TFS 9.1? Se sim, quero usar, mas gostaria que se pudesse, fizesse algumas alterações pra mim. Quais são as alterações? É bem simples: Gostaria que o item que o Forjer usa para Forjar qualquer coisa, só pudesse ser usado se estivesse na mão do player. Sendo assim, o Forjer teria de tirar a arma que está usando da mão, colocar a "Marreta"(por exemplo), clicar na "Marreta" e clicar no item que está em cima da bigorna.

 

Não sei se o seu sistema de Forjer mecher com porcentagem de sucesso, mas eu gostaria de um sistema com % baseado no skills(que eu inventaria para essa classe - Crafiting seria o nome do skill). Vamos supor que skills 10 é 5% de chance de dar certo(mas mesmo não dando certo, ganha tipo 0,1% de exp no skill. E dando certo, 1% por exemplo) Ai se o skill do cara é 50, sua chance de dar certo para tal item(um item do inicio), 90%, mas para outro item novo, seria tipo 5%.

 

**Não sei se deu para entender, mas se não deu, posso explicar novamente**

[Neotibia 0]

Cara, aqui em casa quando eu adiciono outro item o sistema inteiro da error e não da mais para forjar '-'

Teria como postar o Script com ums 3 Exemplos, para eu seguir o "contexto" ?

[Morfeusinho 0]

muito bom! vou tentar aplicar em meu ot, vlw

[Amonrha 0]

D: provando script