Ir para conteúdo
TK News
  • Cadastre-se

Alguem ajuda por favor

NewAge

Por ,
em Suporte Tibia OTServer

 Share Seguidores 0

Posts Recomendados

NewAge

NewAge 1

Postado
Postado

To desesperado, ja troquei lib, substitui a pasta spells, fiz o diabo e mesmo assim após o player entrar em pvp e tirar x1 com alguém magias e potions de healar não funcionam. Tb quando entram em party, da o mesmo problema. Não sei mais o que fazer, ja tentei de tudo e não funciona

lib.lua



function isInArray(array, value, caseSensitive)

if (caseSensitive == nil or caseSensitive == false) and type(value) == "string" then

  local lowerValue = value:lower()

  for _, _value in ipairs(array) do

   if type(_value) == "string" and lowerValue == _value:lower() then

    return true

   end

  end

else

  for _, _value in ipairs(array) do

   if (value == _value) then return true end

  end

end

return false

end

function doPlayerGiveItem(cid, itemid, amount, subType)

local item = 0

if(isItemStackable(itemid)) then

  item = doCreateItemEx(itemid, amount)

  if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then

   return false

  end

else

  for i = 1, amount do

   item = doCreateItemEx(itemid, subType)

   if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then

    return false

   end

  end

end

return true

end

function doPlayerGiveItemContainer(cid, containerid, itemid, amount, subType)

for i = 1, amount do

  local container = doCreateItemEx(containerid, 1)

  for x = 1, getContainerCapById(containerid) do

   doAddContainerItem(container, itemid, subType)

  end

  if(doPlayerAddItemEx(cid, container, true) ~= RETURNVALUE_NOERROR) then

   return false

  end

end

return true

end

function doPlayerTakeItem(cid, itemid, amount)

return getPlayerItemCount(cid, itemid) >= amount and doPlayerRemoveItem(cid, itemid, amount)

end

function doPlayerSellItem(cid, itemid, count, cost)

if(not doPlayerTakeItem(cid, itemid, count)) then

  return false

end

if(not doPlayerAddMoney(cid, cost)) then

  error('[doPlayerSellItem] Could not add money to: ' .. getPlayerName(cid) .. ' (' .. cost .. 'gp).')

end

return true

end

function doPlayerWithdrawMoney(cid, amount)

if(not getBooleanFromString(getConfigInfo('bankSystem'))) then

  return false

end

local balance = getPlayerBalance(cid)

if(amount > balance or not doPlayerAddMoney(cid, amount)) then

  return false

end

doPlayerSetBalance(cid, balance - amount)

return true

end

function doPlayerDepositMoney(cid, amount)

if(not getBooleanFromString(getConfigInfo('bankSystem'))) then

  return false

end

if(not doPlayerRemoveMoney(cid, amount)) then

  return false

end

doPlayerSetBalance(cid, getPlayerBalance(cid) + amount)

return true

end

function doPlayerAddStamina(cid, minutes)

return doPlayerSetStamina(cid, getPlayerStamina(cid) + minutes)

end

function isPremium(cid)

return (isPlayer(cid) and (getPlayerPremiumDays(cid) > 0 or getBooleanFromString(getConfigValue('freePremium'))))

end

function getMonthDayEnding(day)

if(day == "01" or day == "21" or day == "31") then

  return "st"

elseif(day == "02" or day == "22") then

  return "nd"

elseif(day == "03" or day == "23") then

  return "rd"

end

return "th"

end

function getMonthString(m)

return os.date("%B", os.time{year = 1970, month = m, day = 1})

end

function getArticle(str)

return str:find("[AaEeIiOoUuYy]") == 1 and "an" or "a"

end

function doNumberFormat(i)

local str, found = string.gsub(i, "(%d)(%d%d%d)$", "%1,%2", 1), 0

repeat

  str, found = string.gsub(str, "(%d)(%d%d%d),", "%1,%2,", 1)

until found == 0

return str

end

function doPlayerAddAddons(cid, addon)

for i = 0, table.maxn(maleOutfits) do

  doPlayerAddOutfit(cid, maleOutfits[i], addon)

end

for i = 0, table.maxn(femaleOutfits) do

  doPlayerAddOutfit(cid, femaleOutfits[i], addon)

end

end

function getTibiaTime(num)

local minutes, hours = getWorldTime(), 0

while (minutes > 60) do

  hours = hours + 1

  minutes = minutes - 60

end

if(num) then

  return {hours = hours, minutes = minutes}

end

return {hours =  hours < 10 and '0' .. hours or '' .. hours, minutes = minutes < 10 and '0' .. minutes or '' .. minutes}

end

function doWriteLogFile(file, text)

local f = io.open(file, "a+")

if(not f) then

  return false

end

f:write("[" .. os.date("%d/%m/%Y %H:%M:%S") .. "] " .. text .. "\n")

f:close()

return true

end

function getExperienceForLevel(lv)

lv = lv - 1

return ((50 * lv * lv * lv) - (150 * lv * lv) + (400 * lv)) / 3

end

function doMutePlayer(cid, time)

local condition = createConditionObject(CONDITION_MUTED, (time == -1 and time or time * 1000))

return doAddCondition(cid, condition, false)

end

function doSummonCreature(name, pos)

local cid = doCreateMonster(name, pos, false, false)

if(not cid) then

  cid = doCreateNpc(name, pos)

end

return cid

end

function getPlayersOnlineEx()

local players = {}

for i, cid in ipairs(getPlayersOnline()) do

  table.insert(players, getCreatureName(cid))

end

return players

end

function getPlayerByName(name)

local cid = getCreatureByName(name)

return isPlayer(cid) and cid or nil

end

function isPlayer(cid)

return isCreature(cid) and cid >= AUTOID_PLAYERS and cid < AUTOID_MONSTERS

end

function isPlayerGhost(cid)

return isPlayer(cid) and (getCreatureCondition(cid, CONDITION_GAMEMASTER, GAMEMASTER_INVISIBLE, CONDITIONID_DEFAULT) or getPlayerFlagValue(cid, PLAYERFLAG_CANNOTBESEEN))

end

function isMonster(cid)

return isCreature(cid) and cid >= AUTOID_MONSTERS and cid < AUTOID_NPCS

end

function isNpc(cid)

-- Npc IDs are over int32_t range (which is default for lua_pushnumber),

-- therefore number is always a negative value.

return isCreature(cid) and (cid < 0 or cid >= AUTOID_NPCS)

end

function isUnderWater(cid)

return isInArray(underWater, getTileInfo(getCreaturePosition(cid)).itemid)

end

function doPlayerAddLevel(cid, amount, round)

local experience, level, amount = 0, getPlayerLevel(cid), amount or 1

if(amount > 0) then

  experience = getExperienceForLevel(level + amount) - (round and getPlayerExperience(cid) or getExperienceForLevel(level))

else

  experience = -((round and getPlayerExperience(cid) or getExperienceForLevel(level)) - getExperienceForLevel(level + amount))

end

return doPlayerAddExperience(cid, experience)

end

function doPlayerAddMagLevel(cid, amount)

local amount = amount or 1

for i = 1, amount do

  doPlayerAddSpentMana(cid, getPlayerRequiredMana(cid, getPlayerMagLevel(cid, true) + 1) - getPlayerSpentMana(cid), false)

end

return true

end

function doPlayerAddSkill(cid, skill, amount, round)

local amount = amount or 1

if(skill == SKILL__LEVEL) then

  return doPlayerAddLevel(cid, amount, round)

elseif(skill == SKILL__MAGLEVEL) then

  return doPlayerAddMagLevel(cid, amount)

end

for i = 1, amount do

  doPlayerAddSkillTry(cid, skill, getPlayerRequiredSkillTries(cid, skill, getPlayerSkillLevel(cid, skill) + 1) - getPlayerSkillTries(cid, skill), false)

end

return true

end

function isPrivateChannel(channelId)

return channelId >= CHANNEL_PRIVATE

end

function doBroadcastMessage(text, class)

local class = class or MESSAGE_STATUS_WARNING

if(type(class) == 'string') then

  local className = MESSAGE_TYPES[class]

  if(className == nil) then

   return false

  end

  class = className

elseif(class < MESSAGE_FIRST or class > MESSAGE_LAST) then

  return false

end

for _, pid in ipairs(getPlayersOnline()) do

  doPlayerSendTextMessage(pid, class, text)

end

print("> Broadcasted message: \"" .. text .. "\".")

return true

end

function doPlayerBroadcastMessage(cid, text, class, checkFlag, ghost)

local checkFlag, ghost, class = checkFlag or true, ghost or false, class or TALKTYPE_BROADCAST

if(checkFlag and not getPlayerFlagValue(cid, PLAYERFLAG_CANBROADCAST)) then

  return false

end

if(type(class) == 'string') then

  local className = TALKTYPE_TYPES[class]

  if(className == nil) then

   return false

  end

  class = className

elseif(class < TALKTYPE_FIRST or class > TALKTYPE_LAST) then

  return false

end

for _, pid in ipairs(getPlayersOnline()) do

  doCreatureSay(cid, text, class, ghost, pid)

end

print("> " .. getCreatureName(cid) .. " broadcasted message: \"" .. text .. "\".")

return true

end

