Dwarfer

Vodkart · Janeiro 18, 2021

Mostrar conteúdo oculto

-- by dwarfer
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local npcTopic = {}
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 t = {
    costItems = {{13386, 1}, {12713, 1}, {13400, 1}}, -- {id do item, quantidade}
    rewardItems = {{12714, 1}},
}

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("Olá, "..getPlayerName(cid)..". Posso te dar {itens} especiais se você me der o que preciso.", cid)
            npcTopic[talkUser] = 1
        else
            return false
        end
    elseif msgcontains(msg, "itens") and npcTopic[talkUser] == 1 then
        local textcost, textrwd, tmp = "", "", {}
        for k = 1, #t.rewardItems do
            tmp = t.rewardItems[k]
            textrwd = textrwd .. tmp[2] .. "x " .. getItemNameById(tmp[1]) .. ((k+1) == #t.rewardItems and " e " or (k ~= #t.rewardItems and ", " or ""))
        end
        if #t.costItems > 0 then
            for i = 1, #t.costItems do
                tmp = t.costItems[i]
                textcost = textcost .. tmp[2] .. "x " .. getItemNameById(tmp[1]) .. (i ~= #t.costItems and ", " or "")
            end
            npcHandler:say("Você quer me dar "..textcost.." em troca de "..textrwd.."?", cid)
            npcTopic[talkUser] = 2
        else
            npcHandler:say("Você quer "..textrwd.." grátis?", cid)
            npcTopic[talkUser] = 2
        end
    elseif msgcontains(msg, "yes") and npcTopic[talkUser] == 2 then
        local check, tmp = true, {}
        if #t.costItems > 0 then
            for i = 1, #t.costItems do
                tmp = t.costItems[i]
                if getPlayerItemCount(cid, tmp[1]) < tmp[2] then
                    check = false
                    break
                end
            end
        end
        if not check then
            npcHandler:say("Você não tem todos os itens que preciso. Volte quando estiver com todos eles.", cid)
            npcTopic[talkUser] = 0
            npcHandler:releaseFocus(cid)
        else
            if #t.costItems > 0 then
                for i = 1, #t.costItems do
                    tmp = t.costItems[i]
                    doPlayerRemoveItem(cid, tmp[1], tmp[2])
                end
            end
            for k = 1, #t.rewardItems do
                tmp = t.rewardItems[k]
                if isItemStackable(tmp[1]) then
                    doPlayerAddItem(cid, tmp[1], tmp[2])
                else
                    for n = 1, tmp[2] do
                        doPlayerAddItem(cid, tmp[1], 1)
                    end
                end
            end
            npcHandler:say("Negócio fechado! Receba o que prometi. Aguardo seu retorno outro dia.", cid)
            npcTopic[talkUser] = 0
            npcHandler:releaseFocus(cid)
        end
        
    elseif msgcontains(msg, "no") and npcTopic[talkUser] == 2 then
        npcHandler:say("Sem problemas, estarei sempre aqui no mesmo local e no mesmo horário.", cid)
        npcTopic[talkUser] = 0
        npcHandler:releaseFocus(cid)
    elseif msgcontains(msg, "bye") then
        npcHandler:say("Até outro dia.", cid)
        npcTopic[talkUser] = 0
        npcHandler:releaseFocus(cid)
    end
    return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:setMessage(MESSAGE_FAREWELL, "Até mais.")
npcHandler:setMessage(MESSAGE_WALKAWAY, "Até.")

Morg Tuts · Janeiro 18, 2021

@ADM Alef Como sugestão, uma solução mais rápida, para não precisar fazer isso em todos os NPCS: apenas troque o "cost" para false

O que era assim:

travelKeyword:addChildKeyword({'yes'}, StdModule.travel, {npcHandler = npcHandler, premium = true, cost = cost, discount = 'postman', destination = destination}, nil, action)

Fica assim:

travelKeyword:addChildKeyword({'yes'}, StdModule.travel, {npcHandler = npcHandler, premium = true, cost = false, discount = 'postman', destination = destination}, nil, action)

Lethal M · Janeiro 15, 2021

Coloquei a fórmula da magia como no exura sio que você deixou. Qualquer coisa é só trocar a fórmula ali como você quiser.

local spellConfig = {
    healCount = 12, -- número de vezes que vai curar
    healInterval = 75 -- intervalo da cura em milisegundos
}

local combat = Combat()
combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_HEALING)
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
combat:setParameter(COMBAT_PARAM_AGGRESSIVE, 0)
combat:setParameter(COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)

function onGetFormulaValues(player, level, maglevel)
    local div = 1 / spellConfig.healCount
	local min = div * ((level / 5) + (maglevel * 10))
	local max = div * ((level / 5) + (maglevel * 14))
	return min, max
end

combat:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues")

local function sendHealingEffect(cid, var, target, healcounter)
    local player = Player(cid)
    if not player then
        return
    end
    local targetPlayer = Player(target)
    if not targetPlayer then
        return
    end
    combat:execute(player, var)
    local targetPos = targetPlayer:getPosition()
    local randPos = Position(targetPos.x + math.random(-4, 3), targetPos.y + math.random(-3, 2), targetPos.z)
    randPos:sendMagicEffect(CONST_ME_ASSASSIN)
    randPos:sendDistanceEffect(targetPos, CONST_ANI_SMALLHOLY)
    targetPos:sendMagicEffect(CONST_ME_MAGIC_BLUE)
    if healcounter == 0 then
        targetPos:sendMagicEffect(CONST_ME_HOLYAREA)
    end
end

function onCastSpell(creature, var)
    local target = Player(var:getNumber())
    if not target then
        return
    end
    local healcounter, interval = spellConfig.healCount, spellConfig.healInterval
    local playerId = creature:getId()
    local targetId = target:getId()
    creature:say(string.format('Brothers, heal %s now!', target:getName()), TALKTYPE_MONSTER_SAY)
    for i = 1, healcounter do
        addEvent(sendHealingEffect, (i-1) * interval, playerId, var, targetId, healcounter - i)
    end
    return false
end

Pega a tag do exura sio no spells.xml e coloca para sua magia.

Vai ficar assim:

https://i.imgur.com/Uiha0uB.gif

iTzBrHue3 · Janeiro 15, 2021

Pelo que entendi da sua magia, já que não tive como testar, primeiro é recomendável que você adicione na tag da magia no spells.xml o seguinte:

needweapon="1"

Para que não dê mais erros, deixe a magia assim:

Mostrar conteúdo oculto

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

function onGetFormulaValues(cid, level, skill, attack, element, factor)
    local levelTotal = level / 5
    local skillTotal = skill * attack
    local min = levelTotal + (skillTotal * 0.005)
    local max = levelTotal + (skillTotal * 0.015)
    return -math.ceil(min), -math.ceil(max)
end

setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")


combat_arr = {
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
}

local combat_area = createCombatArea(combat_arr)
setCombatArea(combat, combat_area)

local weapons = {[1] = 24, [2] = 26, [3] = 25}

local function weaponType(cid)
    local playerWeapon = getPlayerWeapon(cid).uid
    if playerWeapon > 0 then
        return weapons[getItemWeaponType(playerWeapon)]
    end
    return false
end

local function choose(...)
    local arg = {...}
    return arg[math.random(1,#arg)]
end


local function areaEffect(param)
    local p = getCreaturePosition(param.cid)
    if isCreature(param.cid) and not getTilePzInfo(p) then
        local playerWeapon = getPlayerWeapon(param.cid).uid
        if playerWeapon > 0 then
            local ret = weaponType(param.cid)
            if ret and ret == param.weaponType then
                for i = 1, 3 do
                    start_pos_1 = {x = p.x+choose(-8, 8), y = p.y+math.random(-6, 6), z = p.z}
                    start_pos_2 = {x = p.x+math.random(-8, 8), y = p.y+choose(-6, 6), z = p.z}
                    final_pos_1 = {x = p.x+(choose(-8, 8)*-1), y = p.y+(math.random(-6, 6)*-1), z = p.z}
                    final_pos_2 = {x = p.x+(math.random(-8, 8)*-1), y = p.y+(choose(-6, 6)*-1), z = p.z}
                    doSendDistanceShoot(start_pos_1, final_pos_1, ret)
                    doSendDistanceShoot(start_pos_2, final_pos_2, ret)
                end
                return doCombat(param.cid, combat, param.var)
            end
        end
    end
    return true
end
 

function onCastSpell(cid, var)
    local playerWeaponType = getItemWeaponType(getPlayerWeapon(cid).uid)
    local parameters = {cid=cid, var=var, weaponType = weapons[playerWeaponType]}
    for i = 1, 40 do
        addEvent(areaEffect, i * 250, parameters)
    end
    return true
end

Dessa maneira, caso o player desequipe a arma ou troque o tipo de arma em relação ao tipo que estava equipado quando soltou a magia (ex.: solta com sword e depois equipa um axe), a magia vai parar. Lembrando que do jeito que sua magia está, ele ainda vai poder desequipar a arma e caso volte a equipá-la dentro do tempo de duração da magia, a magia voltará a atacar. Não sei se isso foi proposital, se é pra funcionar assim mesmo...

Ajuste o tempo de duração da magia com o cooldown para soltar novamente e vai funcionar corretamente.

Vodkart · Janeiro 15, 2021

local leverCooldown = {1, "hour"} -- Configure o tempo para usar novamente. Ex.: {30, "sec"}, {2, "min"}, {5, "hour"}, {3, "day"}
local cooldownStorage = 91801 -- só modifique se necessário

local items = {
    {pos = {x = 431, y = 285, z = 7}, itemid = 2129},
    {pos = {x = 441, y = 284, z = 7}, itemid = 5943},
    {pos = {x = 440, y = 290, z = 7}, itemid = 2363},
}

local monsters = {
    {pos = {x = 436, y = 285, z = 7}, name = "Wolf"},
}

local config = {
    onSpawnMonster = CONST_ME_TELEPORT, -- efeito lançado quando monstro é criado
    onRemoveItem = CONST_ME_BLOCKHIT, -- efeito lançado quando item é removido
    missingItem = CONST_ME_POFF, -- efeito lançado quando não encontrou o item para remover
}
-- 255 faz com que não lance efeito algum


local function mathtime(table) -- by dwarfer
if table[1] == 0 then return 0 end
local unit = {"sec", "min", "hour", "day"}
for i, v in pairs(unit) do
if v == table[2] then
return table[1]*(60^(v == unit[4] and 2 or i-1))*(v == unit[4] and 24 or 1)
end
end
end

function onUse(cid, item, frompos, item2, topos)
    
    if getGlobalStorageValue(cooldownStorage) > os.time() then
        doPlayerSendCancel(cid, "Espere 1h para usar a alavanca novamente.")
        return true
    end
    
    local missing_items, remove_items = false, {}

    for _, itemcheck in pairs (items) do
        local i = getTileItemById(itemcheck.pos, itemcheck.itemid).uid
        if i < 1 then missing_items = true
            if tonumber(config.missingItem) and config.missingItem ~= 255 then
                doSendMagicEffect(itemcheck.pos, config.missingItem)
            end
        else
            table.insert(remove_items, i)
        end
    end

    if missing_items then
        return doPlayerSendCancel(cid, "Está faltando algum item.")
    else
        for _, iuid in pairs (remove_items) do
            if tonumber(config.onRemoveItem) and config.onRemoveItem ~= 255 then
                doSendMagicEffect(getThingPos(iuid), config.onRemoveItem)
            end
            doRemoveItem(iuid)
        end
        for _, monsterinfo in pairs (monsters) do
            local m = doCreateMonster(monsterinfo.name, monsterinfo.pos, false)
            if isCreature(m) and tonumber(config.onSpawnMonster) and
                config.onSpawnMonster ~= 255 then
                doSendMagicEffect(getThingPos(m), config.onSpawnMonster)
            end
        end
        setGlobalStorageValue(cooldownStorage, mathtime(leverCooldown) + os.time())
    end
    return true
end

matheuspeixoto12 · Agosto 20, 2020

- #######################################
-- ####### Developed by MaXwEllDeN #######
-- ####### Level Points System     #######
-- ####### Version: 1.0            #######
-- #######################################

local function addMagLevel(cid, amount)
    local amount = amount or 1
    for i = 1, amount do
        doPlayerAddSpentMana(cid, getPlayerRequiredMana(cid, getPlayerMagLevel(cid, true) + 1) - getPlayerSpentMana(cid), false)
    end
    return true
end

function onSay(cid, words, param)
    if not (L_LvlPoints.vocPoints[getPlayerVocation(cid)]) then
        return false
    end
    local param = param:lower()
    local p2 = string.explode(param, ",")
    if (getPlayerStorageValue(cid, 14574) < 0) then
        setPlayerStorageValue(cid, 14574, 0)
    end

    local skillids = {
        ["shielding"] = 5,
        ["sword"] = 2,
        ["axe"] = 3,
        ["club"] = 1,
        ["distance"] = 4,
    }

    if (param == "check") then
        doPlayerPopupFYI(cid, "~*~*~ Level Points System by MaXwEllDeN ~*~*~\n\nPontos disponíveis: ".. getPlayerStorageValue(cid, 14574) .."\nPontos por level: ".. L_LvlPoints.vocPoints[getPlayerVocation(cid)])
    elseif (p2[1] and p2[1] == "add") and (L_LvlPoints.attributes[p2[2]]) and (tonumber(p2[3])) then
        if (getPlayerStorageValue(cid, 14574) < tonumber(p2[3]) * L_LvlPoints.attributes[p2[2]].np) then
            doPlayerSendCancel(cid, "Você não tem pontos suficientes para distribuir!")
            return doSendMagicEffect(getThingPos(cid), 2)
        end
        if (p2[2] == "vitalidade") then
            setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + L_LvlPoints.attributes[p2[2]].vl * tonumber(p2[3]))
            doCreatureAddHealth(cid, L_LvlPoints.attributes[p2[2]].vl * tonumber(p2[3]))
        elseif (p2[2] == "energy") then
            setCreatureMaxMana(cid, getCreatureMaxMana(cid) + L_LvlPoints.attributes[p2[2]].vl * tonumber(p2[3]))
            doCreatureAddMana(cid, L_LvlPoints.attributes[p2[2]].vl * tonumber(p2[3]))
        elseif (p2[2] == "magic" then)
            addMagLevel(cid, L_LvlPoints.attributes[p2[2]].vl * tonumber(p2[3]))
         elseif(skillids[p2[2]]) then
            for a = 1, tonumber(p2[3]) do
                doPlayerAddSkillTry(cid, skillids[p2[2]], getPlayerRequiredSkillTries(cid, skillids[p2[2]], getPlayerSkillLevel(cid, skillids[p2[2]]) + 1) - getPlayerSkillTries(cid, skillids[p2[2]]), false)
            end
        end

        doSendMagicEffect(getThingPos(cid), 29)
        doSendMagicEffect(getThingPos(cid), 30)
        doSendAnimatedText(getThingPos(cid), "-" .. tonumber(p2[3]) * L_LvlPoints.attributes[p2[2]].np, 180)
        setPlayerStorageValue(cid, 14574, getPlayerStorageValue(cid, 14574) - tonumber(p2[3]) * L_LvlPoints.attributes[p2[2]].np)
    else
        local msgx = ""
        for i, v in pairs(L_LvlPoints.attributes) do
            local add = (v.np > 1) and "s" or ""
            msgx = msgx .. string.upper(i:sub(1,1)) .. i:sub(2, #i) .. " - ".. v.np .. " ponto".. add .. " ~ " .. v.vl .. " ".. v.nm .. "\n"
        end

        doPlayerPopupFYI(cid, "Pontos necessários para aumentar os stats:\n\n".. msgx .. "\nExemplo de uso: ".. words .." add, vitalidade, 5\n\nPontos disponíveis: ".. getPlayerStorageValue(cid, 14574))
    end

    return true
end

Lisbeky · Agosto 17, 2020

@Lisbeky Não tive como testar, mas se você configurar certinho creio que funcionará.

1. Adicione o NPC

Em data/npc, adicione o arquivo.xml. As falas, o nome do NPC bem como o looktype são apenas para exemplo, configure como quiser.

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Ghoster" script="default.lua" walkinterval="2000" floorchange="0">
	<health now="100" max="100"/>
	<look type="48"/>
    <voices>
        <voice text="Annnnnnkkkhhhhhhhhh" interval2="50"/>
        <voice text="Boo!" interval2="50"/>
        <voice text="Why are you scared?" interval2="50"/>
    </voices>
</npc>

2. Em data/actions/scripts crie um arquivo.lua e cole isto dentro:

Mostrar conteúdo oculto

local t = {
    removeItemOnUse = true, -- 'true' para remover a ankh ao usar, 'false' para não remover
    npcName = "Ghoster", -- nome do NPC
    monster = {
        name = "Ghost Boss", -- nome do monstro
        createPos = {x = 1, y = 1, z = 1}, -- posição na qual o monstro será criado
        timeToCreate = {10, "sec"}, -- tempo para criar o monstro após usar a ankh no NPC
        timeToRemove = {5, "min"} -- tempo para remover o monstro e retornar o NPC
    }
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if not isCreature(itemEx.uid) or isPlayer(itemEx.uid) then return false end
    local npc = itemEx.uid
    if getCreatureName(npc):lower() == t.npcName:lower() then
        doCreatureSay(npc, "Brace yourselves!", TALKTYPE_MONSTER_YELL)
        local npcPos = getCreaturePosition(npc)
        doSendMagicEffect(npcPos, CONST_ME_POFF)
        doRemoveCreature(npc)
        addEvent(function()
            local m = doCreateMonster(t.monster.name, t.monster.createPos)
            doCreatureSay(m, "HA HA HA!", TALKTYPE_MONSTER_YELL)
            doSendMagicEffect(t.monster.createPos, CONST_ME_TELEPORT)
            addEvent(function()
                if isCreature(m) then
                    doCreatureSay(m, "I WON! HA HA HA!", TALKTYPE_MONSTER_YELL)
                    doSendMagicEffect(getCreaturePosition(m), CONST_ME_POFF)
                    doRemoveCreature(m)
                end
                local checkNpc = getCreatureByName(t.npcName)
                if not isCreature(checkNpc) then
                    doCreateNpc(t.npcName, npcPos)
                    doSendMagicEffect(npcPos, CONST_ME_HOLYAREA)
                end
            end, mathtime(t.monster.timeToRemove) * 1000)
        end, mathtime(t.monster.timeToCreate) * 1000)
        if t.removeItemOnUse then
            doRemoveItem(item.uid, 1)
        end
        return true
    end
    return false
end

function mathtime(table) -- by dwarfer
local unit = {"sec", "min", "hour", "day"}
for i, v in pairs(unit) do
if v == table[2] then
return table[1]*(60^(v == unit[4] and 2 or i-1))*(v == unit[4] and 24 or 1)
end
end
end

No actions.xml adicione a tag e edite o id do item:

<action itemid="1111" script="NOMEDOARQUIVO.lua" />

3. No arquivo do monstro, adicione antes de </monster>, o seguinte:

<script>
    <event name = "GhostBossDeath"/>
</script>

4. Em data/creaturescripts/scripts, crie um arquivo.lua e cole isto dentro:

Mostrar conteúdo oculto

local storage = {key = 11111, value = 1} -- storage key e value
local npcName = "Ghoster" -- nome do NPC

function onDeath(cid, corpse, deathList)
    local killers = deathList
    for _, pid in pairs(killers) do
        if isPlayer(pid) then
            if getPlayerStorageValue(pid, storage.key) < storage.value then
                setPlayerStorageValue(pid, storage.key, storage.value)
                doPlayerSendTextMessage(pid, MESSAGE_INFO_DESCR, "You helped to defeat the "..getCreatureName(cid).."!")
            end
        end 
    end
    local p = getCreaturePosition(cid)
    local npc = doCreateNpc(npcName, p)
    doSendMagicEffect(p, CONST_ME_TELEPORT)
    doCreatureSay(npc, "I am back.", TALKTYPE_MONSTER_YELL)
    return true
end

Edite o storage para os valores da sua quest. Lembrando que só ganharão o storage aqueles que causarem dano ao boss.

No creaturescripts.xml, adicione a tag:

<event type="death" name="GhostBossDeath" event="script" value="NOMEDOARQUIVO.lua"/>

É isso.

Spooky Ghost · Abril 1, 2020

Para os próximos pedidos, tente deixar o título do seu tópico representativo do pedido.

Se entendi bem o que você quis dizer...

Mostrar conteúdo oculto

local t = {
    interval = 3, -- intervalo de tempo em segundos que será adicionada a stamina
    added_stamina = 2, -- minutos de stamina adicionados a cada "interval"
    outfits = {
        [674] = 89, -- [vocação] = lookType
        [2] = 84,
    }
}


local event = {}
local function addStamina(cid, position)
    if not isPlayer(cid) then event[cid] = nil return true end
    local playerStamina, playerPos = getPlayerStamina(cid), getPlayerPosition(cid)
    if playerStamina >= 2520 then
        event[cid] = nil
        doPlayerSendCancel(cid, "Sua stamina já está cheia!")
        return true
    end
    if (playerPos.x ~= position.x) or (playerPos.y ~= position.y) then
        event[cid] = nil
        return true
    end
    doPlayerSendCancel(cid, "Sua stamina está subindo...")
    doPlayerSetStamina(cid, playerStamina + t.added_stamina)
    event[cid] = addEvent(addStamina, t.interval * 1000, cid, position)
end
    
function onStepIn(cid, item, position, lastPosition, fromPosition)
    if not isPlayer(cid) then return true end
    if event[cid] then stopEvent(event[cid]) end
    event[cid] = addEvent(addStamina, t.interval * 1000, cid, position)
    local voc = t.outfits[getPlayerVocation(cid)]
    if voc then
        local out, p = getCreatureOutfit(cid), getPlayerPosition(cid)
        out.lookType = voc
        doSetCreatureOutfit(cid, out, -1)
        doSendMagicEffect(p, 2)
        doSendAnimatedText(p, "Que frio!", math.random(1,255))
    end
    return true
end

function onStepOut(cid, item, position, lastPosition, fromPosition)
    if not isPlayer(cid) then return true end
    doRemoveCondition(cid, CONDITION_OUTFIT)
    return true
end

No movements.xml adicione as tags para o StepIn e para o StepOut referentes ao actionid do piso.

Fevereiro 9, 2020

Em 09/02/2020 em 17:43, trc.user disse:

como eu faço pra utilizar a restrição de players ?

digo, nao preciso dos 5 players para fazer, se tiver só 1 ja vai, mas o maximo é 5 mesmo.

Mostrar mais

local t = {
    players = { 
        [1] = Position(1,1,1),
        [2] = Position(1,1,1),
        [3] = Position(1,1,1),
        [4] = Position(1,1,1),
        [5] = Position(1,1,1)
    },
    
    boss = {name = "Dwarf Guard", create_pos = Position(1,1,1)},
  
    destination = Position(1,1,1), 
    
    cooldown = {20, "hour"}, 
    
    storage = 56482 
}

function onUse(player, item, fromPosition, target, toPosition, isHotkey)
    local players, tab = {}, t.players
    for i = 1, #tab do
        local tile = Tile(tab[i])
        if tile then
            local p = Player(tile:getTopCreature())
            if p then
                if p:getStorageValue(t.storage) <= os.time() then
                    players[#players + 1] = p:getId()
                end
            end
        end
    end
    if #players == 0 then
        player:sendCancelMessage("None of the players did not wait " .. getStrTime(t.cooldown) .. " to go again.")
        return true
    end
    for i = 1, #tab do
        local playerTile = Tile(tab[i])
        local playerToGo = Player(playerTile:getTopCreature())
        if playerToGo then
            if isInArray(players, playerToGo:getId()) then
                playerToGo:setStorageValue(t.storage, mathtime(t.cooldown) + os.time())
                playerTile:relocateTo(t.destination)
                tab[i]:sendMagicEffect(CONST_ME_POFF)
            end
        end
    end
    t.destination:sendMagicEffect(CONST_ME_TELEPORT)
    Game.createMonster(t.boss.name, t.boss.create_pos)
    item:transform(item.itemid == 1945 and 1946 or 1945)
    return true
end

function mathtime(table) -- by dwarfer
local unit = {"sec", "min", "hour", "day"}
for i, v in pairs(unit) do
if v == table[2] then
return table[1]*(60^(v == unit[4] and 2 or i-1))*(v == unit[4] and 24 or 1)
end
end
return error("Bad declaration in mathtime function.")
end

function getStrTime(table) -- by dwarfer
local unit = {["sec"] = "second",["min"] = "minute",["hour"] = "hour",["day"] = "day"}
return tostring(table[1].." "..unit[table[2]]..(table[1] > 1 and "s" or ""))
end

Janeiro 1, 2020

Se você utilizar a mesma lib que enviou, o mesmo npc e substituir o script de movements que você tem pelo que eu enviei, vai resolver. Siga o que eu falei aí sobre os uniqueids.

Ele deixa repetir a task, desde que na Lib não esteja com o:

norepeatable = true,

'true' a task não pode ser repetida, 'false' a task pode ser repetida.

Se sair da sala do boss ele não some, mas se outra pessoa foi entrar, o boss que estava lá vai ser removido e será criado outro boss. É assim que está o script que você enviou e que eu acho que dá no mesmo que ele sumir assim que o player sair.

Tchukixx · Janeiro 1, 2020

local moneyRate = 50 -- % de dinheiro que será perdida
local sendMoneyMsg = true -- 'true' para enviar mensagem de quanto dinheiro foi perdido, 'false' para não enviar

function onDeath(cid, corpse, killer, frompos)
    if not isPlayer(cid) then return true end
    local check_killer = killer[1]
    local playerKiller = isCreature(check_killer) and (isPlayer(check_killer) and check_killer or getCreatureMaster(check_killer)) or nil
    if not playerKiller then
        return true
    end
    local victimName, victimLevel, killerName, killerLevel = getPlayerName(cid), getPlayerLevel(cid), getPlayerName(playerKiller), getPlayerLevel(playerKiller)
    local victimMoney = getPlayerMoney(cid)
    if victimMoney > 0 then
        local money = math.ceil(.01 * moneyRate * victimMoney)
        if money > 0 then
            doPlayerRemoveMoney(cid, money)
            doPlayerAddMoney(playerKiller, money)
            if sendMoneyMsg then
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, string.format("You lost %d gold coin%s due to this death.", money, (money > 1 and "s" or ""))) 
                doPlayerSendTextMessage(playerKiller, MESSAGE_STATUS_CONSOLE_ORANGE, string.format("You earned %d gold coin%s for this kill.", money, (money > 1 and "s" or "")))
            end
        end
    end
    doBroadcastMessage(string.format("O jogador %s (Level: %d) foi morto pelo jogador %s (Level: %d).", victimName, victimLevel, killerName, killerLevel), MESSAGE_STATUS_CONSOLE_RED)
    return true
end

Guilherme HP · Janeiro 1, 2020

Em data/movements/scripts crie um arquivo.lua e cole isto dentro:

Mostrar conteúdo oculto

local t = {
    teleportFirstPlayer = true, -- 'true' para também teleportar o primeiro player a pisar, 'false' para não pisar
    templePosition = {x = 1, y = 1, z = 1}, -- posição para onde os players serão teleportados
    fromPos = {x = 1, y = 1, z = 1}, -- canto superior esquerdo da área da corrida
    toPos = {x = 1, y = 1, z = 1} -- canto inferior direito da área da corrida
}

local function getPlayersInArea(fromPos, toPos)
    local players, onlinePlayers = {}, getPlayersOnline()
    for _, pid in ipairs(onlinePlayers) do
        if isInRange(getPlayerPosition(pid), fromPos, toPos) then
            table.insert(players, pid)
        end
    end
    return players
end

function onStepIn(cid, item, position, fromPosition)
    if not isPlayer(cid) then return true end
    local players, destination = getPlayersInArea(t.fromPos, t.toPos), t.templePosition
    if (not isInArray(players, cid)) and t.teleportFirstPlayer then
        doTeleportThing(cid, destination)
        doSendMagicEffect(destination, CONST_ME_TELEPORT)
    end
    if #players > 0 then
        for i = 1, #players do
            local player = players[i]
            if (not t.teleportFirstPlayer) and player ~= cid then
                doTeleportThing(player, destination)
            end
        end
        doSendMagicEffect(destination, CONST_ME_TELEPORT)
    end
    return true
end

No movements.xml, adicione a tag:

 <movevent type="StepIn" actionid="ACTIONID_DO_PISO" event="script" value="NOMEDOARQUIVO.lua"/>

WooX · Janeiro 1, 2020

@guhcast Não fique com dúvidas, pergunte mesmo. Podem ter outras pessoas com a mesma dúvida que a sua.

<stage minlevel="1" maxlevel="7" multiplier="12" />
<stage minlevel="8" maxlevel="50" multiplier="10" />    
<stage minlevel="51" maxlevel="80" multiplier="8" />
<stage minlevel="81" maxlevel="100" multiplier="6" />
<stage minlevel="101" maxlevel="140" multiplier="1.5" />
<stage minlevel="141" maxlevel="200" multiplier="0.5" />
<stage minlevel="201" multiplier="0.05" />

Exemplifiquei os três últimos.

Janeiro 1, 2020

@nanomeyer, ao que parece você pegou um script qualquer de teleporte para os bosses sem que ele tivesse relação com o sistema de task que você tá utilizando. Por isso não funciona.

Substitua o que tem no arquivo data/movements/scripts/tasks.lua, por esse:

Mostrar conteúdo oculto

local teleports = { -- Tile UID = {storage of task, amount of monsters, monsters to spawn}
    [16691] = {monsters = {"The Snapper"}, telePos = {x = 32610, y = 32724, z = 8}, spawnPos = {x = 32611, y = 32727, z = 8}, from = {x = 32606, y = 32720, z = 8}, to = {x = 32620, y = 32733, z = 8}},

    -- edite os [uniqueids] abaixo
    [14001] = {monsters = {"Leviathan"}, telePos = {x = 31914, y = 31071, z = 10}, spawnPos = {x = 31905, y = 31071, z = 10}, from = {x = 31900, y = 31064, z = 10}, to = {x = 31918, y = 31081, z = 10}},
    [14002] = {monsters = {"The Noxious Spawn"}, telePos = {x = 32842, y = 32668, z = 11}, spawnPos = {x = 32842, y = 32673, z = 11}, from = {x = 32836, y = 32665, z = 11}, to = {x = 32849, y = 32677, z = 11}},
    [14003] = {monsters = {"Necropharus"}, telePos = {x = 33028, y = 32427, z = 12}, spawnPos = {x = 33028, y = 32421, z = 12}, from = {x = 33020, y = 32415, z = 12}, to = {x = 33035, y = 32430, z = 12}},
    [14004] = {monsters = {"The Horned Fox"}, telePos = {x = 32458, y = 31993, z = 9}, spawnPos = {x = 32458, y = 32004, z = 9}, from = {x = 32453, y = 31992, z = 9}, to = {x = 32464, y = 32008, z = 9}},
    [14005] = {monsters = {"Lethal Lissy", "Ron The Ripper", "Deadeye Devious", "Brutus Bloodbeard"}, telePos = {x = 31975, y = 32896, z = 0}, spawnPos = {x = 31982, y = 32896, z = 0}, from = {x = 31972, y = 32890, z = 0}, to = {x = 31988, y = 32904, z = 0}},
    [14008] = {monsters = {"Hide"}, telePos = {x = 32815, y = 32704, z = 8}, spawnPos = {x = 32816, y = 32708, z = 8}, from = {x = 32810, y = 32701, z = 8}, to = {x = 32824, y = 32713, z = 8}},
    [14012] = {monsters = {"Shardhead"}, telePos = {x = 32102, y = 31125, z = 2}, spawnPos = {x = 32101, y = 31130, z = 2}, from = {x = 32095, y = 31122, z = 2}, to = {x = 32108, y = 31136, z = 2}},
    [14019] = {monsters = {"Esmeralda"}, telePos = {x = 32759, y = 31253, z = 9}, spawnPos = {x = 32759, y = 31256, z = 9}, from = {x = 32755, y = 31250, z = 9}, to = {x = 32764, y = 31259, z = 9}},
    [14020] = {monsters = {"The Old Widow"}, telePos = {x = 32804, y = 32280, z = 8}, spawnPos = {x = 32800, y = 32280, z = 8}, from = {x = 32794, y = 32273, z = 8}, to = {x = 32807, y = 32288, z = 8}},
    [14021] = {monsters = {"The Many"}, telePos = {x = 32920, y = 32883, z = 8}, spawnPos = {x = 32921, y = 32899, z = 8}, from = {x = 32915, y = 32891, z = 8}, to = {x = 32927, y = 32904, z = 8}},
    [14506] = {monsters = {"Demodras"}, telePos = {x = 32748, y = 32287, z = 10}, spawnPos = {x = 32745, y = 32292, z = 10}, from = {x = 32738, y = 32283, z = 10}, to = {x = 32757, y = 32300, z = 10}},
    [14505] = {monsters = {"Tiquandas Revenge"}, telePos = {x = 32888, y = 32580, z = 4}, spawnPos = {x = 32883, y = 32580, z = 4}, from = {x = 32881, y = 32578, z = 4}, to = {x = 32892, y = 32588, z = 4}},
    [14022] = {monsters = {"Stonecracker"}, telePos = {x = 33259, y = 31695, z = 15}, spawnPos = {x = 33257, y = 31702, z = 15}, from = {x = 33252, y = 31691, z = 15}, to = {x = 33266, y = 31708, z = 15}},
}

local function getCreaturesInArea(fromPos, toPos, creatureType)
    local creatures = {}
    for x = fromPos.x, toPos.x do
        for y = fromPos.y, toPos.y do
            for z = fromPos.z, toPos.z do
                local creature = getTopCreature({x = x, y = y, z = z}).uid
                local cType  creatureType:lower()
                if (cType == "players" and isPlayer(creature)) then
                    table.insert(creatures, creature)
                elseif (cType == "monsters" and isMonster(creature)) then
                    table.insert(creatures, creature)
                elseif (cType == "npcs" and isNpc(creature)) then
                    table.insert(creatures, creature)
                elseif (cType == "all") then
                    table.insert(creatures, creature)
                end
            end
        end
    end
    return creatures
end

function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
    if not isPlayer(cid) then return true end
    local now = teleports[item.uid]
    if not now then return true end
    
    if (#getCreaturesInArea(now.from, now.to, "players") > 0) then
        doTeleportThing(cid, fromPosition, true)
        doPlayerSendCancel(cid, "Someone else is in the room.")
        return true
    end
    
    local stor = item.uid
    if getPlayerStorageValue(cid, stor) ~= 1 then
        doPlayerSendCancel(cid, "You don't have permission to enter.")
        doTeleportThing(cid, fromPosition, true)
        return true
    end
    
    local monstersInArea = getCreaturesInArea(now.from, now.to, "monsters")
    for _, monster in ipairs(monstersInArea) do
        doRemoveCreature(monster)
    end
    setPlayerStorageValue(cid, stor, 2)
    doTeleportThing(cid, now.telePos)
    doSendMagicEffect(now.telePos, CONST_ME_TELEPORT)
    doSummonCreature(now.monsters[math.random(#now.monsters)], now.spawnPos)
    doSendMagicEffect(now.spawnPos, CONST_ME_TELEPORT)
    return true
end

Exemplifiquei para o The Snapper, perceba na linha:

[16691] = {monsters = {"The Snapper"}, telePos = {x = 32610, y = 32724, z = 8}, spawnPos = {x = 32611, y = 32727, z = 8}, from = {x = 32606, y = 32720, z = 8}, to = {x = 32620, y = 32733, z = 8}},

Entre [ ] é o uniqueid que você colocará no teleporte. Esse uniqueid deve ser igual ao storage configurado no arquivo data/lib/104-KillingInTheNameOf.lua:

Veja para a task dos crocodilos:

[3] = {killsRequired = 1, raceName = "Crocodiles", level = {6, 49}, premium = true, creatures = {"crocodile"}, rewards = {
                                                                                                                    {type = "exp", value = {11000}},
                                                                                                                    {type = "achievement", value = {"Blood-Red Snapper"}},
                                                                                                                    {type = "storage", value = {16691, 1}},
                                                                                                                    {type = "points", value = {1}}
                                                                                                                }},

Em:

 {type = "storage", value = {16691, 1}},

Em "value", sempre deixe o segundo valor igual a 1.

Agora é com você pra colocar os storages em uma sequência e deixar os uniqueids mais organizados. Ou então deixa tudo bagunçado mesmo. ?‍♂️

Sparkyz · Dezembro 23, 2019

Existem várias maneiras de fazer isso. Uma delas é a seguinte:

No outfits.xml, adicione a storage necessária para que o jogador possua o outfit.

Exemplo:

<outfit id="1" storageId="1111" storageValue="1">
  <list gender="0" lookType="136" name="Citizen"/>
  <list gender="1" lookType="128" name="Citizen"/>
</outfit>

Utilizei como exemplo o storage 1111, modifique para o seu.

Em data/creaturescripts/scripts crie um arquivo.lua e cole isto dentro:

local vocations = {1,2,3,4,5,6} -- ids das vocações que terão permissão de utilizar o outfit
local storage = 1111 -- storage do outfit (mesmo storage configurado para o outfit no outfits.xml)

function onLogin(cid)
    if getPlayerStorageValue(cid, storage) == 1 then return true end
    if not isInArray(vocations, getPlayerVocation(cid)) then return true end
    setPlayerStorageValue(cid, storage, 1)
    return true
end

No creaturescripts.xml, adicione a tag:

<event type="login" name="CitizenLogin" event="script" value="NOMEDOARQUIVO.lua"/>

Setembro 28, 2019

Em 23/09/2019 em 12:18, Trayron1 disse:

Bom dia,

Apenas alterei o ID da placa e das pedras para as que são da versão original do Tibia.

Porem quando dei use da placa na stone, deu este erro no console:

Obrigado!

Mostrar mais

Colocou a lib corretamente? Se sim, vê se não tem algum bug de formatação que geralmente tá surgindo ao copiar o conteúdo do fórum e colar.

luanluciano93 · Setembro 20, 2019

MARAVILHOOOOOOSOS, como vocês estão? Espero que estejam bem. ?

Esses dias fuçando as profundezas sombrias do meu computador encontrei essa quest, a Barbarian Test Quest, do tibia global e agora compartilho-a com vocês. Para quem não conhece, é aquela quest que dá alguns acessos na cidade de Svargrond do tibia global.

Mais informações, visite o link: https://www.tibiawiki.com.br/wiki/Barbarian_Test_Quest

As falas do NPC estão 99% iguais ao do tibia global, salvo algumas pequenas modificações/adaptações feitas por mim dando o meu toque, é claro ?. ~~(todos gostam do meu toque)~~ Obviamente, a quest se aplica melhor para servidores de tibia clássico, mas deixei os id's dos itens facilmente editáveis para você adaptar para o seu servidor, seja ele de qual tipo for, para TFS 0.4 ou OTX 2.x.

Configuração:

1) Em data/lib, crie um arquivo chamado Barbarian Test Quest.lua e cole isto dentro:

Mostrar conteúdo oculto

-- Barbarian Test Quest by Dwarfer

BARBARIAN_TEST = {
    
    first_test = {
        honeycomb_id = 5902, -- id da honeycomb que o NPC pede
        sips = 20, -- goles que o NPC dará ao jogador
        sip_chance = 80, -- chance para ter sucesso no teste
        sips_to_complete = 10, -- quantos goles sucessivos o jogador deve completar
        corpse_id = 2317, -- id do corpo para o qual o jogador se transforma ao cair de bêbado 
        drunk_duration = 30, -- duração da "bebedeira"
        
        storages = { -- só modifique se necessário
            sips = 87340,
            succeed = 87341
        }
    },
    
    second_test = {
        filled_meadhorn_id = 7140, -- id do chifre cheio de rum
        empty_meadhorn_id = 7141, -- id do chifre vazio
        filled_bucket_id = 7142, -- id do balde de rum
        lying_bear_id = 7174, -- id do urso "fingindo"
        sleeping_bear_id = 7175 -- id do urso "dormindo"
    },
    
    third_test = {
        standing_mammoth_id = 7176, -- id do mammoth parado
        sleeping_mammoth_id = 7177 -- id do mammoth "dormindo"
    },
        
    storages = { -- só modifique se necessário
        first_test = 87342,
        second_test = 87343,
        third_test = 87344,
        finished = 87345
    }
}

2) Em data/npc/scripts, crie um arquivo chamado Sven.lua e cole isto dentro:

Mostrar conteúdo oculto

-- Barbarian Test Quest by Dwarfer
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local npcTopic = {}
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 function doNpcTellStory(cid, story_tab)
    for i = 1, #story_tab do
        npcHandler:say(story_tab[i], cid)
    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("Be greeted, "..getPlayerName(cid).."! What brings you here?", cid)
            npcTopic[talkUser] = 1
        else
            return false
        end
    elseif (msgcontains(msg, "mission") or msgcontains(msg, "test")) and (npcTopic[talkUser] == 2 or npcTopic[talkUser] == 1) then 
        if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.finished) == 1 then
            npcHandler:say("You have braved all three tests and are now an honorary barbarian.", cid)
        else
            if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test) == -1 then
                doNpcTellStory(cid, {"All of our juveniles have to take the barbarian test to become a true member of our community. Foreigners who manage to master the test are granted the title of an honorary barbarian and the respect of our people ...",
                                    "Are you willing to take the barbarian test?"})
                npcTopic[talkUser] = 3
            elseif getPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test) == 2 then
                if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.second_test) == 1 then
                    npcHandler:say("You have not finished your test yet. Remember, you need to prove you can hug a bear.", cid)
                elseif getPlayerStorageValue(cid, BARBARIAN_TEST.storages.second_test) == 2 then
                    if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.third_test) == -1 then
                        npcHandler:say("Talk to me about {bear hug} if you have finished the test.", cid)
                    elseif getPlayerStorageValue(cid, BARBARIAN_TEST.storages.third_test) == 1 then
                        npcHandler:say("You have not finished your test yet. Remember, you need to prove you can knock over a mammoth.", cid)
                    else
                        npcHandler:say("Talk to me about {mammoth} if you have finished the test.", cid)
                    end
                end
            end
        end
    elseif msgcontains(msg, "yes") then
        if npcTopic[talkUser] == 3 then
            doNpcTellStory(cid, {"That's the spirit! The barbarian test consists of a few tasks you will have to fulfil. All are rather simple - for a barbarian that is...",
                                "Your first task is to drink some barbarian mead. But be warned, it's a strong brew that could even knock out a bear. You need tomake at least ten sips of mead in a row without passing out to pass the test ...",
                                "Do you think you can do this?"})
            npcTopic[talkUser] = 4
        elseif npcTopic[talkUser] == 4 then
            local itemName = getItemNameById(BARBARIAN_TEST.first_test.honeycomb_id)
            setPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test, 1)
            doNpcTellStory(cid, {"Good, but to make barbarian mead we need some "..itemName.." which is rare here. I'd hate to waste mead just to learn you're not worth it ...",
                                "Therefore, you have to get your own "..itemName..". You'll probably need more than one try so better get some extra "..itemName.."s. Then talk to me again about {barbarian mead}."})
        elseif npcTopic[talkUser] == 5 then
            local mission = BARBARIAN_TEST.first_test
            local itemId = mission.honeycomb_id
            if getPlayerItemCount(cid, itemId) >= 1 then
                doPlayerRemoveItem(cid, itemId, 1)
                setPlayerStorageValue(cid, mission.storages.sips, mission.sips)
                npcHandler:say("Good, for this ".. getItemNameById(itemId) .. " I allow you ".. mission.sips .. " sips from the mead bucket over there. Talk to me again about barbarian mead if you have passed the test.", cid)
            else
                npcHandler:say("You don\'t have some "..getItemNameById(itemId).. " with you.", cid) 
            end
        end
    elseif msgcontains(msg, "no") and isInArray({3,4,5}, npcTopic[talkUser]) then
        npcHandler:say("I see. Maybe later.", cid) 
    elseif msgcontains(msg, "barbarian") then
        if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test) == -1 then
            npcHandler:say("A true barbarian is something special among our people. Everyone who wants to become a barbarian will have to pass the {barbarian test}.", cid)
            npcTopic[talkUser] = 2
        elseif getPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test) == 1 then
            if getPlayerStorageValue(cid, BARBARIAN_TEST.first_test.storages.succeed) < BARBARIAN_TEST.first_test.sips_to_complete then
                npcHandler:say("Do you have some "..getItemNameById(BARBARIAN_TEST.first_test.honeycomb_id).." with you?", cid)
                npcTopic[talkUser] = 5
            else
                doNpcTellStory(cid, {"An impressive start. Here, take your own mead horn to fill it at the mead bucket as often as you like ...",
                                "But there is much left to be done. Your next test will be to hug a bear ...",
                                "You will find one in a cave north of the town. If you are lucky, it's still sleeping. If not ... well that might hurt ...",
                                "Unless you feel that you hugged the bear, the test is not passed. Once you are done, talk to me about the bear hugging."})
                setPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test, 2)
                setPlayerStorageValue(cid, BARBARIAN_TEST.storages.second_test, 1)
                doPlayerAddItem(cid, BARBARIAN_TEST.second_test.empty_meadhorn_id, 1)
            end
        else
            npcHandler:say("You have already braved the first barbarian test.", cid)
        end
    elseif msgcontains(msg, "hug") then
        if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.third_test) == -1 then
            if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.second_test) == 2 then
                doNpcTellStory(cid, {"Amazing. That was a clever and brave as a barbarian is supposed to be. But a barbarian also has to be strong and fearless. To prove that you will have to knock over a mammoth ...",
                                "Did your face just turn into the color of fresh snow? However, you will find a lonely mammoth north west of the town in the wilderness. Knock it over to prove to be a true barbarian ...",
                                "Return to me and talk about the mammoth pushing when you are done."})
                setPlayerStorageValue(cid, BARBARIAN_TEST.storages.third_test, 1)
            else
                npcHandler:say("Prove you can hug a bear.", cid)
            end
        else
            npcHandler:say("You have already proved you can hug a bear.".. (getPlayerStorageValue(cid, BARBARIAN_TEST.storages.finished) == 1 and "" or " Keep on doing your missions."), cid)
        end
    elseif msgcontains(msg, "mammoth") then
        if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.finished) == -1 then
            if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.third_test) == 2 then
                doNpcTellStory(cid, {"As you have passed all three test, I welcome you in our town as an honorary barbarian. You can now become a citizen. Don't forget to talk to the people here. Some of them might need some help ...",
                                "We usually solve our problems on our own but some of the people might have a mission for you. Old Iskan, on the ice in the northern part of the town had some trouble with his dogs lately."})
                setPlayerStorageValue(cid, BARBARIAN_TEST.storages.finished, 1)
            else
                npcHandler:say("Prove you can knock over a mammoth.", cid)
            end
        else
            npcHandler:say("You are already an honorary barbarian. Nothing more to talk about.", cid) 
        end
    elseif msgcontains(msg, "bye") then
        npcHandler:say("May wind and weather be with you, "..getPlayerName(cid)..".", cid)
        npcTopic[talkUser] = 0
        npcHandler:releaseFocus(cid)
    elseif msgcontains(msg, "name") then
        doNpcTellStory(cid, {"I am Sven the Younger. My father, Sven the Elder has been missing in the ice waste since I was young. But unless one of our people is buried properly, we assume that he is still in the realm of the living...",
                            "Therefore, I am still known as 'the Younger', even though I have grown old."})
    elseif (msgcontains(msg, "here") or msgcontains(msg, "job")) then
        npcHandler:say("I am the jarl of my people. It's an honour and I am very proud of it", cid)
    elseif msgcontains(msg, "people") then
        npcHandler:say("Our people are simple and honest. We don\'t like the scheming ways of the {city} dwellers that live on the main continent.", cid)
    elseif (msgcontains(msg, "jarl") or msgcontains(msg, "leader")) then
        npcHandler:say("I am more than just the spokesman and highest judge amount my {people}. I don\'t raise taxes, and when the clans feel that it is necessary, I will be replaced by another jarl.", cid)
    elseif (msgcontains(msg, "king") or msgcontains(msg, "queen")) then
        npcHandler:say("We don\'t need any kings and queens here. Being the jarl of my people, I see that the laws are followed.", cid)
    elseif msgcontains(msg, "ferumbras") then
        npcHandler:say("Even here we heard about this powerful man. Travellers from the south only fare to whisper his name.", cid)
    elseif msgcontains(msg, "excalibug") then
        doNpcTellStory(cid, {"On the campfire, there are numerous tales about this weapon. It's told that it has been missing since ages ...",
                            "In my opinion, the power and fame of a weapon shouldn\'t exceed the power and fame of it's wielder. And I have not heard of any hero whose fame would surpass that of excalibug."})
    elseif msgcontains(msg, "join") then
        npcHandler:say("You might become an honorary barbarian if you manage to pass the barbarian test.", cid)
    elseif msgcontains(msg, "honourary barbarian") then
        npcHandler:say("An honourary barbarian earns the right to become a citizen here. But to prove yourself worthy, you have to pass the barbarian test.", cid)
    elseif msgcontains(msg, "news") then
        npcHandler:say("There is something evil going on. I have it in my bones.", cid)
    elseif (msgcontains(msg, "how are you?") or msgcontains(msg, "bones"))  then
        doNpcTellStory(cid, {"There is something in the air that worries me. A great evil is threatening all of us ...", 
                            "I might not have the gift of dreams that foresee the future like my {mother} did, but I seem to have inherited some of her gift nonetheless. Sometimes I just feel that something is about to happen ...",
                            "And this time it's something sinister and evil that threatens us all."})
    elseif msgcontains(msg, "mother") then
        doNpcTellStory(cid, {"My mother was that what my people call a witch. This is someone who has special magical abilities without any training on Nibelor ...",
                            "She used her powers more instinctively to amplify her healing skills when herbs would not suffice. She also had the gift to foretell the future ...",
                            "At first, the druids of Nibelor scorned her, but later they accepted her for her abilities and good intentions."})
    elseif msgcontains(msg, "rumours") then
        doNpcTellStory(cid, {"It's an old tale but it persists in the minds of the Svargrondar. It is about my father. There are rumours that he is still alive. ...",
                            "People regularly report about seeing him on top of the cliff right next to Svargrond. I myself would be glad if finally his corpse were found. Then I would be jarl 'Sven the Elder' ..... sounds much better."})
    elseif (msgcontains(msg, "guards") or msgcontains(msg, "army")) then
        doNpcTellStory(cid, {"We don't have an army and we don't need one. Even if the raiders call us weak, everyone of us knows how to fight ...",
                            "All adults serve as guards for some days each month as a service for the community."})
    elseif msgcontains(msg, "monsters") then
        npcHandler:say("There are many dangerous creatures that roam our isles. But having seen what men can do to each other, I wouldn't call any of them a monster.", cid)
    elseif msgcontains(msg, "santa claus") then
        npcHandler:say("We heard that this mythical dwarf lives somewhere on the southern Ice Islands.", cid)
    elseif msgcontains(msg, "city") then
        doNpcTellStory(cid, {"Our people lived as nomads some generations ago. The contact with Carlin taught us another way of living ...",
                            "We did not like everything about it but we are not stupid. We have seen the many advantages ...",
                            "If you cannot adapt to this land, you are dead and so we adapted to it and built this city. When the contact to Carlin got lost during the years of the serpents, we kept this city alive ...",
                            " And we survived, even though the {raiders} did their best to make us fail."})
    elseif msgcontains(msg, "years of serpents") then
        doNpcTellStory(cid, {"For more than two generations no ship had reached our shores because the giant sea serpents attacked and sank most ships that tried to travel here ...",
                            "Not long ago the sea serpents disappeared as suddenly as they had come. Now ships visit us again on a regular base."})
    elseif msgcontains(msg, "raiders") then
        doNpcTellStory(cid, {"In the past, all barbarian tribes roamed the lands of Chyll as nomads. When the Carliners came here and the trade flourished, we used the resources to build this permanent settlement ...",
                            "Some of our people claimed that it was wrong to settle down and to abandon the ancient ways. A female {shaman} rose in the ranks of those who opposed the erection of a settlement ...",
                            "She gathered all those who were not content, who did not want any foreign influence and who refused to learn ...",
                            "They tried to destroy everything our ancestors had built, but with the help of the Carliners they were stopped and driven away. Now they still roam the land and attack everyone they see ...",
                            "They became the raiders, our worst enemy. Nowadays, there are three larger tribes that often build camps in the South of our land ...",
                            "And after all those years, surviving several generations, this female shaman is still their leader."})
    elseif msgcontains(msg, "camp") then
        npcHandler:say("The raiders' camps are mainly located in the south-western part of the isle. The camps are named after the major clans of the raiders: Ragnir, Bittermor and Grimhorn.", cid)
    elseif msgcontains(msg, "mines") then
        doNpcTellStory(cid, {"A long time ago when the trade with Carlin was flourishing, people actually worked in the mines. ...",
                            "During the years of the serpents, the mines had been abandoned. Later, the raiders took shelter there, although they blame us for living in a fortified city ...",
                            "Now, the traders of Carlin are back but some other foreigners seem to have claimed the mines from the raiders ...",
                            "It's neither our business nor would we have the manpower to help them to recapture the mines. Also, if they do not have the strength to get the mines back on their own, they don't deserve them anyway."})
    elseif msgcontains(msg, "god") then
        doNpcTellStory(cid, {"We know of father Chyll and his freezing breath. We care little for other gods. It is foolish to meddle with beings that are so powerful ...",
                            "We leave it to the druids and shamans to handle such affairs."})
    elseif msgcontains(msg, "chyll") then
        doNpcTellStory(cid, {"Father north wind is called Chyll by our people. He is an unforgiving hunter. He knows no mercy with the weak ...",
                            "Chyll is a harsh god and the best you can do is to avoid his attention. Only the shamans and druids deal with him."})
    elseif (msgcontains(msg, "druid") or msgcontains(msg, "shaman")) then
        npcHandler:say("Most shaman and druids of our people live on the sacred isle {Nibelor}. There, they divine the future, calm the wrath of father Chyll and prepare the dead for their last travel to the lands of {Everspring}.", cid)
    elseif msgcontains(msg, "nibelor") then
        npcHandler:say("Nibelor has always been a sacred place for our people. The druids and shamans live there.", cid)
    elseif msgcontains(msg, "everspring") then
        doNpcTellStory(cid, {"Everspring is the realm of the dead. It is a place of peace and harmony where those who boldly braved the challenges of life dwell for eternity and share stories at the campfires after a hunt ...",
                            "Every true {barbarian} that is properly brought into afterlife will join the great hunt in Everspring where the animals are fat and have the thickest furs."})
    elseif msgcontains(msg, "cult") then
        npcHandler:say("I don\'t care what people who come here believe in. If they provoke father Chyll, he will take care of them on his own. If their gods prove to be more powerful than Chyll, they might deserve to live.", cid)
    elseif msgcontains(msg, "carlin") then
        npcHandler:say("We are friend of the Carliners. Still we don't allow their politics to influence our way to handle things here.", cid)
    elseif msgcontains(msg, "edron") then
        npcHandler:say("We have heard only little about this far away place.", cid)
    elseif msgcontains(msg, "thais") then
        npcHandler:say("We understand that our friends from Carlin are wary with the realm ruled by Thais but this is not of our concern.", cid)
    elseif msgcontains(msg, "venore") then
        npcHandler:say("We did not allow them to stay here. This had nothing to do with our friendship with Carlin but for the way they handled things and their harmful approach to go hunting.", cid)
    elseif msgcontains(msg, "port hope") then
        npcHandler:say("We have heard only little about this far away place.", cid)
    elseif msgcontains(msg, "enemies") then
        doNpcTellStory(cid, {"Our enemies are numerous. Those of our people that we call the raiders are full of hate towards us. Then there are the voracious chakoyas that leave their icy homes to kill and slaughter from time to time ...",
                            "Sometimes, the great ice dragons find their way here to wreak havoc, and there are many more hungry beasts of all kinds."})
    elseif msgcontains(msg, "chakoya") then
        doNpcTellStory(cid, {"The chakoyas are neither beast nor man. Yet, they share the worst and more dangerous traits of both of them. Their small and furry appearance can be very misleading at first glance ...",
                            "But as soon as you've seen a pack of chakoyas literally shredding a mammoth into pieces with their claws and teeth, all misconceptions will be gone."})
    elseif msgcontains(msg, "ice dragons") then
        doNpcTellStory(cid, {"The dragons on our isles have adapted to the climate as every creature here. Instead of being aligned to fire, they became creatures of the cold ...",
                            "They are fierce and dangerous but, luckily, they only prey on beasts of the sea or those that wander the ice near their lairs."})
    elseif msgcontains(msg, "yeti") then
        npcHandler:say("The yetis are mythical beasts. Only few that encountered those creatures lived to tell the tale. The chakoyas worship them as divine beings, although they have no real relations to them as far as we can tell.", cid)
    elseif msgcontains(msg, "dwarf") then
        npcHandler:say("I met some of those little people in the past. Considering our experience with the chakoyas, we don't underestimate someone just for its look. And those dwarfs proved indeed to be powerful, courageous and enduring.", cid) -- we, dwarfs s2 xD
    elseif msgcontains(msg, "elf") then
        npcHandler:say("Some time ago, a few elves came here but they could not stand the cold and so they left pretty soon. Most likely it was Nibelor in which they have been interested.", cid)
    end    
    return true
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:setMessage(MESSAGE_WALKAWAY, "May wind and weather be with you.")
npcHandler:setMessage(MESSAGE_FAREWELL, "May wind and weather be with you.")

