Grizzly Adams Erro

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

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

local choose = {}
local cancel = {}
local available = {}

local grizzlyAdamsConfig = {
    ranks = {
        --NOTE: The variable 'name' is not necessary to be declared. I let it so people who wants to change the script will now wich item is each one.
        huntsMan_rank = {
            {id=11214, buy=0, sell=50, name='antlers'},
            {id=10550, buy=0, sell=100, name='bloody pincers'},
            {id=11189, buy=0, sell=35, name='crab pincers'},
            {id=10574, buy=0, sell=55, name='cyclops toe'},
            {id=10565, buy=0, sell=30, name='frosty ear of a troll'},
            {id=11199, buy=0, sell=600, name='hydra head'},
            {id=11372, buy=0, sell=80, name='lancer beetle shell'},
            {id=10579, buy=0, sell=420, name='mutated bat ear'},
            {id=11228, buy=0, sell=400, name='sabretooth'},
            {id=11373, buy=0, sell=20, name='sandcrawler shell'},
            {id=10548, buy=0, sell=280, name='scarab pincers'},
            {id=11371, buy=0, sell=60, name='terramite legs'},
            {id=11369, buy=0, sell=170, name='terramite shell'},
            {id=11190, buy=0, sell=95, name='terrorbird beak'},
            {id=7398, buy=0, sell=500, name='cyclops trophy'},
            {id=11315, buy=0, sell=15000, name='draken trophy'},
            {id=11336, buy=0, sell=8000, name='lizard trophy'},
            {id=7401, buy=0, sell=500, name='minotaur trophy'},
            {id=7397, buy=0, sell=3000, name='deer trophy'},
            {id=7400, buy=0, sell=3000, name='lion trophy'},
            {id=7393, buy=0, sell=40000, name='demon trophy'},
            {id=7396, buy=0, sell=20000, name='behemoth trophy'},
            {id=7399, buy=0, sell=10000, name='dragon lord trophy'},
            {id=10518, buy=1000, sell=0, name='demon backpack'},
            {id=5907, buy=35000, sell=0, name='slingshot'},
            {id=7394, buy=0, sell=3000, name='wolf trophy'}
        },

        bigGameHunter_rank = {
            {id=7397, buy=0, sell=3000, name='deer trophy'},
            {id=7400, buy=0, sell=3000, name='lion trophy'},
            {id=7394, buy=0, sell=3000, name='wolf trophy'}
        },

        trophyHunter_rank = {
            {id=7393, buy=0, sell=40000, name='demon trophy'},
            {id=7396, buy=0, sell=20000, name='behemoth trophy'},
            {id=7399, buy=0, sell=10000, name='dragon lord trophy'},

            {id=10518, buy=1000, sell=0, name='demon backpack'},
        },
    }
}

local items, data = {}
for i = 1, #grizzlyAdamsConfig.ranks.huntsMan_rank do
    data = grizzlyAdamsConfig.ranks.huntsMan_rank
    items[data.id] = {id = data.id, buy = data.buy, sell = data.sell, name = ItemType(data.id):getName():lower()}
end
for i = 1, #grizzlyAdamsConfig.ranks.bigGameHunter_rank do
    data = grizzlyAdamsConfig.ranks.bigGameHunter_rank
    items[data.id] = {id = data.id, buy = data.buy, sell = data.sell, name = ItemType(data.id):getName():lower()}
end
for i = 1, #grizzlyAdamsConfig.ranks.trophyHunter_rank do
    data = grizzlyAdamsConfig.ranks.trophyHunter_rank
    items[data.id] = {id = data.id, buy = data.buy, sell = data.sell, name = ItemType(data.id):getName():lower()}
end

local function greetCallback(cid)
    local player = Player(cid)
    if player:getStorageValue(JOIN_STOR) == -1 then
        npcHandler:setMessage(MESSAGE_GREET, 'Welcome |PLAYERNAME|. Would you like to join the \'Paw and Fur - Hunting Elite\'?')
    else
        npcHandler:setMessage(MESSAGE_GREET, 'Welcome back old chap. What brings you here this time?')
    end
    return true
end

local function getTradeItems(t)
    local list, obj = {}
    for i = 1, #t do
        obj = t
        list[obj.id] = {id = obj.id, buy = obj.buy, sell = obj.sell, name = ItemType(obj.id):getName():lower()}
    end
    return list
end

local function joinTables(old, new)
    for k, v in pairs(new) do
        old[k] = v
    end
    return old
