Author Topic: Auto Chest Looter
immortalbob 
Title: AC Vault Staff
I am batman!

Posts: 11,887
Registered: Feb 24, '02
Extended Info (if available)
Real Post Cnt: 11,708
User ID: 649,929
Subject: Auto Chest Looter
Is there a plugin out there that can unring mfks, use them on a chest and then open it?

 

-----signature-----
ImmortalBob, Axer Extraordinaire
+Turbine Sappho tells you, "I am starting to think you are immortal"
Link to this post
-Eps 
Title: I Love Boobies. And Butts, too!
Posts: 17,344
Registered: May 30, '07
Extended Info (if available)
Real Post Cnt: 32,011
User ID: 1,226,605
Subject: Auto Chest Looter
eps Chest Looter

just kidding

 

-----signature-----
#dnn #og-ac http://tinyurl.com/ACDTChat
Fastest 1-275 in AC history.
Plugin Users: 100+
Buy Plugins Relogger, ValSalv, and AutoVendor(route trigger): http://bit.ly/ACaCAl
[Trade] +Envoy Sparker says, "Rep check: Eps Levelin, PST."
Link to this post
immortalbob 
Title: AC Vault Staff
I am batman!

Posts: 11,887
Registered: Feb 24, '02
Extended Info (if available)
Real Post Cnt: 11,708
User ID: 649,929
Subject: Auto Chest Looter
I'm sure a lot of us have been saving mfks like crazy, and dread the thought of pulling them all by hand...

 

-----signature-----
ImmortalBob, Axer Extraordinaire
+Turbine Sappho tells you, "I am starting to think you are immortal"
Link to this post
joeblow8579 
Posts: ????
Registered: ????
Extended Info (if available)
Real Post Cnt: 0
User ID: 0
Subject: Auto Chest Looter
I wonder if you can use Make It!...

I can't get it to work when adding keys to a ring, but perhaps it can remove them. Try it and report back.

 

-----signature-----
Link to this post
immortalbob 
Title: AC Vault Staff
I am batman!

Posts: 11,887
Registered: Feb 24, '02
Extended Info (if available)
Real Post Cnt: 11,708
User ID: 649,929
Subject: Auto Chest Looter
even if i could get it to unring keys, it wouldnt unlock the chest then open it...

Next option, does anyone have any old actool macros, specifically Scrollpull that unringed siks/used them on the steel chest/looted. I'm sure i could modify it to work with mfks easily enough.

 

-----signature-----
ImmortalBob, Axer Extraordinaire
+Turbine Sappho tells you, "I am starting to think you are immortal"
Link to this post
Saurons_Pet 
Posts: 2,440
Registered: Jul 26, '03
Extended Info (if available)
Real Post Cnt: 2,426
User ID: 825,662
Subject: Auto Chest Looter
mag-tools with virindi loot profile auto loot chests

 

-----signature-----
Draxx Dawndeath, Ar-Gular, Pirlon, Darkie
ISO Adept/Defender with epic ward (any) on upper leg and feet
Link to this post
Mag-nus 
Posts: ????
Registered: ????
Extended Info (if available)
Real Post Cnt: 0
User ID: 0
Subject: Auto Chest Looter
I'm almost positive you could do this with ACTool+ or whatever its called. It would be a pretty simple script.

 

-----signature-----
Link to this post
joeblow8579 
Posts: ????
Registered: ????
Extended Info (if available)
Real Post Cnt: 0
User ID: 0
Subject: Auto Chest Looter
immortalbob posted:
even if i could get it to unring keys, it wouldnt unlock the chest then open it...

Next option, does anyone have any old actool macros, specifically Scrollpull that unringed siks/used them on the steel chest/looted. I'm sure i could modify it to work with mfks easily enough.

That would be super handy.

 

-----signature-----
Link to this post
immortalbob 
Title: AC Vault Staff
I am batman!

Posts: 11,887
Registered: Feb 24, '02
Extended Info (if available)
Real Post Cnt: 11,708
User ID: 649,929
Subject: Auto Chest Looter
I made a quick and dirty actool macro to unring keys, unlock chests, and open them allowing time for mag tools to loot, and then close chest/repeat.

Requirements:
It requires a second account to give empty keyrings to, sorry i don't know much about datasets in actool.
Mag-Tools
Vtank/VTClassicLooter profile


What to do:
Get the guid of the chest you want to loot, select chest and type /actguid with actool running.
Change Player name to character you're giving empty rings to.
Also you need to have the Give to Selected keymapped in AC, i use N, but any key will work, just edit the constant.

SetActiveWindow Asheron's Call

Constants
Go = True
Chest = 2075783201
Key = Mana Forge Key
Ring = Black Coral Keyring
Player = Putrefy //character to give used up keyrings to
GTS = N //Give to Selected
End

While $Go = True
Call LootChest
End

Procedure LootChest
HaveItem $Key
If {PluginResult} = OK
UseItem $Key, $Chest //Unlock Chest
Delay 2 Sec
SelectGUID $Chest //Select Chest
Keydown R 1 Sec //Open Chest
Delay 7 Sec
SelectGUID $Chest //Select Chest
Keydown R .25 Sec //close chest
Keydown R .5 Sec //close chest
Keydown R .75 Sec //close chest
Restart
Else
Call Unring
End
End

Procedure Unring
UseItem Intricate Carving Tool, $Ring //Unring key
Delay 2 Sec
HaveItem $Key //Checks for key
If {PluginResult} = OK
Call LootChest
Else
Select $Player //selects player
SelectMine $Ring //selects keyring
Keydown $GTS 1 Sec //gives player old keyring
Restart
End
End

I'm by no means a programmer, and I didn't spend all that much time on this. Hope this works for some of you, or is modified to. Enjoy!

 

-----signature-----
ImmortalBob, Axer Extraordinaire
+Turbine Sappho tells you, "I am starting to think you are immortal"
Link to this post
joeblow8579 
Posts: ????
Registered: ????
Extended Info (if available)
Real Post Cnt: 0
User ID: 0
Subject: Auto Chest Looter
Where does one get ACTool these days?

 

-----signature-----
Link to this post
immortalbob 
Title: AC Vault Staff
I am batman!

Posts: 11,887
Registered: Feb 24, '02
Extended Info (if available)
Real Post Cnt: 11,708
User ID: 649,929
Subject: Auto Chest Looter
joeblow8579 posted:
Where does one get ACTool these days?

http://bit.ly/zCCh1M

 

-----signature-----
ImmortalBob, Axer Extraordinaire
+Turbine Sappho tells you, "I am starting to think you are immortal"
Link to this post
joeblow8579 
Posts: ????
Registered: ????
Extended Info (if available)
Real Post Cnt: 0
User ID: 0
Subject: Auto Chest Looter
Very funny.

 

-----signature-----
Link to this post
immortalbob 
Title: AC Vault Staff
I am batman!

Posts: 11,887
Registered: Feb 24, '02
Extended Info (if available)
Real Post Cnt: 11,708
User ID: 649,929
Subject: Auto Chest Looter
joeblow8579 posted:
Very funny.

hehehehehe

I think i got datasets working, it should just go through all your keys/rings now without worrying about handing off to another player.


SetActiveWindow Asheron's Call

Constants
Go = True
Chest = 2075783201 //GUID of chest you want to loot, select ingame and type /actguid for this
Key = * Forge Key
Ring = Black Coral Keyring
ICT = Intricate Carving Tool
CURRENTRINGGUID = 0
FOUNDONE = 0
temp = 0
End

While $Go = True
Call FindKey
End

Dataset UsedKeyrings
KeyringGUID = Integer
End

Procedure FindKey //Locates a key in inventory for use
HaveItem $Key
If {PluginResult} = OK
Call Unlock
Else
Call Unring
End
End

Procedure Unlock //Unlock Chest
UseItem $Key, $Chest
Delay 2 Sec
Call Loot
End

Procedure Loot //Select Chest, Open Chest, Delay for looting, Select Chest, Close Chest
SelectGUID $Chest
Keydown R 1 Sec
Delay 7 Sec
SelectGUID $Chest
Keydown R .25 Sec
Keydown R .5 Sec
Keydown R .75 Sec
Call Findkey
End

Procedure Unring //Check for key, if none, Unring Key, if no key switches to new keyring
UseItem $ICT, $CURRENTRINGGUID
Delay 2 Sec
HaveItem $Key
If {PluginResult} <> OK
Call NextKeyring
DSIndexDelete DSInventory, IdSort1
If $FOUNDONE = 0
Sendtext 13, No more mfks or rings, stopping.
Stop
End
End
Sendtext 13, $CURRENTRINGGUID - $FOUNDONE
Call Findkey
End

Procedure NextKeyring //This Should switch keyrings upon being out of keys.
SetConst FOUNDONE = 0
LoadDecalInventory
DSIndexAdd DSInventory, IdSort1, GUID
DSIndex DSInventory, IdSort1
DSFilter DSInventory, NAME = 'Black Coral Keyring'
DSCount DSInventory, temp
IF $temp = 0
Exit
End

DSEdit UsedKeyrings
DSAppend UsedKeyrings
SetConst UsedKeyrings[KeyringGUID] = $CURRENTRINGGUID
DSPost UsedKeyRings
DSIndexAdd UsedKeyrings, IdSort, KeyringGUID
DSIndex UsedKeyrings, IdSort
DSFirst UsedKeyRings
While 1 = 1
If DSInventory[GUID] &lt;&gt; UsedKeyRings[KeyringGUID]
SetConst CURRENTRINGGUID = DSInventory[GUID]
SetConst FOUNDONE = 1
DSIndexDelete UsedKeyrings, IdSort
Exit
End
If EOF UsedKeyRings
If EOF DSInventory
DSIndexDelete UsedKeyrings, IdSort
Exit
End
SetConst CURRENTRINGGUID = DSInventory[GUID]
SetConst FOUNDONE = 1
DSIndexDelete UsedKeyrings, IdSort
Exit
End
If EOF DSInventory
DSIndexDelete UsedKeyrings, IdSort
Exit
End
DSNext UsedKeyRings
DSNext DSInventory
End
End

 

-----signature-----
ImmortalBob, Axer Extraordinaire
+Turbine Sappho tells you, "I am starting to think you are immortal"
Link to this post

Valid XHTML 1.0 Transitional Powered by PHP