function doCopyItem(item, attributes)

local attributes = ((type(attributes) == 'table') and attributes or { "aid" })

local ret = doCreateItemEx(item.itemid, item.type)

for _, key in ipairs(attributes) do

  local value = getItemAttribute(item.uid, key)

  if(value ~= nil) then

   doItemSetAttribute(ret, key, value)

  end

end

if(isContainer(item.uid)) then

  for i = (getContainerSize(item.uid) - 1), 0, -1 do

   local tmp = getContainerItem(item.uid, i)

   if(tmp.itemid > 0) then

    doAddContainerItemEx(ret, doCopyItem(tmp, true).uid)

   end

  end

end

return getThing(ret)

end

function doSetItemText(uid, text, writer, date)

local thing = getThing(uid)

if(thing.itemid < 100) then

  return false

end

doItemSetAttribute(uid, "text", text)

if(writer ~= nil) then

  doItemSetAttribute(uid, "writer", tostring(writer))

  if(date ~= nil) then

   doItemSetAttribute(uid, "date", tonumber(date))

  end

end

return true

end

function getItemWeightById(itemid, count, precision)

local item, count, precision = getItemInfo(itemid), count or 1, precision or false

if(not item) then

  return false

end

if(count > 100) then

  -- print a warning, as its impossible to have more than 100 stackable items without "cheating" the count

  print('[Warning] getItemWeightById', 'Calculating weight for more than 100 items!')

end

local weight = item.weight * count

return precission and weight or math.round(weight, 2)

end

function choose(...)

local arg = {...}

return arg[math.random(1, table.maxn(arg))]

end

function doPlayerAddExpEx(cid, amount)

if(not doPlayerAddExp(cid, amount)) then

  return false

end

local position = getThingPosition(cid)

doPlayerSendTextMessage(cid, MESSAGE_EXPERIENCE, "You gained " .. amount .. " experience.", amount, COLOR_WHITE, position)

local spectators, name = getSpectators(position, 7, 7), getCreatureName(cid)

for _, pid in ipairs(spectators) do

  if(isPlayer(pid) and cid ~= pid) then

   doPlayerSendTextMessage(pid, MESSAGE_EXPERIENCE_OTHERS, name .. " gained " .. amount .. " experience.", amount, COLOR_WHITE, position)

  end

end

return true

end

function getItemTopParent(uid)

local parent = getItemParent(uid)

if(not parent or parent.uid == 0) then

  return nil

end

while(true) do

  local tmp = getItemParent(parent.uid)

  if(tmp and tmp.uid ~= 0) then

   parent = tmp

  else

   break

  end

end

return parent

end

function getItemHolder(uid)

local parent = getItemParent(uid)

if(not parent or parent.uid == 0) then

  return nil

end

local holder = nil

while(true) do

  local tmp = getItemParent(parent.uid)

  if(tmp and tmp.uid ~= 0) then

   if(tmp.itemid == 1) then -- a creature

    holder = tmp

    break

   end

   parent = tmp

  else

   break

  end

end

return holder

end

function valid(f)

return function(p, ...)

  if(isCreature(p)) then

   return f(p, ...)

  end

end

end

function addVipAccount(cid, count)  --function by Mirto, MiltonHit - ######

				    db.executeQuery("UPDATE `accounts` SET `premium_points` = premium_points + '"..count.."' WHERE `name` ='"..getPlayerAccount(cid).."'")

end

function getVipBalance(cid)  --function by Mirto, MiltonHit - ######

				 local skpo = db.getResult("SELECT * FROM `accounts` where `name`='"..getPlayerAccount(cid).."'")

				 return skpo:getDataInt("premium_points")

end

function getNumber(txt) --return number if its number and is > 0, else return 0 (function maded by Gesior)

				 x = string.gsub(txt,"%a","")

				 x = tonumber(x)

				 if x ~= nill and x > 0 then

				    return x

				 else

				    return 0

				 end

end

function getItemsFromList(items)

local str = ''

if table.maxn(items) > 0 then

for i = 1, table.maxn(items) do

str = str .. items[i][2] .. ' ' .. getItemNameById(items[i][1])

if i ~= table.maxn(items) then str = str .. ', ' end end end

return str

end

function doRemoveItemsFromList(cid,items) -- by vodka

local count = 0

if table.maxn(items) > 0 then

for i = 1, table.maxn(items) do

if getPlayerItemCount(cid,items[i][1]) >= items[i][2] then

count = count + 1 end  end  end

if count == table.maxn(items) then

for i = 1, table.maxn(items) do doPlayerRemoveItem(cid,items[i][1],items[i][2]) end

else return false end

return true end
Se ajudar em alguma coisa. E outro erro que ta me deixando maluco é quando o player vai comprar um item no npc da esse maldito erro: Item not found on shopitems list lib/npcsystem/modules.lua 


-- Advanced NPC System (Created by Jiddo),

-- Modified by TheForgottenServer Team.

if(Modules == nil) then

-- Constants used to separate buying from selling.

SHOPMODULE_SELL_ITEM = 1

SHOPMODULE_BUY_ITEM = 2

SHOPMODULE_BUY_ITEM_CONTAINER = 3

-- Constants used for shop mode. Notice: addBuyableItemContainer is working on all modes

SHOPMODULE_MODE_TALK = 1 -- Old system used before Tibia 8.2: sell/buy item name

SHOPMODULE_MODE_TRADE = 2 -- Trade window system introduced in Tibia 8.2

SHOPMODULE_MODE_BOTH = 3 -- Both working at one time

-- Used in shop mode

SHOPMODULE_MODE = SHOPMODULE_MODE_BOTH

-- Constants used for outfit giving mode

OUTFITMODULE_FUNCTION_OLD = { doPlayerAddOutfit, canPlayerWearOutfit } -- lookType usage

OUTFITMODULE_FUNCTION_NEW = { doPlayerAddOutfitId, canPlayerWearOutfitId } -- OutfitId usage

-- Used in outfit module

OUTFITMODULE_FUNCTION = OUTFITMODULE_FUNCTION_NEW

if(OUTFITMODULE_FUNCTION[1] == nil or OUTFITMODULE_FUNCTION[2] == nil) then

  OUTFITMODULE_FUNCTION = OUTFITMODULE_FUNCTION_OLD

end

Modules = {

  parseableModules = {}

}

StdModule = {}

-- These callback function must be called with parameters.npcHandler = npcHandler in the parameters table or they will not work correctly.

-- Notice: The members of StdModule have not yet been tested. If you find any bugs, please report them to me.

-- Usage:

  -- keywordHandler:addKeyword({'offer'}, StdModule.say, {npcHandler = npcHandler, text = 'I sell many powerful melee weapons.'})

function StdModule.say(cid, message, keywords, parameters, node)

  local npcHandler = parameters.npcHandler

  if(npcHandler == nil) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'StdModule.say - Call without any npcHandler instance.')

   return false

  end

  local onlyFocus = (parameters.onlyFocus == nil or parameters.onlyFocus == true)

  if(not npcHandler:isFocused(cid) and onlyFocus) then

   return false

  end

  local parseInfo = {[TAG_PLAYERNAME] = getCreatureName(cid)}

  npcHandler:say(npcHandler:parseMessage(parameters.text or parameters.message, parseInfo), cid, parameters.publicize and true)

  if(parameters.reset) then

   npcHandler:resetNpc(cid)

  elseif(parameters.moveup and type(parameters.moveup) == 'number') then

   npcHandler.keywordHandler:moveUp(parameters.moveup)

  end

  return true

end

--Usage:

  -- local node1 = keywordHandler:addKeyword({'promot'}, StdModule.say, {npcHandler = npcHandler, text = 'I can promote you for 20000 brozne coins. Do you want me to promote you?'})

  --   node1:addChildKeyword({'yes'}, StdModule.promotePlayer, {npcHandler = npcHandler, cost = 20000, promotion = 1, level = 20}, text = 'Congratulations! You are now promoted.')

  --   node1:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, text = 'Alright then, come back when you are ready.'}, reset = true)

function StdModule.promotePlayer(cid, message, keywords, parameters, node)

  local npcHandler = parameters.npcHandler

  if(npcHandler == nil) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'StdModule.promotePlayer - Call without any npcHandler instance.')

   return false

  end

  if(not npcHandler:isFocused(cid)) then

   return false

  end

  if(isPremium(cid) or not getBooleanFromString(getConfigValue('premiumForPromotion')) or not(parameters.premium)) then

   if(getPlayerPromotionLevel(cid) >= parameters.promotion) then

    npcHandler:say('You are already promoted!', cid)

   elseif(getPlayerLevel(cid) < parameters.level) then

    npcHandler:say('I am sorry, but I can only promote you once you have reached level ' .. parameters.level .. '.', cid)

   elseif(not doPlayerRemoveMoney(cid, parameters.cost)) then

    npcHandler:say('You do not have enough money!', cid)

   else

    doPlayerSetPromotionLevel(cid, parameters.promotion)

    npcHandler:say(parameters.text, cid)

   end

  else

   npcHandler:say("You need a premium account in order to get promoted.", cid)

  end

  npcHandler:resetNpc(cid)

  return true

end

