local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local Topic, Amount, Price, Type = {}, {}, {}, {}
local storage = 10555
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 getCount(string)
local b, e = string:find("%d+")
return b and e and tonumber(string:sub(b, e))
end
function greetCallback(cid)
local id = getPlayerGUID(cid)
Topic[id], Type[id], Amount[id], Price[id] = 0, 0, 0, 0
return true
end
function creatureSayCallback(cid, type, msg)
if not npcHandler:isFocused(cid) then
return false
end
local id = getPlayerGUID(cid)
if msgcontains(msg, 'offer') then
npcHandler:say('I\'m selling talons for 200 gold each. I can also buy fishes from you.', cid)
Topic[id] = 0
elseif msgcontains(msg, 'talon') then
Amount[id] = getCount(msg) and math.max(1, math.min(getCount(msg), 500)) or 1
Price[id] = Amount[id] * 200
Topic[id] = 1
Type[id] = 2687
npcHandler:say("Do you want to buy " .. (Amount[id] == 1 and "a talon" or Amount[id] .. " talons") .. " for " .. Price[id] .. " gold?", cid)
elseif (getPlayerStorageValue(cid, storage) < 1 or msgcontains(msg, 'sell')) and msgcontains(msg, 'fish') then
if getPlayerStorageValue(cid, storage) < 1 then
npcHandler:say("What? I don't trust you enough to buy fish from you. Who knows if you're selling acid fishes... You must do me a {favor} in order to gain my trust.", cid)
Topic[id] = 2
else
Amount[id] = getCount(msg) and math.max(1, math.min(getCount(msg), 500)) or 1
Price[id] = Amount[id] * 1000
Topic[id] = 4
Type[id] = 2667
npcHandler:say("Do you want to sell " .. (Amount[id] == 1 and "a fish" or Amount[id] .. " fish") .. " for " .. Price[id] .. " gold?", cid)
end
elseif msgcontains(msg, 'favor') and Topic[id] == 2 then
npcHandler:say("Okay, huh... I'm very hungry, I could do this myself but I can't walk. You must bring me 100 fish first, if they are be good I'll give you permission for selling fish to me. Can you do this favor, {yes}?", cid)
Topic[id] = 3
elseif msgcontains(msg, 'yes') and Topic[id] == 3 then
if doPlayerRemoveItem(cid, 2667, 100) then
setPlayerStorageValue(cid, storage, 1)
npcHandler:say("Thanks a lot! Hmmm, <tastes one of fish> ... It's great! If you have more fish, I'll buy them from you!", cid)
else
npcHandler:say("Please come back when you got them, otherwise I won't buy fish from you!", cid)
end
Topic[id] = 0
elseif Topic[id] == 1 then
if msgcontains(msg, 'yes') then
if doPlayerRemoveMoney(cid, Price[id]) then
npcHandler:say("Thank you. Here it is.", cid)
doPlayerAddItem(cid, Type[id], Amount[id])
else
npcHandler:say("Sorry, you do not have enough gold.", cid)
end
else
npcHandler:say("Maybe you will buy it another time.", cid)
end
Topic[id], Type[id], Amount[id], Price[id] = 0, nil, nil, nil
elseif Topic[id] == 4 then
if msgcontains(msg, 'yes') then
if doPlayerRemoveItem(cid, Type[id], Amount[id]) then
npcHandler:say("Ok. Here is your money.", cid)
doPlayerAddMoney(cid, Price[id])
else
npcHandler:say("Sorry, you do not " .. (Amount[id] > 1 and "so many" or "have one") .. ".", cid)
end
else
npcHandler:say("Maybe next time.", cid)
end
Topic[id], Type[id], Amount[id], Price[id] = 0, nil, nil, nil
end
return true
end
npcHandler:setMessage(MESSAGE_GREET, "Welcome to my tower, dear adventurer.")
npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
