[AJUDA]npc task

[maleskinho 13]

Olá,

 

Esse meu script tem por nivel as task se o player passa do lvl 50 por exemplo ele já não consegue fazer as task abaixo desse nivel.

 

Como eu faço pra todas as task aparecer mesmo que o player esteja nível alto.

 

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local Topic = {}

 

local data = {

[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },

[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},

[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},

[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},

[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},

[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},

[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?

[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK

[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},

[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},

[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},

[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},

[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK

[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},

[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},

[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},

[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK

[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},

}

 

local curTask = 14500

local points = 14501

local rank = 14502

local questLog = 14503

local tiquanda = 14505

local demodras = 16345

 

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

 

function greetCallback(cid)

local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)

if cur >= 5 and r < 1 then

msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 10 and r < 2 then

msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 20 and r < 3 then

msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 30 and r < 4 then

msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 50 and r < 5 then

msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'

else

msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'

end

npcHandler:setMessage(MESSAGE_GREET, msg)

Topic[cid] = 0

return true

end

 

function creatureSayCallback(cid, _type, msg)

if not npcHandler:isFocused(cid) then

return false

end

 

if msgcontains(msg, 'task') then

local cur = getPlayerStorageValue(cid, curTask)

if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then

local v, lvl = '', getPlayerLevel(cid)

if lvl < 50 then

v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems} or {mammoths}', 1

elseif lvl < 90 then

v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2

elseif 90 <= lvl then

v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 3

end

selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)

elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then

selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)

doPlayerAddItem(cid, 10305, 1)

setPlayerStorageValue(cid, curTask, -1)

elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then

local tmp

if type(data[cur][4]) == 'table' then

tmp = {}

for i = 1, #data[cur][4] do

tmp = string.format(data[cur][4], getCreatureName(cid))

end

end

selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)

if data[cur][5] > 0 then

doPlayerAddExp(cid, data[cur][5])

doSendAnimatedText(getThingPos(cid), data[cur][5], 215)

end

if data[cur][6] then

setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])

end

if data[cur][7] then -- special task (he sends you to kill the boss)

setPlayerStorageValue(cid, cur + 100, 1)

end

setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)

Topic[cid] = 0

elseif getPlayerStorageValue(cid, cur + 100) == 2 then

setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)

selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)

setPlayerStorageValue(cid, cur + 100, -1)

else

selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)

Topic[cid] = 4

end

elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then

local items = {

{name='antlers', id=11208, sell=50},

{name='bloody pincers', id=10549, sell=50},

{name='crab pincers', id=11183, sell=35},

{name='cyclops toe', id=10573, sell=55},

{name='frosty ear of a troll', id=10564, sell=30},

{name='hydra head', id=11193, sell=600},

{name='lancer leetle shell', id=11366, sell=80},

{name='mutated bat ear', id=10578, sell=420},

{name='sabretooth', id=11222, sell=400},

{name='sandcrawler shell', id=11367, sell=20},

{name='scarab pincers', id=10547, sell=280},

{name='terramite legs', id=11365, sell=60},

{name='terramite shell', id=11363, sell=170},

{name='terrorbird beak', id=11184, sell=95},

{name='cyclops trophy', id=7398, sell=500},

{name='minotaur trophy', id=7401, sell=500},

}

if getPlayerStorageValue(cid, rank) >= 3 then

table.insert(items, {name='deer trophy', id=7397, sell=3000})

table.insert(items, {name='lion trophy', id=7400, sell=3000})

table.insert(items, {name='wolf trophy', id=7394, sell=3000})

end

if getPlayerStorageValue(cid, rank) >= 4 then

table.insert(items, {name='behemoth trophy', id=7396, sell=20000})

table.insert(items, {name='demon trophy', id=7393, sell=40000})

table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})

table.insert(items, {name='demon backpack', id=10518, buy=1000})

end

openShopWindow(cid, items,

function(cid, itemid, subType, amount, ignoreCap, inBackpacks)

customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)

end,

function(cid, itemid, subType, amount, ignoreCap, inBackpacks)

customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)

end

)

selfSay("Alright, show me what you've got.", cid)

elseif Topic[cid] == 4 then

local cur = getPlayerStorageValue(cid, curTask)

if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then

selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)

setPlayerStorageValue(cid, cur, -1)

setPlayerStorageValue(cid, curTask, -1)

if getPlayerStorageValue(cid, cur + 100) > 0 then

setPlayerStorageValue(cid, cur + 100, -1)

end

else

selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)

end

Topic[cid] = 0

elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then

local v = tasks['crocodile']

selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then

local v = tasks['tarantula']

selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then

local v = tasks['carniphila']

selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then

local v = tasks['stone golem']

selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then

local v = tasks['mammoth']

selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 2 and msgcontains(msg, 'golem') then

local v = tasks['ice golem']

selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 2 and msgcontains(msg, 'quara') then

selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)

Topic[cid] = 5

elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then

local v = tasks['quara constrictor scout']

selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then

local v = tasks['quara constrictor']

selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 2 and msgcontains(msg, 'elemental') then

selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)

Topic[cid] = 6

elseif Topic[cid] == 6 and msgcontains(msg, 'water') then

local v = tasks['water elemental']

selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then

local v = tasks['earth elemental']

selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then

local v = tasks['energy elemental']

selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then

local v = tasks['fire elemental']

selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 2 and msgcontains(msg, 'mutated rat') then

local v = tasks['mutated rat']

selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. <shudders> My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 2 and msgcontains(msg, 'giant spider') then

local v = tasks['giant spider']

selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 3 and msgcontains(msg, 'hydra') then

local v = tasks['hydra']

selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 3 and msgcontains(msg, 'sea serpent') then

local v = tasks['sea serpent']

selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)

Topic[cid] = v.storage

elseif Topic[cid] == 3 and msgcontains(msg, 'behemoth') then

local v = tasks['behemoth']

selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 3 and msgcontains(msg, 'serpent spawn') then

local v = tasks['serpent spawn']

selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 3 and getPlayerStorageValue(cid, rank) == 5 and msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then

local v = tasks['demon']

selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)

setPlayerStorageValue(cid, curTask, v.storage)

setPlayerStorageValue(cid, v.storage, 0)

Topic[cid] = 0

elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then

selfSay(data[Topic[cid]][2], cid)

setPlayerStorageValue(cid, curTask, Topic[cid])

setPlayerStorageValue(cid, Topic[cid], 0)

if getPlayerStorageValue(cid, questLog) < 1 then

setPlayerStorageValue(cid, questLog, 1)

setPlayerStorageValue(cid, points, 0)

end

Topic[cid] = 0

elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then

local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)

if v < 1 then

if getPlayerLevel(cid) >= 90 then

setPlayerStorageValue(cid, tiquanda, 1)

selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)

else

selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)

end

elseif v == 2 then

selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)

setPlayerStorageValue(cid, tiquanda, 3)

elseif v == 3 and k < 1 then

if getPlayerLevel(cid) >= 100 then

setPlayerStorageValue(cid, demodras, 1)

selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)

else

selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)

end

elseif k == 2 then

selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)

setPlayerStorageValue(cid, demodras, 3)

end

elseif msgcontains(msg, 'promotion') then

local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)

if cur >= 5 and r < 1 then

msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000

elseif cur >= 10 and r < 2 then

msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000

elseif cur >= 20 and r < 3 then

msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000

elseif cur >= 30 and r < 4 then

msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518

elseif cur >= 50 and r < 5 then

msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000

end

if msg then

selfSay(msg, cid)

setPlayerStorageValue(cid, rank, math.max(1, r + 1))

if exp then

doPlayerAddExp(cid, exp)

doSendAnimatedText(getThingPos(cid), exp, 215)

end

if item then

doPlayerAddItem(cid, item, 1)

end

end

end

end

 

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')

npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')

npcHandler:setCallback(CALLBACK_GREET, greetCallback)

npcHandler:addModule(FocusModule:new())

Editado Abril 12, 2015 por maleskinho (veja o histórico de edições)

[Ceos 136]

Eu acho que você precisaria remover do script.

 

local v, lvl = '', getPlayerLevel(cid)
if lvl < 50 then

[maleskinho 13]

Não deu certo.

[Wakon 912]

Ao invés de retirar, tente colocar um numero tipo 5000, ou altere para > 1.

if lvl < 5000 then

Editado Abril 12, 2015 por Wakon (veja o histórico de edições)

[maleskinho 13]

 

Ao invés de retirar, tente colocar um numero tipo 5000, ou altere para > 1.

if lvl < 5000 then

é que ali tem 3 opção de nível pra task, seu colocar 5000 em todas só vai aparecer da primeira opção exemplo "{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems} or {mammoths}"

 

Queria ver se tem como mostrar todas as task

[Factur 373]

Troque este código

local v, lvl = '', getPlayerLevel(cid)
if lvl < 50 then
v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems} or {mammoths}', 1
elseif lvl < 90 then
v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2
elseif 90 <= lvl then

Por este

local v, lvl = '', getPlayerLevel(cid)
if lvl < 5000 then
v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems} or {mammoths}', 1
elseif lvl < 9000 then
v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2
elseif 9000 <= lvl then

[Wakon 912]

Não sei se vai funcionar, pois não consigo testar na minha base, mais tenta:

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local Topic = {}
 