function StdModule.learnSpell(cid, message, keywords, parameters, node)

  local npcHandler = parameters.npcHandler

  if(npcHandler == nil) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'StdModule.learnSpell - Call without any npcHandler instance.')

   return false

  end

  if(not npcHandler:isFocused(cid)) then

   return false

  end

  if(isPremium(cid) or not(parameters.premium)) then

   if(getPlayerLearnedInstantSpell(cid, parameters.spellName)) then

    npcHandler:say('You already know this spell.', cid)

   elseif(getPlayerLevel(cid) < parameters.level) then

    npcHandler:say('You need to obtain a level of ' .. parameters.level .. ' or higher to be able to learn ' .. parameters.spellName .. '.', cid)

   elseif(not parameters.vocation(cid)) then

    npcHandler:say('This spell is not for your vocation', cid)

   elseif(not doPlayerRemoveMoney(cid, parameters.price)) then

    npcHandler:say('You do not have enough money, this spell costs ' .. parameters.price .. ' gold coins.', cid)

   else

    npcHandler:say('You have learned ' .. parameters.spellName .. '.', cid)

    playerLearnInstantSpell(cid, parameters.spellName)

   end

  else

   npcHandler:say('You need a premium account in order to buy ' .. parameters.spellName .. '.', cid)

  end

  npcHandler:resetNpc(cid)

  return true

end

function StdModule.bless(cid, message, keywords, parameters, node)

  local npcHandler = parameters.npcHandler

  if(npcHandler == nil) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'StdModule.bless - Call without any npcHandler instance.')

   return false

  end

  if(not getBooleanFromString(getConfigValue('blessings'))) then

   npcHandler:say("Sorry, but Gods moved back my permission to bless anyone.", cid)

   return false

  end

  if(not npcHandler:isFocused(cid)) then

   return false

  end

  local premium = parameters.premium

  if(getBooleanFromString(getConfigValue('blessingsOnlyPremium'))) then

   premium = true

  end

  if(isPremium(cid) or not premium) then

   local price = parameters.baseCost

   if(getPlayerLevel(cid) > parameters.startLevel) then

    price = (price + ((math.min(parameters.endLevel, getPlayerLevel(cid)) - parameters.startLevel) * parameters.levelCost))

   end

   if(parameters.number > 0) then

    if(getPlayerBlessing(cid, parameters.number)) then

		 npcHandler:say("Gods have already blessed you with this blessing!", cid)

    elseif(not doPlayerRemoveMoney(cid, price)) then

		 npcHandler:say("You don't have enough money for blessing.", cid)

    else

		 npcHandler:say("You have been blessed by one of the five gods!", cid)

		 doPlayerAddBlessing(cid, parameters.number)

    end

   else

    if(getPlayerPVPBlessing(cid)) then

		 npcHandler:say("Gods have already blessed you with this blessing!", cid)

    elseif(not doPlayerRemoveMoney(cid, price)) then

		 npcHandler:say("You don't have enough money for blessing.", cid)

    else

		 local any = false

		 for i = 1, 5 do

		  if(getPlayerBlessing(cid, i)) then

		   any = true

		   break

		  end

		 end

		 if(any) then

		  npcHandler:say("You have been blessed by the god of war!", cid)

		  doPlayerSetPVPBlessing(cid)

		 else

		  npcHandler:say("You need to be blessed by at least one god to get this blessing.", cid)

		 end

    end

   end

  else

   npcHandler:say('You need a premium account in order to be blessed.', cid)

  end

  npcHandler:resetNpc(cid)

  return true

end

function StdModule.travel(cid, message, keywords, parameters, node)

  local npcHandler = parameters.npcHandler

  if(npcHandler == nil) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'StdModule.travel - Call without any npcHandler instance.')

   return false

  end

  if(not npcHandler:isFocused(cid)) then

   return false

  end

  local storage, pzLocked = parameters.storageValue or (EMPTY_STORAGE + 1), parameters.allowLocked or false

  if(parameters.premium and not isPremium(cid)) then

   npcHandler:say('I\'m sorry, but you need a premium account in order to travel onboard our ships.', cid)

  elseif(parameters.level ~= nil and getPlayerLevel(cid) < parameters.level) then

   npcHandler:say('You must reach level ' .. parameters.level .. ' before I can let you go there.', cid)

  elseif(parameters.storageId ~= nil and getPlayerStorageValue(cid, parameters.storageId) < storage) then

   npcHandler:say(parameters.storageInfo or 'You may not travel there yet!', cid)

  elseif(not pzLocked and isPlayerPzLocked(cid)) then

   npcHandler:say('First get rid of those blood stains! You are not going to ruin my vehicle!', cid)

  elseif(not doPlayerRemoveMoney(cid, parameters.cost)) then

   npcHandler:say('You don\'t have enough money.', cid)

  else

   npcHandler:say('Set the sails!', cid)

   npcHandler:releaseFocus(cid)

   doTeleportThing(cid, parameters.destination, false)

   doSendMagicEffect(parameters.destination, CONST_ME_TELEPORT)

  end

  npcHandler:resetNpc(cid)

  return true

end

FocusModule = {

  npcHandler = nil

}

-- Creates a new instance of FocusModule without an associated NpcHandler.

function FocusModule:new()

  local obj = {}

  setmetatable(obj, self)

  self.__index = self

  return obj

end

-- Inits the module and associates handler to it.

function FocusModule:init(handler)

  self.npcHandler = handler

  for i, word in pairs(FOCUS_GREETWORDS) do

   local obj = {}

   table.insert(obj, word)

   obj.callback = FOCUS_GREETWORDS.callback or FocusModule.messageMatcher

   handler.keywordHandler:addKeyword(obj, FocusModule.onGreet, {module = self})

  end

  for i, word in pairs(FOCUS_FAREWELLWORDS) do

   local obj = {}

   table.insert(obj, word)

   obj.callback = FOCUS_FAREWELLWORDS.callback or FocusModule.messageMatcher

   handler.keywordHandler:addKeyword(obj, FocusModule.onFarewell, {module = self})

  end

end

-- Greeting callback function.

function FocusModule.onGreet(cid, message, keywords, parameters)

  parameters.module.npcHandler:onGreet(cid)

  return true

end

-- UnGreeting callback function.

function FocusModule.onFarewell(cid, message, keywords, parameters)

  if(not parameters.module.npcHandler:isFocused(cid)) then

   return false

  end

  parameters.module.npcHandler:onFarewell(cid)

  parameters.module.npcHandler:resetNpc(cid)

  return true

end

-- Custom message matching callback function for greeting messages.

function FocusModule.messageMatcher(keywords, message)

  local spectators = getSpectators(getCreaturePosition(getNpcId()), 7, 7)

  for i, word in pairs(keywords) do

   if(type(word) == 'string') then

    if(string.find(message, word) and not string.find(message, '[%w+]' .. word) and not string.find(message, word .. '[%w+]')) then

		 if(string.find(message, getCreatureName(getNpcId()))) then

		  return true

		 end

		 for i, uid in ipairs(spectators) do

		  if(string.find(message, getCreatureName(uid))) then

		   return false

		  end

		 end

		 return true

    end

   end

  end

  return false

end

KeywordModule = {

  npcHandler = nil

}

-- Add it to the parseable module list.

Modules.parseableModules['module_keywords'] = KeywordModule

function KeywordModule:new()

  local obj = {}

  setmetatable(obj, self)

  self.__index = self

  return obj

end

function KeywordModule:init(handler)

  self.npcHandler = handler

end

-- Parses all known parameters.

function KeywordModule:parseParameters()

  local ret = NpcSystem.getParameter('keywords')

  if(ret ~= nil) then

   self:parseKeywords(ret)

  end

end

function KeywordModule:parseKeywords(data)

  local n = 1

  for keys in string.gmatch(data, '[^;]+') do

   local i = 1

   local keywords = {}

   for temp in string.gmatch(keys, '[^,]+') do

    table.insert(keywords, temp)

    i = i + 1

   end

   if(i ~= 1) then

    local reply = NpcSystem.getParameter('keyword_reply' .. n)

    if(reply ~= nil) then

		 self:addKeyword(keywords, reply)

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Parameter \'' .. 'keyword_reply' .. n .. '\' missing. Skipping...')

    end

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'No keywords found for keyword set #' .. n .. '. Skipping...')

   end

   n = n + 1

  end

end

function KeywordModule:addKeyword(keywords, reply)

  self.npcHandler.keywordHandler:addKeyword(keywords, StdModule.say, {npcHandler = self.npcHandler, onlyFocus = true, text = reply, reset = true})

end

TravelModule = {

  npcHandler = nil,

  destinations = nil,

  yesNode = nil,

  noNode = nil,

}

-- Add it to the parseable module list.

Modules.parseableModules['module_travel'] = TravelModule

function TravelModule:new()

  local obj = {}

  setmetatable(obj, self)

  self.__index = self

  return obj

end

function TravelModule:init(handler)

  self.npcHandler = handler

  self.yesNode = KeywordNode:new(SHOP_YESWORD, TravelModule.onConfirm, {module = self})

  self.noNode = KeywordNode:new(SHOP_NOWORD, TravelModule.onDecline, {module = self})

  self.destinations = {}

end

-- Parses all known parameters.

