Jump to content
Close
  • Topics

  • Posts

    • --[[     Auto Loot System by Danyel Varejão ]] AutoLoot = {     Min_Level = 100, -- Level minimo pra utilizar o auto loot.     Max_Slots = 5, -- Máximo de slots permitidos.     Boost_Actived = true,          -- Nao mexa daqui pra baixo caso nao entenda --     Storage_Boost = 45000,     Storage_On_Items = 45001,     Storage_On_Gold = 45002,     Storages = {         Count_Gold = 45003,         Count_Items = 45004,         Count_Table = 45005,         Slots = {45006, 45007, 45008, 45009, 45010} -- Storage pra cada slot.     } } AutoLoot_Boost = {     -- [ID do item] = Valor,     [2406] = 36,      [2537] = 4800,      [2377] = 480,      [2663] = 600,      [2472] = 240000,      [2398] = 36,      [2475] = 7200,      [2519] = 6000,      [2497] = 10800,      [2523] = 180000,      [2494] = 108000,      [2400] = 144000,      [2491] = 6000,      [2421] = 108000,      [2646] = 240000,      [2477] = 7200,      [2413] = 84,      [2656] = 18000,      [2498] = 48000,      [2647] = 600,      [2534] = 30000,      [7402] = 24000,      [2466] = 36000,      [2465] = 240,      [2408] = 120000,      [2518] = 1800,      [2500] = 3000,      [2376] = 30,      [2470] = 96000,      [2388] = 24,      [2645] = 48000,      [2434] = 2400,      [2463] = 480,      [2536] = 9600,      [2387] = 240,      [2396] = 4800,      [2381] = 240,      [2528] = 4800,      [2409] = 1800,      [2414] = 12000,      [2427] = 9000,      [2407] = 7200,      [2458] = 42,      [2383] = 960,      [2392] = 3600,      [2488] = 18000,      [2525] = 120,      [2423] = 240,      [2462] = 4800,      [2520] = 48000,      [2390] = 180000,      [2417] = 72,      [2436] = 1200,      [5741] = 42000,      [2378] = 120,      [2487] = 24000,      [2476] = 6000,     [8891] = 36000,      [2459] = 36,      [2195] = 48000,      [2391] = 7200,      [2464] = 120,      [8889] = 72000,      [2432] = 12000,      [2431] = 108000,      [2492] = 72000,      [2515] = 240,      [2430] = 2400,      [2393] = 12000,      [7419] = 36000,      [2522] = 120000,      [2514] = 180000 } function AutoLoot.CountTable(table)     local Count = 0     if type(table) == "table" then         for index in pairs(table) do             Count = Count + 1         end         return Count     end     return false end function AutoLoot.getContainerItemsInfo(ContainerUID)     local Table = {}     if ContainerUID and ContainerUID > 0 then         local Index = 0            for i = 0, getContainerSize(ContainerUID) - 1 do             local item = getContainerItem(ContainerUID, i)             Index = Index + 1             Table[Index] = {UID = item.uid, ItemID = item.itemid, Count = item.type}         end         return Table     end     return false end function AutoLoot.String(String)     local Table = {}     local x, old, last = 0, 0, 0     local first, second, final = 0, 0, 0     if type(String) ~= "string" then         return Table     end     for i = 2, #String - 1 do         if string.byte(String:sub(i,i)) == string.byte(':') then             x, second, last = x + 1, i - 1, i + 2             for t = last, #String - 1 do                 if string.byte(String:sub(t,t)) == string.byte(',') then                     first = x == 1 and 2 or old                     old, final = t + 2, t - 1                     local Index = String:sub(first, second)                     local Var = String:sub(last, final)                     Table[tonumber(Index) or tostring(Index)] = tonumber(Var) or tostring(Var)                     break                 end             end         end     end     return Table end function AutoLoot.TranslateString(Table)     local String = ""     if type(Table) ~= "table" then         return String     end     for i, last in pairs(Table) do         String = String..i..": ".. last ..", "     end     String = "a"..String.."a"     return tostring(String) end function AutoLoot.getPlayerStorageZero(cid, key)     return getPlayerStorageValue(cid, key) > 0 and getPlayerStorageValue(cid, key) or 0 end function AutoLoot.getStorageZero(key)     return getGlobalStorageValue(key) > 0 and getGlobalStorageValue(key) or 0 end function AutoLoot.setPlayerTableStorage(cid, key, value)     return doPlayerSetStorageValue(cid, key, AutoLoot.TranslateString(value)) end function AutoLoot.setGlobalTableStorage(key, value)     return setGlobalStorageValue(key, AutoLoot.TranslateString(value)) end function AutoLoot.getPlayerTableStorage(cid, key)     return AutoLoot.String(getPlayerStorageValue(cid, key)) end function AutoLoot.getGlobalTableStorage(key)     return AutoLoot.String(getGlobalStorageValue(key)) end function AutoLoot.getPlayerList(cid)     local Table = {}     for i = 1, #AutoLoot.Storages.Slots do         if getPlayerStorageValue(cid, AutoLoot.Storages.Slots) ~= -1 then             table.insert(Table, getPlayerStorageValue(cid, AutoLoot.Storages.Slots))         end     end     return Table end function AutoLoot.ExistItemByName(name)     local Items = io.open("data/items/items.xml", "r"):read("*all")     local GetITEM = Items:match('name="' .. name ..'"')     if GetITEM == nil or GetITEM == "" then         return false     end     return true end function AutoLoot.addToList(cid, name)     local ItemID = getItemIdByName(name)     if AutoLoot.getPlayerList(cid) and isInArray(AutoLoot.getPlayerList(cid), ItemID) then         return false     end     for i = 1, #AutoLoot.Storages.Slots do         if getPlayerStorageValue(cid, AutoLoot.Storages.Slots) == -1 then             doPlayerSetStorageValue(cid, AutoLoot.Storages.Slots, ItemID)             return true         end     end end function AutoLoot.removeFromList(cid, name)     local ItemID = getItemIdByName(name)     for i = 1, #AutoLoot.Storages.Slots do         if getPlayerStorageValue(cid, AutoLoot.Storages.Slots) == ItemID then             doPlayerSetStorageValue(cid, AutoLoot.Storages.Slots, -1)             return true         end     end     return false end function AutoLoot.Boost(cid)     return tonumber(getPlayerStorageValue(cid, AutoLoot.Storage_Boost)) >= os.time() end function AutoLoot.Items(cid, position)     if not isPlayer(cid) then          return true     end     local Check, String, Position = false, "", {}     for i = 1, 255 do         position.stackpos = i         if getThingFromPos(position).uid and getThingFromPos(position).uid > 0 and isContainer(getThingFromPos(position).uid) then             Position = position             Check = true             break         end     end     if Check then         local CorpseUID = AutoLoot.getContainerItemsInfo(getThingFromPos(Position).uid)                 if CorpseUID then             for Index, Item in pairs(CorpseUID) do                 if Index < AutoLoot.CountTable(CorpseUID) then                     if Item.UID and Item.ItemID then                         if isContainer(Item.UID) then                             local Bag = AutoLoot.getContainerItemsInfo(Item.UID)                             for i = 1, AutoLoot.CountTable(Bag) do                                 if isInArray(AutoLoot.getPlayerList(cid), Bag.ItemID) then                                     if Bag.Count > 1 then                                         doRemoveItem(Bag.uid, Bag.Count)                                         doPlayerAddItem(cid, Bag.ItemID, Bag.Count)                                         String = String.." ".. Bag.Count .." ".. getItemNameById(Bag.ItemID) .." +"                                     else                                         doRemoveItem(Bag.uid)                                         if AutoLoot.Boost_Actived and AutoLoot.Boost(cid) then                                             if AutoLoot_Boost[Bag.ItemID] then                                                 doPlayerSetBalance(cid, getPlayerBalance(cid) + AutoLoot_Boost[Bag.ItemID])                                                 String = String.." 1 ".. getItemNameById(Bag.ItemID) .." (".. AutoLoot_Boost[Bag.ItemID] .."gp no banco) +"                                             else                                                 doPlayerAddItem(cid, Bag.ItemID, 1)                                                 String = String.." 1 ".. getItemNameById(Bag.ItemID) .." +"                                             end                                         else                                             doPlayerAddItem(cid, Bag.ItemID, 1)                                             String = String.." 1 ".. getItemNameById(Bag.ItemID) .." +"                                         end                                     end                                 end                             end                         end                     end                 end                 if isInArray(AutoLoot.getPlayerList(cid), Item.ItemID) then                     if Item.Count > 1 then                         doRemoveItem(Item.UID, Item.Count)                         doPlayerAddItem(cid, Item.ItemID, Item.Count)                         String = String.." ".. Item.Count .." ".. getItemNameById(Item.ItemID) .." +"                     else                         doRemoveItem(Item.UID)                         if AutoLoot.Boost_Actived and AutoLoot.Boost(cid) then                             if AutoLoot_Boost[Item.ItemID] then                                 doPlayerSetBalance(cid,getPlayerBalance(cid) + AutoLoot_Boost[Item.ItemID])                                 String = String.." 1 "..getItemNameById(Item.ItemID).." ("..AutoLoot_Boost[Item.ItemID].."gps no banco) +"                             else                                 doPlayerAddItem(cid, Item.ItemID, 1)                                 String = String.." 1 "..getItemNameById(Item.ItemID).." +"                             end                         else                             doPlayerAddItem(cid, Item.ItemID, 1)                             String = String.." 1 "..getItemNameById(Item.ItemID).." +"                         end                     end                 end             end         end     end     AutoLoot.setPlayerTableStorage(cid, AutoLoot.Storages.Count_Table, {[1] = String, [2] = 0}) end function AutoLoot.Gold(cid, position)     if not isPlayer(cid) then          return true      end     local Check = false     local Total_Gold = 0     local Position = {}     for i = 1, 255 do         position.stackpos = i         if getThingFromPos(position).uid and getThingFromPos(position).uid > 0 and isContainer(getThingFromPos(position).uid) then             Position = position             Check = true             break         end     end     if Check then         local CorpseUID = AutoLoot.getContainerItemsInfo(getThingFromPos(Position).uid)         if CorpseUID then             for Index, Item in pairs(CorpseUID) do                 if Item.UID and Item.ItemID then                     if Index < AutoLoot.CountTable(CorpseUID) then                         if isContainer(Item.UID) then                             local Bag = AutoLoot.getContainerItemsInfo(Item.UID)                             for i = 1, AutoLoot.CountTable(Bag) do                                 if isInArray({2148, 2152, 2160}, Bag.ItemID) then                                     local Multiplier = 1                                     if Bag.ItemID == 2148 then                                         Multiplier = 1                                     elseif Bag.ItemID == 2152 then                                         Multiplier = 100                                     elseif Bag.ItemID == 2160 then                                         Multiplier = 10000                                     end                                     doRemoveItem(Bag.uid, Bag.Count)                                     doPlayerSetBalance(cid, getPlayerBalance(cid) + tonumber(Bag.Count) * Multiplier)                                     Total_Gold = Total_Gold + Bag.Count * Multiplier                                     doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Gold, tonumber(AutoLoot.getPlayerStorageZero(cid, AutoLoot.Storages.Count_Gold)) + tonumber(Item.Count) * tonumber(Multiplier))                                 end                             end                         end                     end                     if isInArray({2148, 2152, 2160}, Item.ItemID) then                         local Multiplier = 1                         if Item.ItemID == 2148 then                             Multiplier = 1                         elseif Item.ItemID == 2152 then                             Multiplier = 100                         elseif Item.ItemID == 2160 then                             Multiplier = 10000                         end                         doRemoveItem(Item.UID, Item.Count)                         doPlayerSetBalance(cid, getPlayerBalance(cid) + Item.Count * Multiplier)                         doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Gold, tonumber(AutoLoot.getPlayerStorageZero(cid, AutoLoot.Storages.Count_Gold)) + tonumber(Item.Count) * tonumber(Multiplier))                         Total_Gold = Total_Gold + Item.Count * Multiplier                     end                 end             end         end     end     if Total_Gold > 0 then         Total_Gold = Total_Gold - (Total_Gold * 0.2)          Total_Gold = math.ceil(Total_Gold)         doPlayerSetBalance(cid, getPlayerBalance(cid) + Total_Gold)         local Table = AutoLoot.getPlayerTableStorage(cid, AutoLoot.Storages.Count_Table)         Table[2] = Total_Gold         AutoLoot.setPlayerTableStorage(cid, AutoLoot.Storages.Count_Table, Table)     end end function AutoLoot.Message(cid)     if not isPlayer(cid) then          return true     end     local Table = AutoLoot.getPlayerTableStorage(cid, AutoLoot.Storages.Count_Table)     if AutoLoot.CountTable(Table) >= 1 then         if Table[1] then             if Table[2] and Table[2] > 0 then                 doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: ".. Table[1] .." ".. Table[2] .." gold coins.")             else                 if type(Table[1]) == "string" and string.len(Table[1]) > 1 then                     doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: "..Table[1])                 end             end         elseif not Table[1] then             if Table[2] then                 doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: "..Table[2].." gold coins.")             end         end     end     doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Table, -1) end sou o mesmo membro show time so que tinha perdido esse longin aqui por favor me ajuda ai ja tentei de tudo e nao consigo arumar isso    
    • posta o script, está em actions.
    • Este tópico foi movido para a área correta. Esta é uma mensagem automática! Pedimos que leia as regras do fórum!  
    • Olá, sou jogador de um baiak chamado baiak ziron, e no ot existem varios e varios players que estao bugando o reset, o ot é assim: do Primeiro reset (1) ao 31 o char pode resetar level 60k, do 31 ao 41 70k, 41 ao ~ 80k mas existem varios jogadores que bugam e resetam varias vezes, gostaria de saber se alguém tem ideia de como se buga isso   Você tem o código disponível? Se tiver publique-o aqui:      Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui.   
    • TFS 0.4 TIBIA 8.6   você tenta jogar o item {VIP} é aparece essa mensagem   alguém pra tentar criar esse sistema ???   obg:se estiver na área errada só mover obrigado ! ! !

All Activity

This stream auto-updates     

  1. Today
  2. --[[ Auto Loot System by Danyel Varejão ]] AutoLoot = { Min_Level = 100, -- Level minimo pra utilizar o auto loot. Max_Slots = 5, -- Máximo de slots permitidos. Boost_Actived = true, -- Nao mexa daqui pra baixo caso nao entenda -- Storage_Boost = 45000, Storage_On_Items = 45001, Storage_On_Gold = 45002, Storages = { Count_Gold = 45003, Count_Items = 45004, Count_Table = 45005, Slots = {45006, 45007, 45008, 45009, 45010} -- Storage pra cada slot. } } AutoLoot_Boost = { -- [ID do item] = Valor, [2406] = 36, [2537] = 4800, [2377] = 480, [2663] = 600, [2472] = 240000, [2398] = 36, [2475] = 7200, [2519] = 6000, [2497] = 10800, [2523] = 180000, [2494] = 108000, [2400] = 144000, [2491] = 6000, [2421] = 108000, [2646] = 240000, [2477] = 7200, [2413] = 84, [2656] = 18000, [2498] = 48000, [2647] = 600, [2534] = 30000, [7402] = 24000, [2466] = 36000, [2465] = 240, [2408] = 120000, [2518] = 1800, [2500] = 3000, [2376] = 30, [2470] = 96000, [2388] = 24, [2645] = 48000, [2434] = 2400, [2463] = 480, [2536] = 9600, [2387] = 240, [2396] = 4800, [2381] = 240, [2528] = 4800, [2409] = 1800, [2414] = 12000, [2427] = 9000, [2407] = 7200, [2458] = 42, [2383] = 960, [2392] = 3600, [2488] = 18000, [2525] = 120, [2423] = 240, [2462] = 4800, [2520] = 48000, [2390] = 180000, [2417] = 72, [2436] = 1200, [5741] = 42000, [2378] = 120, [2487] = 24000, [2476] = 6000, [8891] = 36000, [2459] = 36, [2195] = 48000, [2391] = 7200, [2464] = 120, [8889] = 72000, [2432] = 12000, [2431] = 108000, [2492] = 72000, [2515] = 240, [2430] = 2400, [2393] = 12000, [7419] = 36000, [2522] = 120000, [2514] = 180000 } function AutoLoot.CountTable(table) local Count = 0 if type(table) == "table" then for index in pairs(table) do Count = Count + 1 end return Count end return false end function AutoLoot.getContainerItemsInfo(ContainerUID) local Table = {} if ContainerUID and ContainerUID > 0 then local Index = 0 for i = 0, getContainerSize(ContainerUID) - 1 do local item = getContainerItem(ContainerUID, i) Index = Index + 1 Table[Index] = {UID = item.uid, ItemID = item.itemid, Count = item.type} end return Table end return false end function AutoLoot.String(String) local Table = {} local x, old, last = 0, 0, 0 local first, second, final = 0, 0, 0 if type(String) ~= "string" then return Table end for i = 2, #String - 1 do if string.byte(String:sub(i,i)) == string.byte(':') then x, second, last = x + 1, i - 1, i + 2 for t = last, #String - 1 do if string.byte(String:sub(t,t)) == string.byte(',') then first = x == 1 and 2 or old old, final = t + 2, t - 1 local Index = String:sub(first, second) local Var = String:sub(last, final) Table[tonumber(Index) or tostring(Index)] = tonumber(Var) or tostring(Var) break end end end end return Table end function AutoLoot.TranslateString(Table) local String = "" if type(Table) ~= "table" then return String end for i, last in pairs(Table) do String = String..i..": ".. last ..", " end String = "a"..String.."a" return tostring(String) end function AutoLoot.getPlayerStorageZero(cid, key) return getPlayerStorageValue(cid, key) > 0 and getPlayerStorageValue(cid, key) or 0 end function AutoLoot.getStorageZero(key) return getGlobalStorageValue(key) > 0 and getGlobalStorageValue(key) or 0 end function AutoLoot.setPlayerTableStorage(cid, key, value) return doPlayerSetStorageValue(cid, key, AutoLoot.TranslateString(value)) end function AutoLoot.setGlobalTableStorage(key, value) return setGlobalStorageValue(key, AutoLoot.TranslateString(value)) end function AutoLoot.getPlayerTableStorage(cid, key) return AutoLoot.String(getPlayerStorageValue(cid, key)) end function AutoLoot.getGlobalTableStorage(key) return AutoLoot.String(getGlobalStorageValue(key)) end function AutoLoot.getPlayerList(cid) local Table = {} for i = 1, #AutoLoot.Storages.Slots do if getPlayerStorageValue(cid, AutoLoot.Storages.Slots) ~= -1 then table.insert(Table, getPlayerStorageValue(cid, AutoLoot.Storages.Slots)) end end return Table end function AutoLoot.ExistItemByName(name) local Items = io.open("data/items/items.xml", "r"):read("*all") local GetITEM = Items:match('name="' .. name ..'"') if GetITEM == nil or GetITEM == "" then return false end return true end function AutoLoot.addToList(cid, name) local ItemID = getItemIdByName(name) if AutoLoot.getPlayerList(cid) and isInArray(AutoLoot.getPlayerList(cid), ItemID) then return false end for i = 1, #AutoLoot.Storages.Slots do if getPlayerStorageValue(cid, AutoLoot.Storages.Slots) == -1 then doPlayerSetStorageValue(cid, AutoLoot.Storages.Slots, ItemID) return true end end end function AutoLoot.removeFromList(cid, name) local ItemID = getItemIdByName(name) for i = 1, #AutoLoot.Storages.Slots do if getPlayerStorageValue(cid, AutoLoot.Storages.Slots) == ItemID then doPlayerSetStorageValue(cid, AutoLoot.Storages.Slots, -1) return true end end return false end function AutoLoot.Boost(cid) return tonumber(getPlayerStorageValue(cid, AutoLoot.Storage_Boost)) >= os.time() end function AutoLoot.Items(cid, position) if not isPlayer(cid) then return true end local Check, String, Position = false, "", {} for i = 1, 255 do position.stackpos = i if getThingFromPos(position).uid and getThingFromPos(position).uid > 0 and isContainer(getThingFromPos(position).uid) then Position = position Check = true break end end if Check then local CorpseUID = AutoLoot.getContainerItemsInfo(getThingFromPos(Position).uid) if CorpseUID then for Index, Item in pairs(CorpseUID) do if Index < AutoLoot.CountTable(CorpseUID) then if Item.UID and Item.ItemID then if isContainer(Item.UID) then local Bag = AutoLoot.getContainerItemsInfo(Item.UID) for i = 1, AutoLoot.CountTable(Bag) do if isInArray(AutoLoot.getPlayerList(cid), Bag.ItemID) then if Bag.Count > 1 then doRemoveItem(Bag.uid, Bag.Count) doPlayerAddItem(cid, Bag.ItemID, Bag.Count) String = String.." ".. Bag.Count .." ".. getItemNameById(Bag.ItemID) .." +" else doRemoveItem(Bag.uid) if AutoLoot.Boost_Actived and AutoLoot.Boost(cid) then if AutoLoot_Boost[Bag.ItemID] then doPlayerSetBalance(cid, getPlayerBalance(cid) + AutoLoot_Boost[Bag.ItemID]) String = String.." 1 ".. getItemNameById(Bag.ItemID) .." (".. AutoLoot_Boost[Bag.ItemID] .."gp no banco) +" else doPlayerAddItem(cid, Bag.ItemID, 1) String = String.." 1 ".. getItemNameById(Bag.ItemID) .." +" end else doPlayerAddItem(cid, Bag.ItemID, 1) String = String.." 1 ".. getItemNameById(Bag.ItemID) .." +" end end end end end end end if isInArray(AutoLoot.getPlayerList(cid), Item.ItemID) then if Item.Count > 1 then doRemoveItem(Item.UID, Item.Count) doPlayerAddItem(cid, Item.ItemID, Item.Count) String = String.." ".. Item.Count .." ".. getItemNameById(Item.ItemID) .." +" else doRemoveItem(Item.UID) if AutoLoot.Boost_Actived and AutoLoot.Boost(cid) then if AutoLoot_Boost[Item.ItemID] then doPlayerSetBalance(cid,getPlayerBalance(cid) + AutoLoot_Boost[Item.ItemID]) String = String.." 1 "..getItemNameById(Item.ItemID).." ("..AutoLoot_Boost[Item.ItemID].."gps no banco) +" else doPlayerAddItem(cid, Item.ItemID, 1) String = String.." 1 "..getItemNameById(Item.ItemID).." +" end else doPlayerAddItem(cid, Item.ItemID, 1) String = String.." 1 "..getItemNameById(Item.ItemID).." +" end end end end end end AutoLoot.setPlayerTableStorage(cid, AutoLoot.Storages.Count_Table, {[1] = String, [2] = 0}) end function AutoLoot.Gold(cid, position) if not isPlayer(cid) then return true end local Check = false local Total_Gold = 0 local Position = {} for i = 1, 255 do position.stackpos = i if getThingFromPos(position).uid and getThingFromPos(position).uid > 0 and isContainer(getThingFromPos(position).uid) then Position = position Check = true break end end if Check then local CorpseUID = AutoLoot.getContainerItemsInfo(getThingFromPos(Position).uid) if CorpseUID then for Index, Item in pairs(CorpseUID) do if Item.UID and Item.ItemID then if Index < AutoLoot.CountTable(CorpseUID) then if isContainer(Item.UID) then local Bag = AutoLoot.getContainerItemsInfo(Item.UID) for i = 1, AutoLoot.CountTable(Bag) do if isInArray({2148, 2152, 2160}, Bag.ItemID) then local Multiplier = 1 if Bag.ItemID == 2148 then Multiplier = 1 elseif Bag.ItemID == 2152 then Multiplier = 100 elseif Bag.ItemID == 2160 then Multiplier = 10000 end doRemoveItem(Bag.uid, Bag.Count) doPlayerSetBalance(cid, getPlayerBalance(cid) + tonumber(Bag.Count) * Multiplier) Total_Gold = Total_Gold + Bag.Count * Multiplier doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Gold, tonumber(AutoLoot.getPlayerStorageZero(cid, AutoLoot.Storages.Count_Gold)) + tonumber(Item.Count) * tonumber(Multiplier)) end end end end if isInArray({2148, 2152, 2160}, Item.ItemID) then local Multiplier = 1 if Item.ItemID == 2148 then Multiplier = 1 elseif Item.ItemID == 2152 then Multiplier = 100 elseif Item.ItemID == 2160 then Multiplier = 10000 end doRemoveItem(Item.UID, Item.Count) doPlayerSetBalance(cid, getPlayerBalance(cid) + Item.Count * Multiplier) doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Gold, tonumber(AutoLoot.getPlayerStorageZero(cid, AutoLoot.Storages.Count_Gold)) + tonumber(Item.Count) * tonumber(Multiplier)) Total_Gold = Total_Gold + Item.Count * Multiplier end end end end end if Total_Gold > 0 then Total_Gold = Total_Gold - (Total_Gold * 0.2) Total_Gold = math.ceil(Total_Gold) doPlayerSetBalance(cid, getPlayerBalance(cid) + Total_Gold) local Table = AutoLoot.getPlayerTableStorage(cid, AutoLoot.Storages.Count_Table) Table[2] = Total_Gold AutoLoot.setPlayerTableStorage(cid, AutoLoot.Storages.Count_Table, Table) end end function AutoLoot.Message(cid) if not isPlayer(cid) then return true end local Table = AutoLoot.getPlayerTableStorage(cid, AutoLoot.Storages.Count_Table) if AutoLoot.CountTable(Table) >= 1 then if Table[1] then if Table[2] and Table[2] > 0 then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: ".. Table[1] .." ".. Table[2] .." gold coins.") else if type(Table[1]) == "string" and string.len(Table[1]) > 1 then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: "..Table[1]) end end elseif not Table[1] then if Table[2] then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "[Auto Loot System] Coletados: "..Table[2].." gold coins.") end end end doPlayerSetStorageValue(cid, AutoLoot.Storages.Count_Table, -1) end sou o mesmo membro show time so que tinha perdido esse longin aqui por favor me ajuda ai ja tentei de tudo e nao consigo arumar isso
  3. posta o script, está em actions.
  4. Este tópico foi movido para a área correta. Esta é uma mensagem automática! Pedimos que leia as regras do fórum!
  5. Olá, sou jogador de um baiak chamado baiak ziron, e no ot existem varios e varios players que estao bugando o reset, o ot é assim: do Primeiro reset (1) ao 31 o char pode resetar level 60k, do 31 ao 41 70k, 41 ao ~ 80k mas existem varios jogadores que bugam e resetam varias vezes, gostaria de saber se alguém tem ideia de como se buga isso Você tem o código disponível? Se tiver publique-o aqui: Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui.
  6. TFS 0.4 TIBIA 8.6 você tenta jogar o item {VIP} é aparece essa mensagem alguém pra tentar criar esse sistema ??? obg:se estiver na área errada só mover obrigado ! ! !
  7. Estou editando o mapa terminado as coisas e add varias outra criando itens e removendo bugs so que estou sozinho ate agora e esta meio corrido pra mim fiz muitas coisas ja se alguém quiser entra na sociedade comigo e me ajudar a terminar seria so add os pokes da 4 5 e 6 que já tenho as sprites pontas e add os corpos tmb no otb e no serve pra dar cath se alguém interessar e quiser me manda pm no face vou deixa umas imagens do q estou fazendo reformulei todas cidades troquei e refiz todas paredes telados e itens meu face ta ai quem interesar manda pm la https://www.facebook.com/flavio.reis.716970
  8. Yesterday
  9. Aqui no TibiaKing mensagens como UP e BUMP são proibidas, utilize o botão subir este tópico. Esta é uma mensagem automática! Pedimos que leia as regras do fórum!
  10. a maioria é imagens, você vai ter que faze-las de acordo com seu gosto e substituir
  11. Boa Noite, Boa Trade , Bom Dia, Pessoal Esatava pegando normal o Premium Account. usava ele entrava normal na area donate Mais agora Não estar mais sao 3 documentos ids 7530 , 7529 , 7531 Alquem poderia mim ajudar nesse caso , e ao usa determinado dias quando acabar zera agredeço tou precisando urgente
  12. Boa noite, eu vi a base do poke cyan que voçe editou ficou incrivel o trabalho gostei muito da base so tem alguns bugs mais nenhum critico eu to pensando em continuar editando ela se der certo vc me autoriza usar ela pra um game eu pretendo colocar online se me responder ficarei agradeçido e parabens otimo trabalho ! rep +

     

  13. Obg sim é do jogo, todos os lugares com neve tipo Folda e Svargrond terão neve caindo, sim é Old gráfico old mas terá svargrond e yalahar com gráficos antigos vai ter som do vento e da neve também
  14. @DdJs Boa dica cara, obrigado! São críticas construtivas como essa que eu procuro com essa análise estatística. Embora lá seja um campo vago com uma referência bem aberta, não é necessário fazer a referência, era mais para criar uma estimativa de onde os usuários estão visualizando o Post. Contudo existem menores que frequentam o fórum e eu concordo que a exposição dos nomes é pouco seguro, mesmo tendo em vista ser um formulário do Google. Formulário alterado. Aguardando ansiosamente pelas devolutivas.
  15. Boa tarde galera do tk, então to aqui de novo apenas pra querer tirar uma duvida meio besta, tava querendo mudar a cor do layout do site para preto/cinza mas não encontro nada que possa modificar isso em ps no propio layout , no caso agora ele ta assim mas queria deixar ele black/cinza, só tinha visto no layout.ini que teria o layout "Demon" mas como posso mudar ele para black/cinza ou virse e versa. E também queria só saber como poderia alinhar o monster que fica acima do top players, ele é um gif e não no quadrado que era pra tá como poderia alinhar ele? no momento ele fica assim
  16. Caraca!! ai sim, sempre quis jogar um OT old que fosse a tela aberta, pq se tem aqueles monitores widescreen e fica naquela telinha quadrada igual de calculadora, e a jogabilidade old é o eskema! já o sistema de som pra mim é novidade se não gostar só clico em mute, mas vamos ver, Irei testar com certeza
  17. Boa tarde povo, teria como alguem me ajudar nesse problema? Esse erro impede pessoas que nao estejam na minha rede à acessar meu Servidor, eu gostaria de ajuda para remover isso, ou seria mais facil mudar de SQL para MYSQL?
  18. Resolvido!! Para quem estiver com o mesmo problema, basta apenas entrar em layouts/tibiarl/layout.php e substituir : <img src="/images/outfit.php?id='.$skill['looktype'].'&addons='.$skill['lookaddons'].'&head='.$skill['lookhead'].'&body='.$skill['lookbody'].'&legs='.$skill['looklegs'].'&feet='.$skill['lookfeet'].'" width="64" height="64" style="width: 64px; height: 64px; position: absolute; background-position: 0 0; background-repeat: no-repeat; left: -50px; margin-top: -70px;"> por : <img src="http://outfit-images.ots.me/animatedOutfits1090/animoutfit.php?id='.$skill['looktype'].'&addons='.$skill['lookaddons'].'&head='.$skill['lookhead'].'&body='.$skill['lookbody'].'&legs='.$skill['looklegs'].'&feet='.$skill['lookfeet'].'" width="64" height="64" style="width: 64px; height: 64px; position: absolute; background-position: 0 0; background-repeat: no-repeat; left: -50px; margin-top: -70px;"> @vankk cara no caso não tem nenhum animoutfit no meu htdocs apenas o outfit.php. e mesmo copiando o outfit.php do outro site que sitei e colando a config do jeito que voce me disse mas como outfit.php ou até mesmo do jeito que está no site que sitei nada está funcionando
  19. Adiciona a lib do Auto Loot também.
  20. Muda a váriavel $config['site']['outfit_images_url'] para images/animoutfit.php. Isso claro, se o arquvivo animoutfit.php estiver na pasta images.
  21. Time Left: 28 days and 22 hours

    • Sales
    • Pre-delivery payment

    [SEAL] - Mapa de Quest & Cave High Lvl. Estilo Juggernaut Seal. Versão 10.98 Pagamento antes da entrega. Depósito bancário ou PayPal. Discord: FelipeBR#3714

    10.00 USD

  22. Este tópico foi movido para a área correta. Esta é uma mensagem automática! Pedimos que leia as regras do fórum!
  1. Load more activity

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 partindo do zero.

Redes Sociais

Anuncie no Tibia King

Precisa de mais visibilidade em seus projetos? Quer publicidade para o seu servidor? Anuncie no Tibia King e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução! A publicação do seu anuncio é instantânea!

×
×
  • Create New...