Resolvidos Latest Questions

[Resolvido] Usar um item em outro item

Sun, 26 Jan 2014 05:10:24 +0000

Bom gostaria de saber como posso fazer para verificar se eu usei o item X no item Y

Exemplo:

Se eu usar um Iron Hammer(2422) em uma Magic Plate Armor(2472) ele ira transformar a Magic Plate Armor em uma Demon Armor(2494)

[Resolvido] resetando timer quando morre ou desloga.

Sun, 16 Feb 2025 22:21:56 +0000

Boa noite,

Alguém com conhecimento poderia me ajudar neste script?
O script tem uma pequena "falha" quando o jogador morre ou desloga o tempo é resetado.

Nesse sistema a cada 1h online o jogador recebe 1ppoint. Unico problema vem sendo esse citado acima.

Não tenho conhecimento , mas acredito que possa ser o arquivo do globalevents, irei deixa-lo abaixo para caso alguem consiga me ajudar.

points/globalevents

Spoiler

--[[
P Points System by LsM.

###### © 2011

Version : v1.0

]]--

 

local config = {

p_time = 3600, -- Tempo em segundos para receber os pontos( 3600 = 1hora )

p_points = 1 -- Quantidade de pontos recebida a cada "p_time"

}

 

local function givePoints(cid, quant)

if os.time() - getCreatureStorage(cid, 1219) >= config.p_time then

doPlayerSendTextMessage(cid, 19, "Parabéns, você recebeu ".. config.p_points .." p-point. Agora você tem ".. config.p_points + getPoints(cid) .." p-points na sua conta. Seu tempo foi zerado, proximo p-points daqui 2 horas.")

doPlayerAddPoints(cid, quant)

doCreatureSetStorage(cid, 1219, 0)

doCreatureSetStorage(cid, 1219, os.time())

end

return true

end

 

function onThink(interval)

for i, v in pairs(getPlayersOnline()) do

givePoints(v, config.p_points)

end

return true

end

Caso alguém consiga me da uma força..

[Resolvido] função contagem de tempo

Fri, 21 Feb 2025 21:10:17 +0000

Boa noite!

Uso um sistema que a cada 1h online recebe 1 ponto, eu gostaria de adicionar na talkactions uma função que faz a contagem de tempo para recebe o proximo points.

Se alguem puder ajudar, obrigado!
8.60 / 0.4

points/talkactions

function onSay(cid, words, param, channel)
local getP = getPoints(cid)

doPlayerPopupFYI(cid, "Voce possui ".. getP .." p-points!")

return true

end

points/globalevents

--[[
P Points System by LsM.

###### © 2011

Version : v1.0

]]--

 

local config = {

p_time = 3600, -- Tempo em segundos para receber os pontos( 3600 = 1hora )

p_points = 1 -- Quantidade de pontos recebida a cada "p_time"

}

 

local function givePoints(cid, quant)

if os.time() - getCreatureStorage(cid, 1219) >= config.p_time then

doPlayerSendTextMessage(cid, 19, "Parabéns, você recebeu ".. config.p_points .." p-point. Agora você tem ".. config.p_points + getPoints(cid) .." p-points na sua conta. Seu tempo foi zerado, proximo p-points daqui 2 horas.")

doPlayerAddPoints(cid, quant)

doCreatureSetStorage(cid, 1219, 0)

doCreatureSetStorage(cid, 1219, os.time())

end

return true

end

 

function onThink(interval)

for i, v in pairs(getPlayersOnline()) do

givePoints(v, config.p_points)

end

return true

end

[Resolvido] Erro Autoloot

Sat, 11 Jan 2025 21:48:15 +0000

Boa tarde!

Alguém por acaso pode me ajudar caso tenha experiencia .. tenho um sistema de autoloot que coloquei no servidor e inicialmente parecia ta funcionando bem.. coletava os gold, vai direto para o banco e tals..
Fui testar a função de !autoloot golden legs, ao usar este comando buga tudo, e na distro aparece um erro enorme.
Servidor é 8.6 com a distro 0.4

Erro:

Spoiler