O arquivo.xml do NPC Sven, em data/npc é o seguinte:

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Sven" script="Sven.lua" walkinterval="2000" floorchange="0">
    <health now="100" max="100"/>
    <look type="143" head="76" body="100" legs="132" feet="97" addons="3" mount="0"/>
</npc>

3) Em data/actions/scripts, aconselho criar uma pasta chamada barbarian_test para colocar os arquivos referentes à quest. Dentro dessa pasta, um por um, coloque os arquivos com os nomes abaixo:

bucketmead.lua

Mostrar conteúdo oculto

local condition = createConditionObject(CONDITION_DRUNK)
setConditionParam(condition, CONDITION_PARAM_TICKS, BARBARIAN_TEST.first_test.drunk_duration * 1000)

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if item.actionid == 8952 then
        local mission = BARBARIAN_TEST.first_test
        if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test) == 1 then
            local sips_left = getPlayerStorageValue(cid, mission.storages.sips) > 0 and getPlayerStorageValue(cid, mission.storages.sips) or 0
            local rand = math.random(0, 100)
            local succeed = getPlayerStorageValue(cid, mission.storages.succeed) > 0 and getPlayerStorageValue(cid, mission.storages.succeed) or 0
            if sips_left > 0 then
                if succeed < mission.sips_to_complete then
                    if rand <= mission.sip_chance then
                        doCreatureSay(cid, "The world seems to spin but you manage to stay on your feet.", TALKTYPE_ORANGE_1)
                        setPlayerStorageValue(cid, mission.storages.succeed, succeed + 1)
                    else
                        local outfit = {lookTypeEx = mission.corpse_id}
                        doSendMagicEffect(getPlayerPosition(cid), CONST_ME_HITBYPOISON)
                        doSetCreatureOutfit(cid, outfit, 5 * 1000)
                        doCreatureSay(cid, "The mead was too strong. You passed out for a moment.", TALKTYPE_ORANGE_1)
                        setPlayerStorageValue(cid, mission.storages.succeed, 0)
                        doAddCondition(cid, condition)
                    end
                else
                    doCreatureSay(cid, "You already passed the test, no need to torture yourself anymore.", TALKTYPE_ORANGE_1)
                end
                setPlayerStorageValue(cid, mission.storages.sips, sips_left - 1)
            else
                if succeed >= mission.sips_to_complete then
                    doCreatureSay(cid, "You already passed the test, no need to torture yourself anymore.", TALKTYPE_ORANGE_1)
                else
                    doCreatureSay(cid, "You don\'t have enough tries to prove be a strong barbarian.", TALKTYPE_ORANGE_1)
                end
            end
        elseif getPlayerStorageValue(cid, BARBARIAN_TEST.storages.first_test) == 2 then
            doCreatureSay(cid, "You have already passed on this test.", TALKTYPE_ORANGE_1)
        end
    end
    return true
end

meadhorn.lua

Mostrar conteúdo oculto

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.second_test) == 1 then
        if item.itemid == BARBARIAN_TEST.second_test.filled_meadhorn_id then
            if itemEx.itemid == BARBARIAN_TEST.second_test.lying_bear_id then
                doTransformItem(itemEx.uid, BARBARIAN_TEST.second_test.sleeping_bear_id)
                doTransformItem(item.uid, BARBARIAN_TEST.second_test.empty_meadhorn_id)
                setPlayerStorageValue(cid, BARBARIAN_TEST.storages.second_test, 2)
                doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Bearhugger!")
                addEvent(function()
                    local check_bear = getTileItemById(toPosition, BARBARIAN_TEST.second_test.sleeping_bear_id)
                    if check_bear.uid > 0 then
                        doTransformItem(check_bear.uid, BARBARIAN_TEST.second_test.lying_bear_id)
                    end
                end, 10 * 1000)
            end
        elseif item.itemid == BARBARIAN_TEST.second_test.empty_meadhorn_id then
            if itemEx.itemid == BARBARIAN_TEST.second_test.filled_bucket_id then
                doTransformItem(item.uid, BARBARIAN_TEST.second_test.filled_meadhorn_id)
                doSendMagicEffect(toPosition, CONST_ME_MAGIC_RED)
            end
        end
    end
    return true
end

mammothpushing.lua

Mostrar conteúdo oculto

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if getPlayerStorageValue(cid, BARBARIAN_TEST.storages.third_test) == 1 then
        if getCreatureCondition(cid, CONDITION_DRUNK) then
            doCreatureSay(cid, "You hustle the mammoth. What a fun\n*hicks*", TALKTYPE_ORANGE_1)
            doTransformItem(item.uid, BARBARIAN_TEST.third_test.sleeping_mammoth_id)
            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Honorary Barbarian")
            setPlayerStorageValue(cid, BARBARIAN_TEST.storages.third_test, 2)
            addEvent(function()
                local mammoth = getTileItemById(toPosition, BARBARIAN_TEST.third_test.sleeping_mammoth_id)
                if mammoth.uid > 0 then
                    doTransformItem(mammoth.uid, BARBARIAN_TEST.third_test.standing_mammoth_id)
                end
            end, 10 * 1000)
        else
            doCreatureSay(cid, "You are too sober to do this madness.", TALKTYPE_ORANGE_1)
        end
    end
    return true
end

Em data/actions.xml adicione as tags abaixo: (caso altere os ids dos itens para adaptar ao seu servidor, lembre de alterá-los nas tags também)

<action actionid="8952" script="barbarian_test/bucketmead.lua" />
<action itemid="7140;7141" script="barbarian_test/meadhorn.lua" />
<action itemid="7176" script="barbarian_test/mammothpushing.lua" />

Coloque o actionid 8952 (ou o valor que desejar, lembrando de modificar na tag no actions.xml) no balde de rum localizado próximo ao NPC.

Lembre de colocar um NPC adicional ao lado do NPC Sven que venda "rum" para que o jogador possa ficar bêbado e realizar a última missão (missão do mammoth).

OBS: Ao finalizar a quest, o jogador receberá a storage 87345 igual a 1. Essa informação pode ser útil para dar acesso a determinadas áreas somente após terminar a quest, por exemplo.

É isso. Espero que seja útil ao servidores que desejam ter um pouquinho mais de RPG. GRANDE ABRAÇO! ?

Esse script faz parte de um conjunto de quests do tibia global que pretendo ir fazendo aos poucos a depender do feedback do pessoal.

Veja também:

luanluciano93 · Setembro 20, 2019

Mostrar conteúdo oculto

 local tabela = {
    Position(1114,1268,6),
    Position(1114,1241,6),
    Position(1114,1214,6),
    Position(1114,1185,6),
    Position(1114,1158,6),
    Position(1114,1131,6),
    Position(590,497,8),
    Position(590,470,8),
    Position(590,443,8),
    Position(590,416,8),
    Position(590,389,8),
    Position(590,362,8),
    Position(821,263,8),
    Position(821,236,8),
    Position(821,209,8),
    Position(821,182,8),
    Position(821,155,8),
    Position(821,128,8),
    Position(923,864,12),
    Position(922,834,12),
    Position(921,804,12),
    Position(920,774,12),
    Position(919,744,12),
    Position(918,714,12),
    Position(687,1349,8),
    Position(687,1322,8),
    Position(687,1295,8),
    Position(687,1266,8),
    Position(687,1239,8),
    Position(687,1212,8)
}