local data = {
[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },
[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},
[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},
[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},
[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},
[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},
[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?
[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK
[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK
[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},
[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},
[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},
[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK
[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},
}
 
local curTask = 14500
local points = 14501
local rank = 14502
local questLog = 14503
local tiquanda = 14505
local demodras = 16345
 
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
 
function greetCallback(cid)
local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 10 and r < 2 then
msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 20 and r < 3 then
msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 30 and r < 4 then
msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 50 and r < 5 then
msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'
else
msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'
end
npcHandler:setMessage(MESSAGE_GREET, msg)
Topic[cid] = 0
return true
end
 
function creatureSayCallback(cid, _type, msg)
if not npcHandler:isFocused(cid) then
return false
end
 
if msgcontains(msg, 'task') then
local cur = getPlayerStorageValue(cid, curTask)
if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then
local v, lvl = '', getPlayerLevel(cid)
if lvl < 5000 then
v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems}, {mammoths}, {Ice golems}, {Quara}, {elementals}, {mutated rats}, {giant spiders}, {Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 1
elseif lvl < 90 then
v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2
elseif 90 <= lvl then
v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 3
end
selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)
elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then
selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)
doPlayerAddItem(cid, 10305, 1)
setPlayerStorageValue(cid, curTask, -1)
elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then
local tmp
if type(data[cur][4]) == 'table' then
tmp = {}
for i = 1, #data[cur][4] do
tmp = string.format(data[cur][4], getCreatureName(cid))
end
end
selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)
if data[cur][5] > 0 then
doPlayerAddExp(cid, data[cur][5])
doSendAnimatedText(getThingPos(cid), data[cur][5], 215)
end
if data[cur][6] then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])
end    
if data[cur][7] then -- special task (he sends you to kill the boss)
setPlayerStorageValue(cid, cur + 100, 1)
end
setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)
Topic[cid] = 0
elseif getPlayerStorageValue(cid, cur + 100) == 2 then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)
selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)
setPlayerStorageValue(cid, cur + 100, -1)
else
selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)
Topic[cid] = 4
end
elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then
local items = {
{name='antlers', id=11208, sell=50},
{name='bloody pincers', id=10549, sell=50},
{name='crab pincers', id=11183, sell=35},
{name='cyclops toe', id=10573, sell=55},
{name='frosty ear of a troll', id=10564, sell=30},
{name='hydra head', id=11193, sell=600},
{name='lancer leetle shell', id=11366, sell=80},
{name='mutated bat ear', id=10578, sell=420},
{name='sabretooth', id=11222, sell=400},
{name='sandcrawler shell', id=11367, sell=20},
{name='scarab pincers', id=10547, sell=280},
{name='terramite legs', id=11365, sell=60},
{name='terramite shell', id=11363, sell=170},
{name='terrorbird beak', id=11184, sell=95},
{name='cyclops trophy', id=7398, sell=500},
{name='minotaur trophy', id=7401, sell=500},
}
if getPlayerStorageValue(cid, rank) >= 3 then
table.insert(items, {name='deer trophy', id=7397, sell=3000})
table.insert(items, {name='lion trophy', id=7400, sell=3000})
table.insert(items, {name='wolf trophy', id=7394, sell=3000})
end
if getPlayerStorageValue(cid, rank) >= 4 then
table.insert(items, {name='behemoth trophy', id=7396, sell=20000})
table.insert(items, {name='demon trophy', id=7393, sell=40000})
table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})
table.insert(items, {name='demon backpack', id=10518, buy=1000})
end
openShopWindow(cid, items,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end
)
selfSay("Alright, show me what you've got.", cid)
elseif Topic[cid] == 4 then
local cur = getPlayerStorageValue(cid, curTask)
if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then
selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)
setPlayerStorageValue(cid, cur, -1)
setPlayerStorageValue(cid, curTask, -1)
if getPlayerStorageValue(cid, cur + 100) > 0 then
setPlayerStorageValue(cid, cur + 100, -1)
end
else
selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)
end
Topic[cid] = 0
elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then
local v = tasks['crocodile']
selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then
local v = tasks['tarantula']
selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then
local v = tasks['carniphila']
selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['stone golem']
selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then
local v = tasks['mammoth']
selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['ice golem']
selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'quara') then
selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)
Topic[cid] = 5
elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then
local v = tasks['quara constrictor scout']
selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then
local v = tasks['quara constrictor']
selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'elemental') then
selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)
Topic[cid] = 6
elseif Topic[cid] == 6 and msgcontains(msg, 'water') then
local v = tasks['water elemental']
selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then
local v = tasks['earth elemental']
selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then
local v = tasks['energy elemental']
selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then
local v = tasks['fire elemental']
selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mutated rat') then
local v = tasks['mutated rat']
selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. <shudders> My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'giant spider') then
local v = tasks['giant spider']
selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'hydra') then
local v = tasks['hydra']
selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'sea serpent') then
local v = tasks['sea serpent']
selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'behemoth') then
local v = tasks['behemoth']
selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'serpent spawn') then
local v = tasks['serpent spawn']
selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and getPlayerStorageValue(cid, rank) == 5 and msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then
local v = tasks['demon']
selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)
setPlayerStorageValue(cid, curTask, v.storage)
setPlayerStorageValue(cid, v.storage, 0)
Topic[cid] = 0
elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then
selfSay(data[Topic[cid]][2], cid)
setPlayerStorageValue(cid, curTask, Topic[cid])
setPlayerStorageValue(cid, Topic[cid], 0)
if getPlayerStorageValue(cid, questLog) < 1 then
setPlayerStorageValue(cid, questLog, 1)
setPlayerStorageValue(cid, points, 0)
end
Topic[cid] = 0
elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then
local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)
if v < 1 then
if getPlayerLevel(cid) >= 90 then
setPlayerStorageValue(cid, tiquanda, 1)
selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif v == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, tiquanda, 3)
elseif v == 3 and k < 1 then
if getPlayerLevel(cid) >= 100 then
setPlayerStorageValue(cid, demodras, 1)
selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif k == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, demodras, 3)
end
elseif msgcontains(msg, 'promotion') then
local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000
elseif cur >= 10 and r < 2 then
msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000
elseif cur >= 20 and r < 3 then
msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000
elseif cur >= 30 and r < 4 then
msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518
elseif cur >= 50 and r < 5 then
msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000
end
if msg then
selfSay(msg, cid)
setPlayerStorageValue(cid, rank, math.max(1, r + 1))
if exp then
doPlayerAddExp(cid, exp)
doSendAnimatedText(getThingPos(cid), exp, 215)
end
if item then
doPlayerAddItem(cid, item, 1)
end
end
end
end
 
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')
npcHandler:setCallback(CALLBACK_GREET, greetCallback)

npcHandler:addModule(FocusModule:new())

[Factur 373]

Caso nenhum dos nossos funcionar, esta é a ultima chance

 

Substitua todo o seu arquivo por este

 

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


