bestiary system tfs 1.5 by nekiro tibia 8.6

jareczekjsp said:

Hello everyone I have problem I use script Bestiary chat sysyem and no working for me when I kill monster ,no see counts monster no reaction no errors in console

Click to expand...

local bestiarySystem = {
monsters = {
-- Custom GPT
"Abyssal Devourer", "Zarkhan", "Nyxaroth",

-- Custom News
"Trolling", "Revenger", "Cronda", "Behewarrior", "Behesoldier",
"Nature", "Frazzlemaw", "Guzzlemaw", "Haunted Dragon", "Demoniac",
"Rei da Guerra",

-- Custom Drakens
"Draken Abomination", "Draken Spellweaver", "Draken Warmaster",

-- Custom Others
"Medusa", "Frost Gianter", "Dragon King", "Infernalist",
"Grim Reaper", "Black Demon",

-- Asuras
"Dawnfire Asura", "Midnight Asura", "Falcon knight", "falcon Paladin",

-- Arachnids
"Giant Spider",

-- Demons
"Demon", "Fury", "Juggernaut", "Nightmare", "Plaguesmith",

-- Dragons
"Dragon Lord", "Dragon", "Frost Dragon", "Rotworm",

-- Dwarves
"Dwarf Guard", "Dwarf Soldier", "Dwarf",

-- Giants
"Behemoth", "Cyclops",

-- Minotaurs
"Minotaur Archer", "Minotaur Guard", "Minotaur Mage", "Minotaur",

-- Misc Reptiles
"Hydra",

-- Necromancers
"Necromancer",

-- Outlaws
"Black Knight", "Hero",

-- Serpents
"Cobra", "Serpent Spawn", "Snake",

-- Sorcerers
"Warlock",

-- Vampires
"Vampire"
},

config = {
storageBase = 1010000, -- Base para storages
maxKills = 20000, -- Limite máximo
smallRewardInterval = 5000, -- Recompensa 5000 kills
mediumRewardInterval = 10000, -- Recompensa melhor 10000 kills

-- Recompensas pequenas
smallReward = {
items = {
{id = 2160, count = 25, chance = 100}, -- 25 crystal coin (100%)
{id = 7630, count = 10, chance = 100}, -- 10 forgott token (100%)
{id = 7665, count = 1, chance = 60}, -- 1 stamina refil de 5 horas (60%)
{id = 7507, count = 1, chance = 20} -- 1 roulet token (20%)
}
},

-- Recompensas médias
mediumReward = {
items = {
{id = 2160, count = 25, chance = 100}, -- 25 crystal coins (100%)
{id = 7630, count = 20, chance = 100}, -- 20 forgott token (100%)
{id = 7665, count = 1, chance = 80}, -- 1 stamina refil de 5 horas (80%)
{id = 7507, count = 1, chance = 50} -- 1 roulet token (50%)
}
},

-- Recompensa final
finalReward = {
message = "You have completed the %s bestiary!",
items = {
{id = 2160, count = 25, chance = 100}, -- 25 crystal coins (100%)
{id = 7630, count = 20, chance = 100}, -- 20 forgott token (100%)
{id = 7665, count = 1, chance = 100}, -- 1 stamina refil de 5 horas (100%)
{id = 7507, count = 1, chance = 100} -- 1 roulet token (100%)
}
},

channelId = 10,
channelTalkType = TALKTYPE_CHANNEL_O
},

monsterIndexCache = {}
}

-- Inicializar cache de monstros
for index, name in ipairs(bestiarySystem.monsters) do
bestiarySystem.monsterIndexCache[name:lower()] = index
end

-- Funções auxiliares
local function getMonsterIndex(monsterName)
return bestiarySystem.monsterIndexCache[monsterName:lower()]
end

local function giveRandomItems(player, itemsTable)
for _, item in ipairs(itemsTable) do
if math.random(100) <= (item.chance or 100) then
player:addItem(item.id, item.count or 1)
end
end
end

-- Função principal corrigida
local function onKill(creature, target)
local player = Player(creature)
if not player or not target:isMonster() then
return true
end

local targetName = target:getName()
local monsterIndex = getMonsterIndex(targetName)
if not monsterIndex then
return true
end

local storageKey = bestiarySystem.config.storageBase + monsterIndex
local killCount = player:getStorageValue(storageKey)

-- Verificar se já completou
if killCount >= bestiarySystem.config.maxKills then
return true
end

-- Atualizar contagem (tratando caso de storage não existente)
killCount = (killCount == -1 and 1 or killCount + 1)
player:setStorageValue(storageKey, killCount)

-- Mensagem normal de progresso
player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, string.format("[Bestiary] %s: %d/%d", targetName, killCount, bestiarySystem.config.maxKills))

local config = bestiarySystem.config

-- Recompensa a cada 1000 kills (apenas quando killCount for múltiplo exato)
if killCount > 0 and killCount % config.smallRewardInterval == 0 then
giveRandomItems(player, config.smallReward.items)
player:sendTextMessage(MESSAGE_INFO_DESCR,
string.format("Bestiary reward: items for killing %d %ss!",
killCount, targetName))
end

-- Recompensa melhor a cada 2000 kills (apenas quando killCount for múltiplo exato)
if killCount > 0 and killCount % config.mediumRewardInterval == 0 then
-- Não dar a recompensa small se for também medium
if killCount % config.smallRewardInterval ~= 0 or config.smallRewardInterval == config.mediumRewardInterval then
giveRandomItems(player, config.mediumReward.items)
player:sendTextMessage(MESSAGE_EVENT_ADVANCE,
string.format("Medium bestiary reward: items for %d %ss!",
killCount, targetName))
end
end

-- Recompensa final ao completar
if killCount == config.maxKills then
player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE,
string.format(config.finalReward.message, targetName))

for _, item in ipairs(config.finalReward.items) do
player:addItem(item.id, item.count)
player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE,
string.format("Received %d %s as final reward!",
item.count, ItemType(item.id):getName()))
end
end

return true
end

-- Registrar eventos
local creatureEvent = CreatureEvent("BestiarySystem")
function creatureEvent.onKill(player, target)
return onKill(player, target)
end
creatureEvent:register()

local loginEvent = CreatureEvent("BestiaryLogin")
function loginEvent.onLogin(player)
player:registerEvent("BestiarySystem")
return true
end
loginEvent:type("login")
loginEvent:register()

Click to expand...