Lua 2 IFs to my auto gold

warriorfrog · Jun 8, 2016

I have this auto gold loot, but i have 2 problems using this...

If you don't have slots free, money going to ground

If you don't have cap, money going to ground

How make this 2 checks to remove this problems?

Code:

<event type="kill" name="GP" event="script" value="gp.lua"/>

Code:

local function doPlayerAddContainerMoney(cid, container, gold)
  local extrac = 0
  for slot = (getContainerSize(container) - 1), 0, -1 do
  local item = getContainerItem(container, slot)
  local amount = (item.itemid == 2148 and item.type or (item.itemid == 2152 and item.type * 100 or (item.itemid == 2160 and item.type * 10000)) or 0)
  if item.uid > 0 then
  if amount > 0 then
  gold = gold + amount
  doRemoveItem(item.uid)
  end
  end
  if isContainer(item.uid) then
  extrac = item.uid
  end
  end
  if extrac > 0 then
  doPlayerAddContainerMoney(cid, extrac, gold)
  else
  doPlayerAddMoney(cid, gold)
  end   
end
   
local function autoloot(cid, position, corpseID)
  if not isPlayer(cid) then
  return
  end

  local corpse = getTileItemById(position, corpseID)
  if corpse and isContainer(corpse.uid) then
  doPlayerAddContainerMoney(cid, corpse.uid, 0)   
  end
end

function onKill(cid, target)
  if isPlayer(target) then
  return true
  end
  local position = getCreaturePosition(target)
  local info = getMonsterInfo(getCreatureName(target))
  addEvent(autoloot, 100, cid, position, info.lookCorpse)
  return true
end

Omni Cloud · Jun 8, 2016

Send it to their bank instead.

warriorfrog · Jun 8, 2016

Omni Cloud said:
Send it to their bank instead.

Nah...

To remove cap problem i just removed on items.xml

Code:

<attribute key="weight" value="10" />

But to check slots i don't know have ideia...

Its can be a big problem..
Imagine 10 players botting with no slots... imagine how many golds will throed on ground

I need check it on script

Sergio Rosendo · Jun 8, 2016

warriorfrog said:
Nah...

To remove cap problem i just removed on items.xml

Code:

<attribute key="weight" value="10" />

But to check slots i don't know have ideia...

Its can be a big problem..
Imagine 10 players botting with no slots... imagine how many golds will throed on ground

I need check it on script

Considering you are using TFS 1.2, you can use getPlayerFreeCap(cid) and ContainerGetEmptySlots().

I'll see if I can do it and post it.

warriorfrog · Jun 8, 2016

Sergio Rosendo said:
Considering you are using TFS 1.2, you can use getPlayerFreeCap(cid) and ContainerGetEmptySlots().

I'll see if I can do it and post it.

I'm using 0.4 to check cap here i need use:

Code:

if getPlayerFreeCap(cid) < X then

But removing <attribute key="weight" value="10" />
My server is more light...

Now i just need fix this slots thing

strutZ · Jun 8, 2016

I dont understand why you dont just send to bank like @Omni Cloud suggested?

Xikini · Jun 8, 2016

strutZ said:
I dont understand why you dont just send to bank like @Omni Cloud suggested?

Right?
If there is no capacity to the gold itself, why would you not send it to bank?

tabbed.

Code:

local function doPlayerAddContainerMoney(cid, container, gold)
    local extrac = 0
    for slot = (getContainerSize(container) - 1), 0, -1 do
        local item = getContainerItem(container, slot)
        local amount = (item.itemid == 2148 and item.type or (item.itemid == 2152 and item.type * 100 or (item.itemid == 2160 and item.type * 10000)) or 0)
        if item.uid > 0 then
            if amount > 0 then
                gold = gold + amount
                doRemoveItem(item.uid)
            end
        end
        if isContainer(item.uid) then
            extrac = item.uid
        end
    end
    if extrac > 0 then
        doPlayerAddContainerMoney(cid, extrac, gold)
    else
        doPlayerAddMoney(cid, gold)
    end  