local data = {
[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },
[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},
[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},
[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},
[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},
[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},
[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?
[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK
[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK
[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},
[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},
[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},
[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK
[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},
}


local curTask = 14500
local points = 14501
local rank = 14502
local questLog = 14503
local tiquanda = 14505
local demodras = 16345


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


function greetCallback(cid)
local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 10 and r < 2 then
msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 20 and r < 3 then
msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 30 and r < 4 then
msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 50 and r < 5 then
msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'
else
msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'
end
npcHandler:setMessage(MESSAGE_GREET, msg)
Topic[cid] = 0
return true
end


function creatureSayCallback(cid, _type, msg)
if not npcHandler:isFocused(cid) then
return false
end


if msgcontains(msg, 'task') then
local cur = getPlayerStorageValue(cid, curTask)
if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then
local v, lvl = '', getPlayerLevel(cid)
if lvl < 5000 then
v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems} or {mammoths}', 1
elseif lvl < 5000 then
v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2
elseif 5000 <= lvl then
v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 3
end
selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)
elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then
selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)
doPlayerAddItem(cid, 10305, 1)
setPlayerStorageValue(cid, curTask, -1)
elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then
local tmp
if type(data[cur][4]) == 'table' then
tmp = {}
for i = 1, #data[cur][4] do
tmp[i] = string.format(data[cur][4][i], getCreatureName(cid))
end
end
selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)
if data[cur][5] > 0 then
doPlayerAddExp(cid, data[cur][5])
doSendAnimatedText(getThingPos(cid), data[cur][5], 215)
end
if data[cur][6] then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])
end
if data[cur][7] then -- special task (he sends you to kill the boss)
setPlayerStorageValue(cid, cur + 100, 1)
end
setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)
Topic[cid] = 0
elseif getPlayerStorageValue(cid, cur + 100) == 2 then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)
selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)
setPlayerStorageValue(cid, cur + 100, -1)
else
selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)
Topic[cid] = 4
end
elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then
local items = {
{name='antlers', id=11208, sell=50},
{name='bloody pincers', id=10549, sell=50},
{name='crab pincers', id=11183, sell=35},
{name='cyclops toe', id=10573, sell=55},
{name='frosty ear of a troll', id=10564, sell=30},
{name='hydra head', id=11193, sell=600},
{name='lancer leetle shell', id=11366, sell=80},
{name='mutated bat ear', id=10578, sell=420},
{name='sabretooth', id=11222, sell=400},
{name='sandcrawler shell', id=11367, sell=20},
{name='scarab pincers', id=10547, sell=280},
{name='terramite legs', id=11365, sell=60},
{name='terramite shell', id=11363, sell=170},
{name='terrorbird beak', id=11184, sell=95},
{name='cyclops trophy', id=7398, sell=500},
{name='minotaur trophy', id=7401, sell=500},
}
if getPlayerStorageValue(cid, rank) >= 3 then
table.insert(items, {name='deer trophy', id=7397, sell=3000})
table.insert(items, {name='lion trophy', id=7400, sell=3000})
table.insert(items, {name='wolf trophy', id=7394, sell=3000})
end
if getPlayerStorageValue(cid, rank) >= 4 then
table.insert(items, {name='behemoth trophy', id=7396, sell=20000})
table.insert(items, {name='demon trophy', id=7393, sell=40000})
table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})
table.insert(items, {name='demon backpack', id=10518, buy=1000})
end
openShopWindow(cid, items,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end
)
selfSay("Alright, show me what you've got.", cid)
elseif Topic[cid] == 4 then
local cur = getPlayerStorageValue(cid, curTask)
if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then
selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)
setPlayerStorageValue(cid, cur, -1)
setPlayerStorageValue(cid, curTask, -1)
if getPlayerStorageValue(cid, cur + 100) > 0 then
setPlayerStorageValue(cid, cur + 100, -1)
end
else
selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)
end
Topic[cid] = 0
elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then
local v = tasks['crocodile']
selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then
local v = tasks['tarantula']
selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then
local v = tasks['carniphila']
selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['stone golem']
selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then
local v = tasks['mammoth']
selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'golem') then
local v = tasks['ice golem']
selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'quara') then
selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)
Topic[cid] = 5
elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then
local v = tasks['quara constrictor scout']
selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then
local v = tasks['quara constrictor']
selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'elemental') then
selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)
Topic[cid] = 6
elseif Topic[cid] == 6 and msgcontains(msg, 'water') then
local v = tasks['water elemental']
selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then
local v = tasks['earth elemental']
selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then
local v = tasks['energy elemental']
selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then
local v = tasks['fire elemental']
selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'mutated rat') then
local v = tasks['mutated rat']
selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. <shudders> My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'giant spider') then
local v = tasks['giant spider']
selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'hydra') then
local v = tasks['hydra']
selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'sea serpent') then
local v = tasks['sea serpent']
selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'behemoth') then
local v = tasks['behemoth']
selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'serpent spawn') then
local v = tasks['serpent spawn']
selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and getPlayerStorageValue(cid, rank) == 5 and msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then
local v = tasks['demon']
selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)
setPlayerStorageValue(cid, curTask, v.storage)
setPlayerStorageValue(cid, v.storage, 0)
Topic[cid] = 0
elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then
selfSay(data[Topic[cid]][2], cid)
setPlayerStorageValue(cid, curTask, Topic[cid])
setPlayerStorageValue(cid, Topic[cid], 0)
if getPlayerStorageValue(cid, questLog) < 1 then
setPlayerStorageValue(cid, questLog, 1)
setPlayerStorageValue(cid, points, 0)
end
Topic[cid] = 0
elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then
local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)
if v < 1 then
if getPlayerLevel(cid) >= 5000 then
setPlayerStorageValue(cid, tiquanda, 1)
selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif v == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, tiquanda, 3)
elseif v == 3 and k < 1 then
if getPlayerLevel(cid) >= 5000 then
setPlayerStorageValue(cid, demodras, 1)
selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif k == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, demodras, 3)
end
elseif msgcontains(msg, 'promotion') then
local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000
elseif cur >= 10 and r < 2 then
msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000
elseif cur >= 20 and r < 3 then
msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000
elseif cur >= 30 and r < 4 then
msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518
elseif cur >= 50 and r < 5 then
msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000
end
if msg then
selfSay(msg, cid)
setPlayerStorageValue(cid, rank, math.max(1, r + 1))
if exp then
doPlayerAddExp(cid, exp)
doSendAnimatedText(getThingPos(cid), exp, 215)
end
if item then
doPlayerAddItem(cid, item, 1)
end
end
end
end


npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')
npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:addModule(FocusModule:new())

[Wakon 912]

 

Caso nenhum dos nossos funcionar, esta é a ultima chance

 

Substitua todo o seu arquivo por este

 

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


local data = {
[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },
[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},
[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},
[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},
[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},
[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},
[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?
[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK
[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK
[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},
[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},
[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},
[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK
[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},
}


local curTask = 14500
local points = 14501
local rank = 14502
local questLog = 14503
local tiquanda = 14505
local demodras = 16345


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


function greetCallback(cid)
local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 10 and r < 2 then
msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 20 and r < 3 then
msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 30 and r < 4 then
msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 50 and r < 5 then
msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'
else
msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'
end
npcHandler:setMessage(MESSAGE_GREET, msg)
Topic[cid] = 0
return true
end


function creatureSayCallback(cid, _type, msg)
if not npcHandler:isFocused(cid) then
return false
end


if msgcontains(msg, 'task') then
local cur = getPlayerStorageValue(cid, curTask)
if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then
local v, lvl = '', getPlayerLevel(cid)
if lvl < 5000 then
v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems} or {mammoths}', 1
elseif lvl < 5000 then
v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2
elseif 5000 <= lvl then
v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 3
end
selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)
elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then
selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)
doPlayerAddItem(cid, 10305, 1)
setPlayerStorageValue(cid, curTask, -1)
elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then
local tmp
if type(data[cur][4]) == 'table' then
tmp = {}
for i = 1, #data[cur][4] do
tmp[i] = string.format(data[cur][4][i], getCreatureName(cid))
end
end
selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)
if data[cur][5] > 0 then
doPlayerAddExp(cid, data[cur][5])
doSendAnimatedText(getThingPos(cid), data[cur][5], 215)
end
if data[cur][6] then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])
end
if data[cur][7] then -- special task (he sends you to kill the boss)
setPlayerStorageValue(cid, cur + 100, 1)
end
setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)
Topic[cid] = 0
elseif getPlayerStorageValue(cid, cur + 100) == 2 then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)
selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)
setPlayerStorageValue(cid, cur + 100, -1)
else
selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)
Topic[cid] = 4
end
elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then
local items = {
{name='antlers', id=11208, sell=50},
{name='bloody pincers', id=10549, sell=50},
{name='crab pincers', id=11183, sell=35},
{name='cyclops toe', id=10573, sell=55},
{name='frosty ear of a troll', id=10564, sell=30},
{name='hydra head', id=11193, sell=600},
{name='lancer leetle shell', id=11366, sell=80},
{name='mutated bat ear', id=10578, sell=420},
{name='sabretooth', id=11222, sell=400},
{name='sandcrawler shell', id=11367, sell=20},
{name='scarab pincers', id=10547, sell=280},
{name='terramite legs', id=11365, sell=60},
{name='terramite shell', id=11363, sell=170},
{name='terrorbird beak', id=11184, sell=95},
{name='cyclops trophy', id=7398, sell=500},
{name='minotaur trophy', id=7401, sell=500},
}
if getPlayerStorageValue(cid, rank) >= 3 then
table.insert(items, {name='deer trophy', id=7397, sell=3000})
table.insert(items, {name='lion trophy', id=7400, sell=3000})
table.insert(items, {name='wolf trophy', id=7394, sell=3000})
end
if getPlayerStorageValue(cid, rank) >= 4 then
table.insert(items, {name='behemoth trophy', id=7396, sell=20000})
table.insert(items, {name='demon trophy', id=7393, sell=40000})
table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})
table.insert(items, {name='demon backpack', id=10518, buy=1000})
end
openShopWindow(cid, items,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end
)
selfSay("Alright, show me what you've got.", cid)
elseif Topic[cid] == 4 then
local cur = getPlayerStorageValue(cid, curTask)
if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then
selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)
setPlayerStorageValue(cid, cur, -1)
setPlayerStorageValue(cid, curTask, -1)
if getPlayerStorageValue(cid, cur + 100) > 0 then
setPlayerStorageValue(cid, cur + 100, -1)
end
else
selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)
end
Topic[cid] = 0
elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then
local v = tasks['crocodile']
selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then
local v = tasks['tarantula']
selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then
local v = tasks['carniphila']
selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['stone golem']
selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then
local v = tasks['mammoth']
selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'golem') then
local v = tasks['ice golem']
selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'quara') then
selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)
Topic[cid] = 5
elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then
local v = tasks['quara constrictor scout']
selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then
local v = tasks['quara constrictor']
selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'elemental') then
selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)
Topic[cid] = 6
elseif Topic[cid] == 6 and msgcontains(msg, 'water') then
local v = tasks['water elemental']
selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then
local v = tasks['earth elemental']
selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then
local v = tasks['energy elemental']
selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then
local v = tasks['fire elemental']
selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'mutated rat') then
local v = tasks['mutated rat']
selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. <shudders> My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 2 and msgcontains(msg, 'giant spider') then
local v = tasks['giant spider']
selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'hydra') then
local v = tasks['hydra']
selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'sea serpent') then
local v = tasks['sea serpent']
selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'behemoth') then
local v = tasks['behemoth']
selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and msgcontains(msg, 'serpent spawn') then
local v = tasks['serpent spawn']
selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 3 and getPlayerStorageValue(cid, rank) == 5 and msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then
local v = tasks['demon']
selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)
setPlayerStorageValue(cid, curTask, v.storage)
setPlayerStorageValue(cid, v.storage, 0)
Topic[cid] = 0
elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then
selfSay(data[Topic[cid]][2], cid)
setPlayerStorageValue(cid, curTask, Topic[cid])
setPlayerStorageValue(cid, Topic[cid], 0)
if getPlayerStorageValue(cid, questLog) < 1 then
setPlayerStorageValue(cid, questLog, 1)
setPlayerStorageValue(cid, points, 0)
end
Topic[cid] = 0
elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then
local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)
if v < 1 then
if getPlayerLevel(cid) >= 5000 then
setPlayerStorageValue(cid, tiquanda, 1)
selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif v == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, tiquanda, 3)
elseif v == 3 and k < 1 then
if getPlayerLevel(cid) >= 5000 then
setPlayerStorageValue(cid, demodras, 1)
selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif k == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, demodras, 3)
end
elseif msgcontains(msg, 'promotion') then
local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000
elseif cur >= 10 and r < 2 then
msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000
elseif cur >= 20 and r < 3 then
msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000
elseif cur >= 30 and r < 4 then
msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518
elseif cur >= 50 and r < 5 then
msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000
end
if msg then
selfSay(msg, cid)
setPlayerStorageValue(cid, rank, math.max(1, r + 1))
if exp then
doPlayerAddExp(cid, exp)
doSendAnimatedText(getThingPos(cid), exp, 215)
end
if item then
doPlayerAddItem(cid, item, 1)
end
end
end
end


npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')
npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:addModule(FocusModule:new())

 

Factur, creio que assim vá bugar, pois cada level muda o Topic[cid] e ficaria tentando mudar para 1, 2 e 3 ou apenas mudaria para 1.

[Factur 373]

Factur, creio que assim vá bugar, pois cada level muda o Topic[cid] e ficaria tentando mudar para 1, 2 e 3 ou apenas mudaria para 1.

Eu testei aki é funcionou, mas não vamos transformar isto em chat, vamos esperar a resposta do dono do topico.

[maleskinho 13]

Factur, creio que assim vá bugar, pois cada level muda o Topic[cid] e ficaria tentando mudar para 1, 2 e 3 ou apenas mudaria para 1.

Isso mesmo, oque falta só é ver do "demon" não está aparecendo.

 

"14:09 Grizzly Adams: All right, what would you like to hunt? Crocodiles, tarantulas, carniphilas, stone golems, mammoths, Ice golems, Quara, elementals, mutated rats, giant spiders, Hydras, sea serpent, behemoths or serpent spawns?"

[Wakon 912]

Isso mesmo, oque falta só é ver do "demon" não está aparecendo.

 

"14:09 Grizzly Adams: All right, what would you like to hunt? Crocodiles, tarantulas, carniphilas, stone golems, mammoths, Ice golems, Quara, elementals, mutated rats, giant spiders, Hydras, sea serpent, behemoths or serpent spawns?"

Tenta assim:

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local Topic = {}

 

local data = {

[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },

[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},

[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},

[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},

[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},

[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},

[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?

[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK

[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},

[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},

[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},

[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},

[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK

[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},

[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},

[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},

[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK

[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},

}

 

local curTask = 14500

local points = 14501

local rank = 14502

local questLog = 14503

local tiquanda = 14505

local demodras = 16345

 

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

 

function greetCallback(cid)

local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)

if cur >= 5 and r < 1 then

msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 10 and r < 2 then

msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 20 and r < 3 then

msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 30 and r < 4 then

msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 50 and r < 5 then

msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'

else

msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'

end

npcHandler:setMessage(MESSAGE_GREET, msg)

Topic[cid] = 0

return true

end

 

function creatureSayCallback(cid, _type, msg)

if not npcHandler:isFocused(cid) then

return false

end

 

if msgcontains(msg, 'task') then

local cur = getPlayerStorageValue(cid, curTask)

if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then

local v, lvl = '', getPlayerLevel(cid)

if lvl < 5000 then

v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems}, {mammoths}, {Ice golems}, {Quara}, {elementals}, {mutated rats}, {giant spiders}, {Hydras}, {sea serpents}, {behemoths}, {serpent spawns} or {demons}'), 1

elseif lvl < 90 then

v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2

elseif 90 <= lvl then

v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 3

end

selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)

elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then

selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)

doPlayerAddItem(cid, 10305, 1)

setPlayerStorageValue(cid, curTask, -1)

elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then

local tmp

if type(data[cur][4]) == 'table' then

tmp = {}

for i = 1, #data[cur][4] do

tmp = string.format(data[cur][4], getCreatureName(cid))

end

end

selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)

if data[cur][5] > 0 then

doPlayerAddExp(cid, data[cur][5])

doSendAnimatedText(getThingPos(cid), data[cur][5], 215)

end

if data[cur][6] then

setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])

end    

if data[cur][7] then -- special task (he sends you to kill the boss)

setPlayerStorageValue(cid, cur + 100, 1)

end

setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)

Topic[cid] = 0

elseif getPlayerStorageValue(cid, cur + 100) == 2 then

setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)

selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)

setPlayerStorageValue(cid, cur + 100, -1)

else

selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)

Topic[cid] = 4

end

elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then

local items = {

{name='antlers', id=11208, sell=50},

{name='bloody pincers', id=10549, sell=50},

{name='crab pincers', id=11183, sell=35},

{name='cyclops toe', id=10573, sell=55},

{name='frosty ear of a troll', id=10564, sell=30},

{name='hydra head', id=11193, sell=600},

{name='lancer leetle shell', id=11366, sell=80},

{name='mutated bat ear', id=10578, sell=420},

{name='sabretooth', id=11222, sell=400},

{name='sandcrawler shell', id=11367, sell=20},

{name='scarab pincers', id=10547, sell=280},

{name='terramite legs', id=11365, sell=60},

{name='terramite shell', id=11363, sell=170},

{name='terrorbird beak', id=11184, sell=95},

{name='cyclops trophy', id=7398, sell=500},

{name='minotaur trophy', id=7401, sell=500},

}

if getPlayerStorageValue(cid, rank) >= 3 then

table.insert(items, {name='deer trophy', id=7397, sell=3000})

table.insert(items, {name='lion trophy', id=7400, sell=3000})

table.insert(items, {name='wolf trophy', id=7394, sell=3000})

end

if getPlayerStorageValue(cid, rank) >= 4 then

table.insert(items, {name='behemoth trophy', id=7396, sell=20000})

table.insert(items, {name='demon trophy', id=7393, sell=40000})

table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})

table.insert(items, {name='demon backpack', id=10518, buy=1000})

end

openShopWindow(cid, items,

function(cid, itemid, subType, amount, ignoreCap, inBackpacks)

customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)

end,

function(cid, itemid, subType, amount, ignoreCap, inBackpacks)

customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)

end

)

selfSay("Alright, show me what you've got.", cid)

elseif Topic[cid] == 4 then

local cur = getPlayerStorageValue(cid, curTask)

if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then

selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)

setPlayerStorageValue(cid, cur, -1)

setPlayerStorageValue(cid, curTask, -1)

if getPlayerStorageValue(cid, cur + 100) > 0 then

setPlayerStorageValue(cid, cur + 100, -1)

end

else

selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)

end

Topic[cid] = 0

elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then

local v = tasks['crocodile']

selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then

local v = tasks['tarantula']

selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then

local v = tasks['carniphila']

selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then

local v = tasks['stone golem']

selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then

local v = tasks['mammoth']

selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then

local v = tasks['ice golem']

selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'quara') then

selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)

Topic[cid] = 5

elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then

local v = tasks['quara constrictor scout']

selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then

local v = tasks['quara constrictor']

selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'elemental') then

selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)

Topic[cid] = 6

elseif Topic[cid] == 6 and msgcontains(msg, 'water') then

local v = tasks['water elemental']

selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then

local v = tasks['earth elemental']

selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then

local v = tasks['energy elemental']

selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then

local v = tasks['fire elemental']

selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'mutated rat') then

local v = tasks['mutated rat']

selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. <shudders> My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'giant spider') then

local v = tasks['giant spider']

selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'hydra') then

local v = tasks['hydra']

selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'sea serpent') then

local v = tasks['sea serpent']

selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'behemoth') then

local v = tasks['behemoth']

selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'serpent spawn') then

local v = tasks['serpent spawn']

selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then

local v = tasks['demon']

selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)

setPlayerStorageValue(cid, curTask, v.storage)

setPlayerStorageValue(cid, v.storage, 0)

Topic[cid] = 0

elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then

selfSay(data[Topic[cid]][2], cid)

setPlayerStorageValue(cid, curTask, Topic[cid])

setPlayerStorageValue(cid, Topic[cid], 0)

if getPlayerStorageValue(cid, questLog) < 1 then

setPlayerStorageValue(cid, questLog, 1)

setPlayerStorageValue(cid, points, 0)

end

Topic[cid] = 0

elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then

local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)

if v < 1 then

if getPlayerLevel(cid) >= 90 then

setPlayerStorageValue(cid, tiquanda, 1)

selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)

else

selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)

end

elseif v == 2 then

selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)

setPlayerStorageValue(cid, tiquanda, 3)

elseif v == 3 and k < 1 then

if getPlayerLevel(cid) >= 100 then

setPlayerStorageValue(cid, demodras, 1)

selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)

else

selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)

end

elseif k == 2 then

selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)

setPlayerStorageValue(cid, demodras, 3)

end

elseif msgcontains(msg, 'promotion') then

local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)

if cur >= 5 and r < 1 then

msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000

elseif cur >= 10 and r < 2 then

msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000

elseif cur >= 20 and r < 3 then

msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000

elseif cur >= 30 and r < 4 then

msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518

elseif cur >= 50 and r < 5 then

msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000