[18:24:38.624] [Error - TalkAction Interface]
[18:24:38.629] local cid = 268451737
[18:24:38.630] local words = "!autoloot"
[18:24:38.632] local param = "golden legs"
[18:24:38.634] local channel = 65534
[18:24:38.636] domodlib('Loot_func')
[18:24:38.638] local param, slots = param:lower(), isPremium(cid) and info.Max_Slots.premium or info.Max_Slots.free
[18:24:38.645] if not param or param == "" then
[18:24:38.648] ShowItemsTabble(cid) return true
[18:24:38.651] elseif tonumber(param) then
[18:24:38.653] doPlayerSendCancel(cid, "enter commands: !autoloot item name [+] !autoloot clean [+] !autoloot money [+] !autoloot on/off") return true
[18:24:38.663] elseif isInArray({"clean","limpar", "clear"}, param) then
[18:24:38.666] if existsAutoloot(cid) then doCleanAutoloot(cid) end
[18:24:38.671] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Auto Loot] Your list has been cleaned.") return true
[18:24:38.677] elseif isInArray({"start","stop","on","off"}, param) then
[18:24:38.680] setPlayerStorageValue(cid, info.Storages[1], getPlayerStorageValue(cid, info.Storages[1]) <= 0 and 1 or 0)
[18:24:38.687] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot "..(getPlayerStorageValue(cid, info.Storages[1]) > 0 and "Stopped" or "Started")..".") return true
[18:24:38.696] elseif isInArray({"warn","aviso"}, param) then
[18:24:38.699] setPlayerStorageValue(cid, info.Storages[3], getPlayerStorageValue(cid, info.Storages[3]) <= 0 and 1 or 0)
[18:24:38.707] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Backpack Warn "..(getPlayerStorageValue(cid, info.Storages[3]) > 0 and "disabled" or "Activated")..".") return true
[18:24:38.719] elseif isInArray({"mensagem","message","mensagen","msg"}, param) then
[18:24:38.724] setPlayerStorageValue(cid, info.Storages[6], getPlayerStorageValue(cid, info.Storages[6]) <= 0 and 1 or 0)
[18:24:38.730] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Message "..(getPlayerStorageValue(cid, info.Storages[6]) > 0 and "disabled" or "Activated")..".") return true
[18:24:38.738] elseif isInArray({"cor","color","type"}, param) then
[18:24:38.742] setPlayerStorageValue(cid, info.Storages[5], getPlayerColorLootMessage(cid) == #Color_Loot and 0 or getPlayerColorLootMessage(cid)+1)
[18:24:38.748] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Message Color Changed to "..Color_Loot[getPlayerColorLootMessage(cid)][2]..".") return true
[18:24:38.755] elseif isInArray({"money","gold","gps","dinheiro"}, param) then
[18:24:38.759] setPlayerStorageValue(cid, info.Storages[2], getPlayerStorageValue(cid, info.Storages[2]) <= 0 and 1 or 0)
[18:24:38.764] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Autoloot] Colteda de gold "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "disabled").." Para ativar o deposito direto no bank, ligue o !autoloot deposit.") return true
[18:24:38.776] elseif isInArray({"deposito","bank","gbank","deposit","autodeposit"}, param) then
[18:24:38.782] setPlayerStorageValue(cid, info.Storages[4], getPlayerStorageValue(cid, info.Storages[4]) <= 0 and 1 or 0)
[18:24:38.787] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Auto Loot] Automatic Gold Bank "..(getPlayerStorageValue(cid, info.Storages[4]) > 0 and "Activated" or "disabled")..".") return true
[18:24:38.795] end
[18:24:38.796] local item = ExistItemByName(tostring(param))

[18:24:38.800] if exhaustion.get(cid, 101) then
[18:24:38.802] doPlayerSendCancel(cid, 'Espere 10 seconds Para usar o comando novamente.')
[18:24:38.805] return false
[18:24:38.807] end
[18:24:38.808] exhaustion.set(cid, 101, 10)

[18:24:38.811] if not item then
[18:24:38.813] doPlayerSendCancel(cid, "This item does not exist.") return true
[18:24:38.816] end
[18:24:38.817] local item = getItemIdByName(tostring(param))
[18:24:38.820] local var = isInTable(cid, item)
[18:24:38.822] if isInArray(info.Money_ids, item) then
[18:24:38.824] doPlayerSendTextMessage(cid, MESSAGE_FIRST, "Enter !autoloot money to add money in your list!") return true
[18:24:38.830] elseif isInArray(info.BlockItemsList, item) then
[18:24:38.833] doPlayerSendCancel(cid, "You can not add this item in the list!") return true
[18:24:38.835] elseif not var and #getItensFromAutoloot(cid) >= slots then
[18:24:38.839] doPlayerSendCancel(cid, "max "..slots.." from auto loot") return true
[18:24:38.842] elseif getPlayerStorageValue(cid, info.Storages[7]) - os.time() > 0 then
[18:24:38.847] doPlayerSendCancel(cid, "wait a second to use this command again") return true
[18:24:38.850] end
[18:24:38.851] if not var then
[18:24:38.853] doAddItemFromAutoloot(cid, item)
[18:24:38.855] else
[18:24:38.856] doremoveItemFromAutoloot(cid, item)
[18:24:38.858] end
[18:24:38.860] setPlayerStorageValue(cid, info.Storages[7], os.time()+info.Talkaction_delay)
[18:24:38.864] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,not var and "you added the item "..param.." in the list" or "you removed the item "..param.." from the list, please wait 5 seconds to save the directory.")
[18:24:38.872] return true
[18:24:38.873] Description:
[18:24:38.875] [string "info = {..."]:60: attempt to index global 'newFile' (a nil value)

MOD DO AUTOLOOT:

Spoiler

info = {
   directory = "data/logs/autoloot",
   Warn_Bp_Slots = 5, -- quando tiver 5 ou menos slots na BP vai avisar o jogador
   Talkaction_delay = 5, -- em segundos // delay para remover e adicionar item
   BlockMonsters = {},
   BlockItemsList = {2123,2515},
   Money_ids = {2148, 2152, 2160}, -- id das moedas do ot
   Max_Slots = {free = 3, premium = 3},
   Storages = {988801, 988802, 988803, 988804, 988805, 988806, 988807}
}

Color_Loot = {
[0] = {MESSAGE_EVENT_ORANGE, "Orange"},
[1] = {MESSAGE_STATUS_CONSOLE_BLUE, "Blue"},
[2] = {MESSAGE_INFO_DESCR, "Green"},
[3] = {MESSAGE_STATUS_CONSOLE_RED, "Red"},
[4] = {MESSAGE_STATUS_SMALL, "White"}
}

function getPlayerColorLootMessage(cid)
   return getPlayerStorageValue(cid, info.Storages[5]) <= 0 and 0 or getPlayerStorageValue(cid, info.Storages[5])
end
function isInTable(cid, item)
   for _,i in pairs(getItensFromAutoloot(cid)) do
       if tonumber(i) == tonumber(item) then
           return true
       end
   end
   return false
end
function doremoveItemFromAutoloot(cid, itemid)
local file, fileContent = io.open(info.directory.."/"..getCreatureName(cid)..".txt", 'r'),{}
for line in file:lines() do
   if line ~= "" and tonumber(line) ~= tonumber(itemid) then
fileContent[#fileContent + 1] = line
   end
end
io.close(file)
file = io.open(info.directory.."/"..getCreatureName(cid)..".txt", 'w')
for index, value in ipairs(fileContent) do
file:write(value..'\n')
end
io.close(file)
end
function doAddItemFromAutoloot(cid, itemid)
if not existsAutoloot(cid) then
doCreateLootUserName(cid, itemid) return true
end
local file = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "a+")
file:write('\n'..itemid)
file:close()
end
function existsAutoloot(cid)
local f = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "rb")
if f then f:close() end
return f ~= nil
end
function doCreateLootUserName(cid, itemid)
newFile = io.open(info.directory.."/"..getCreatureName(cid)..".txt", "w+" )
newFile:write(itemid)
newFile:close()
end
function getItensFromAutoloot(cid)
if not existsAutoloot(cid) then return {} end
lines = {}
for line in io.lines(info.directory.."/"..getCreatureName(cid)..".txt") do
   if line ~= "" then
   lines[#lines + 1] = tonumber(line)
   end
end
return lines
end
function doCleanAutoloot(cid)
return os.remove(info.directory.."/"..getCreatureName(cid)..".txt")
end
function ShowItemsTabble(cid)
   local auto_list = getItensFromAutoloot(cid)
   local n,str = 0,"[+] Auto Loot Commands [+]\n\n!autoloot item name --> Para adicionar ou Remover item da lista.\n!autoloot money --> Para coletar Gold automaticamente.\n!autoloot clear --> Para Zerar sua lista.\n!autoloot on/off --> Para habilitar ou desativar a coleta de itens no sistema.\n!autoloot message --> Para ativar ou desativar a mensagem de coletar itens.\n!autoloot color --> Mudar cor da mensagem in Auto Loot Collect.\n!autoloot warn --> Para ativar ou desativar o aviso de mensagem de "..info.Warn_Bp_Slots.." ou menos slots na Backpack.\n!autoloot deposit --> Para habilitar ou desativar o depósito automático em dinheiro no banco.\n\n[+] Auto Loot Info [+]\n\nSystem: "..(getPlayerStorageValue(cid, info.Storages[1]) <= 0 and "Activated" or "Disabled")..".\nGold Collecting: "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "Disabled")..".\nMessage: "..(getPlayerStorageValue(cid, info.Storages[6]) <= 0 and "Activated" or "Disabled")..".\nColor Message: "..Color_Loot[getPlayerColorLootMessage(cid)][2]..".\nWarn Backpack: "..(getPlayerStorageValue(cid, info.Storages[3]) <= 0 and "Activated" or "Disabled")..".\nAutomatic Gold Deposit: "..(getPlayerStorageValue(cid, info.Storages[4]) > 0 and "Activated" or "Disabled")..".\nTotal Bank Balance: ["..getPlayerBalance(cid).."]\nMaximum Slots: ["..#auto_list.."/"..(isPremium(cid) and info.Max_Slots.premium or info.Max_Slots.free).."]\n\n[+] Auto Loot Slots [+]\n\n"
   if #auto_list > 0 then
       for i = 1, #auto_list do
           n = n + 1
           str = str.."Slot "..n.." - "..getItemNameById(auto_list[i]).."\n"
       end
   end
   return doPlayerPopupFYI(cid, str)
end
function getContainerItems(container, array, haveCap)
array = array or {}
haveCap = haveCap or false
if not isContainer(container.uid) or getContainerSize(container.uid) == 0 then
array[#array +1] = container
else
local size = getContainerSize(container.uid)
haveCap = (getContainerCap(container.uid) -size) > 0
for slot = 0, (size -1) do
local item = getContainerItem(container.uid, slot)
if item.itemid > 1 then
getContainerItems(item, array, haveCap)
end
end
end
return #array >= 1 and array, haveCap
end
function getContainerItemsById(container, itemid)
local founds = {}
local items = not container.uid and container or getContainerItems(container)
for index, item in pairs(items) do
if item.itemid == itemid then
founds[#founds +1] = item
end
end
return #founds >= 1 and founds
end
function AutomaticDeposit(cid, item, n)
   local deposit = item == tonumber(2160) and (n*10000) or tonumber(item) == 2152 and (n*100) or (n)
   return doPlayerDepositMoney(cid, deposit)
end
function getAllContainerFree(container) -- by vodka
   local containers,soma = {},0
   for i = 0, getContainerSize(container)-1 do
       local item = getContainerItem(container, i)
       if isContainer(item.uid) then
           table.insert(containers, item.uid)
       end
   end
   for _, check in pairs(containers) do
       soma = soma + getContainerSlotsFree(check)
   end
   return (soma + getContainerSlotsFree(container))
end
function getContainerSlotsFree(container) -- by vodka
return getContainerCap(container)-getContainerSize(container)
end
function doPlayerAddItemStackable(cid, itemid, count)
local container = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)
if container.itemid > 1 then
local items = getContainerItemsById(container, itemid)
if not items then
return doPlayerAddItem(cid, itemid, count)
else
local piles = #items
for index, item in pairs(items) do
if item.type < 100 then
local sum = item.type + count
local result = doTransformItem(item.uid, itemid, sum)
if sum <= 100 then
return result
else
return doPlayerAddItem(cid, itemid, sum - 100)
end
else
piles = piles - 1
if piles == 0 then
return doPlayerAddItem(cid, itemid, count)
end
end
end
end
end
return false
end
function corpseRetireItems(cid, pos)
   local check, slots = false, 0
   for i = 0, 255 do
       pos.stackpos = i
       if getThingFromPos(pos).uid > 0 and isContainer(getThingFromPos(pos).uid) then
           corpse = getThingFromPos(pos)
           check = true
           break
       end
   end
   if check == true then
       local str, id_list = "", getItensFromAutoloot(cid)
       for _, item in pairs(getContainerItems(corpse)) do
           local id = item.itemid
           if #id_list > 0 and isInArray(id_list, id) or getPlayerStorageValue(cid, info.Storages[2]) > 0 and isInArray(info.Money_ids, id) then
               local amount = isItemStackable(id) and item.type or 1
               local total_cap = getItemWeightById(id, amount)
               if getPlayerSlotItem(cid, 3).itemid ~= 0 then
                   slots = getAllContainerFree(getPlayerSlotItem(cid, 3).uid)
               end
               if slots > 0 and getPlayerFreeCap(cid) >= total_cap then
                   str = str.." " .. getItemInfoLoot(id, amount)
                   if isItemStackable(id) then
                       doPlayerAddItemStackable(cid, id, amount)
                       if isInArray(info.Money_ids, id) and getPlayerStorageValue(cid, info.Storages[4]) > 0 then
                           AutomaticDeposit(cid, id, amount)
                       end
                   else
                       doPlayerAddItem(cid, id)
                   end
                   doRemoveItem(item.uid)
               end
           end
       end
       if str ~= "" and getPlayerStorageValue(cid, info.Storages[6]) <= 0 then
           doPlayerSendTextMessage(cid, Color_Loot[getPlayerColorLootMessage(cid)][1],"[Auto Loot Collect]:"..string.sub(str, 1, -2)..".")
       end
       if getPlayerStorageValue(cid, info.Storages[3]) <= 0 and slots > 0 and slots <= info.Warn_Bp_Slots then
           doPlayerSendTextMessage(cid,18, "[Auto Loot Warn] You only have "..slots.." slots free in your backpack!")
       end
   end
end
function ExistItemByName(name) -- by vodka
local items = io.open("data/items/items.xml", "r"):read("*all")
local get = items:lower():match('name="' .. name:lower() ..'"')
if get == nil or get == "" then
return false
end
return true
end
function getItemInfoLoot(id, amount)
   local info = getItemInfo(id)
   return isItemStackable(id) and amount.." "..(amount > 1 and info.plural or info.name).."," or info.article.." " .. info.name ..","
end
]]>
domodlib('Loot_func')
function onLogin(cid)
   registerCreatureEvent(cid, "LootEventKIll")
   if isPremium(cid) and getPlayerStorageValue(cid, 853608) <= 0 then
       setPlayerStorageValue(cid, 853608, 1)
   elseif getPlayerStorageValue(cid, 853608) > 0 and not isPremium(cid) then
       doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Auto Loot] You premium is Over, Start a new list!")
       setPlayerStorageValue(cid, 853608, -1)
       doCleanAutoloot(cid)
   end
   return true
end]]>
domodlib('Loot_func')
function onKill(cid, target, lastHit)
   if isPlayer(cid) and getPlayerStorageValue(cid, info.Storages[1]) <= 0 and isMonster(target) and not isInArray(info.BlockMonsters, getCreatureName(target):lower()) then
       addEvent(corpseRetireItems, 0, cid ,getThingPos(target))
   end
   return true
end]]>
domodlib('Loot_func')
local param, slots = param:lower(), isPremium(cid) and info.Max_Slots.premium or info.Max_Slots.free
if not param or param == "" then
   ShowItemsTabble(cid) return true
elseif tonumber(param) then
   doPlayerSendCancel(cid, "enter commands: !autoloot item name [+] !autoloot clean [+] !autoloot money [+] !autoloot on/off") return true
elseif isInArray({"clean","limpar", "clear"}, param) then
   if existsAutoloot(cid) then doCleanAutoloot(cid) end
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Auto Loot] Your list has been cleaned.") return true
elseif isInArray({"start","stop","on","off"}, param) then
   setPlayerStorageValue(cid, info.Storages[1], getPlayerStorageValue(cid, info.Storages[1]) <= 0 and 1 or 0)
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot "..(getPlayerStorageValue(cid, info.Storages[1]) > 0 and "Stopped" or "Started")..".") return true
elseif isInArray({"warn","aviso"}, param) then
   setPlayerStorageValue(cid, info.Storages[3], getPlayerStorageValue(cid, info.Storages[3]) <= 0 and 1 or 0)
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Backpack Warn "..(getPlayerStorageValue(cid, info.Storages[3]) > 0 and "disabled" or "Activated")..".") return true
elseif isInArray({"mensagem","message","mensagen","msg"}, param) then
   setPlayerStorageValue(cid, info.Storages[6], getPlayerStorageValue(cid, info.Storages[6]) <= 0 and 1 or 0)
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Message "..(getPlayerStorageValue(cid, info.Storages[6]) > 0 and "disabled" or "Activated")..".") return true
elseif isInArray({"cor","color","type"}, param) then
   setPlayerStorageValue(cid, info.Storages[5], getPlayerColorLootMessage(cid) == #Color_Loot and 0 or getPlayerColorLootMessage(cid)+1)
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"Auto Loot Message Color Changed to "..Color_Loot[getPlayerColorLootMessage(cid)][2]..".") return true
elseif isInArray({"money","gold","gps","dinheiro"}, param) then
   setPlayerStorageValue(cid, info.Storages[2], getPlayerStorageValue(cid, info.Storages[2]) <= 0 and 1 or 0)
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Autoloot] Colteda de gold "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "disabled").." Para ativar o deposito direto no bank, ligue o !autoloot deposit.") return true
elseif isInArray({"deposito","bank","gbank","deposit","autodeposit"}, param) then
   setPlayerStorageValue(cid, info.Storages[4], getPlayerStorageValue(cid, info.Storages[4]) <= 0 and 1 or 0)
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Auto Loot] Automatic Gold Bank "..(getPlayerStorageValue(cid, info.Storages[4]) > 0 and "Activated" or "disabled")..".") return true
end
local item = ExistItemByName(tostring(param))

if exhaustion.get(cid, 101) then
       doPlayerSendCancel(cid, 'Espere 10 seconds Para usar o comando novamente.')
       return false
   end
   exhaustion.set(cid, 101, 10)

if not item then
   doPlayerSendCancel(cid, "This item does not exist.") return true
end
local item = getItemIdByName(tostring(param))
local var = isInTable(cid, item)
if isInArray(info.Money_ids, item) then
   doPlayerSendTextMessage(cid, MESSAGE_FIRST, "Enter !autoloot money to add money in your list!") return true
elseif isInArray(info.BlockItemsList, item) then
   doPlayerSendCancel(cid, "You can not add this item in the list!") return true
elseif not var and #getItensFromAutoloot(cid) >= slots then
   doPlayerSendCancel(cid, "max "..slots.." from auto loot") return true
elseif getPlayerStorageValue(cid, info.Storages[7]) - os.time() > 0 then
       doPlayerSendCancel(cid, "wait a second to use this command again") return true
end
if not var then
   doAddItemFromAutoloot(cid, item)
else
   doremoveItemFromAutoloot(cid, item)
end
setPlayerStorageValue(cid, info.Storages[7], os.time()+info.Talkaction_delay)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,not var and "you added the item "..param.." in the list" or "you removed the item "..param.." from the list, please wait 5 seconds to save the directory.")
return true]]>

[Resolvido] [AJUDA] Add moves pra pokemon

Mon, 25 Apr 2022 23:00:40 +0000

bom Dia/Boa Tarde/Boa noite a todos do forum

eu tenho uma base aki que e a poke naja verçao 4.4.0

e queria saber como que eu add novos atk pros pokes

pois nao estou conseguindo add novos atk vendo os videos de tutoriais pra add atk pros pokes

[Resolvido] Alguem poderia por exausted na lavanca desse script pra mim por favor??

Sun, 13 Feb 2022 21:24:09 +0000

Alguem poderia me ajudar adiocionando o exausted na lavanca, todos jogadores que puxarem a lavanca serao jogados para dentro da sala de quest, mesmo que ja tenha pessoas la dentro.

[Resolvido] QUICKLOOT STACK

Fri, 28 Jan 2022 01:52:19 +0000

Gente,

bom dia, boa tarde e boa noite.

Eu tô com um global 12.70 e eu queria fazer uma alteração, eis o seguinte:

o Quickloot funciona, mas, só pega o primeiro da stack, existe alguma possibilidade pra alterar pra pegar todos da stack?

a lógica seria trocar o lootcorpose pra lootground ou tile, mas, não entendo muito de scripting e não sei fazer isso.

[Resolvido] Sem a Função addPokeToPlayer

