Is there a plugin that will use MFKs, Colo keys, Castle keys, etc and use the Vtank loot profiles to automatically loot them?

combination, vtank, mag-tools, and an actool macro

 

-----signature-----

I have never tried actools. Guess I will download it and give it a try this weekend. Does someone already have an actool macro written for this that they could share or will I have to try and write one for myself?

SetActiveWindow Asheron's Call

Constants
//Tools
ICT = Intricate Carving Tool
//Chest Pull Settings
KeyPullOn = True
Chest = 0 //Select chest before starting macro
Key = * Forge Key //Change to Mana Forge Key to only use single keys, or any other key you want to use
Ring = Black Coral Keyring
TBC = 7 //Time before chest closes in seconds
//Don't touch below this
CURRENTRINGGUID = 0
FOUNDONE = 0
temp = 0
End

Dataset UsedKeyrings
KeyringGUID = Integer
End

While $KeyPullOn = True
SetConst $Chest = _selectedguid
If $KeyPullOn = True
End
Call FindKey
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.
SetConst $KeyPullOn = False
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 = '$Ring'
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] <> 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-----

Awesome! Thanks Bob! Hopefully I can get it to work this weekend. I was really dreading trying to use like 800+ MFKs and 100+ colo keys all by hand.

thats why i spent the time making this last month

 

-----signature-----

Maybe I'm just a fricking retard, but I can't get it to work. Would it be possible for you to upload or post the mac file you use so I can see what I'm doing wrong?

Getting an error message when I try to run the macro.

Error: Invalid comparison operator in IF: "{PluginResult} lt;gt; OK"
Line: 59

Fixed the error message by replacing changing line 59 to "If {PluginResult} <> OK". Got the same error for line 89 so changed that to "If DSInventory[GUID] <> UsedKeyRings[KeyringGUID]". Don't get error messages anymore but it still doesn't work.

I start with the chest selected. He removes a key from the keyring. He unlocks the chest. He doesn't open the chest. He stands there for like 10 secs doing nothing. Then he removes another key from the keyring and tries to unlock the chest again.

I have a guildmate who is WAY better at script writing than me trying to help me figure it out but would be nice if you knew a quick fix.

Is it your main window? he wont be able to open the chest if the window is minimized, as it is sending a keypress to the open window. Also, is your R key mapped to something else?

 

-----signature-----