end

if msg then

selfSay(msg, cid)

setPlayerStorageValue(cid, rank, math.max(1, r + 1))

if exp then

doPlayerAddExp(cid, exp)

doSendAnimatedText(getThingPos(cid), exp, 215)

end

if item then

doPlayerAddItem(cid, item, 1)

end

end

end

end

 

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')

npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')

npcHandler:setCallback(CALLBACK_GREET, greetCallback)

npcHandler:addModule(FocusModule:new())

[maleskinho 13]

Tenta assim:

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local Topic = {}

 

local data = {

[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },

[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},

[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},

[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},

[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},

[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},

[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?

[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK

[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},

[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},

[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},

[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},

[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK

[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},

[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},

[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},

[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK

[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},

}

 

local curTask = 14500

local points = 14501

local rank = 14502

local questLog = 14503

local tiquanda = 14505

local demodras = 16345

 

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

 

function greetCallback(cid)

local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)

if cur >= 5 and r < 1 then

msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 10 and r < 2 then

msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 20 and r < 3 then

msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 30 and r < 4 then

msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'

elseif cur >= 50 and r < 5 then

msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'

else

msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'

end

npcHandler:setMessage(MESSAGE_GREET, msg)

Topic[cid] = 0

return true

end

 

function creatureSayCallback(cid, _type, msg)

if not npcHandler:isFocused(cid) then

return false

end

 

if msgcontains(msg, 'task') then

local cur = getPlayerStorageValue(cid, curTask)

if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then

local v, lvl = '', getPlayerLevel(cid)

if lvl < 5000 then

v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems}, {mammoths}, {Ice golems}, {Quara}, {elementals}, {mutated rats}, {giant spiders}, {Hydras}, {sea serpents}, {behemoths}, {serpent spawns} or {demons}'), 1

elseif lvl < 90 then

v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2

elseif 90 <= lvl then

v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 3

end

selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)

elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then

selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)

doPlayerAddItem(cid, 10305, 1)

setPlayerStorageValue(cid, curTask, -1)

elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then

local tmp

if type(data[cur][4]) == 'table' then

tmp = {}

for i = 1, #data[cur][4] do

tmp = string.format(data[cur][4], getCreatureName(cid))

end

end

selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)

if data[cur][5] > 0 then

doPlayerAddExp(cid, data[cur][5])

doSendAnimatedText(getThingPos(cid), data[cur][5], 215)

end

if data[cur][6] then

setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])

end    

if data[cur][7] then -- special task (he sends you to kill the boss)

setPlayerStorageValue(cid, cur + 100, 1)

end

setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)

Topic[cid] = 0

elseif getPlayerStorageValue(cid, cur + 100) == 2 then

setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)

selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)

setPlayerStorageValue(cid, cur + 100, -1)

else

selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)

Topic[cid] = 4

end

elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then

local items = {

{name='antlers', id=11208, sell=50},

{name='bloody pincers', id=10549, sell=50},

{name='crab pincers', id=11183, sell=35},

{name='cyclops toe', id=10573, sell=55},

{name='frosty ear of a troll', id=10564, sell=30},

{name='hydra head', id=11193, sell=600},

{name='lancer leetle shell', id=11366, sell=80},

{name='mutated bat ear', id=10578, sell=420},

{name='sabretooth', id=11222, sell=400},

{name='sandcrawler shell', id=11367, sell=20},

{name='scarab pincers', id=10547, sell=280},

{name='terramite legs', id=11365, sell=60},

{name='terramite shell', id=11363, sell=170},

{name='terrorbird beak', id=11184, sell=95},

{name='cyclops trophy', id=7398, sell=500},

{name='minotaur trophy', id=7401, sell=500},

}

if getPlayerStorageValue(cid, rank) >= 3 then

table.insert(items, {name='deer trophy', id=7397, sell=3000})

table.insert(items, {name='lion trophy', id=7400, sell=3000})

table.insert(items, {name='wolf trophy', id=7394, sell=3000})

end

if getPlayerStorageValue(cid, rank) >= 4 then

table.insert(items, {name='behemoth trophy', id=7396, sell=20000})

table.insert(items, {name='demon trophy', id=7393, sell=40000})

table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})

table.insert(items, {name='demon backpack', id=10518, buy=1000})

end

openShopWindow(cid, items,

function(cid, itemid, subType, amount, ignoreCap, inBackpacks)

customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)

end,

function(cid, itemid, subType, amount, ignoreCap, inBackpacks)

customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)

end

)

selfSay("Alright, show me what you've got.", cid)

elseif Topic[cid] == 4 then

local cur = getPlayerStorageValue(cid, curTask)

if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then

selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)

setPlayerStorageValue(cid, cur, -1)

setPlayerStorageValue(cid, curTask, -1)

if getPlayerStorageValue(cid, cur + 100) > 0 then

setPlayerStorageValue(cid, cur + 100, -1)

end

else

selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)

end

Topic[cid] = 0

elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then

local v = tasks['crocodile']

selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then

local v = tasks['tarantula']

selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then

local v = tasks['carniphila']

selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then

local v = tasks['stone golem']

selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then

local v = tasks['mammoth']

selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then

local v = tasks['ice golem']

selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'quara') then

selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)

Topic[cid] = 5

elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then

local v = tasks['quara constrictor scout']

selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then

local v = tasks['quara constrictor']

selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'elemental') then

selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)

Topic[cid] = 6

elseif Topic[cid] == 6 and msgcontains(msg, 'water') then

local v = tasks['water elemental']

selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then

local v = tasks['earth elemental']

selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then

local v = tasks['energy elemental']

selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then

local v = tasks['fire elemental']

selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'mutated rat') then

local v = tasks['mutated rat']

selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. <shudders> My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'giant spider') then

local v = tasks['giant spider']

selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'hydra') then

local v = tasks['hydra']

selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'sea serpent') then

local v = tasks['sea serpent']

selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'behemoth') then

local v = tasks['behemoth']

selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 and msgcontains(msg, 'serpent spawn') then

local v = tasks['serpent spawn']

selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)

Topic[cid] = v.storage

elseif Topic[cid] == 1 msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then

local v = tasks['demon']

selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)

setPlayerStorageValue(cid, curTask, v.storage)

setPlayerStorageValue(cid, v.storage, 0)

Topic[cid] = 0

elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then

selfSay(data[Topic[cid]][2], cid)

setPlayerStorageValue(cid, curTask, Topic[cid])

setPlayerStorageValue(cid, Topic[cid], 0)

if getPlayerStorageValue(cid, questLog) < 1 then

setPlayerStorageValue(cid, questLog, 1)

setPlayerStorageValue(cid, points, 0)

end

Topic[cid] = 0

elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then

local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)

if v < 1 then

if getPlayerLevel(cid) >= 90 then

setPlayerStorageValue(cid, tiquanda, 1)

selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)

else

selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)

end

elseif v == 2 then

selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)

setPlayerStorageValue(cid, tiquanda, 3)

elseif v == 3 and k < 1 then

if getPlayerLevel(cid) >= 100 then

setPlayerStorageValue(cid, demodras, 1)

selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)

else

selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)

end

elseif k == 2 then

selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)

setPlayerStorageValue(cid, demodras, 3)

end

elseif msgcontains(msg, 'promotion') then

local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)

if cur >= 5 and r < 1 then

msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000

elseif cur >= 10 and r < 2 then

msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000

elseif cur >= 20 and r < 3 then

msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000

elseif cur >= 30 and r < 4 then

msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518

elseif cur >= 50 and r < 5 then

msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000

end

if msg then

selfSay(msg, cid)

setPlayerStorageValue(cid, rank, math.max(1, r + 1))

if exp then

doPlayerAddExp(cid, exp)

doSendAnimatedText(getThingPos(cid), exp, 215)

end

if item then

doPlayerAddItem(cid, item, 1)

end

end

end

end

 

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')

npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')

npcHandler:setCallback(CALLBACK_GREET, greetCallback)

npcHandler:addModule(FocusModule:new())

Se retirar essa parte "' .. (getPlayerStorageValue(cid, rank) == 5 and" como está no script normal ele da erro.

 

mudei assim "v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems}, {mammoths}, {Ice golems}, {Quara}, {elementals}, {mutated rats}, {giant spiders}, {Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ' or {serpent spawns}, {demons}'), 1"

 

Aparece o seguinte erro

[Error - NpcScript Interface]

[14:46:21.022] data/npc/scripts/grizzlyadams.lua:onCreatureSay

[14:46:21.022] Description:

[14:46:21.022] data/npc/scripts/grizzlyadams.lua:70: attempt to concatenate a boolean value

[14:46:21.022] stack traceback:

[14:46:21.022] data/npc/scripts/grizzlyadams.lua:70: in function 'callback'

[14:46:21.022] data/npc/lib/npcsystem/npchandler.lua:385: in function 'onCreatureSay'

[14:46:21.022] data/npc/scripts/grizzlyadams.lua:37: in function

Editado Abril 12, 2015 por maleskinho (veja o histórico de edições)

[Wakon 912]

Tenta assim:

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local Topic = {}
 