function TravelModule:parseParameters()

  local ret = NpcSystem.getParameter('travel_destinations')

  if(ret ~= nil) then

   self:parseDestinations(ret)

   for _, word in ipairs({'destination', 'list', 'where', 'travel'}) do

    self.npcHandler.keywordHandler:addKeyword({word}, TravelModule.listDestinations, {module = self})

   end

  end

end

function TravelModule:parseDestinations(data)

  for destination in string.gmatch(data, '[^;]+') do

   local i, name, pos, cost, premium, level, storage = 1, nil, {x = nil, y = nil, z = nil}, nil, false

   for tmp in string.gmatch(destination, '[^,]+') do

    if(i == 1) then

		 name = tmp

    elseif(i == 2) then

		 pos.x = tonumber(tmp)

    elseif(i == 3) then

		 pos.y = tonumber(tmp)

    elseif(i == 4) then

		 pos.z = tonumber(tmp)

    elseif(i == 5) then

		 cost = tonumber(tmp)

    elseif(i == 6) then

		 premium = getBooleanFromString(tmp)

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Unknown parameter found in travel destination parameter.', tmp, destination)

    end

    i = i + 1

   end

   if(name ~= nil and pos.x ~= nil and pos.y ~= nil and pos.z ~= nil and cost ~= nil) then

    self:addDestination(name, pos, cost, premium)

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Parameter(s) missing for travel destination:', name, pos, cost, premium)

   end

  end

end

function TravelModule:addDestination(name, position, price, premium)

  table.insert(self.destinations, name)

  local parameters = {

   cost = price,

   destination = position,

   premium = premium,

   module = self

  }

  local keywords, bringWords = {}, {}

  table.insert(keywords, name)

  table.insert(bringWords, 'bring me to ' .. name)

  self.npcHandler.keywordHandler:addKeyword(bringWords, TravelModule.bring, parameters)

  local node = self.npcHandler.keywordHandler:addKeyword(keywords, TravelModule.travel, parameters)

  node:addChildKeywordNode(self.yesNode)

  node:addChildKeywordNode(self.noNode)

end

