jareczekjsp
Member
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
bestiary system tfs 1.5 by nekiro tibia 8.6
- Thread starter jareczekjsp
- Start date
make sure you have registered this event to player's (onLogin),
how to do this?
after line 21
write
try to kill a monster that its affected by this task system then check console.
how to do this?
after line 21
write
LUA:
prnt("executed???")try to kill a monster that its affected by this task system then check console.
Bee King
Active Member
- Joined
- May 9, 2024
- Messages
- 73
- Reaction score
- 26
I asked AI for help to create a bestiary system similar to the one in the post... I'm quite inexperienced with scripting, so this is a request for someone who has the knowledge — please tell me if it's a viable system, if it has flaws, or if it's something valid?? Thank youuu!
LUA:
local bestiarySystem = {
monsters = {
-- Sua lista de monstros aqui
"Dragon", "Dragon Lord", "Demon", -- etc...
},
config = {
storageBase = 1010000, -- Base para storages
maxKills = 2000, -- Limite máximo
smallRewardInterval = 200, -- Recompensa a cada 200 kills
mediumRewardInterval = 500, -- Recompensa melhor a cada 500 kills
-- Recompensas pequenas (a cada 200)
smallReward = {
expMultiplier = {min = 1.5, max = 3}, -- 1.5x a 3x o HP do monstro
goldMultiplier = {min = 1, max = 2} -- 1x a 2x o HP do monstro
},
-- Recompensas médias (a cada 500)
mediumReward = {
expMultiplier = {min = 3, max = 5},
goldMultiplier = {min = 2, max = 4},
items = {
{id = 2148, count = 50, chance = 100}, -- 50 gold coins (100%)
{id = 2152, count = 5, chance = 50}, -- 5 platinum coins (50%)
{id = 2160, count = 1, chance = 10} -- 1 crystal coin (10%)
}
},
-- Recompensa final (ao completar 2000)
finalReward = {
message = "You have completed the %s bestiary!",
items = {
{id = 2160, count = 5}, -- 5 crystal coins
{id = 6512, count = 1} -- 1 gem bag
}
},
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 calculateReward(maxHealth, multiplier)
return math.random(maxHealth * multiplier.min, maxHealth * multiplier.max)
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
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
killCount = killCount + 1
player:setStorageValue(storageKey, killCount)
player:sendTextMessage(MESSAGE_STATUS_DEFAULT, string.format("[Bestiary] %s: %d/%d", targetName, killCount, bestiarySystem.config.maxKills))
local maxHealth = target:getMaxHealth()
local config = bestiarySystem.config
-- Recompensa a cada 200 kills
if killCount % config.smallRewardInterval == 0 then
local exp = calculateReward(maxHealth, config.smallReward.expMultiplier)
local gold = calculateReward(maxHealth, config.smallReward.goldMultiplier)
player:addExperience(exp)
player:addMoney(gold)
player:sendTextMessage(MESSAGE_INFO_DESCR,
string.format("Bestiary reward: %d XP and %d gold for killing %d %ss!",
exp, gold, killCount, targetName))
end
-- Recompensa melhor a cada 500 kills
if killCount % config.mediumRewardInterval == 0 then
local exp = calculateReward(maxHealth, config.mediumReward.expMultiplier)
local gold = calculateReward(maxHealth, config.mediumReward.goldMultiplier)
player:addExperience(exp)
player:addMoney(gold)
giveRandomItems(player, config.mediumReward.items)
player:sendTextMessage(MESSAGE_EVENT_ADVANCE,
string.format("Medium bestiary reward: %d XP, %d gold and items for %d %ss!",
exp, gold, killCount, targetName))
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()
Last edited:
chucky91
Advanced OT User
(not windows)
all names of the monsters xml must be the same as the script, the system differentiates between upper and lower case.
Bee King
Active Member
- Joined
- May 9, 2024
- Messages
- 73
- Reaction score
- 26
I managed to improve the system and tested it... everything is working perfectly...
The bestiary is like a task, but it's a task that starts automatically haha, and it gives rewards at different stages...
Here’s an example: with 5,000 monsters you get the 1st reward, at 10,000 the 2nd reward, and finally at 20,000 the last reward... easy to configure...
The bestiary is like a task, but it's a task that starts automatically haha, and it gives rewards at different stages...
Here’s an example: with 5,000 monsters you get the 1st reward, at 10,000 the 2nd reward, and finally at 20,000 the last reward... easy to configure...
Similar threads
- Question