end

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

    local player = Player(cid)
    if msgcontains('vikingtibiaaa', msg) then
        local tradeItems = {}
        if player:getPawAndFurRank() >= 0 then
            tradeItems = grizzlyAdamsConfig.ranks.huntsMan_rank
            if player:getPawAndFurRank() == 4 then
                tradeItems = joinTables(tradeItems, grizzlyAdamsConfig.ranks.bigGameHunter_rank)
            elseif player:getPawAndFurRank() == 5 or player:getPawAndFurRank() == 6 then
                tradeItems = joinTables(tradeItems, grizzlyAdamsConfig.ranks.bigGameHunter_rank)
                tradeItems = joinTables(tradeItems, grizzlyAdamsConfig.ranks.trophyHunter_rank)
            end
            openShopWindow(cid, tradeItems, onBuy, onSell)
            return npcHandler:say('It\'s my offer.', cid)
        else
            return npcHandler:say('You don\'t have any rank.', cid)
        end
    elseif (msgcontains('join', msg) or msgcontains('yes', msg))
            and npcHandler.topic[cid] == 0
            and player:getStorageValue(JOIN_STOR) ~= 1 then
        player:setStorageValue(JOIN_STOR, 1)
        npcHandler:say('Great!, now you can start tasks.', cid) --I'm not sure if this is as real tibia. I let this piece of code because it was in the original file.
    elseif isInArray({'tasks', 'task', 'mission'}, msg:lower()) then
        local can = player:getTasks()
        if player:getStorageValue(JOIN_STOR) == -1 then
            return npcHandler:say('You\'ll have to {join}, to get any {tasks}.',cid)
        end
        if #can > 0 then
            local text = ''
            local sep = ', '
            table.sort(can, function(a, b) return a < b end)
            local t = 0
            local id
            for i = 1, #can do
                id = can
                t = t + 1
                if t == #can - 1 then
                    sep = ' and '
                elseif t == #can then
                    sep = '.'
                end
                text = text .. '{' .. (tasks[id].name or tasks[id].raceName) .. '}' .. sep
            end
            npcHandler:say('The current task' .. (#can > 1 and 's' or '') .. ' that you can choose ' .. (#can > 1 and 'are' or 'is') .. ' ' .. text, cid)
            npcHandler.topic[cid] = 0
        else
            npcHandler:say('I don\'t have any task for you right now.', cid)
        end
    elseif msg ~= '' and player:canStartTask(msg) then
        if #player:getStartedTasks() >= tasksByPlayer then
            npcHandler:say('Sorry, but you already started ' .. tasksByPlayer .. ' tasks. You can check their {status}, {cancel} or {report} a task.', cid)
            return true
        end
        local task = getTaskByName(msg)
        if task and player:getStorageValue(QUESTSTORAGE_BASE + task) > 0 then
            return false
        end
        npcHandler:say('In this task you must defeat ' .. tasks[task].killsRequired .. ' ' .. tasks[task].raceName .. '. Are you sure that you want to start this task?', cid)
        choose[cid] = task
        npcHandler.topic[cid] = 1
    elseif msg:lower() == 'yes' and npcHandler.topic[cid] == 1 then
        player:setStorageValue(QUESTSTORAGE_BASE + choose[cid], 1)
        player:setStorageValue(KILLSSTORAGE_BASE + choose[cid], 0)
        npcHandler:say('Excellent! You can check the {status} of your task saying {report} to me. Also you can {cancel} tasks to.', cid)
        choose[cid] = nil
        npcHandler.topic[cid] = 0
    elseif msgcontains('status', msg) then
        local started = player:getStartedTasks()
        if started and #started > 0 then
            local text = ''
            local sep = ', '
            table.sort(started, (function(a, b) return (a < b) end))
            local t = 0
            local id
            for i = 1, #started do
                id = started
                t = t + 1
                if t == #started - 1 then
                    sep = ' and '
                elseif t == #started then
                    sep = '.'
                end
                text = text .. 'Task name: ' .. tasks[id].raceName .. '. Current kills: ' .. player:getStorageValue(KILLSSTORAGE_BASE + id) .. '.\n'
            end
            npcHandler:say({'The status of your current tasks is:\n' .. text}, cid)
        else
            npcHandler:say('You haven\'t started any task yet.', cid)
        end
    elseif msgcontains('report', msg) then
        local started = player:getStartedTasks()
        local finishedAtLeastOne = false
        local finished = 0
        if started and #started > 0 then
            local id, reward
            for i = 1, #started do
                id = started
                if player:getStorageValue(KILLSSTORAGE_BASE + id) >= tasks[id].killsRequired then
                    for j = 1, #tasks[id].rewards do
                        reward = tasks[id].rewards[j]
                        local deny = false
                        if reward.storage then
                            if player:getStorageValue(reward.storage[1]) >= reward.storage[2] then
                                deny = true
                            end
                        end
                        if isInArray({REWARD_MONEY, 'money'}, reward.type:lower()) and not deny then
                            player:addMoney(reward.value[1])
                        elseif isInArray({REWARD_EXP, 'exp', 'experience'}, reward.type:lower()) and not deny then
                            player:addExperience(reward.value[1], true)
                        elseif isInArray({REWARD_ACHIEVEMENT, 'achievement', 'ach'}, reward.type:lower()) and not deny then
                            player:addAchievement(reward.value[1])
                        elseif isInArray({REWARD_STORAGE, 'storage', 'stor'}, reward.type:lower()) and not deny then
                            player:setStorageValue(reward.value[1], reward.value[2])
                        elseif isInArray({REWARD_POINT, 'points', 'point'}, reward.type:lower()) and not deny then
                            player:setStorageValue(POINTSSTORAGE, getPlayerTasksPoints(cid) + reward.value[1])
                        elseif isInArray({REWARD_ITEM, 'item', 'items', 'object'}, reward.type:lower()) and not deny then
                            player:addItem(reward.value[1], reward.value[2])
                        end

                        if reward.storage then
                            player:setStorageValue(reward.storage[1], reward.storage[2])
                        end
                    end

                    player:setStorageValue(QUESTSTORAGE_BASE + id, (tasks[id].norepeatable and 2 or 0))
                    player:setStorageValue(KILLSSTORAGE_BASE + id, -1)
                    player:setStorageValue(REPEATSTORAGE_BASE + id, math.max(player:getStorageValue(REPEATSTORAGE_BASE + id), 0))
                    player:setStorageValue(REPEATSTORAGE_BASE + id, player:getStorageValue(REPEATSTORAGE_BASE + id) + 1)
                    finishedAtLeastOne = true
                    finished = finished + 1
                end
            end
            if not finishedAtLeastOne then
                local started = player:getStartedTasks()
                if started and #started > 0 then
                    local text = ''
                    local sep = ', '
                    table.sort(started, (function(a, b) return (a < b) end))
                    local t = 0
                    local id
                    for i = 1, #started do
                        id = started
                        t = t + 1
                        if (t == #started - 1) then
                            sep = ' and '
                        elseif (t == #started) then
                            sep = '.'
                        end
                        text = text .. '{' .. (tasks[id].name or tasks[id].raceName) .. '}' .. sep
                    end
                    npcHandler:say('The current task' .. (#started > 1 and 's' or '') .. ' that you started ' .. (#started > 1 and 'are' or 'is') .. ' ' .. text, cid)
                end
            else
                npcHandler:say('Awesome! you finished ' .. (finished > 1 and 'various' or 'a') .. ' task' .. (finished > 1 and 's' or '') .. '. Talk to me again if you want to start a {task}.', cid)
            end
        else
            npcHandler:say('You haven\'t started any task yet.', cid)
        end
    elseif msg:lower() == 'started' then
        local started = player:getStartedTasks()
        if started and #started > 0 then
            local text = ''
            local sep = ', '
            table.sort(started, (function(a, b) return (a < b) end))
            local t = 0
            local id
            for i = 1, #started do
                id = started
                t = t + 1
                if t == #started - 1 then
                    sep = ' and '
                elseif t == #started then
                    sep = '.'
                end
                text = text .. '{' .. (tasks[id].name or tasks[id].raceName) .. '}' .. sep
            end

            npcHandler:say('The current task' .. (#started > 1 and 's' or '') .. ' that you started ' .. (#started > 1 and 'are' or 'is') .. ' ' .. text, cid)
        else
            npcHandler:say('You haven\'t started any task yet.', cid)
        end
    elseif msg:lower() == 'cancel' then
        local started = player:getStartedTasks()
        local task = getTaskByName(msg)
        local text = ''
        local sep = ', '
        table.sort(started, (function(a, b) return (a < b) end))
        local t = 0
        local id
        for i = 1, #started do
            id = started
            t = t + 1
            if t == #started - 1 then
                sep = ' or '
            elseif t == #started then
                sep = '?'
            end
            text = text .. '{' .. (tasks[id].name or tasks[id].raceName) .. '}' .. sep
        end
        if started and #started > 0 then
            npcHandler:say('Cancelling a task will make the counter restart. Which of these tasks you want cancel?' .. (#started > 1 and '' or '') .. ' ' .. text, cid)
            npcHandler.topic[cid] = 2
        else
            npcHandler:say('You haven\'t started any task yet.', cid)
        end
    elseif getTaskByName(msg) and npcHandler.topic[cid] == 2 and isInArray(getPlayerStartedTasks(cid), getTaskByName(msg)) then
        local task = getTaskByName(msg)
        if player:getStorageValue(KILLSSTORAGE_BASE + task) > 0 then
            npcHandler:say('You currently killed ' .. player:getStorageValue(KILLSSTORAGE_BASE + task) .. '/' .. tasks[task].killsRequired .. ' ' .. tasks[task].raceName .. '. Cancelling this task will restart the count. Are you sure you want to cancel this task?', cid)
        else
            npcHandler:say('Are you sure you want to cancel this task?', cid)
        end
        npcHandler.topic[cid] = 3
        cancel[cid] = task
    elseif getTaskByName(msg) and npcHandler.topic[cid] == 1 and isInArray(getPlayerStartedTasks(cid), getTaskByName(msg)) then
        local task = getTaskByName(msg)
        if player:getStorageValue(KILLSSTORAGE_BASE + task) > 0 then
            npcHandler:say('You currently killed ' .. player:getStorageValue(KILLSSTORAGE_BASE + task) .. '/' .. tasks[task].killsRequired .. ' ' .. tasks[task].raceName .. '.', cid)
        else
            npcHandler:say('You currently killed 0/' .. tasks[task].killsRequired .. ' ' .. tasks[task].raceName .. '.', cid)
        end
        npcHandler.topic[cid] = 0
    elseif msg:lower() == 'yes' and npcHandler.topic[cid] == 3 then
        player:setStorageValue(QUESTSTORAGE_BASE + cancel[cid], -1)
        player:setStorageValue(KILLSSTORAGE_BASE + cancel[cid], -1)
        npcHandler:say('You have cancelled the task ' .. (tasks[cancel[cid]].name or tasks[cancel[cid]].raceName) .. '.', cid)
        npcHandler.topic[cid] = 0
    elseif isInArray({'points', 'rank'}, msg:lower()) then
        if player:getPawAndFurPoints() < 1 then
            npcHandler:say('At this time, you have ' .. player:getPawAndFurPoints() .. ' Paw & Fur points. You ' .. (player:getPawAndFurRank() == 6 and 'are an Elite Hunter' or player:getPawAndFurRank() == 5 and 'are a Trophy Hunter' or player:getPawAndFurRank() == 4 and 'are a Big Game Hunter' or player:getPawAndFurRank() == 3 and 'are a Ranger' or player:getPawAndFurRank() == 2 and 'are a Huntsman' or player:getPawAndFurRank() == 1 and 'are a Member'  or 'haven\'t been ranked yet') .. '.', cid)
        else
            npcHandler:say('At this time, you have ' .. player:getPawAndFurPoints() .. ' Paw & Fur points. You ' .. (player:getPawAndFurRank() == 6 and 'are an Elite Hunter' or player:getPawAndFurRank() == 5 and 'are a Trophy Hunter' or player:getPawAndFurRank() == 4 and 'are a Big Game Hunter' or player:getPawAndFurRank() == 3 and 'are a Ranger' or player:getPawAndFurRank() == 2 and 'are a Huntsman' or player:getPawAndFurRank() == 1 and 'are a Member'  or 'haven\'t been ranked yet') .. '.', cid)
        end
        npcHandler.topic[cid] = 0
    elseif isInArray({'special task'}, msg:lower()) then
        if player:getPawAndFurPoints() >= 69 then -- Tiquandas Revenge 90 points
            if player:getStorageValue(Storage.KillingInTheNameOf.MissionTiquandasRevenge) == 1 then  -- Check if he has already started the task.
                npcHandler:say('You have already started the task. Go find Tiquandas Revenge and take revenge yourself!', cid)
            else
                npcHandler:say({
                    '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!'
                }, cid)
                player:setStorageValue(Storage.KillingInTheNameOf.TiquandasRevengeTeleport, 1) -- Task needed to enter Tiquandas Revenge TP
                player:setStorageValue(Storage.KillingInTheNameOf.MissionTiquandasRevenge, 1) -- Won't give this task again.
            end
        end
        if player:getPawAndFurPoints() >= 70 then -- Demodras 100 points
            if player:getStorageValue(Storage.KillingInTheNameOf.MissionDemodras) == 1 then  -- Check if he has already started the task.
                npcHandler:say('You have already started the special task. Find Demodras and kill it.', cid)
            else
                npcHandler:say('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.', cid)
                player:setStorageValue(Storage.KillingInTheNameOf.DemodrasTeleport, 1) -- Task needed to enter Demodras TP
                player:setStorageValue(Storage.KillingInTheNameOf.MissionDemodras, 1) -- Won't give this task again.
            end
        end
        npcHandler.topic[cid] = 0
    end
end

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