Signup Now
Results 1 to 5 of 5
  1. #1
    Free User
    Join Date
    Feb 2015
    Posts
    10
    Reputation
    10
    Rep Power
    0

    Loot Floor pick up?

    Ever thought about making a LUA that might pick up loot from the floor that others have left behind? Not for sure that it's possible but should be using scripting.

    Such as the Bolts from the Dwarf Soldiers, Mace/Swords from Rotworms, etc.

    It would be a fast way of making some extra gold and also would be a good way for Paladins getting more bolts for free for lower FACC accounts.

    Just an idea, might be dumb/stupid but just thought I'd throw that one out there.

    Kenneth Flynn

  2. #2
    Free User Mrozu's Avatar
    Join Date
    Oct 2014
    Location
    Lukow/Siedlce/Poland
    Posts
    140
    Reputation
    18
    Rep Power
    20
    init start
    local itemsCollect = {'Name of Item'}
    local moveOnBp = {'Backpack Name'}
    local capMin = 100 ------ min cap to pick up any item u set

    table.id(itemsCollect)
    init end


    auto(1000)
    for j = -7, 7 do
    for i = -5, 5 do
    for _, v in ipairs(itemsCollect) do
    local top = topitem($posx+j, $posy+i, $posz).id
    if windowcount(moveOnBp) == 1 and $cap >= capMin and itemproperty(top, ITEM_PICKUPABLE) and $attacked.id == 0 then
    moveitems(v, moveOnBp, ground($posx+j, $posy+i, $posz), 100) waitping()
    end
    end
    end
    end
    If I Helped, REP +


    ---------------------------------------------------------------------------------------------------------------------------

  3. #3
    Free User
    Join Date
    Feb 2015
    Posts
    10
    Reputation
    10
    Rep Power
    0
    I will try this out as soon as possible.

    I copied and made it a Cavebot Script for now, I'll test it in just a few minutes.

    Thank you.


    1st UPDATE!

    I have tried in both Cavebot: Scripter and in Scripter: Persistent both, can't seem to get it to work correctly.

    Tried using this one to test with. I've also tried to name the BP as "Purple Backpack" as well but still nothing so far, still testing. I've also named the items as "bolt" as well.

    Code:
    init start
    local itemsCollect = {'Mace'}
    local moveOnBp = {'RareBP'}
    local capMin = 20 ------ min cap to pick up any item u set
    
    table.id(itemsCollect)
    init end
    
    
    auto(1000)
    for j = -7, 7 do
    for i = -5, 5 do
    for _, v in ipairs(itemsCollect) do
    local top = topitem($posx+j, $posy+i, $posz).id
    if windowcount(moveOnBp) == 1 and $cap >= capMin and itemproperty(top, ITEM_PICKUPABLE) and $attacked.id == 0 then
    moveitems(v, moveOnBp, ground($posx+j, $posy+i, $posz), 100) waitping()
    end
    end
    end
    end
    But so far I've not gotten it to work, I've not given up though, I'll try more until I can get it to run.

    Thank you for the Script too!
    Last edited by KennethFlynn; 03-09-2015 at 05:15 PM. Reason: Adding Update to post

  4. #4
    Free User Mrozu's Avatar
    Join Date
    Oct 2014
    Location
    Lukow/Siedlce/Poland
    Posts
    140
    Reputation
    18
    Rep Power
    20
    Quote Originally Posted by KennethFlynn View Post
    I will try this out as soon as possible.

    I copied and made it a Cavebot Script for now, I'll test it in just a few minutes.

    Thank you.




    1st UPDATE!

    I have tried in both Cavebot: Scripter and in Scripter: Persistent both, can't seem to get it to work correctly.

    Tried using this one to test with. I've also tried to name the BP as "Purple Backpack" as well but still nothing so far, still testing. I've also named the items as "bolt" as well.

    Code:
    init start
    local itemsCollect = {'Mace'}
    local moveOnBp = {'RareBP'}
    local capMin = 20 ------ min cap to pick up any item u set
    
    table.id(itemsCollect)
    init end
    
    
    auto(1000)
    for j = -7, 7 do
    for i = -5, 5 do
    for _, v in ipairs(itemsCollect) do
    local top = topitem($posx+j, $posy+i, $posz).id
    if windowcount(moveOnBp) == 1 and $cap >= capMin and itemproperty(top, ITEM_PICKUPABLE) and $attacked.id == 0 then
    moveitems(v, moveOnBp, ground($posx+j, $posy+i, $posz), 100) waitping()
    end
    end
    end
    end
    But so far I've not gotten it to work, I've not given up though, I'll try more until I can get it to run.

    Thank you for the Script too!

    {'RareBP'} ir from useroptions? if he should be that

    local moveOnBp = getuseroption('RareBP')


    or if u have just set loting destination

    local moveOnBp = setlootingdestination('RareBP')


    Make you sure that wrote correct in User Option or Loting Destination
    If I Helped, REP +


    ---------------------------------------------------------------------------------------------------------------------------

  5. #5
    Free User ozzix's Avatar
    Join Date
    Jan 2014
    Location
    Sweden
    Posts
    4,769
    Reputation
    151
    Rep Power
    31
    and how is this a suggestion? post in the correct board, thread closed

    Level Latest Scripts
    250+
    Oramond Sewers [MAGE |RP X1 | RP X2 |RP X3|EK X2 | EK X1]
    200+
    Banuta X2 [MAGE | RP]
    280+
    Roshamuul Mountain [RP]
    280+
    Ferumbras Lair [RP]
    250+
    Roshamuul North Silencers [RP]

 

 

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •