Monster/NPC [TFS 1.x] Forja/Troca

[Leohige 66]

Bom, comecei a aprender Lua hoje e como joguei Tibia a alguns anos atrás decidi desenvolver scripts pro joguinho. Este script é o meu primeiro trabalho com a linguagem, portanto está bem simples mas também funcional.

 

A ideia do NPC é que você possa definir um ou mais itens para serem trocados/forjados por/em um item X. Você também pode por uma ou mais storages para que o player possa efetuar a troca/forja, ou se precisa ser premium account.

 

Aqui tem um GIF demonstrando como o NPC funciona.

 

 

 

Se você gostou e quer usar em seu servidor, a instalação é bem simples.

 

Crie um arquivo chamado Marcus Vinicius.xml na pasta data/npc

 

Spoiler

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Marcus Vinicius" script="forge.lua" walkinterval="2000" floorchange="0">
	<health now="100" max="100" />
	<look type="131" head="20" body="39" legs="45" feet="7" addons="2" />
</npc>

 

 

Crie um arquivo chamado forge.lua na pasta data/npc/scripts

 

Spoiler

-- Items to forge
local items = {
    {
        id = 2466, 
        requirements = {
            {id = 9971, count = 20}
        },
        storages = {
            {key = 1010, value = 1}
        },
        premium = true
    },
    {
        id = 2183, 
        requirements = {
            {id = 12508, count = 2}
        }
    },
    {
        id = 7753, 
        requirements = {
            {id = 5887, count = 10},
            {id = 7760, count = 1}
        }
    }
}

local nodes = {}
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)

function onCreatureAppear(cid)              npcHandler:onCreatureAppear(cid)            end
function onCreatureDisappear(cid)           npcHandler:onCreatureDisappear(cid)         end
function onCreatureSay(cid, type, msg)      npcHandler:onCreatureSay(cid, type, msg)    end
function onThink()                          npcHandler:onThink()                        end

for i = 1, #items, 1 do
    local requirements = items[i].requirements
    local storages = items[i].storages or {}
    local premium = items[i].premium or false
    local itemId = items[i].id 
    local item = doCreateItemEx(itemId)
    
    if item == nil then
        error('Item ' .. itemId .. ' is not valid!')
    end
    
    -- Items message
    if i == 1 then
        msgItems = 'I can forge: {' .. getItemName(itemId) .. '}'
    elseif #items == i then
        msgItems = msgItems .. ' and {' .. getItemName(itemId) .. '}.'
        table.insert(nodes, keywordHandler:addKeyword({'items'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = msgItems} ))        
    else
        msgItems = msgItems .. ', {' .. getItemName(itemId) .. '}'
    end
    
    for j = 1, #requirements, 1 do
        local rCountItem = requirements[j].count
        local rItemId = requirements[j].id
        local rItem = doCreateItemEx(rItemId)
        
        if not isItem(rItem) then
            error('Item ' .. itemId .. ' is not valid!')
        end
        
        -- Requirements message
        if j == 1 and j == #requirements then
            msg = 'Would you like to forge ' .. rCountItem .. ' ' .. getItemName(rItemId)
            msg = msg .. ' into 1 ' .. getItemName(itemId) .. '?'
        elseif j == 1 then
            msg = 'Would you like to forge ' .. rCountItem .. ' ' .. getItemName(rItemId)
        elseif j == #requirements then
            msg = msg .. ' and ' .. rCountItem .. ' ' .. getItemName(rItemId)
            msg = msg .. ' into 1 ' .. getItemName(itemId) .. '?'
        else
            msg = msg .. ', ' .. rCountItem .. ' ' .. getItemName(rItemId)
        end
    end
    
    nodes[i] = keywordHandler:addKeyword({getItemName(itemId)}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = msg} )
    nodes[i]:addChildKeyword({'yes'}, StdModule.forge, {npcHandler = npcHandler, premium = premium, cost = requirements, item = itemId, storages = storages})
    nodes[i]:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, reset = true, text = 'Ok!'})
end

npcHandler:addModule(FocusModule:new())

 

 

Agora vá até o arquivo data/npc/lib/npcsystem/modules.lua e antes do último end adicione o seguinte código

 