function TravelModule.travel(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  module.npcHandler:say('Do you want to travel to ' .. keywords[1] .. ' for ' .. parameters.cost .. ' gold coins?', cid)

  return true

end

function TravelModule.onConfirm(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local parent = node:getParent():getParameters()

  if(isPremium(cid) or not parent.premium) then

   if(not isPlayerPzLocked(cid)) then

    if(doPlayerRemoveMoney(cid, parent.cost)) then

		 module.npcHandler:say('Set the sails!', cid)

		 module.npcHandler:releaseFocus(cid)

		 doTeleportThing(cid, parent.destination, true)

		 doSendMagicEffect(parent.destination, CONST_ME_TELEPORT)

    else

		 module.npcHandler:say('You don\'t have enough money.', cid)

    end

   else

    module.npcHandler:say('First get rid of those blood stains! You are not going to ruin my vehicle!', cid)

   end

  else

   module.npcHandler:say('I\'m sorry, but you need a premium account in order to travel onboard our ships.', cid)

  end

  module.npcHandler:resetNpc(cid)

  return true

end

-- onDecline keyword callback function. Generally called when the player sais 'no' after wanting to buy an item.

function TravelModule.onDecline(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  module.npcHandler:say(module.npcHandler:parseMessage(module.npcHandler:getMessage(MESSAGE_DECLINE), {[TAG_PLAYERNAME] = getCreatureName(cid)}), cid)

  module.npcHandler:resetNpc(cid)

  return true

end

function TravelModule.bring(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  if((isPremium(cid) or not parameters.premium) and not isPlayerPzLocked(cid) and doPlayerRemoveMoney(cid, parameters.cost)) then

   module.npcHandler:say('Set the sails!', cid)

   module.npcHandler:releaseFocus(cid)

   doTeleportThing(cid, parameters.destination, false)

   doSendMagicEffect(parameters.destination, CONST_ME_TELEPORT)

  end

  module.npcHandler:releaseFocus(cid)

  return true

end

function TravelModule.listDestinations(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local msg = nil

  for _, destination in ipairs(module.destinations) do

   if(msg ~= nil) then

    msg = msg .. ", "

   else

    msg = ""

   end

   msg = msg .. "{" .. destination .. "}"

  end

  module.npcHandler:say(msg .. ".", cid)

  module.npcHandler:resetNpc(cid)

  return true

end

OutfitModule = {

  npcHandler = nil,

  outfits = nil,

  yesNode = nil,

  noNode = nil,

}

-- Add it to the parseable module list.

Modules.parseableModules['module_outfit'] = OutfitModule

function OutfitModule:new()

  if(OUTFITMODULE_FUNCTION[1] == nil or OUTFITMODULE_FUNCTION[2] == nil) then

   return nil

  end

  local obj = {}

  setmetatable(obj, self)

  self.__index = self

  return obj

end

function OutfitModule:init(handler)

  self.npcHandler = handler

  self.yesNode = KeywordNode:new(SHOP_YESWORD, OutfitModule.onConfirm, {module = self})

  self.noNode = KeywordNode:new(SHOP_NOWORD, OutfitModule.onDecline, {module = self})

  self.outfits = {}

end

-- Parses all known parameters.

function OutfitModule:parseParameters()

  local ret = NpcSystem.getParameter('outfits')

  if(ret ~= nil) then

   self:parseKeywords(ret)

   for _, word in ipairs({'outfits', 'addons'}) do

    self.npcHandler.keywordHandler:addKeyword({word}, OutfitModule.listOutfits, {module = self})

   end

  end

end

function OutfitModule:parseKeywords(data)

  local n = 1

  for outfit in string.gmatch(data, '[^;]+') do

   local i, keywords = 1, {}

   for tmp in string.gmatch(outfit, '[^,]+') do

    table.insert(keywords, tmp)

    i = i + 1

   end

   if(i > 0) then

    local ret = NpcSystem.getParameter('outfit' .. n)

    if(ret ~= nil) then

		 self:parseList(keywords, ret)

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Missing \'outfit' .. n .. '\' parameter, skipping...')

    end

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'No keywords found for outfit set #' .. n .. ', skipping...')

   end

   n = n + 1

  end

end

function OutfitModule:parseList(keywords, data)

  local outfit, items = nil, {}

  for list in string.gmatch(data, '[^;]+') do

   local a, b, c, d, e = nil, nil, nil, nil, 1

   for tmp in string.gmatch(list, '[^,]+') do

    if(e == 1) then

		 a = tmp

    elseif(e == 2) then

		 b = tmp

    elseif(e == 3) then

		 c = tmp

    elseif(e == 4) then

		 d = tmp

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Unknown parameter found in outfit list while parsing ' .. (outfit == nil and 'outfit' or 'item') .. '.', tmp, list)

    end

    e = e + 1

   end

   if(outfit == nil) then

    outfit = {tonumber(a), tonumber(b), getBooleanFromString(c), d}

   elseif(a ~= nil) then

    local tmp = tonumber(a)

    if((tmp ~= nil or tostring(a) == "money") and b ~= nil and c ~= nil) then

		 a = tmp or 20000

		 tmp = tonumber(d)

		 if(tmp == nil) then

		  tmp = -1

		 end

		 items[a] = {b, tmp, c}

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Missing parameter(s) for outfit items.', b, c, d)

    end

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Missing base parameter for outfit items.', a)

   end

  end

  if(type(outfit) == 'table') then

   local tmp = true

   for i = 1, 2 do

    if(outfit[i] == nil) then

		 tmp = false

		 break

    end

   end

   if(tmp and table.maxn(items) > 0) then

    self:addOutfit(keywords, outfit, items)

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Invalid outfit, addon or empty items pool.', data)

   end

  end

end

function OutfitModule:addOutfit(keywords, outfit, items)

  table.insert(self.outfits, keywords[1])

  local parameters = {

   outfit = outfit[1],

   addon = outfit[2],

   premium = outfit[3],

   gender = nil,

   items = items,

   module = self

  }

  if(outfit[4] ~= nil) then

   local tmp = string.lower(tostring(outfit[5]))

   if(tmp == 'male' or tmp == '1') then

    parameters.gender = 1

   elseif(tmp == 'female' or tmp == '0') then

    parameters.gender = 0

   end

  end

  for i, name in pairs(keywords) do

   local words = {}

   table.insert(words, name)

   local node = self.npcHandler.keywordHandler:addKeyword(words, OutfitModule.obtain, parameters)

   node:addChildKeywordNode(self.yesNode)

   node:addChildKeywordNode(self.noNode)

  end

end

function OutfitModule.obtain(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local i, items, size = 0, nil, table.maxn(parameters.items)

  for k, v in pairs(parameters.items) do

   if(v[1] ~= "storageset") then

    i = i + 1

    if(items ~= nil) then

		 if(i == size) then

		  items = items .. " and "

		 else

		  items = items .. ", "

		 end

    else

		 items = ""

    end

    if(tonumber(v[1]) ~= nil and tonumber(v[1]) > 1) then

		 items = items .. v[1] .. " "

    end

    items = items .. v[3]

   end

  end

  module.npcHandler:say('Do you want ' .. keywords[1] .. ' ' .. (addon == 0 and "outfit" or "addon") .. ' for ' .. items .. '?', cid)

  return true

end

function OutfitModule.onConfirm(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local parent = node:getParent():getParameters()

  if(isPremium(cid) or not parent.premium) then

   if(not OUTFITMODULE_FUNCTION[2](cid, parent.outfit, parent.addon)) then

    if(parent.addon == 0 or OUTFITMODULE_FUNCTION[2](cid, parent.outfit)) then

		 if(parent.gender == nil or parent.gender == getPlayerSex(cid)) then

		  local found = true

		  for k, v in pairs(parent.items) do

		   local tmp = tonumber(v[1])

		   if(tmp == nil) then

		    if(v[1] == "storagecheck") then

				 if(getCreatureStorage(cid, k) < v[2]) then

				  found = false

				 end

		    elseif(v[1] == "outfitid") then

				 if(not canPlayerWearOutfitId(cid, k, v[2])) then

				  found = false

				 end

		    elseif(v[1] == "outfit") then

				 if(not canPlayerWearOutfit(cid, k, v[2])) then

				  found = false

				 end

		    else

				 found = false

		    end

		   elseif(k == 20000) then

		    if(getPlayerMoney(cid) < tmp) then

				 found = false

		    end

		   elseif(getPlayerItemCount(cid, k, v[2]) < tmp) then

		    found = false

		   end

		   if(not found) then

		    break

		   end

		  end

		  if(found) then

		   for k, v in pairs(parent.items) do

		    if(tonumber(v[1]) ~= nil) then

				 if(k == 20000) then

				  doPlayerRemoveMoney(cid, v[1])

				 else

				  doPlayerRemoveItem(cid, k, v[1], v[2])

				 end

		    elseif(v[1] == "storageset") then

				 doCreatureSetStorage(cid, k, v[2])

		    end

		   end

		   module.npcHandler:say('It was a pleasure to dress you.', cid)

		   OUTFITMODULE_FUNCTION[1](cid, parent.outfit, parent.addon)

		   doPlayerSetStorageValue(cid, parent.storageId, storage)

		  else

		   module.npcHandler:say('You don\'t have these items!', cid)

		  end

		 else

		  module.npcHandler:say('Sorry, this ' .. (parent.addon == 0 and 'outfit' or 'addon') .. ' is not for your gender.', cid)

		 end

    else

		 module.npcHandler:say('I will not dress you with addon of outfit you cannot wear!', cid)

    end

   else

    module.npcHandler:say('You already have this ' .. (parent.addon == 0 and 'outfit' or 'addon') .. '!', cid)

   end

  else

   module.npcHandler:say('Sorry, I dress only premium players.', cid)

  end

  module.npcHandler:resetNpc(cid)

  return true

end

-- onDecline keyword callback function. Generally called when the player sais 'no' after wanting to buy an item.

function OutfitModule.onDecline(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  module.npcHandler:say(module.npcHandler:parseMessage(module.npcHandler:getMessage(MESSAGE_DECLINE), {[TAG_PLAYERNAME] = getCreatureName(cid)}), cid)

  module.npcHandler:resetNpc(cid)

  return true

end

function OutfitModule.listOutfits(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local msg, size = nil, table.maxn(module.outfits)

  if(size > 0) then

   for i, outfit in ipairs(module.outfits) do

    if(msg ~= nil) then

		 if(i == size) then

		  msg = msg .. " and "

		 else

		  msg = msg .. ", "

		 end

    else

		 msg = "I can dress you into "

    end

    msg = msg .. "{" .. outfit .. "}"

   end

  else

   msg = "Sorry, I have nothing to offer right now."

  end

  module.npcHandler:say(msg .. ".", cid)

  module.npcHandler:resetNpc(cid)

  return true

end

ShopModule = {

  npcHandler = nil,

  yesNode = nil,

  noNode = nil,

  noText = '',

  maxCount = 100,

  amount = 0

}

-- Add it to the parseable module list.

Modules.parseableModules['module_shop'] = ShopModule

-- Creates a new instance of ShopModule

function ShopModule:new()

  local obj = {}

  setmetatable(obj, self)

  self.__index = self

  return obj

end

-- Parses all known parameters.

function ShopModule:parseParameters()

  local ret = NpcSystem.getParameter('shop_buyable')

  if(ret ~= nil) then

   self:parseBuyable(ret)

  end

  local ret = NpcSystem.getParameter('shop_sellable')

  if(ret ~= nil) then

   self:parseSellable(ret)

  end

  local ret = NpcSystem.getParameter('shop_buyable_containers')

  if(ret ~= nil) then

   self:parseBuyableContainers(ret)

  end

end

-- Parse a string contaning a set of buyable items.

function ShopModule:parseBuyable(data)

  for item in string.gmatch(data, '[^;]+') do

   local i, name, itemid, cost, subType, realName = 1, nil, nil, nil, nil, nil

   for tmp in string.gmatch(item, '[^,]+') do

    if(i == 1) then

		 name = tmp

    elseif(i == 2) then

		 itemid = tonumber(tmp)

    elseif(i == 3) then

		 cost = tonumber(tmp)

    elseif(i == 4) then

		 subType = tonumber(tmp)

    elseif(i == 5) then

		 realName = tmp

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Unknown parameter found in buyable items parameter.', tmp, item)

    end

    i = i + 1

   end

   if(SHOPMODULE_MODE == SHOPMODULE_MODE_TRADE) then

    if(itemid ~= nil and cost ~= nil) then

		 if(isItemFluidContainer(itemid) and subType == nil) then

		  print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'SubType missing for parameter item:', item)

		 else

		  self:addBuyableItem(nil, itemid, cost, subType, realName)

		 end

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Parameter(s) missing for item:', itemid, cost)

    end

   elseif(name ~= nil and itemid ~= nil and cost ~= nil) then

    if(isItemFluidContainer(itemid) and subType == nil) then

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'SubType missing for parameter item:', item)

    else

		 local names = {}

		 table.insert(names, name)

		 self:addBuyableItem(names, itemid, cost, subType, realName)

    end

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Parameter(s) missing for item:', name, itemid, cost)

   end

  end

end

-- Parse a string contaning a set of sellable items.

function ShopModule:parseSellable(data)

  for item in string.gmatch(data, '[^;]+') do

   local i, name, itemid, cost, realName = 1, nil, nil, nil, nil

   for temp in string.gmatch(item, '[^,]+') do

    if(i == 1) then

		 name = temp

    elseif(i == 2) then

		 itemid = tonumber(temp)

    elseif(i == 3) then

		 cost = tonumber(temp)

    elseif(i == 4) then

		 realName = temp

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Unknown parameter found in sellable items parameter.', temp, item)

    end

    i = i + 1

   end

   if(SHOPMODULE_MODE == SHOPMODULE_MODE_TRADE) then

    if(itemid ~= nil and cost ~= nil) then

		 self:addSellableItem(nil, itemid, cost, realName)

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Parameter(s) missing for item:', itemid, cost)

    end

   elseif(name ~= nil and itemid ~= nil and cost ~= nil) then

    local names = {}

    table.insert(names, name)

    self:addSellableItem(names, itemid, cost, realName)

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Parameter(s) missing for item:', name, itemid, cost)

   end

  end

end

-- Parse a string contaning a set of buyable items.

function ShopModule:parseBuyableContainers(data)

  for item in string.gmatch(data, '[^;]+') do

   local i, name, container, itemid, cost, subType, realName = 1, nil, nil, nil, nil, nil, nil

   for temp in string.gmatch(item, '[^,]+') do

    if(i == 1) then

		 name = temp

    elseif(i == 2) then

		 itemid = tonumber(temp)

    elseif(i == 3) then

		 itemid = tonumber(temp)

    elseif(i == 4) then

		 cost = tonumber(temp)

    elseif(i == 5) then

		 subType = tonumber(temp)

    elseif(i == 6) then

		 realName = temp

    else

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Unknown parameter found in buyable items parameter.', temp, item)

    end

    i = i + 1

   end

   if(name ~= nil and container ~= nil and itemid ~= nil and cost ~= nil) then

    if(isItemFluidContainer(itemid) and subType == nil) then

		 print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'SubType missing for parameter item:', item)

    else

		 local names = {}

		 table.insert(names, name)

		 self:addBuyableItemContainer(names, container, itemid, cost, subType, realName)

    end

   else

    print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'Parameter(s) missing for item:', name, container, itemid, cost)

   end

  end

end

-- Initializes the module and associates handler to it.

function ShopModule:init(handler)

  self.npcHandler = handler

  self.yesNode = KeywordNode:new(SHOP_YESWORD, ShopModule.onConfirm, {module = self})

  self.noNode = KeywordNode:new(SHOP_NOWORD, ShopModule.onDecline, {module = self})

  self.noText = handler:getMessage(MESSAGE_DECLINE)

  if(SHOPMODULE_MODE ~= SHOPMODULE_MODE_TALK) then

   for i, word in pairs(SHOP_TRADEREQUEST) do

    local obj = {}

    table.insert(obj, word)

    obj.callback = SHOP_TRADEREQUEST.callback or ShopModule.messageMatcher

    handler.keywordHandler:addKeyword(obj, ShopModule.requestTrade, {module = self})

   end

  end

end

-- Custom message matching callback function for requesting trade messages.

function ShopModule.messageMatcher(keywords, message)

  for i, word in pairs(keywords) do

   if(type(word) == 'string' and string.find(message, word) and not string.find(message, '[%w+]' .. word) and not string.find(message, word .. '[%w+]')) then

    return true

   end

  end

  return false

end

-- Resets the module-specific variables.

function ShopModule:reset()

  self.amount = 0

end

-- Function used to match a number value from a string.

function ShopModule:getCount(message)

  local ret, b, e = 1, string.find(message, PATTERN_COUNT)

  if(b ~= nil and e ~= nil) then

   ret = tonumber(string.sub(message, b, e))

  end

  return math.max(1, math.min(self.maxCount, ret))

end

-- Adds a new buyable item.

-- names = A table containing one or more strings of alternative names to this item. Used only for old buy/sell system.

-- itemid = The itemid of the buyable item

-- cost = The price of one single item

-- subType - The subType of each rune or fluidcontainer item. Can be left out if it is not a rune/fluidcontainer. Default value is 0 and 1 (depending on shop mode)

-- realName - The real, full name for the item. Will be used as ITEMNAME in MESSAGE_ONBUY and MESSAGE_ONSELL if defined. Default value is nil (getItemNameById will be used)

function ShopModule:addBuyableItem(names, itemid, cost, subType, realName)

  if(type(subType) == 'string' and realName == nil) then

   realName = subType

   subType = nil

  end

  local v = getItemInfo(itemid)

  if(SHOPMODULE_MODE ~= SHOPMODULE_MODE_TALK) then

   local item = {

    id = itemid,

    buy = cost,

    sell = -1,

    subType = tonumber(subType) or (v.charges > 0 and v.charges or 0),

    name = realName or v.name

   }

   for i, shopItem in ipairs(self.npcHandler.shopItems) do

    if(shopItem.id == item.id and (shopItem.subType == item.subType or shopItem.subType == 0)) then

		 if(item.sell ~= shopItem.sell) then

		  item.sell = shopItem.sell

		 end

		 self.npcHandler.shopItems[i] = item

		 item = nil

		 break

    end

   end

   if(item ~= nil) then

    table.insert(self.npcHandler.shopItems, item)

   end

  end

  if(names ~= nil and SHOPMODULE_MODE ~= SHOPMODULE_MODE_TRADE) then

   local parameters = {

    itemid = itemid,

    cost = cost,

    eventType = SHOPMODULE_BUY_ITEM,

    module = self,

    realName = realName or v.name,

    subType = tonumber(subType) or (v.charges > 0 and v.charges or 1)

   }

   for i, name in pairs(names) do

    local keywords = {}

    table.insert(keywords, 'buy')

    table.insert(keywords, name)

    local node = self.npcHandler.keywordHandler:addKeyword(keywords, ShopModule.tradeItem, parameters)

    node:addChildKeywordNode(self.yesNode)

    node:addChildKeywordNode(self.noNode)

   end

  end

end

-- Adds a new buyable container of items.

-- names = A table containing one or more strings of alternative names to this item.

-- container = Backpack, bag or any other itemid of container where bought items will be stored

-- itemid = The itemid of the buyable item

-- cost = The price of one single item

-- subType - The subType of each rune or fluidcontainer item. Can be left out if it is not a rune/fluidcontainer. Default value is 1.

-- realName - The real, full name for the item. Will be used as ITEMNAME in MESSAGE_ONBUY and MESSAGE_ONSELL if defined. Default value is nil (getItemNameById will be used)

function ShopModule:addBuyableItemContainer(names, container, itemid, cost, subType, realName)

  if(names ~= nil) then

   local v = getItemInfo(itemid)

   local parameters = {

    container = container,

    itemid = itemid,

    cost = cost,

    eventType = SHOPMODULE_BUY_ITEM_CONTAINER,

    module = self,

    realName = realName or v.name,

    subType = tonumber(subType) or (v.charges > 0 and v.charges or 1)

   }

   for i, name in pairs(names) do

    local keywords = {}

    table.insert(keywords, 'buy')

    table.insert(keywords, name)

    local node = self.npcHandler.keywordHandler:addKeyword(keywords, ShopModule.tradeItem, parameters)

    node:addChildKeywordNode(self.yesNode)

    node:addChildKeywordNode(self.noNode)

   end

  end

end

-- Adds a new sellable item.

-- names = A table containing one or more strings of alternative names to this item. Used only by old buy/sell system.

-- itemid = The itemid of the sellable item

-- cost = The price of one single item

-- realName - The real, full name for the item. Will be used as ITEMNAME in MESSAGE_ONBUY and MESSAGE_ONSELL if defined. Default value is nil (getItemNameById will be used)

function ShopModule:addSellableItem(names, itemid, cost, realName)

  local v = getItemInfo(itemid)

  if(SHOPMODULE_MODE ~= SHOPMODULE_MODE_TALK) then

   local item = {

    id = itemid,

    buy = -1,

    sell = cost,

    subType = ((v.charges > 0 and v.stackable) and v.charges or 0),

    name = realName or v.name

   }

   for i, shopItem in ipairs(self.npcHandler.shopItems) do

    if(shopItem.id == item.id and shopItem.subType == item.subType) then

		 if(item.buy ~= shopItem.buy) then

		  item.buy = shopItem.buy

		 end

		 self.npcHandler.shopItems[i] = item

		 item = nil

		 break

    end

   end

   if(item ~= nil) then

    table.insert(self.npcHandler.shopItems, item)

   end

  end

  if(names ~= nil and SHOPMODULE_MODE ~= SHOPMODULE_MODE_TRADE) then

   local parameters = {

    itemid = itemid,

    cost = cost,

    eventType = SHOPMODULE_SELL_ITEM,

    module = self,

    realName = realName or v.name

   }

   for i, name in pairs(names) do

    local keywords = {}

    table.insert(keywords, 'sell')

    table.insert(keywords, name)

    local node = self.npcHandler.keywordHandler:addKeyword(keywords, ShopModule.tradeItem, parameters)

    node:addChildKeywordNode(self.yesNode)

    node:addChildKeywordNode(self.noNode)

   end

  end

end

-- onModuleReset callback function. Calls ShopModule:reset()

function ShopModule:callbackOnModuleReset()

  self:reset()

  return true

end

-- Callback onBuy() function. If you wish, you can change certain Npc to use your onBuy().

function ShopModule:callbackOnBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks)

  local shopItem = nil

  for _, item in ipairs(self.npcHandler.shopItems) do

   if(item.id == itemid and item.subType == subType) then

    shopItem = item

    break

   end

  end

  if(shopItem == nil) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'ShopModule.onBuy - Item not found on shopItems list')

   return false

  end

  if(shopItem.buy == -1) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'ShopModule.onBuy - Attempt to purchase an item which only sellable')

   return false

  end

  if(amount <= 0) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'ShopModule.onBuy - Attempt to purchase ' .. amount .. ' items')

   return false

  end

  local subType, count = shopItem.subType or 0, amount

  if(inBackpacks and isItemStackable(itemid)) then

   amount = amount * 100 / math.max(1, subType)

  end

  local backpack, backpackPrice, totalCost = 1988, 20, amount * shopItem.buy

  if(inBackpacks) then

   totalCost = totalCost + (math.max(1, math.floor(count / getContainerCapById(backpack))) * backpackPrice)

  end

  local parseInfo = {

   [TAG_PLAYERNAME] = getPlayerName(cid),

   [TAG_ITEMCOUNT] = amount,

   [TAG_TOTALCOST] = totalCost,

   [TAG_ITEMNAME] = shopItem.name

  }

  if(getPlayerMoney(cid) < totalCost) then

   local msg = self.npcHandler:getMessage(MESSAGE_NEEDMONEY)

   doPlayerSendCancel(cid, self.npcHandler:parseMessage(msg, parseInfo))

   return false

  end

  local a, b = doNpcSellItem(cid, itemid, count, subType, ignoreCap, inBackpacks, backpack)

  if(a < amount) then

   local msgId = MESSAGE_NEEDMORESPACE

   if(a == 0) then

    msgId = MESSAGE_NEEDSPACE

   end

   local msg = self.npcHandler:getMessage(msgId)

   parseInfo[TAG_ITEMCOUNT] = a

   doPlayerSendCancel(cid, self.npcHandler:parseMessage(msg, parseInfo))

   if(NPCHANDLER_CONVBEHAVIOR ~= CONVERSATION_DEFAULT) then

    self.npcHandler.talkStart[cid] = os.time()

   else

    self.npcHandler.talkStart = os.time()

   end

   if(a > 0) then

    doPlayerRemoveMoney(cid, ((a * shopItem.buy) + (b * backpackPrice)))

    return true

   end

   return false

  end

  local msg = self.npcHandler:getMessage(MESSAGE_BOUGHT)

  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, self.npcHandler:parseMessage(msg, parseInfo))

  doPlayerRemoveMoney(cid, totalCost)

  if(NPCHANDLER_CONVBEHAVIOR ~= CONVERSATION_DEFAULT) then

   self.npcHandler.talkStart[cid] = os.time()

  else

   self.npcHandler.talkStart = os.time()

  end

  return true