end
   
local function autoloot(cid, position, corpseID)
    if not isPlayer(cid) then
        return
    end

    local corpse = getTileItemById(position, corpseID)
    if corpse and isContainer(corpse.uid) then
        doPlayerAddContainerMoney(cid, corpse.uid, 0)  
    end
end

function onKill(cid, target)
    if isPlayer(target) then
        return true
    end
    local position = getCreaturePosition(target)
    local info = getMonsterInfo(getCreatureName(target))
    addEvent(autoloot, 100, cid, position, info.lookCorpse)
    return true
end

warriorfrog · Jun 8, 2016

Xikini said:

Right?
If there is no capacity to the gold itself, why would you not send it to bank?

tabbed.

Code:

local function doPlayerAddContainerMoney(cid, container, gold)
    local extrac = 0
    for slot = (getContainerSize(container) - 1), 0, -1 do
        local item = getContainerItem(container, slot)
        local amount = (item.itemid == 2148 and item.type or (item.itemid == 2152 and item.type * 100 or (item.itemid == 2160 and item.type * 10000)) or 0)
        if item.uid > 0 then
            if amount > 0 then
                gold = gold + amount
                doRemoveItem(item.uid)
            end
        end
        if isContainer(item.uid) then
            extrac = item.uid
        end
    end
    if extrac > 0 then
        doPlayerAddContainerMoney(cid, extrac, gold)
    else
        doPlayerAddMoney(cid, gold)
    end 
end
  
local function autoloot(cid, position, corpseID)
    if not isPlayer(cid) then
        return
    end

    local corpse = getTileItemById(position, corpseID)
    if corpse and isContainer(corpse.uid) then
        doPlayerAddContainerMoney(cid, corpse.uid, 0) 
    end
end

function onKill(cid, target)
    if isPlayer(target) then
        return true
    end
    local position = getCreaturePosition(target)
    local info = getMonsterInfo(getCreatureName(target))
    addEvent(autoloot, 100, cid, position, info.lookCorpse)
    return true
end

To PK things... Ty

I tried this script but money still drop onfoot if have bp full

Xikini · Jun 8, 2016

warriorfrog said:
To PK things... Ty

I tried this script but money still drop onfoot if have bp full

I didn't change your script, I simply made it readable for everyone on the forum.

warriorfrog · Jun 8, 2016

Xikini said:
I didn't change your script, I simply made it readable for everyone on the forum.

Oh i'm sorry, i was going to sleep i didnt see

strutZ · Jun 9, 2016

check this out @warriorfrog
https://otland.net/threads/tfs-1-2-advanced-drop-loot-system.243638/

warriorfrog · Jun 9, 2016

strutZ said:
check this out @warriorfrog
https://otland.net/threads/tfs-1-2-advanced-drop-loot-system.243638/

I just check if player (who kill the monster) have slots free to add gp or not, i didnt found nothing about this there

strutZ · Jun 9, 2016

warriorfrog said:
I just check if player (who kill the monster) have slots free to add gp or not, i didnt found nothing about this there

I was pointing to you more to just send money to bank haha all good glad you sorted it out

luccagomes · Jun 9, 2016

Guys he ask money go to backpack... I would not find cool money go to bank too

warriorfrog · Jun 10, 2016

I want money in backpack to pks things,pratice things... I need check slots to backpack

Lua 2 IFs to my auto gold

warriorfrog

Active Member

Omni Cloud

Banned User

warriorfrog

Active Member

Sergio Rosendo

Member

warriorfrog

Active Member

strutZ

Australian OT Member {AKA Beastn}

Xikini

Guest

warriorfrog

Active Member

Xikini

Guest

warriorfrog

Active Member

strutZ

Australian OT Member {AKA Beastn}

warriorfrog

Active Member

strutZ

Australian OT Member {AKA Beastn}

luccagomes

New Member

warriorfrog

Active Member

Similar threads