Citar

    function StdModule.forge(cid, message, keywords, parameters, node)
        local npcHandler = parameters.npcHandler
        local player = Player(cid)

        if npcHandler == nil then
            error("StdModule.forge called without any npcHandler instance.")
        end

        if not npcHandler:isFocused(cid) then
            return false
        end

        if not player:isPremium() and parameters.premium then
            npcHandler:say("You need to be premium.", cid)
            return false
        end

        for i = 1, #parameters.storages, 1 do
            if player:getStorageValue(parameters.storages[i].key) ~= parameters.storages[i].value then
                npcHandler:say("I can't do it for you now.", cid)
                return false
            end
        end

        for i = 1, #parameters.cost, 1 do
            if player:getItemCount(parameters.cost[i].id) < parameters.cost[i].count then
                npcHandler:say("You don't have all the necessary items for the forge.", cid)
                return false
            end
        end

        for i = 1, #parameters.cost, 1 do
            player:removeItem(parameters.cost[i].id, parameters.cost[i].count)
        end

        player:addItem(parameters.item, 1, false)
        npcHandler:say("Here's your " .. getItemName(parameters.item) .. "!.", cid)

        npcHandler:resetNpc(cid)
        return true
    end

 

 

Depois de tudo isso o NPC já estará funcionando 100%.

 

Para adicionar novos itens na forja/troca é bem simples, logo nas primeiras linhas do forge.lua você encontrara a configuração do NPC.

 

Aqui tem uma breve explicação de como configurar o NPC:

 

Citar

local items = {
    {
        id = 2466, -- Este é o ID do item no qual você deja realizar a forja/troca.
        requirements = {
            {id = 9971, count = 20} -- Aqui fica o ID e a quantidade do material para a forja/troca.
        },
        storages = {
            {key = 1010, value = 1} -- Pode ser inserido o número da storage e o valor dela para a forja/troca ser realizada.
        },
        premium = true -- Também pode ser definido se o player precisa ser premium ou não para realizar a forja/troca.
    }
}

 

 

Bom galera é isso ai, se vocês tiverem algum problema ou sugestão podem falar.

Editado Janeiro 14, 2018 por Leohige
Correção de bug. (veja o histórico de edições)

[LeoTK 795]

Parabéns, seu tópico de conteúdo foi aprovado!
Muito obrigado pela sua contribuição, nós do Tibia King agradecemos.
Seu conteúdo com certeza ajudará à muitos outros, você recebeu +1 REP.

Spoiler

Congratulations, your content has been approved!
Thank you for your contribution, we of Tibia King we are grateful.
Your content will help many other users, you received +1 REP.

 

[acan 0]

@Leohige

help me plx

 

[14/01/2018 18:36:23] [Error - Npc interface] 
[14/01/2018 18:36:23] data/npc/scripts/Raiton Master.lua
[14/01/2018 18:36:23] Description: 
[14/01/2018 18:36:23] data/npc/scripts/Raiton Master.lua:45: attempt to call global 'isItem' (a nil value)
[14/01/2018 18:36:23] [Warning - NpcScript::NpcScript] Cannot load script: data/npc/scripts/Raiton Master.lua

Editado Janeiro 14, 2018 por acan (veja o histórico de edições)

[Leohige 66]

Dei uma editada no script, recrie o forge.lua e teste novamente. Caso ocorra algum outro erro poste novamente que irei ajudar.

[acan 0]

Spoiler

14/01/2018 19:20:02] [Error - Npc interface] 
[14/01/2018 19:20:02] data/npc/scripts/Raiton Master.lua
[14/01/2018 19:20:02] Description: 
[14/01/2018 19:20:02] (luaGetThing) Thing not found

 

14/01/2018 19:20:02] [Error - Npc interface] 
[14/01/2018 19:20:02] data/npc/scripts/Raiton Master.lua
[14/01/2018 19:20:02] Description: 
[14/01/2018 19:20:02] data/lib/050-function.lua:306: attempt to index a boolean value
[14/01/2018 19:20:02] [Warning - NpcScript::NpcScript] Cannot load script: data/npc/scripts/Raiton Master.lua

@Leohige un nuevo error...

Editado Janeiro 14, 2018 por acan (veja o histórico de edições)

[Leohige 66]

Você ta usando qual TFS?

[acan 0]

The Forgotten Server, version 0.3.6 (Crying Damson)

[Leohige 66]

Esse script não vai funcionar nesta versão, só se refizer ele inteiro.

[AllanSilva 4]

Se possível é TFS 0.4 Globo OTX?

[Hokograma 57]

Testa ai

 

Crafter.XML

Citar

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Jiruki" script="crafter.lua" walkinterval="2000" floorchange="0">
    <health now="100" max="100"/>
    <look type="232"/>
</npc>

 

Crafter.LUA

Citar

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local npcTopic, xmsg = {}, {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end

local craft = {
["demon helmet"] = {reward = {{2493, 1}}, items = {{id = 2160, count = 1}, {id = 2148, count = 1}}},
["magic plate armor"] = {reward = {{2472, 1}}, items = {{id = 2160, count = 10}, {id = 2044, count = 2}}},
["soft boots"] = {reward = {{6132, 1}}, items = {{id = 2160, count = 1}, {id = 2148, count = 1}}},
["knight armor"] = {reward = {{2376, 1}}, items = {{id = 2160, count = 1}, {id = 2148, count = 1}}}
}

local function checkItemsNeeded(cid, items)
local check = {}
for i, v in pairs(items) do
    if getPlayerItemCount(cid, v.id) >= v.count then
        check[#check + 1] = 1
    end
end
return #check
end

local function getItemsFromTable(items)
local str = ''
if table.maxn(items) > 0 then
for i = 1, table.maxn(items) do
str = str .. items.count .. ' ' .. getItemNameById(items.id)
if i ~= table.maxn(items) then str = str .. ', ' end end end
return str
end

local function craftingEffects(position, delay)
local text = {"Ishhh!", "Kaboom", "Tic Tac", "BUM!", "Blop Blop!", "Cronch!"}
local effects = {2, 6, 25, 31, 36,40, 54, 51, 65, 66, 67, 68}
if delay ~= 0 then
doSendAnimatedText(position, text[math.random(1, #text)], math.random(1, 255))
doSendMagicEffect(position, effects[math.random(1, #effects)])
addEvent(craftingEffects, 1000, position, delay - 1)
end
end

function creatureSayCallback(cid, type, msg)
    local talkUser, msg = NPCHANDLER_CONVbehavior == CONVERSATION_DEFAULT and 0 or cid, string.lower(msg)
    if(not npcHandler:isFocused(cid)) then
        if isInArray({"hi", "hello"}, msg) then
            npcHandler:addFocus(cid)
            npcHandler:say("Ola, "..getPlayerName(cid)..". Posso Construir Alguns {items} Para Voce, Mas Preciso De Linceças Especiais Para Faze Los.", cid)
            npcTopic[talkUser] = 1
        else
            return false
        end
    elseif msgcontains(msg, "items") and npcTopic[talkUser] == 1 then
        local text = ""
        for i, v in pairs(craft) do
            text = text .. " {"..i.."}, "
        end
        npcHandler:say("Eu Posso Contruir " .. text .. " Qual Deles Voce Deseja?", cid)
        npcTopic[talkUser] = 2
    elseif craft[msg] and npcTopic[talkUser] == 2 then
        npcHandler:say("Oh, " .. msg .. " E Uma Boa Escolha. Deixe Me Ver ... Eu Preciso " .. getItemsFromTable(craft[msg].items) .. ", Voce As Tem?" , cid)
        npcTopic[talkUser] = 3
        xmsg[talkUser] = msg
    elseif not craft[msg] and npcTopic[talkUser] == 2 then    
        npcHandler:say("Eu Nao Estou Elaborando Esse Item, Talvez Eu Possa Considerar Seu Pedido Mais Tarde.", cid)
        npcTopic[talkUser] = 0
    elseif msgcontains(msg, "yes") and npcTopic[talkUser] == 3 then
        local x = craft[xmsg[talkUser]]
        local delay = 6
        if checkItemsNeeded(cid, x.items) == #x.items then
            craftingEffects(getCreaturePosition(getNpcCid()), delay)
                for i = 1, #x.items do
                    doPlayerRemoveItem(cid, x.items.id, x.items.count)
                end
            addEvent(function()
                if isPlayer(cid) then
                    for i = 1, #x.reward do
                        doPlayerAddItem(cid, x.reward[1], x.reward[2])
                    end
                end
            end, delay*1000)
            local type = talkUser == 0 and TALKTYPE_SAY or TALKTYPE_PRIVATE_NP
            addEvent(doCreatureSay, delay*1000, getNpcCid(), "Muito Obrigado! Aqui Esta O Seu Item Como Eu Prometi.", type, cid)
            npcTopic[talkUser] = 0
        else
            npcHandler:say("Desculpe, Mas Voce Nao Tem Os Itens Que Eu Preciso.", cid)
            npcTopic[talkUser] = 0
        end
    elseif msgcontains(msg, "no") and npcTopic[talkUser] == 3 then
        npcHandler:say("Ok, maybe on the next.", cid)
        npcTopic[talkUser] = 0
    elseif msgcontains(msg, "bye") then
        npcHandler:say("Bye.", cid)
        npcHandler:releaseFocus(cid)
    else
        npcHandler:say("Estou Muito Ocupado, Nao Posso Falar Com voce Agora!", cid)
        npcTopic[talkUser] = 0
    end
    return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)    

 

[acan 0]

@Hokograma 

no me funciona tfs 0.3.6 version!!!