end

-- Callback onSell() function. If you wish, you can change certain Npc to use your onSell().

function ShopModule:callbackOnSell(cid, itemid, subType, amount, ignoreEquipped, dummy)

  local shopItem = nil

  for _, item in ipairs(self.npcHandler.shopItems) do

   if(item.id == itemid and item.subType == subType) then

    shopItem = item

    break

   end

  end

  if(shopItem == nil) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'ShopModule.onSell - Item not found on shopItems list')

   return false

  end

  if(shopItem.sell == -1) then

   print('[Warning - ' .. getCreatureName(getNpcId()) .. '] NpcSystem:', 'ShopModule.onSell - Attempt to sell an item which is only buyable')

   return false

  end

  local parseInfo = {

   [TAG_PLAYERNAME] = getPlayerName(cid),

   [TAG_ITEMCOUNT] = amount,

   [TAG_TOTALCOST] = amount * shopItem.sell,

   [TAG_ITEMNAME] = shopItem.name

  }

  if(subType < 1 or getItemInfo(itemid).stackable) then

   subType = -1

  end

  if(doPlayerRemoveItem(cid, itemid, amount, subType, ignoreEquipped)) then

   local msg = self.npcHandler:getMessage(MESSAGE_SOLD)

   doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, self.npcHandler:parseMessage(msg, parseInfo))

   doPlayerAddMoney(cid, amount * shopItem.sell)

   if(NPCHANDLER_CONVBEHAVIOR ~= CONVERSATION_DEFAULT) then

    self.npcHandler.talkStart[cid] = os.time()

   else

    self.npcHandler.talkStart = os.time()

   end

   return true

  end

  local msg = self.npcHandler:getMessage(MESSAGE_NEEDITEM)

  doPlayerSendCancel(cid, self.npcHandler:parseMessage(msg, parseInfo))

  if(NPCHANDLER_CONVBEHAVIOR ~= CONVERSATION_DEFAULT) then

   self.npcHandler.talkStart[cid] = os.time()

  else

   self.npcHandler.talkStart = os.time()

  end

  return false

end

-- Callback for requesting a trade window with the NPC.

function ShopModule.requestTrade(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  if(table.maxn(module.npcHandler.shopItems) == 0) then

   local parseInfo = { [TAG_PLAYERNAME] = getPlayerName(cid) }

   local msg = module.npcHandler:parseMessage(module.npcHandler:getMessage(MESSAGE_NOSHOP), parseInfo)

   module.npcHandler:say(msg, cid)

   return true

  end

  local parseInfo = { [TAG_PLAYERNAME] = getPlayerName(cid) }

  local msg = module.npcHandler:parseMessage(module.npcHandler:getMessage(MESSAGE_SENDTRADE), parseInfo)

  addEvent(openShopWindow, 500, cid, module.npcHandler.shopItems,

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

    module.npcHandler:onBuy(cid, itemid, subType, amount, ignoreCap, inBackpacks)

   end,

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

    module.npcHandler:onSell(cid, itemid, subType, amount, ignoreCap, inBackpacks)

   end

  )

  module.npcHandler:say(msg, cid)

  return true

end

-- onConfirm keyword callback function. Sells/buys the actual item.

function ShopModule.onConfirm(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local parentParameters = node:getParent():getParameters()

  local parseInfo = {

   [TAG_PLAYERNAME] = getPlayerName(cid),

   [TAG_ITEMCOUNT] = module.amount,

   [TAG_TOTALCOST] = parentParameters.cost * module.amount,

   [TAG_ITEMNAME] = parentParameters.realName

  }

  if(parentParameters.eventType == SHOPMODULE_SELL_ITEM) then

   local ret = doPlayerSellItem(cid, parentParameters.itemid, module.amount, parentParameters.cost * module.amount)

   if(ret) then

    local msg = module.npcHandler:getMessage(MESSAGE_ONSELL)

    msg = module.npcHandler:parseMessage(msg, parseInfo)

    module.npcHandler:say(msg, cid)

   else

    local msg = module.npcHandler:getMessage(MESSAGE_MISSINGITEM)

    msg = module.npcHandler:parseMessage(msg, parseInfo)

    module.npcHandler:say(msg, cid)

   end

  elseif(parentParameters.eventType == SHOPMODULE_BUY_ITEM) then

   local ret = doPlayerBuyItem(cid, parentParameters.itemid, module.amount, parentParameters.cost * module.amount, parentParameters.subType)

   if(ret) then

    if parentParameters.itemid == ITEM_PARCEL then

		 doPlayerBuyItem(cid, ITEM_LABEL, module.amount, 0, parentParameters.subType)

    end

    local msg = module.npcHandler:getMessage(MESSAGE_ONBUY)

    msg = module.npcHandler:parseMessage(msg, parseInfo)

    module.npcHandler:say(msg, cid)

   else

    local msg = module.npcHandler:getMessage(MESSAGE_MISSINGMONEY)

    msg = module.npcHandler:parseMessage(msg, parseInfo)

    module.npcHandler:say(msg, cid)

   end

  elseif(parentParameters.eventType == SHOPMODULE_BUY_ITEM_CONTAINER) then

   local ret = doPlayerBuyItemContainer(cid, parentParameters.container, parentParameters.itemid, module.amount, parentParameters.cost * module.amount, parentParameters.subType)

   if(ret) then

    local msg = module.npcHandler:getMessage(MESSAGE_ONBUY)

    msg = module.npcHandler:parseMessage(msg, parseInfo)

    module.npcHandler:say(msg, cid)

   else

    local msg = module.npcHandler:getMessage(MESSAGE_MISSINGMONEY)

    msg = module.npcHandler:parseMessage(msg, parseInfo)

    module.npcHandler:say(msg, cid)

   end

  end

  module.npcHandler:resetNpc(cid)

  return true

end

-- onDecliune keyword callback function. Generally called when the player sais 'no' after wanting to buy an item.

function ShopModule.onDecline(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local parentParameters = node:getParent():getParameters()

  local parseInfo = {

   [TAG_PLAYERNAME] = getPlayerName(cid),

   [TAG_ITEMCOUNT] = module.amount,

   [TAG_TOTALCOST] = parentParameters.cost * module.amount,

   [TAG_ITEMNAME] = parentParameters.realName

  }

  local msg = module.npcHandler:parseMessage(module.noText, parseInfo)

  module.npcHandler:say(msg, cid)

  module.npcHandler:resetNpc(cid)

  return true

end

-- tradeItem callback function. Makes the npc say the message defined by MESSAGE_BUY or MESSAGE_SELL

function ShopModule.tradeItem(cid, message, keywords, parameters, node)

  local module = parameters.module

  if(not module.npcHandler:isFocused(cid)) then

   return false

  end

  local count = module:getCount(message)

  module.amount = count

  local parseInfo = {

   [TAG_PLAYERNAME] = getPlayerName(cid),

   [TAG_ITEMCOUNT] = module.amount,

   [TAG_TOTALCOST] = parameters.cost * module.amount,

   [TAG_ITEMNAME] = parameters.realName

  }

  if(parameters.eventType == SHOPMODULE_SELL_ITEM) then

   local msg = module.npcHandler:getMessage(MESSAGE_SELL)

   msg = module.npcHandler:parseMessage(msg, parseInfo)

   module.npcHandler:say(msg, cid)

  elseif(parameters.eventType == SHOPMODULE_BUY_ITEM) then

   local msg = module.npcHandler:getMessage(MESSAGE_BUY)

   msg = module.npcHandler:parseMessage(msg, parseInfo)

   module.npcHandler:say(msg, cid)

  elseif(parameters.eventType == SHOPMODULE_BUY_ITEM_CONTAINER) then

   local msg = module.npcHandler:getMessage(MESSAGE_BUY)

   msg = module.npcHandler:parseMessage(msg, parseInfo)

   module.npcHandler:say(msg, cid)

  end

  return true

end

end

Alguem ajuda, não sei o que fazer, dou rep.

Link para o post
Compartilhar em outros sites
Bruno Carvalho

Bruno Carvalho 837

Postado
Postado

Vá em data/actions/scripts/liquids/potions.lua e poste o script.

Vá em data/spells/scripts/heal e coloque a pasta pra download.

Bruno Carvalho / Ex-Administrador TibiaKing

[email protected]

 

Em 26/12/2016 em 03:47, Spraypaint disse:

A força da alienação vem dessa fragilidade dos indivíduos, quando apenas conseguem identificar o que os separa e não o que os une.

-miltinho

 

wMwSJFE.png?1

 

Link para o post
Compartilhar em outros sites
NewAge

NewAge 1

Postado
  • Autor
Postado

potions.lua


local config = {

removeOnUse = "yes",

usableOnTarget = "yes", -- can be used on target? (fe. healing friend)

splashable = "no",

range = -1,

realAnimation = "no", -- make text effect visible only for players in range 1x1

multiplier = {

  health = 1.0,

  mana = 1.0

}

}

config.removeOnUse = getBooleanFromString(config.removeOnUse)

config.usableOnTarget = getBooleanFromString(config.usableOnTarget)

config.splashable = getBooleanFromString(config.splashable)

config.realAnimation = getBooleanFromString(config.realAnimation)

local POTIONS = {

[8704] = {empty = 7636, splash = 42, health = {50, 100}}, -- small health potion

[7618] = {empty = 7636, splash = 42, health = {100, 200}}, -- health potion

[7588] = {empty = 7634, splash = 42, health = {200, 400}, level = 50, vocations = {3, 4, 7, 8}, vocStr = "knights and paladins"}, -- strong health potion

[7591] = {empty = 7635, splash = 42, health = {500, 700}, level = 80, vocations = {4, 8}, vocStr = "knights"}, -- great health potion

[8473] = {empty = 7635, splash = 42, health = {800, 1000}, level = 130, vocations = {4, 8}, vocStr = "knights"}, -- ultimate health potion

[7620] = {empty = 7636, splash = 47, mana = {70, 130}}, -- mana potion

[7589] = {empty = 7634, splash = 47, mana = {110, 190}, level = 50, vocations = {1, 2, 3, 5, 6, 7}, vocStr = "sorcerers, druids and paladins"}, -- strong mana potion

[7590] = {empty = 7635, splash = 47, mana = {200, 300}, level = 80, vocations = {1, 2, 5, 6}, vocStr = "sorcerers and druids"}, -- great mana potion

[8472] = {empty = 7635, splash = 43, health = {200, 400}, mana = {110, 190}, level = 80, vocations = {3, 7}, vocStr = "paladins"} -- great spirit potion

}

local exhaust = createConditionObject(CONDITION_EXHAUST)

setConditionParam(exhaust, CONDITION_PARAM_TICKS, (getConfigInfo('timeBetweenExActions') - 100))

function onUse(cid, item, fromPosition, itemEx, toPosition)

local potion = POTIONS[item.itemid]

if(not potion) then

  return false

end

if(not isPlayer(itemEx.uid) or (not config.usableOnTarget and cid ~= itemEx.uid)) then

  if(not config.splashable) then

   return false

  end

  if(toPosition.x == CONTAINER_POSITION) then

   toPosition = getThingPosition(item.uid)

  end

  doDecayItem(doCreateItem(POOL, potion.splash, toPosition))

  doRemoveItem(item.uid, 1)

  if(not potion.empty or config.removeOnUse) then

   return true

  end

  if(fromPosition.x ~= CONTAINER_POSITION) then

   doCreateItem(potion.empty, fromPosition)

  else

   doPlayerAddItem(cid, potion.empty, 1)

  end

  return true

end

if(hasCondition(cid, CONDITION_EXHAUST)) then

  doPlayerSendDefaultCancel(cid, RETURNVALUE_YOUAREEXHAUSTED)

  return true

end

if(((potion.level and getPlayerLevel(itemEx.uid) < potion.level) or (potion.vocations and not isInArray(potion.vocations, getPlayerVocation(itemEx.uid)))) and

  not getPlayerCustomFlagValue(cid, PLAYERCUSTOMFLAG_GAMEMASTERPRIVILEGES))

then

  doCreatureSay(itemEx.uid, "Only " .. potion.vocStr .. (potion.level and (" of level " .. potion.level) or "") .. " or above may drink this fluid.", TALKTYPE_ORANGE_1)

  return true

end

if(config.range > 0 and cid ~= itemEx.uid and getDistanceBetween(getThingPosition(cid), getThingPosition(itemEx.uid)) > config.range) then

  return false

end

local health = potion.health

if(health and not doCreatureAddHealth(itemEx.uid, math.ceil(math.random(health[1], health[2]) * config.multiplier.health))) then

  return false

end

local mana = potion.mana

if(mana and not doPlayerAddMana(itemEx.uid, math.ceil(math.random(mana[1], mana[2]) * config.multiplier.mana))) then

  return false

end

doSendMagicEffect(getThingPosition(itemEx.uid), CONST_ME_MAGIC_BLUE)

if(not config.realAnimation) then

  doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1)

else

  for i, tid in ipairs(getSpectators(getThingPosition(itemEx.uid), 1, 1)) do

   if(isPlayer(tid)) then

    doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1, false, tid)

   end

  end

end

doAddCondition(cid, exhaust)

doRemoveItem(item.uid, 1)

if(not potion.empty or config.removeOnUse) then

  return true

end

if(fromPosition.x ~= CONTAINER_POSITION) then

  doCreateItem(potion.empty, fromPosition)

else

  doPlayerAddItem(cid, potion.empty, 1)

end

return true

end

Pasta healing: http://www.4shared.com/rar/Tk7wGzHN/healing.html?

Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • baiakuda
      (Resolvido)[PEDIDO]Promotion por item
      Por baiakuda
      Olá.
       
      Tibia versão: 8.60
      Executavel: TFS 4.0
      Script: .lua
      Dou rep+ pra quem ajudar.
       
      Gostaria que o player compra-se a promotion por 2 itens ao invés de comprar por 20k.
      ID DOS ITENS: (2157) e (2328)
      Obs: o player precisa ter 100 de cada item.
       
      Script do NPC.lua Abaixo.
       
    • baiakuda
      (Resolvido)[Pedido] Fim vim
      Por baiakuda
      Boa noite.
       
      Estou com um erro, quando acaba a VIP o player não consegue logar.
       
      data/creaturescript/scripts/fimvip.lua:11: attempt to call field 'executeQuery' <a nil value>
       
      Obs: vendo vip pelo gesior e uso esse sistema vip\/
      http://www.tibiaking.com/forum/topic/20589-vip-system-by-mock-100/
       
      Fimvip.lua (abaixo):

      function onLogin(cid) local temple = { x = 160, y = 54, z = 7} if vip.hasVip(cid) == true then if getPlayerStorageValue(cid,55555) ~= 1 then setPlayerStorageValue(cid,55555,1) end else if getPlayerStorageValue(cid,55555) == 1 then doTeleportThing(cid, temple) doPlayerSendTextMessage(cid, 22, "Your VIP Time over!") db.executeQuery("UPDATE `accounts` SET `vip_time` = 0 WHERE `id` = ".. getAccountIdByName(getPlayerName(cid)) ..";") setPlayerPromotionLevel(cid, 1) setPlayerStorageValue(cid, 55555, 0) end end return true end
    • baiakuda
      (Resolvido)[URGENTE] Bug Tfs
      Por baiakuda
      Boa noite galera do TK.
       
      Estou com um erro no meu tfs (imagem abaixo) gostaria de saber o motivo desse erro e como arruma-lo.
      Obs: esse erro acontece com qualquer script que tenha a palavra "on" (exemplo: onTime, onUse, etc)
       
      ERRO.

       
      LINK DO TFS
      http://www.tibiaking.com/forum/topic/9350-86x-tfs-04-dev-rev3884/ CTFMax.lua
      --[[ Capture The Flag System Author: Fezao(FEZAO) Version: 2.0 Contact: [email protected] ]]     local CTF = CTF_LIB   local function sendEffect() if (getGlobalStorageValue(16505) > 0) then doSendAnimatedText(CTF.tppos, "CTF ON", math.random(180)) addEvent(sendEffect, 750) end end   function onTimer(interval) local time = os.date("*t")   if (isInArray(CTF.days, time.wday)) then doBroadcastMessage("[CTF] começou. Corram para o templo, em ".. CTF.timeclose .." minuto(s) não será mais possível entrar!") setGlobalStorageValue(16705, 1)   addEvent(CTF.start, CTF.timeclose * 60 * 1000)   local teelz = doCreateItem(1387, 1, CTF.tppos) doItemSetAttribute(teelz, "aid", 47521) sendEffect() end   return true end teleporteautomatico.lua
      local config = {         day = "Sunday",         pos = {x=151, y=56, z=7}, -- Posição aonde sera criado o teleport         topos = {x=284, y=516, z=5}, -- Posição pra onde o teleport ira levar o player         time = 5, -- tempo que o teleport ira sumir em minutos         msg_open = "Baiakuda Elemental Event iniciou. Corram para o templo pois o tp some daqui 5 min.", -- mensagem ao abrir o teleport         msg_close = "Baiakuda Elemental Event acabou." -- mensagem ao fechar o teleport }   local function DelTp()         local t = getTileItemById(config.pos, 1387)         if t then                 doRemoveItem(t.uid, 1)                 doSendMagicEffect(config.pos, CONST_ME_POFF)         end end   function onTimer()                 if (os.date("%A") == config.day) then                 doCreateTeleport(1387, config.topos, config.pos)                 doBroadcastMessage(config.msg_open)                 addEvent(DelTp, config.time*60*1000)                 addEvent(doBroadcastMessage, config.time*60*1000, config.msg_close)         end           return true end ontime.bmp
    • baiakuda
      (Resolvido)Erro no mapa [remeres]
      Por baiakuda
      Boa tarde,
       
       
      Gostaria de saber como faço para corrigir os erros abaixo:
      Obs: a posição onde apontam os erros de "spawn" é logo onde eu coloco o "respaw" para poder nascer os bixos.
       
      Erro que não faço ideia do que seja \/

       
      Erro dos SPAWNS \/

       
      LOCAL onde apontam os erros de SPAWN \/

       
       
    • baiakuda
      (Resolvido)[AJUDA]PK EM ENFORCED
      Por baiakuda
      Boa noite.
       
      Galera notei que quando coloco meu server em PVP ENFORCED o char não pega PK (WHITE SKULL).
       
      Gostaria de saber se tem algum jeito para fazer eles pegarem PK.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito