[OTX] New Auto Loot Unlimited Edition 2.0

Critico

Sexy
Joined
Mar 25, 2010
Messages
369
Reaction score
174
[ + ] Description: Autoloot remade for OTX VERSION and added some other functions that I will be explaining throughout the topic.

[ + ] Command image:
autooo.jpg


[ + ] Bugs:
[ - ]
Warn BP slot and Gols Bank Colleting Fixed's

[ + ] Features:
[ - ]
You can activate or deactivate the autoloot as often as you feel necessary.

[ - ] There is also a command to enable or disable loot messages that autoloot collects!

[ - ] You can choose the color of the text in which the loot collection will appear!

[ - ] The autoloot will inform you if you have little slots in your backpack, and the player will be able to choose whether to enable or not this function in the autloot.

[ - ] Unlimited version of items

[ - ] The player can choose to deposit the golds that are dropped directly into the bank.



[ + ] Installation:



First CREATE an EMPTY FOLDER and rename to "autoloot" in DATA / LOGS, looking like this:

autloo1.jpg

Then install MODS normally in your server's MODS folder.

autoloo2.jpg

new_perfect_autoloot_otx.xml
XML:
<?xml version="1.0" encoding="ISO-8859-1"?>
<mod name="Perfect Auto Loot" version="2.0" author="Vodkart" contact="none.com" enabled="yes">
<config name="Loot_func"><![CDATA[

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 = 5},
    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 --> To add ou Remove item from list.\n!autoloot money --> To collect gold automatically.\n!autoloot clear --> To clear the list.\n!autoloot on/off --> To enable or disable the collecting of items in the system.\n!autoloot message --> To enable or disable message from Collect items.\n!autoloot color --> To change Color message in Auto Loot Collect.\n!autoloot warn --> To enable or disable message warning of "..info.Warn_Bp_Slots.." or less slots in the backpack.\n!autoloot deposit --> To enable or disable automatic money deposit at the bank.\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)
    if isInArray(info.Money_ids, item) and getPlayerStorageValue(cid, info.Storages[4]) > 0 then
        local deposit = item == tonumber(2160) and (n*10000) or tonumber(item) == 2152 and (n*100) or (n)
        doPlayerDepositMoney(cid, deposit)
    end
    return true
end
function getAllContainerFree(cid) -- by vodka
    local containers,soma = {},0
    for i = CONST_SLOT_FIRST, CONST_SLOT_LAST do
        local sitem = getPlayerSlotItem(cid, i)
        if sitem.uid > 0 then
            if isContainer(sitem.uid) then
                table.insert(containers, sitem.uid)
        soma = soma + getContainerSlotsFree(sitem.uid)
            end
        end
    end
    while #containers > 0 do
        for k = (getContainerSize(containers[1]) - 1), 0, -1 do
            local tmp = getContainerItem(containers[1], k)
            if isContainer(tmp.uid) then
                table.insert(containers, tmp.uid)
                soma = soma + getContainerSlotsFree(tmp.uid)
            end
        end
        table.remove(containers, 1)
    end
    return soma
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)
                slots = getAllContainerFree(cid)
                if slots > 0 and getPlayerFreeCap(cid) >= total_cap then
                    str = str.." " .. getItemInfoLoot(id, amount)
                    if isItemStackable(id) then
                        doPlayerAddItemStackable(cid, id, amount)
                        AutomaticDeposit(cid, id, amount)
                    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
]]></config>
<event type="login" name="LootLogin" event="script"><![CDATA[
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]]></event>
<event type="kill" name="LootEventKIll" event="script"><![CDATA[
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]]></event>
<talkaction words="!autoloot;/autoloot" event="buffer"><![CDATA[
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,"Auto Loot Gold Colleting "..(getPlayerStorageValue(cid, info.Storages[2]) > 0 and "Activated" or "disabled")..".") 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 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]]></talkaction>
</mod>



I will be attaching the autoloot for download:
 

Attachments

  • new_perfect_autoloot_otx.xml
    14.1 KB · Views: 28 · VirusTotal
  • perfect_autoloot_otx2.0.xml
    14.4 KB · Views: 29 · VirusTotal
Last edited by a moderator:

macacaue

New Member
Joined
Mar 22, 2012
Messages
5
Reaction score
0
could give credit to VODKART (TibiaKing), because the script is his
Sorry My english (google translator kkk)
 

Evil Puncker

prolonged absenteeism
TFS Developer
Joined
May 30, 2009
Messages
7,767
Solutions
187
Reaction score
3,561
could give credit to VODKART (TibiaKing), because the script is his
Sorry My english (google translator kkk)

hmm
RM6GDO5.png


why do brazilians cry so much about copyright, tho
 

TekLakus

New Member
Joined
Oct 27, 2020
Messages
3
Reaction score
0
It's possible to install this on 1.2? Like I know that, there is no mods folder in it, but I hope that there is possible way to install it and hope that someone can explain it how it can be done.
 
OP
Critico

Critico

Sexy
Joined
Mar 25, 2010
Messages
369
Reaction score
174
## VERSION 2.0 UPDATE ##

[ + ] Bugs:
[ - ]
Warn BP slot and Gols Bank Colleting Fixed's
 

ralke

(҂ ͠❛ ෴ ͡❛)ᕤ
Joined
Dec 17, 2011
Messages
788
Solutions
18
Reaction score
326
Location
Santiago - Chile
Here is a money collecting mod, writen by @Critico (thanks again!) this script was requested via private message as an alternative to this system. Working perfectly on OTX 2 (0.3.7).

This are the details:
  • Autoloot items disabled, only gold collecting.
  • Active talkaction(s) that can be switch: !money deposit (if you want gold directly to bank or backpack), !money color (change loot message).
  • Money collecting activated onLogin, that is, that the money collecion system starts automatically
Script:
Code:
<?xml version="1.0" encoding="ISO-8859-1"?>
<mod name="Perfect Money Loot" version="2.0" author="Vodkart" contact="none.com" enabled="yes">
<config name="Loot_func"><![CDATA[

info = {
    BlockMonsters = {},
    Money_ids = {2148, 2152, 2160}, -- id das moedas do ot
    Storages = {988801, 988802}
}

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[2]) <= 0 and 0 or getPlayerStorageValue(cid, info.Storages[2])
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)
    if isInArray(info.Money_ids, item) and getPlayerStorageValue(cid, info.Storages[1]) > 0 then
        local deposit = item == tonumber(2160) and (n*10000) or tonumber(item) == 2152 and (n*100) or (n)
        doPlayerDepositMoney(cid, deposit)
    end
    return true
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 = ""
        for _, item in pairs(getContainerItems(corpse)) do
            local id = item.itemid
            if isInArray(info.Money_ids, id) then
                local amount = isItemStackable(id) and item.type or 1
                local total_cap = getItemWeightById(id, amount)
                if getPlayerFreeCap(cid) >= total_cap then
                    str = str.." " .. getItemInfoLoot(id, amount)
                    if isItemStackable(id) then
                        doPlayerAddItemStackable(cid, id, amount)
                        AutomaticDeposit(cid, id, amount)
                    else
                        doPlayerAddItem(cid, id)
                    end
                    doRemoveItem(item.uid)
                end
            end
        end
        if str ~= "" then
            doPlayerSendTextMessage(cid, Color_Loot[getPlayerColorLootMessage(cid)][1],"[Gold Collector]:"..string.sub(str, 1, -2)..".")
        end
    end
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
]]></config>
<event type="login" name="LootLogin" event="script"><![CDATA[
domodlib('Loot_func')
function onLogin(cid)
    registerCreatureEvent(cid, "LootEventKIll")
    return true
end]]></event>
<event type="kill" name="LootEventKIll" event="script"><![CDATA[
domodlib('Loot_func')
function onKill(cid, target, lastHit)
    if isPlayer(cid) and isMonster(target) and not isInArray(info.BlockMonsters, getCreatureName(target):lower()) then
        addEvent(corpseRetireItems, 0, cid ,getThingPos(target))
    end
    return true
end]]></event>
<talkaction words="!money;/money" event="buffer"><![CDATA[
domodlib('Loot_func')
local param = param:lower()
if not param or param == "" then
    doPlayerSendCancel(cid, "Enter commands: !money deposit or !money color to switch settings.") return true
elseif tonumber(param) then
    doPlayerSendCancel(cid, "Enter commands: !money deposit or !money color to switch settings.")return true
elseif isInArray({"cor","color","type"}, param) then
    setPlayerStorageValue(cid, info.Storages[2], 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({"deposito","bank","gbank","deposit","autodeposit"}, param) then
    setPlayerStorageValue(cid, info.Storages[1], getPlayerStorageValue(cid, info.Storages[1]) <= 0 and 1 or 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[Gold Collector] Sending money to the bank "..(getPlayerStorageValue(cid, info.Storages[1]) > 0 and "enabled" or "disabled")..".") return true
end
return true]]></talkaction>
</mod>

Regards!
 

vine96

Member
Joined
Nov 17, 2012
Messages
77
Reaction score
7
Hi! Excelent script nice work, 100% workly for me!

I'm developing other script with additional of this, but i need one "loop" works, in moment selling 1 item peer click...

You can help me in script of spellwand seller item?

I need that player with click on this spellwand and click on the loot, example: after click in the spellwand, after in demon shield, this selling all the demon shield counts in player bp's, i'ts possible?

Lua:
local items = {
    [2537] = {value = 4800},
    [2377] = {value = 480},
    [2663] = {value = 600},
    [2472] = {value = 90000},
    [2475] = {value = 7200},
    [2519] = {value = 8000},
    [2497] = {value = 6000},
    [2523] = {value = 180000},
    [2494] = {value = 108000},
    [2400] = {value = 144000},
    [2491] = {value = 2500},
    [2421] = {value = 108000},
    [2646] = {value = 240000},
    [2477] = {value = 5000},
    [2656] = {value = 10000},
    [2498] = {value = 30000},
    [2647] = {value = 600},
    [2534] = {value = 15000},
    [7402] = {value = 15000},
    [2466] = {value = 20000},
    [2465] = {value = 240},
    [2408] = {value = 120000},
    [2518] = {value = 1800},
    [2500] = {value = 3000},
    [2470] = {value = 30000},
    [2645] = {value = 30000},
    [2434] = {value = 2000},
    [2463] = {value = 480},
    [2536] = {value = 9000},
    [2387] = {value = 240},
    [2396] = {value = 1000},
    [2381] = {value = 450},
    [2528] = {value = 8000},
    [2409] = {value = 1800},
    [2414] = {value = 9000},
    [2427] = {value = 11000},
    [2407] = {value = 7200},
    [2383] = {value = 960},
    [2392] = {value = 4000},
    [2488] = {value = 12000},
    [2525] = {value = 250},
    [2423] = {value = 1000},
    [2462] = {value = 4800},
    [2520] = {value = 30000},
    [2390] = {value = 180000},
    [2417] = {value = 500},
    [2436] = {value = 6000},
    [5741] = {value = 40000},
    [2378] = {value = 500},
    [2487] = {value = 12000},
    [2476] = {value = 5000},
    [8891] = {value = 15000},
    [2195] = {value = 30000},
    [2391] = {value = 7200},
    [8889] = {value = 18000},
    [2432] = {value = 8000},
    [2431] = {value = 108000},
    [2492] = {value = 40000},
    [2515] = {value = 2000},
    [2430] = {value = 2000},
    [2393] = {value = 17000},
    [7419] = {value = 10000},
    [2522] = {value = 120000},
    [2514] = {value = 50000},
    [7418] = {value = 35000}
    
}

 function onUse(cid, item, frompos, itemEx, topos)
    if (itemEx.itemid == item.itemid) then
        local str = ""
        for i, k in pairs(items) do
            str = str ..getItemNameById(i):gsub("%a", string.upper, 1).. ": ".. k.value .. "\n"
        end
        doShowTextDialog(cid, 6533, "Item Name: Price\n-----------------------------\n".. str)
        return true
    end

    local i = items[itemEx.itemid]
    if (i) then
    --for i, 100 in pairs(items) do
        doRemoveItem(itemEx.uid)
        doPlayerAddMoney(cid, i.value)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você vendeu 1 ".. getItemNameById(itemEx.itemid) .." por ".. i.value .." gold coins.")
        doSendMagicEffect(frompos, CONST_ME_MAGIC_RED)
    end
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Não foi possível vender esse item, use a spellwand nela mesma para ver a lista de items disponíveis.")
        doSendMagicEffect(frompos, CONST_ME_POFF)
    end
    
    return true
end
Post automatically merged:

Lua:
local i = items[itemEx.itemid]
    if (i) then
        doRemoveItem(itemEx.uid)
        doPlayerAddMoney(cid, i.value)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você vendeu 1 ".. getItemNameById(itemEx.itemid) .." por ".. i.value .." gold coins.")
        doSendMagicEffect(frompos, CONST_ME_MAGIC_RED)
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Não foi possível vender esse item, use a spellwand nela mesma para ver a lista de items disponíveis.")
        doSendMagicEffect(frompos, CONST_ME_POFF)
    end

the part of interesting me is this... i need applied one loop to selling all loots click in one item
 

3688599

Darkness-babek.no-ip.org
Joined
Mar 23, 2013
Messages
84
Reaction score
9
when add loot more then 10 solt and kill like 10 monster by 1 hit get problem and all monster no death ;/ someone fix this problem
 

Abdelmaksod

Banned User
Joined
Oct 26, 2018
Messages
108
Reaction score
65
when add loot more then 10 solt and kill like 10 monster by 1 hit get problem and all monster no death ;/ someone fix this problem
u can solve it with kill 9 monsters and make loot less than 10 slots, and dont kill the monster with 1 hits.

good luck bro.
 

Alkenyx

Member
Joined
Jun 6, 2014
Messages
35
Solutions
1
Reaction score
6
Location
Germany
Sounds nice but my TFS 1.3 don't have an mods folder in main.. Do I have to create one in main or in data then?
 

zbizu

Legendary OT User
Joined
Nov 22, 2010
Messages
3,025
Solutions
18
Reaction score
2,151
Location
Poland
GitHub
Zbizu
Sounds nice but my TFS 1.3 don't have an mods folder in main.. Do I have to create one in main or in data then?
This is a mod for the OTX server - a server based on TFS 0.3.7.
1.x versions don't support XML mods.
 
Top