Sun, 07 Nov 2021 20:39:15 +0000

Opa gente, boa tarde, beleza?

Antes de tudo, TFS 1.2

Versão 10.98

Seguinte, tava aqui montando meu poketibia de boa, ai fui montar um scriptzinho básico de baú inicial para o player pegar o teu pokemon, porém, não tem a função addPokeToPlayer no meu servidor, cheguei a tentar adicionar ela porém dá muitos erros, e como não tenho conhecimento em TFS 1.2 fica meio dificil de mexer, gostaria de saber se algum de vocês poderia me ajudar com isso, vou estar deixando a função de addPokeToPlayer do PDA aqui para vocês...

function addPokeToPlayer.lua

O server que eu utilizo não possui o sistema de Gender(Gêneros), peço que desconsiderem essa parte.

Estou com dificuldade em converter dessa versão 0.3.6 para a TFS 1.2

[Resolvido] (RESOLVIDO)

Sun, 14 Nov 2021 19:04:58 +0000

Olá a todos do xtibia. gostaria de pedir um suporte em relação a meu servidor, eu estive testando algumas coisas esses dias e reparei que o systema de trade esta bugado! como estaria bugado?

bom. o problema é o seguinte eu fui fazer uma troca no game(trade)

é quando eu cliquei pra aceitar a troca apareceu essa mensagem no outro personagem

You can't carry more than six pokemons, trade cancelled

ah. mais eu não estava portando nemhum pokemon! para dar esse erro. então gostaria de pedir ajuda a vocês

não aparece nemhum erro na distro! então descartei a opção do erro ser em script!

caso alguem saiba como resolver esse problema. porfavor serei grato!

[Resolvido] Erro Site DBO

Sat, 27 Nov 2021 21:16:51 +0000

Preciso de ajuda com meu site de dbo, quando clico em (Shop dragonball) ele vai para outra pagina ao em vez da que deveria ser o shop.

Spoiler

[Resolvido] Personagem fica lento ao sair do surf, não da para andar.

Mon, 12 Oct 2020 22:16:56 +0000

Spoiler

local function doSendMagicEffecte(pos, effect)
addEvent(doSendMagicEffect, 9, pos, effect)
end

local waters = {11756, 4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825}

local flie = {'4820', '4821', '4822', '4823', '4824', '4825'}
--alterado v1.6 tabelas agora em configuration.lua!
local premium = false

function onStepIn(cid, item, position, fromPosition)

if not isPlayer(cid) or isInArray({0, 0}, getPlayerGroupId(cid)) then --alterado v1.9
return true
end
if getPlayerStorageValue(cid, 75846) >= 1 then return true end --alterado v1.9

if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV

if isPlayer(cid) and not isPremium(cid) and premium == true then
doTeleportThing(cid, fromPosition, false)
doPlayerSendCancel(cid, "Only premium members are allowed to surf.")
return true
end

if getCreatureOutfit(cid).lookType == 316 or getCreatureOutfit(cid).lookType == 648 then
doSendMagicEffect(fromPosition, 136)
end

if (getPlayerStorageValue(cid, 63215) >= 1 or getPlayerStorageValue(cid, 17000) >= 1) then
return true
end

if #getCreatureSummons(cid) == 0 then
doPlayerSendCancel(cid, "You need a pokemon to surf.")
doTeleportThing(cid, fromPosition, false)
return true
end
--alterado v1.6
if (not isInArray(specialabilities["surf"], getPokemonName(getCreatureSummons(cid)[1]))) then
doPlayerSendCancel(cid, "This pokemon cannot surf.")
doTeleportThing(cid, fromPosition, false)
return true
end

if getPlayerStorageValue(cid, 5700) == 1 then
doPlayerSendCancel(cid, "You can't do that while is mount in a bike!")
doTeleportThing(cid, fromPosition, false)
return true
end

if getPlayerStorageValue(cid, 212124) >= 1 then --alterado v1.6
doPlayerSendCancel(cid, "You can't do it with a pokemon with mind controlled!")
doTeleportThing(cid, fromPosition, false)
return true
end

if getPlayerStorageValue(cid, 52480) >= 1 then
doPlayerSendCancel(cid, "You can't do it while a duel!") --alterado v1.6
doTeleportThing(cid, fromPosition, false)
return true
end

if getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then
doPlayerSendCancel(cid, "You can't do it while in the PVP Zone!") --alterado v1.7
doTeleportThing(cid, fromPosition, false)
return true
end

--alterado v1.6
doSetCreatureOutfit(cid, {lookType = surfs[getPokemonName(getCreatureSummons(cid)[1])].lookType + 351}, -1)

local addonsurf = getPlayerSlotItem(cid, 8).uid
local addosurf = getItemAttribute(addonsurf,"addonsurf")
if not addosurf then
doSetItemAttribute(addonsurf,"addonsurf",0)
doSetCreatureOutfit(cid, {lookType = surfs[getPokemonName(getCreatureSummons(cid)[1])].lookType + 351}, -1)
end
if addosurf > 0 then
doSetCreatureOutfit(cid, {lookType = addosurf}, -1)

end

doCreatureSay(cid, ""..getPokeName(getCreatureSummons(cid)[1])..", lets surf!", 1)
doChangeSpeed(cid, -(getCreatureSpeed(cid)))

local speed = 75 + PlayerSpeed + getSpeed(getCreatureSummons(cid)[1]) * 8 * speedRate
setPlayerStorageValue(cid, 54844, speed)
doChangeSpeed(cid, speed)

local pct = getCreatureHealth(getCreatureSummons(cid)[1]) / getCreatureMaxHealth(getCreatureSummons(cid)[1])
doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "hp", pct)

doRemoveCreature(getCreatureSummons(cid)[1])

addEvent(setPlayerStorageValue, 100, cid, 63215, 1)

local item = getPlayerSlotItem(cid, ?
if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) <= 0 then
addEvent(sendAuraEffect, 120, cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v1.8
end

if useOTClient then
doPlayerSendCancel(cid, '12//,hide') --alterado v1.8
end

return true
end

local direffects = {9, 9, 9, 9}

function onStepOut(cid, item, position, fromPosition)

if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end

local checkpos = fromPosition
checkpos.stackpos = 0

if isInArray(waters, getTileInfo(checkpos).itemid) then
if getPlayerStorageValue(cid, 63215) >= 1 or getPlayerStorageValue(cid, 17000) >= 1 then
doSendMagicEffecte(fromPosition, direffects[getCreatureLookDir(cid) + 1])
end
end

if not isInArray(waters, getTileInfo(getThingPos(cid)).itemid) then

if getPlayerStorageValue(cid, 17000) >= 1 then return true end
if getPlayerStorageValue(cid, 63215) <= 0 then return true end

doRemoveCondition(cid, CONDITION_OUTFIT)
setPlayerStorageValue(cid, 63215, -1)

       local item = getPlayerSlotItem(cid, ?
       local pokemon = getItemAttribute(item.uid, "poke")
       local x = pokes[pokemon]

if not x then return true end

       if getItemAttribute(item.uid, "nick") then
           doCreatureSay(cid, getItemAttribute(item.uid, "nick")..", I'm tired of surfing!", 1)
       else
           doCreatureSay(cid, getItemAttribute(item.uid, "poke")..", I'm tired of surfing!", 1)
       end

doSummonMonster(cid, pokemon)
local pk = getCreatureSummons(cid)[1]
local balla = getPlayerSlotItem(cid, 8).uid
local balladdon = getItemAttribute(balla,"addon")
if not balladdon then
doSetItemAttribute(balla,"addon",0)

end
if balladdon > 0 then
doSetCreatureOutfit(pk, {lookType = balladdon}, -1)

end
local pk = getCreatureSummons(cid)[1]
local balla = getPlayerSlotItem(cid, 8).uid
local balladdon = getItemAttribute(balla,"addon")
if not balladdon then
doSetItemAttribute(balla,"addon",0)

end
if balladdon > 0 then
doSetCreatureOutfit(pk, {lookType = balladdon}, -1)

end

local pk = getCreatureSummons(cid)[1]

       if not isCreature(pk) then
           pk = doCreateMonster(pokemon, backupPos)
           if not isCreature(pk) then
               doPlayerSendCancel(cid, "You can't stop surfing here.")
               doTeleportThing(cid, fromPosition, false)
           return true
           end
           doConvinceCreature(cid, pk)
       end

       doChangeSpeed(pk, getCreatureSpeed(cid))
       doChangeSpeed(cid, -getCreatureSpeed(cid))
       doRegainSpeed(cid) --alterado v1.6

       doTeleportThing(pk, fromPosition, false)
       doTeleportThing(pk, getThingPos(cid), true)
       doCreatureSetLookDir(pk, getCreatureLookDir(cid))

adjustStatus(pk, item.uid, true, false, true)

if useOTClient then
   doPlayerSendCancel(cid, '12//,show') --alterado v1.8
end

   end

return true
end

[Resolvido] [Encerrado] ajuda em trocar sprites

Thu, 28 Nov 2019 05:28:05 +0000

ola boa noite eu gostaria de ver se voce pode me ajudar eu quero passar alguns sprites de alguns pokemones para outro servidor mas nao sei como fazer isso voce pode me ajudar por favor.

Compilar TFS 0.3.6/0.4/1.0/1.1 em Visual Studio

Thu, 16 Jul 2015 04:52:56 +0000

Galera, eu quero muito saber se tem como compilar TFS 0.3.6/0.4/1.0/1.1 usando o Microsoft Visual Studio 2013.

Por favor gente, me respondam. Se houver, me ensinem como!

[Resolvido] Ajuda modificar esse script

Mon, 05 Jul 2021 20:13:00 +0000

Gostaria de modificar esse script para o tfs.12

[Resolvido] Mudar Itens iniciais Base Psoul

Thu, 25 Mar 2021 23:43:22 +0000

Alguem Sabe onde posso ta editando esses items iniciais na base Psoul (PokeAimar) que se encontra aqui no forum...
Queria editar o item "Pokes' e a Bag Inicial de quando cria o char...
obg

Link da base

[Resolvido] Poup Up

Sat, 12 Jun 2021 01:26:35 +0000

Ola tenho um script de menssagem, creaturescirpt de login, mas preciso que ela aparece depois que o player estivesse logado 3 segundos! se alguem poder me ajudar ficaria grato obrigado!

[Resolvido] Site hospedado na vps não funciona fora dela.

Mon, 08 Mar 2021 21:37:31 +0000

Olá, gostaria de uma ajuda em um problema que estou enfrentando. Eu fiz as edições do meu servidor e tudo ok.
Ontem adquiri uma vps barata, só para testar mesmo. Eu acessei ela, instalei todos os recursos para rodar meu server. Ele até fica online e eu consigo entrar no game pelo meu pc.
Na vps o Site funciona normalmente com o ip. Mas no meu pc não está conectando de forma alguma, só mostra "Não é possível acessar esse site" tanto usando o ip direto quanto o subdominio.
Alguém sabe oque pode estar acontecendo?

Meu site é gesior 2012.

Ja resolvi clã, era so as portas que faltava abrir. Usei o xampp checkport e abri todas que precisava, dai funcionou

[Resolvido] [AJUDA] Problema para alinhar templates no website

Thu, 01 Oct 2020 17:27:47 +0000

Estou com problema para alinhar um novo template no meu website, segue a script : (Top Torneio)

Spoiler

{$title}

Inicio

Criar Conta

Baixar Launcher

                       Server Status:
                       {foreach from=$worlds key=id item=world}
                       {$world}
                       {if $serverOnline[$id]}
Online
                                       Uptime: {$serverUptime[$id]}
                                       Treinadores Online: {$serverPlayers[$id]}/{$serverMax[$id]}
                                   {else}
                                       Offline
                                   {/if}
                                                                   {/foreach}

Facebook

Discord

Grupo

Conta

{if $logged == 1}

Shop

Histórico
Gerenciar Conta

Criar Personagem

Sair

{else}

Criar Conta

Recuperar Conta

{/if}

Informacoes

Aprenda a Jogar

Download Game

Mapa

Casas

Guilds

Ranking

Ultimas Mortes

Procurar

Regras

Parceiros

Forum

Donate

VIP Shop

Procurar Player

Top Level

{include_php file="templates/new/topplayer.php"}

Bem vindo ao mundo {$title}

{$main}

Procuramos trazer um servidor de qualidade e diversao xD

Imagem de como fica:

https://ibb.co/Fgsw5f8

Como eu quero? Quero ele embaixo do "Procurar Player" REP++

[Resolvido] [AJUDA] COM MAP DO Poke Roxy

Wed, 09 Dec 2020 13:45:44 +0000

nao sei se aqui e o lugar certo mais vamos la.

quanto tento abrir o map do Roxy ele vem todo bugado ja fiz de botar os items na pasta do remeres ja peguei o tibia.dat e de mais

quando tento abrir fica assim

porfavo me ajuda ai

[Resolvido] Ajuda com Mensagem

Fri, 08 Jan 2021 23:24:05 +0000

Boa noite a Todos estou com o seguinte erro como na imagem

eu queria que essa mensagem Voce gastou 1 ultraball para capturar esse pokemon ficasse abaixo do voce capturou um pokemon.

o erro e que essa mensagem aparece antes do efeito da ball termina assim tira a emoção.

[Resolvido] ERRO na compilaçao

Mon, 05 Oct 2020 20:50:07 +0000

Alguem me ajuda com esse erro?

[Resolvido] (erro) criature.lua console

Mon, 04 Jan 2021 20:44:06 +0000

Boa tarde, estou precisando de ajuda sobre esse erro no console, se alguém puder me ajudar ;s

o erro do console sempre acontece quando apanho de alguma criatura.

[Resolvido] Help Bug Otclient ao soltar effect distance [SEM RESPOSTA] Podem fechar

Fri, 01 Jan 2021 23:14:17 +0000

Olá a todos do xtibia gostaria da ajuda de alguem pra solucionar meu probleminha, estou editando um servidor de dragonball com src etc. So que tem um pequeno bug visual no meu otclient, quando eu solto um atk com effect distance fica esse bug agradeço desde já ?❤

PODEM FECHAR O TOPICO NÃO TEVE NEMHUMA RESPOSTA QUE PUDESE CORRIGIR O

PROBLEMA ENTÃO EU RESOLVI DEIXAR OS

EFFECTS EM UNIT8 PARA RESOLVER O PROBLEMA!

OBRIGADO POR TENTAREM AJUDAR ❤️

[Resolvido] erro Pokemons que eu adicionei se multiplicando e não saindo da Pokeball

Sun, 01 Nov 2020 20:22:50 +0000

depois que adicionei alguns pokemons no meu poketibia, toda vez que eu tento lançar pra fora da pokebola ele ao invés de sair normal ele se multiplica toda vez que eu aperto na ball...

[Resolvido] Splash na frente da porta

Sat, 31 Oct 2020 13:10:03 +0000

Opa gente, boa tarde, noite ou dia.

Então, eu estava editando meu mapa quando eu tentei colocar um splash na frente da porta e n consegui, só consigo colocar em cima da porta, alguem sabe me ajudar nisso? ... ta ai as imagens como demonstração ... alguém poderia me ajudar?