function onTime(interval)
    local max_tab = #tabela
    for i = 1, max_tab do
        local door = Tile(tabela[i]):getItemById(5734)
        if door then
            local check_aid = door:getActionId()
            door:transform(5733)
            if check_aid ~= 0 then
                door:setActionId(check_aid)
            end
        end
    end
end

bpm91 · Julho 28, 2019

Em 28/07/2019 em 14:51, bpm91 disse:

@Dwarfer moço tu tem um fã vlw manim, porém nao está puxando os itens xD npc ta dando d graça hehe

Expand Mostrar mais

verdade, acabei esquecendo de copiar as linhas de remover. Já editei lá.

bpm91 · Julho 28, 2019

 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  

local items_needed = {{5922,50},{2492,1},{2488,1},{2536,1},{2123,1}}
local outfit_storage = 65535

function outfit(cid, message, keywords, parameters, node)  
    if(not npcHandler:isFocused(cid)) then  
        return false
    end  
    if getPlayerStorageValue(cid, outfit_storage) ~= -1 then
        npcHandler:say('You have already received this outfit.', cid)
    else
        local total_count, check = #items_needed, true
        for i = 1, total_count do
            local itemId, itemCount = items_needed[i][1], items_needed[i][2]
            if getPlayerItemCount(cid, itemId) < itemCount then
                check = false
                break
            end
        end
        if not check then
            npcHandler:say('You do not have all the items I need to make this outfit.', cid)
        else
      		for i = 1, total_count do
        		local itemId, itemCount = items_needed[i][1], items_needed[i][2]
        		doPlayerRemoveItem(cid, itemId, itemCount)
        	end
            doSendMagicEffect(getCreaturePosition(cid), CONST_ME_MAGIC_GREEN)
            setPlayerStorageValue(cid, outfit_storage, 1)  
        end
    end