local data = {
[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },
[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},
[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},
[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},
[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},
[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},
[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?
[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK
[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK
[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},
[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},
[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},
[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK
[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},
}
 
local curTask = 14500
local points = 14501
local rank = 14502
local questLog = 14503
local tiquanda = 14505
local demodras = 16345
 
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
 
function greetCallback(cid)
local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 10 and r < 2 then
msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 20 and r < 3 then
msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 30 and r < 4 then
msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 50 and r < 5 then
msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'
else
msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'
end
npcHandler:setMessage(MESSAGE_GREET, msg)
Topic[cid] = 0
return true
end
 
function creatureSayCallback(cid, _type, msg)
if not npcHandler:isFocused(cid) then
return false
end
 
if msgcontains(msg, 'task') then
local cur = getPlayerStorageValue(cid, curTask)
if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then
local v, lvl = '', getPlayerLevel(cid)
if lvl < 5000 then
v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems}, {mammoths}, {Ice golems}, {Quara}, {elementals}, {mutated rats}, {giant spiders}, {Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) >= 0 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 1
elseif lvl < 90 then
v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2
elseif 90 <= lvl then
v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}'), 3
end
selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)
elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then
selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)
doPlayerAddItem(cid, 10305, 1)
setPlayerStorageValue(cid, curTask, -1)
elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then
local tmp
if type(data[cur][4]) == 'table' then
tmp = {}
for i = 1, #data[cur][4] do
tmp = string.format(data[cur][4], getCreatureName(cid))
end
end
selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)
if data[cur][5] > 0 then
doPlayerAddExp(cid, data[cur][5])
doSendAnimatedText(getThingPos(cid), data[cur][5], 215)
end
if data[cur][6] then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])
end    
if data[cur][7] then -- special task (he sends you to kill the boss)
setPlayerStorageValue(cid, cur + 100, 1)
end
setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)
Topic[cid] = 0
elseif getPlayerStorageValue(cid, cur + 100) == 2 then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)
selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)
setPlayerStorageValue(cid, cur + 100, -1)
else
selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)
Topic[cid] = 4
end
elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then
local items = {
{name='antlers', id=11208, sell=50},
{name='bloody pincers', id=10549, sell=50},
{name='crab pincers', id=11183, sell=35},
{name='cyclops toe', id=10573, sell=55},
{name='frosty ear of a troll', id=10564, sell=30},
{name='hydra head', id=11193, sell=600},
{name='lancer leetle shell', id=11366, sell=80},
{name='mutated bat ear', id=10578, sell=420},
{name='sabretooth', id=11222, sell=400},
{name='sandcrawler shell', id=11367, sell=20},
{name='scarab pincers', id=10547, sell=280},
{name='terramite legs', id=11365, sell=60},
{name='terramite shell', id=11363, sell=170},
{name='terrorbird beak', id=11184, sell=95},
{name='cyclops trophy', id=7398, sell=500},
{name='minotaur trophy', id=7401, sell=500},
}
if getPlayerStorageValue(cid, rank) >= 3 then
table.insert(items, {name='deer trophy', id=7397, sell=3000})
table.insert(items, {name='lion trophy', id=7400, sell=3000})
table.insert(items, {name='wolf trophy', id=7394, sell=3000})
end
if getPlayerStorageValue(cid, rank) >= 4 then
table.insert(items, {name='behemoth trophy', id=7396, sell=20000})
table.insert(items, {name='demon trophy', id=7393, sell=40000})
table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})
table.insert(items, {name='demon backpack', id=10518, buy=1000})
end
openShopWindow(cid, items,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end
)
selfSay("Alright, show me what you've got.", cid)
elseif Topic[cid] == 4 then
local cur = getPlayerStorageValue(cid, curTask)
if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then
selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)
setPlayerStorageValue(cid, cur, -1)
setPlayerStorageValue(cid, curTask, -1)
if getPlayerStorageValue(cid, cur + 100) > 0 then
setPlayerStorageValue(cid, cur + 100, -1)
end
else
selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)
end
Topic[cid] = 0
elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then
local v = tasks['crocodile']
selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then
local v = tasks['tarantula']
selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then
local v = tasks['carniphila']
selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['stone golem']
selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then
local v = tasks['mammoth']
selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['ice golem']
selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'quara') then
selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)
Topic[cid] = 5
elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then
local v = tasks['quara constrictor scout']
selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then
local v = tasks['quara constrictor']
selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'elemental') then
selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)
Topic[cid] = 6
elseif Topic[cid] == 6 and msgcontains(msg, 'water') then
local v = tasks['water elemental']
selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then
local v = tasks['earth elemental']
selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then
local v = tasks['energy elemental']
selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then
local v = tasks['fire elemental']
selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mutated rat') then
local v = tasks['mutated rat']
selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. <shudders> My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'giant spider') then
local v = tasks['giant spider']
selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'hydra') then
local v = tasks['hydra']
selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'sea serpent') then
local v = tasks['sea serpent']
selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'behemoth') then
local v = tasks['behemoth']
selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'serpent spawn') then
local v = tasks['serpent spawn']
selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and getPlayerStorageValue(cid, rank) >= 1 and msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then
local v = tasks['demon']
selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)
setPlayerStorageValue(cid, curTask, v.storage)
setPlayerStorageValue(cid, v.storage, 0)
Topic[cid] = 0
elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then
selfSay(data[Topic[cid]][2], cid)
setPlayerStorageValue(cid, curTask, Topic[cid])
setPlayerStorageValue(cid, Topic[cid], 0)
if getPlayerStorageValue(cid, questLog) < 1 then
setPlayerStorageValue(cid, questLog, 1)
setPlayerStorageValue(cid, points, 0)
end
Topic[cid] = 0
elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then
local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)
if v < 1 then
if getPlayerLevel(cid) >= 90 then
setPlayerStorageValue(cid, tiquanda, 1)
selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif v == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, tiquanda, 3)
elseif v == 3 and k < 1 then
if getPlayerLevel(cid) >= 100 then
setPlayerStorageValue(cid, demodras, 1)
selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif k == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, demodras, 3)
end
elseif msgcontains(msg, 'promotion') then
local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000
elseif cur >= 10 and r < 2 then
msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000
elseif cur >= 20 and r < 3 then
msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000
elseif cur >= 30 and r < 4 then
msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518
elseif cur >= 50 and r < 5 then
msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000
end
if msg then
selfSay(msg, cid)
setPlayerStorageValue(cid, rank, math.max(1, r + 1))
if exp then
doPlayerAddExp(cid, exp)
doSendAnimatedText(getThingPos(cid), exp, 215)
end
if item then
doPlayerAddItem(cid, item, 1)
end
end
end
end
 
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')
npcHandler:setCallback(CALLBACK_GREET, greetCallback)

npcHandler:addModule(FocusModule:new())

[maleskinho 13]

Eu consegui arrumar, só tem um pequeno detalhe o player consegue fazer de novo a task.

local keywordHandler = KeywordHandler:new()

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

local data = {
[14007] = {'crocodile', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u crocodiles. Come back to me when you are done.', 'Spiffing work, old chap. Now I have a special task for you. Recently several citizens of Port Hope have vanished. It is rumoured that they were killed by a crocodile. The people call it \'Snapper\'. Hunt down and kill that evil man eating beast.', 800, 1, 'Snapper', },
[14008] = {'tarantula', 'Happy hunting, old chap! Come back to me when you are through with your task.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u tarantulas. Come back to me when you are done.', 'Nicely done! Now I shall assign you a special task. Rumour has it that there is an ancient and evil tarantula who preys on humans. She is called \'Hide\'. Track her down and kill her! Good luck, old chap.', 1500, 1, 'Hide'},
[14009] = {'carniphila', 'Good show, old chap! Speak to me again when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u carniphilas. Come back to me when you are done.', 'That took some time, huh? Good hunting though. If you\'re up for another hunting mission just ask me for a {task}.', 1500, 1},
[14010] = {'stone golem', 'Happy hunting, friend! When you have finished hunting, return here. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u stone golems. Come back to me when you are done.', 'Good show, old chap. If you\'re up for another hunting mission just ask me for a task.', 2000, 1},
[14011] = {'mammoth', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u mammoths. Come back to me when you are done.', 'Jolly good job you did there, but now I have a special task for you. The citizens of Svargrond live in fear because of a frightfully bad-tempered mammoth they call \'Blood Tusk\'. Go there and put an end to him. Happy hunting!', 'Bloodtusk', 4000, 1},
[14012] = {'ice golem', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u ice golems. Come back to me when you are done.', 'As i see it, you need more of a challenge! I have heard that there is an ice golem the hunters in Svargrond call \'Shardhead\'. He is an extremely dangerous example of his kind! I believe you are equal to the task, %s!', 15000, 1, 'Shardhead'},
[14013] = {'quara constrictor scout', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u quara scouts in total. Come back to me when you are done.', 'Jolly good show! What a hunter! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1}, -- ?
[14014] = {'quara constrictor', 'Happy hunting, friend! Come back to me when you are done hunting.', 'Alright, then you should go on with your task. You have already killed %u underwater quaras in total. Come back to me when you are done.', 'Superb work. However, there is something else I want you to do. It is said that there is a Quara general named \'Thul\' who is responsible for the attacks on Liberty Bay. Find him and kill him and bring peace to Liberty bay!', 12000, 1, 'Thul'}, -- OK
[14015] = {'water elemental', 'Happy hunting, my old mocker! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u water elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14016] = {'earth elemental', 'Happy hunting, friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u earth elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14017] = {'energy elemental', 'Happy hunting, pal! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u energy elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 10000, 1},
[14018] = {'fire elemental', 'Happy hunting, old friend! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u fire elementals. Come back to me when you are done.', 'Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', 7000, 1},
[14019] = {'mutated rat', 'Happy hunting, old chap! Come back to me when you are done hunting. ', 'Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u mutated rats. Come back to me when you are done.', {'Very good work, old chap. Lucky you are here - I have just been told of a task which is perfect for you. ...', 'The Yalaharians are having a spot of bother with a huge mutated rat. They call it \'Esmeralda\' and you should find her somewhere in the sewers. Good hunting!'}, 10000, 1, 'Esmeralda'}, -- OK
[14020] = {'giant spider', 'Jolly good show! Come back to me when you are done hunting. ', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u giant spiders. Come back to me when you are done.', 'Well THAT was a hunt. Good job. Have you heared about \'The Old Widow\'? It must have a hideout. Try to find it and slay the beast.', 5000, 1, 'Old Widow'},
[14021] = {'hydra', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u hydras. Come back to me when you are done.', {'With Nornur the God of Fate as my witness, you are truly born to hunt. If anyone can do this task, you can! Listen: ...', 'It is said that the Lizards of Chor are training hydras for attacks against us. They have already successfully bred a hydra named \'The Many\'. Find her and kill her!'}, 0, 3, 'Many'},
[14001] = {'sea serpent', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u sea serpents. Come back to me when you are done.', 'Good job, old chap! Are you up for a challenge? Have you heard of the legendary sea serpent called \'The Leviathan\'? It must be somewhere near the spot you found. This is a true test of your hunting skills - find it and kill it. Good hunting!', 0, 3, 'Leviathan'},
[14022] = {'behemoth', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u behemoths. Come back to me when you are done.', 'Such marvellous hunting skills! Perhaps you can help me with this one. Have you heard about \'Stonecracker\'? ...', 0, 3, 'Stonecracker'}, -- OK
[14002] = {'serpent spawn', 'Happy hunting, old chap! Come back to me when you are done hunting.', 'Alright, then return to your duties! Day light is a-wasting! You have already smashed %u serpent spawns. Come back to me when you are done.', 'My - you can be proud of yourself! However, you\'re not finished yet. There are rumours about a being called \'The Noxious Spawn\' which was seen deep down in the ruins of Banuta. Try to find its hideout.', 0, 3, 'Noxious Spawn'},
}

local curTask = 14500
local points = 14501
local rank = 14502
local questLog = 14503
local tiquanda = 14505
local demodras = 16345

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

function greetCallback(cid)
local cur, r, msg = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg = 'Welcome back |PLAYERNAME|. You have completed 5 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 10 and r < 2 then
msg = 'Good to see you again |PLAYERNAME|. You have completed 10 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 20 and r < 3 then
msg = 'Salutations |PLAYERNAME|. You have completed 20 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 30 and r < 4 then
msg = 'Always good to welcome you back, |PLAYERNAME|. You have completed 30 tasks for our society. Ask me for a {promotion} to advance your rank!'
elseif cur >= 50 and r < 5 then
msg = 'By the gods....50 hunting tasks....this is astounding! Ask me for a {promotion} to advance your rank! And while you are here, I also have another {special} task for you.'
else
msg = 'Welcome back |PLAYERNAME|. What brings you here this time?'
end
npcHandler:setMessage(MESSAGE_GREET, msg)
Topic[cid] = 0
return true
end

function creatureSayCallback(cid, _type, msg)
if not npcHandler:isFocused(cid) then
return false
end

if msgcontains(msg, 'task') then
local cur = getPlayerStorageValue(cid, curTask)
if cur < 1 or (cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount + 1 and getPlayerStorageValue(cid, cur + 100) == -1) then
local v, lvl = '', getPlayerLevel(cid)
if lvl < 5000 then
v, Topic[cid] = '{Crocodiles}, {tarantulas}, {carniphilas}, {stone golems}, {mammoths}, {Ice golems}, {Quara}, {elementals}, {mutated rats}, {giant spiders}, {Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', {serpent spawns} or {demons}' or ' or {serpent spawns}, {demons}'), 1
elseif lvl < 90 then
v, Topic[cid] = '{Ice golems}, {Quara}, {elementals}, {mutated rats} or {giant spiders}', 2
elseif 90 <= lvl then
v, Topic[cid] = '{Hydras}, {sea serpents}, {behemoths}' .. (getPlayerStorageValue(cid, rank) == 5 and ', ' or ' or {serpent spawns}'), 3
end
selfSay('All right, what would you like to hunt? ' .. v .. '?', cid)
elseif cur == 14006 and getPlayerStorageValue(cid, cur) == tasks['demon'].amount then
selfSay({'Such derring do deserves a special reward! Take this holy icon. It neutralizes great evil and gives you access to areas which are protected by those forces. But remember ...', 'This is a one time opportunity! You won\'t get the holy icon twice.'}, cid)
doPlayerAddItem(cid, 10305, 1)
setPlayerStorageValue(cid, curTask, -1)
elseif cur ~= 14006 and getPlayerStorageValue(cid, cur) == tasks[data[cur][1]].amount and getPlayerStorageValue(cid, cur + 100) < 1 then
local tmp
if type(data[cur][4]) == 'table' then
tmp = {}
for i = 1, #data[cur][4] do
tmp = string.format(data[cur][4], getCreatureName(cid))
end
end
selfSay(tmp or string.format(data[cur][4], getCreatureName(cid)), cid)
if data[cur][5] > 0 then
doPlayerAddExp(cid, data[cur][5])
doSendAnimatedText(getThingPos(cid), data[cur][5], 215)
end
if data[cur][6] then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + data[cur][6])
end
if data[cur][7] then -- special task (he sends you to kill the boss)
setPlayerStorageValue(cid, cur + 100, 1)
end
setPlayerStorageValue(cid, cur, getPlayerStorageValue(cid, cur) + 1)
Topic[cid] = 0
elseif getPlayerStorageValue(cid, cur + 100) == 2 then
setPlayerStorageValue(cid, points, getPlayerStorageValue(cid, points) + 1)
selfSay('Fantastic! If you\'re up for another hunting mission just ask me for a {task}.', cid)
setPlayerStorageValue(cid, cur + 100, -1)
else
selfSay(getPlayerStorageValue(cid, cur + 100) < 1 and 'You are not done with your task yet. Come back to me when you are. Or do you want to abort your task to start a different one?' or string.format('Find %s\'s hideout. I hope for you that you are skilled enough to kill him. Or do you want to abort your task to start a different one?', data[cur][7]), cid)
Topic[cid] = 4
end
elseif msgcontains(msg, 'trade') and getPlayerStorageValue(cid, rank) >= 1 then
local items = {
{name='antlers', id=11208, sell=50},
{name='bloody pincers', id=10549, sell=50},
{name='crab pincers', id=11183, sell=35},
{name='cyclops toe', id=10573, sell=55},
{name='frosty ear of a troll', id=10564, sell=30},
{name='hydra head', id=11193, sell=600},
{name='lancer leetle shell', id=11366, sell=80},
{name='mutated bat ear', id=10578, sell=420},
{name='sabretooth', id=11222, sell=400},
{name='sandcrawler shell', id=11367, sell=20},
{name='scarab pincers', id=10547, sell=280},
{name='terramite legs', id=11365, sell=60},
{name='terramite shell', id=11363, sell=170},
{name='terrorbird beak', id=11184, sell=95},
{name='cyclops trophy', id=7398, sell=500},
{name='minotaur trophy', id=7401, sell=500},
}
if getPlayerStorageValue(cid, rank) >= 3 then
table.insert(items, {name='deer trophy', id=7397, sell=3000})
table.insert(items, {name='lion trophy', id=7400, sell=3000})
table.insert(items, {name='wolf trophy', id=7394, sell=3000})
end
if getPlayerStorageValue(cid, rank) >= 4 then
table.insert(items, {name='behemoth trophy', id=7396, sell=20000})
table.insert(items, {name='demon trophy', id=7393, sell=40000})
table.insert(items, {name='dragon lord trophy', id=7399, sell=10000})
table.insert(items, {name='demon backpack', id=10518, buy=1000})
end
openShopWindow(cid, items,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end,
function(cid, itemid, subType, amount, ignoreCap, inBackpacks)
customCallbackOnSell(cid, itemid, subType, amount, ignoreCap, inBackpacks, items)
end
)
selfSay("Alright, show me what you've got.", cid)
elseif Topic[cid] == 4 then
local cur = getPlayerStorageValue(cid, curTask)
if msgcontains(msg, 'yes') or msgcontains(msg, 'abort') then
selfSay('Alright, as you wish. Ask me for a task if you are interested in a different hunting mission.', cid)
setPlayerStorageValue(cid, cur, -1)
setPlayerStorageValue(cid, curTask, -1)
if getPlayerStorageValue(cid, cur + 100) > 0 then
setPlayerStorageValue(cid, cur + 100, -1)
end
else
selfSay(cur == 14006 and string.format('Alright, then stop dilly dallying here and go on with your task. You have already exterminated %u demons. Come back to me when you are done.', getPlayerStorageValue(cid, cur)) or getPlayerStorageValue(cid, cur + 100) < 1 and string.format(data[getPlayerStorageValue(cid, curTask)][3], getPlayerStorageValue(cid, cur)) or 'Alright, then you should go on with your task.', cid)
end
Topic[cid] = 0
elseif Topic[cid] == 1 and msgcontains(msg, 'crocodile') then
local v = tasks['crocodile']
selfSay('They are a nuisance! You\'ll find them here in the jungle near the river. Hunt ' .. v.amount .. ' crocodiles and you\'ll get a nice reward. Interested?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'tarantula') then
local v = tasks['tarantula']
selfSay('There is a veritable plague of tarantulas living in the caves north of the river to the east. Can you squish ' .. v.amount .. ' tarantulas for the Hunting Elite. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'carniphila') then
local v = tasks['carniphila']
selfSay('Damn walking weed-thingies! You\'ll find them deeper in the jungle. Weed out ' .. v.amount .. ' carniphilas for our society. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['stone golem']
selfSay('They can be found all over Tibia. You\'ll find them in mountain caves or rocky dungeons. Hunt ' .. v.amount .. ' of them and come back to me. Understood?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mammoth') then
local v = tasks['mammoth']
selfSay('This particular species are found in Svargrond. Impressive beasts, but you wouldn\'t want one in your back garden. Hunt ' .. v.amount .. ' of them. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'golem') then
local v = tasks['ice golem']
selfSay('The ice golems on the glacier of Hrodmir are becoming a threat to the civilians in Svargrond. Travel to the Ice Islands and hunt ' .. v.amount .. ' Ice Golems. Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'quara') then
selfSay('There are different types of quaras. The weaker {scouts} which can be found on Malada, one of the shattered Islands and the more skilled {underwater} kind which can be found in Calassa and some smaller colonies. Which one do you wish to hunt?', cid)
Topic[cid] = 5
elseif Topic[cid] == 5 and msgcontains(msg, 'scout') then
local v = tasks['quara constrictor scout']
selfSay('Good choice! Hunt down those Quara scouts - remember no less than ' .. v.amount .. '! Focus! Do you accept this task?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 5 and msgcontains(msg, 'underwater') then
local v = tasks['quara constrictor']
selfSay('As you wish. Seek out a Quara settlement and hunt ' .. v.amount .. ' Quaras, it doesn\'t matter which type you hunt. Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'elemental') then
selfSay({'Since the creation of the elemental shrines and the portals, the curtain separating the worlds is thin, allowing the elementals to surge into our world. They have to be contained. ...', 'The choice as to which kind of elementals you hunt is yours, as long as they are in the lands of Tibia. Hunt 70 {earth}, {energy}, {fire} or {water} elementals. Which one do you choose?'} , cid)
Topic[cid] = 6
elseif Topic[cid] == 6 and msgcontains(msg, 'water') then
local v = tasks['water elemental']
selfSay('Alright, go hunt ' .. v.amount .. ' water elementals or massive water elementals. Don\'t forget your umbrella! Alright?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'earth') then
local v = tasks['earth elemental']
selfSay('Good choice! I need you to slay ' .. v.amount .. ' earth elementals or massive earth elementals. There are some in the so called Taboo-area in the eastern jungle of Tiquanda and I heard about a cave in Edron where you\'ll find them. Are you game?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'energy') then
local v = tasks['energy elemental']
selfSay('A brave hunter! Kill ' .. v.amount .. ' energy elementals or massive energy elementals. You\'ll find them in the mountains between Darama and Tiquanda. Are you sure you want to do this?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 6 and msgcontains(msg, 'fire') then
local v = tasks['fire elemental']
selfSay('Don\'t get burnt! Your challenge, should you choose to accept it, is to kill ' .. v.amount .. ' fire elementals or massive fire elementals. Are you ready?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'mutated rat') then
local v = tasks['mutated rat']
selfSay('Recently, I heard of a disturbing development in Yalahar - a plague of monstrous Mutated rats! If they were to spread to the rest of Tibia.. My task for you is to contain their numbers in Yalahar. Hunt ' .. v.amount .. ' of them. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'giant spider') then
local v = tasks['giant spider']
selfSay('Never liked spiders. Entirely too many legs. And I always find them in my bath! Those nasty creepy crawlies are a threat to the hygiene of every living being in Tibia. Hunt ' .. v.amount .. ' of them. Okay?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'hydra') then
local v = tasks['hydra']
selfSay('The hydras are located in the eastern jungle of Tiquanda and there are several mountain caves that are inhabited by them. Your task is to hunt a mere ' .. v.amount .. ' hydras. Are you willing to do that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'sea serpent') then
local v = tasks['sea serpent']
selfSay({'The sea serpents are a threat to honest seafarers! Captain Haba knows where to find them. ...', 'Go to Svargrond and talk to him. ' .. v.amount .. ' sea serpents should be enough to reduce the threat - but not their young though! After all, they are an endangered species! Got it?'}, cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'behemoth') then
local v = tasks['behemoth']
selfSay('Behemoths must be kept away from the settlements at all costs. You\'ll find them east of here in the taboo-area or under the cyclopolis in Edron. Go there and hunt a few of them - shall we say... ' .. v.amount .. '? Are you up for that?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'serpent spawn') then
local v = tasks['serpent spawn']
selfSay('Very dangerous, nasty, slimey creatures. They live deep in the old ruins of Banuta. I think a mere ' .. v.amount .. ' serpent spawns should do the trick. What do you say?', cid)
Topic[cid] = v.storage
elseif Topic[cid] == 1 and msgcontains(msg, 'demon') then
local v = tasks['demon']
selfSay('The spawn of pure evil must be erased from Tibia. You\'ll find demons lurking in the northern ruins of Edron as well as in some of other deeper dungeons of Tibia. We need to wipe them out! Slay ' .. v.amount .. ' demons for the Greater Good!', cid)
setPlayerStorageValue(cid, curTask, v.storage)
setPlayerStorageValue(cid, v.storage, 0)
Topic[cid] = 0
elseif Topic[cid] >= 14000 and msgcontains(msg, 'yes') then
selfSay(data[Topic[cid]][2], cid)
setPlayerStorageValue(cid, curTask, Topic[cid])
setPlayerStorageValue(cid, Topic[cid], 0)
if getPlayerStorageValue(cid, questLog) < 1 then
setPlayerStorageValue(cid, questLog, 1)
setPlayerStorageValue(cid, points, 0)
end
Topic[cid] = 0
elseif msgcontains(msg, 'special') and getPlayerStorageValue(cid, rank) == 5 then
local v, k = getPlayerStorageValue(cid, tiquanda), getPlayerStorageValue(cid, demodras)
if v < 1 then
if getPlayerLevel(cid) >= 90 then
setPlayerStorageValue(cid, tiquanda, 1)
selfSay({'Have you heard about {Tiquandas Revenge}? It is said that the jungle itself is alive and takes revenge for all the bad things people have done to it. ...', 'I myself believe that there is some truth in this clap trap. Something \'real\' which therefore must have a hideout somewhere. Go find it and take revenge yourself! Ask me about the {special} task when you\'re done.'}, cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif v == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, tiquanda, 3)
elseif v == 3 and k < 1 then
if getPlayerLevel(cid) >= 100 then
setPlayerStorageValue(cid, demodras, 1)
selfSay('This task is a very dangerous one. I want you to look for {Demodras}\' hideout. It might be somewhere under the {Plains of Havoc}. Good luck, old chap, come back in one piece and ask me about the {special} task when you\'re done.', cid)
else
selfSay('Your eagerness is commendable, and your rank within our hunting elite is great buuuut I\'m afraid you\'re a little bit too weak for the special tasks. Get more experience and the special tasks will be no match for you.', cid)
end
elseif k == 2 then
selfSay('Great achievement, old chap! You are an outstanding hunter, no doubt about it!', cid)
setPlayerStorageValue(cid, demodras, 3)
end
elseif msgcontains(msg, 'promotion') then
local cur, r, msg, exp, item = getPlayerStorageValue(cid, points), getPlayerStorageValue(cid, rank)
if cur >= 5 and r < 1 then
msg, exp = {'You have completed 5 tasks! Let me promote you to the first rank: Huntsman. Congratulations! ...', 'If you find any trophies that you don\'t need, feel free to ask me for a trade.'}, 5000
elseif cur >= 10 and r < 2 then
msg, exp = {'You have completed 10 hunting tasks. It\'s time for a promotion. You advance to the rank of \'Ranger\'. Congratulations! ...', 'Oh, I made a deal with Lorek. He ships Rangers from our society - and higher ranks of course - to Banuta, Chor or near the mountain pass to Darama. Just ask him for a passage.'}, 8000
elseif cur >= 20 and r < 3 then
msg, exp = {'Good show! You have completed 20 hunting tasks for the \'Paw and Fur - Hunting Elite. You have earned the right to join the ranks of those known as \'Big game hunter\'. Congratulations! ...', 'From now on I\'ll buy more trophies from you!'}, 10000
elseif cur >= 30 and r < 4 then
msg, exp, item = 'Spiffing! You have done 30 hunting tasks! From now on you can call yourself a \'Trophy hunter\'. As a reward I have this special backpack for you and in addition you can sell some more rare trophies to me.', 15000, 10518
elseif cur >= 50 and r < 5 then
msg, exp = 'Congratulations! You have made the highest rank: \'Elite hunter\'. If haven\'t yet done so ask me for the {special} task.', 30000
end
if msg then
selfSay(msg, cid)
setPlayerStorageValue(cid, rank, math.max(1, r + 1))
if exp then
doPlayerAddExp(cid, exp)
doSendAnimatedText(getThingPos(cid), exp, 215)
end
if item then
doPlayerAddItem(cid, item, 1)
end
end
end
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:setMessage(MESSAGE_FAREWELL, 'Happy hunting, old chap!')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'Happy hunting, old chap!')
npcHandler:setCallback(CALLBACK_GREET, greetCallback)

npcHandler:addModule(FocusModule:new())

 

Mudei essa parte

 

elseif Topic[cid] == 1 and getPlayerStorageValue(cid, rank) >= 1 and msgcontains(msg, 'demon') and getPlayerStorageValue(cid, curTask) < 1 then

 

para

elseif Topic[cid] == 1 and msgcontains(msg, 'demon') then