end


local node1 = keywordHandler:addKeyword({'outfit'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'I need the items, {50 holy orchids, ring of the sky, crown legs, dragon scale mail and medusa shield}. Do you have?.'})  
node1:addChildKeyword({'yes'}, outfit, {npcHandler = npcHandler, onlyFocus = true, reset = true})  
node1:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Stop being rude!!!', reset = true})  

npcHandler:addModule(FocusModule:new())

Julho 28, 2019

Mostrar conteúdo oculto

local t = {
    colors = {94, 81, 79, 88, 18, 11, 92, 128}, -- cores
    time = 5, -- intervalo de troca das cores em milisegundos
    money_cost = 1000, -- custo
    storage = 65535
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if getPlayerStorageValue(cid, t.storage) == -1 then
        if not doPlayerRemoveMoney(cid, t.money_cost) then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You do not have enough money.")
            return true
        end
        setPlayerStorageValue(cid, t.storage, 1)
        rainbowOutfit(cid)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Rainbow outfit: ON")
    else
        setPlayerStorageValue(cid, t.storage, -1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Rainbow outfit: OFF")
    end
    return true
end

function rainbowOutfit(cid)
    if isPlayer(cid) then
        if getPlayerStorageValue(cid, t.storage) == 1 then
            local rand_outfit = {
                lookHead = t.colors[math.random(#t.colors)],
                lookLegs = t.colors[math.random(#t.colors)],
                lookBody = t.colors[math.random(#t.colors)],
                lookFeet = t.colors[math.random(#t.colors)]
            }
            local outfit = getCreatureOutfit(cid)
            for look, value in pairs(outfit) do
                local new_value = rand_outfit[look]
                if new_value then
                    outfit[look] = new_value
                end
            end
            doCreatureChangeOutfit(cid, outfit)
            addEvent(rainbowOutfit, t.time, cid)
        end
    end
end

Tag no actions.xml:

<action itemid="ID DO ITEM" script="NOME DO ARQUIVO.lua" />

Julho 18, 2019

Obviamente, se a vocação que você tá testando pode aprender a magia, já não tem a magia aprendida, o needlearn lá no spells.xml tá igual a 1, vai funcionar. Testei aqui e tá tudo certo, configure corretamente.

gabs01 · Julho 17, 2019

Você pode usar o actionid em um item qualquer.

Exemplo da tag com actionid 1111:

<movevent type="StepIn" actionid="1111" event="script" value="NOMEDOARQUIVO.lua"/>

Master68 · Julho 17, 2019

local t = {
    [128] = {addon1 = true, addon2  = true}, -- [looktype outfit] = {addon1 = 'true' para dar o addon1, 'false' para não dar, addon2 (mesma coisa)}
    [129] = {addon1 = true, addon2 = true},
}
function onUse(player, item, fromPosition, target, toPosition, isHotkey)
    if player:getStorageValue(10001) == -1 then
        local check = false
        for looktype, addontab in pairs(t) do
            if player:hasOutfit(looktype) then
                check = true
                for i = 1, 2 do
                    player:addOutfitAddon(looktype, i == 1 and (addontab.addon1 and 1) or (addontab.addon2 and 2))
                end
            end
        end
        if check then
            player:sendTextMessage(MESSAGE_INFO_DESCR, "You have received new addons!")
            player:getPosition():sendMagicEffect(CONST_ME_HOLYAREA)
        end
        player:setStorageValue(10001, 1)
        item:transform(item:getId() == 1945 and 1946 or 1945)
    end
    return true
end

Adicione as demais linhas para os outros looktypes conforme os exemplos.

Rayo · Julho 17, 2019

Em data/creaturescripts/scripts, crie um arquivo.lua e cole isto dentro:

local t = {
    ["rotworm"] = {name = "light", level = 8},
    ["dwarf"] = {name = "haste", level = 15},
    ["dwarf soldier"] = {name = "heal friend", level = 10}
}

function onKill(creature, target)
    local targetMonster = target:getMonster()
    if not targetMonster then return true end
    if isSummon(target:getId()) then return true end
    local m = t[targetMonster:getName():lower()] 
    if not m then return true end
    local player = creature:getPlayer()
    if not player then return true end
    if player:canLearnSpell(m.name) and not player:hasLearnedSpell(m.name) then
        if player:getLevel() >= m.level then
            player:learnSpell(m.name)
            player:getPosition():sendMagicEffect(CONST_ME_HOLYAREA)
            player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "You have learnt the spell '" .. m.name .. "'. Open your spellbook and the check the words.")
        end
    end
    return true
end

No creaturescripts.xml, adicione a tag:

<event type="kill" name="MonsterSpell" script="NOMEDOARQUIVO.lua" />

Em data/creaturescripts/scripts/login.lua, adicione a linha:

player:registerEvent("MonsterSpell")

Não tive como testar, mas creio que funcionará. Edite o nome do monstro, o nome da magia e o level mínimo para aprender a magia conforme os exemplos que deixei.

Entrar

Perfis

Fóruns

Calendário

Publique

Posts postados por Dwarfer

TibiaKing

Open Tibia Server

Redes Sociais

Anuncie no TibiaKing

Informação Importante