Combine HoH tokens macro..

[Guest]

Welcome, Guest. Please login or register.
Did you miss your activation email?

1 Hour 1 Day 1 Week 1 Month Forever

Login with username, password and session length

Getting Started

Rules

Character Mover

Optimization Guide

EZ Wiki

EZ Guide

Magelo

Zone List

Spell Recipes

T10.5 Spell Recipes

Crafting Recipes

Donate

EZ Player Discord

[EZ Server Files]

EZ Server Files

EZ Client Downloads

Custom UF MiniMap

Custom UF Inventory

EQEmu Server Status

EQEmulator Home

Allakhazam Home

UFMissingFilesList

TwitchTV

[Natedog]

There is a bug in MQ2 for RoF2 where the Name of the slot for bags is returning the incorrect value (always returns 1 higher than normal)


Until the bugged is fixed.. this will calculate the slot .. (should work? I hope )

Code:

|112921 - 112927 - T3 IDs
|112931 - 112937 - T4 IDs
#turbo 40
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||| Place A Magic Box in the 8th bag slot (bottom right)          ||||
|||| Any loss of tokens is not my fault Kappa                      ||||
|||| Written By: Natedog                                           ||||
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Sub Main
	/if (!${Defined[MagicBoxSlot]}) /declare MagicBoxSlot string outer
	|/varset MagicBoxSlot ${FindItem[=A Magic Box].InvSlot.Name}
	
	/varset MagicBoxSlot pack${Math.Calc[${FindItem[=A Magic Box].InvSlot.Name.Right[1]}-1].Int}
	
	||Lets open all bags!
	/if (!${Defined[bag]}) /declare bag int local 0
	/if (!${Defined[packnum]}) /declare packnum int 1
	/if (!${Defined[tokenid]}) /declare tokenid int 112921
	/if (!${Defined[T]}) /declare T int 1
	/if (!${Defined[CurrentID]}) /declare CurrentID int outer
	/if (!${Defined[ItemName]}) /declare ItemName string outer
	/if (!${Defined[TokenItemCount]}) /declare TokenItemCount int outer
	
	/for bag 1 to 8
		/if (!${Window[pack${bag}].Open} && ${InvSlot[pack${bag}].Item.Container}) /nomodkey /itemnotify pack${bag} rightmouseup
	/next bag
	
	/for tokenid 112927 downto 112921
		:retrycombine
			/for packnum 1 to 8
				/if (!${Window[pack${packnum}].Open} && ${InvSlot[pack${packnum}].Item.Container}) {
					/itemnotify pack${packnum} rightmouseup
					/delay 6
				}
				
				/if (${Window[pack${packnum}].Open} && ${InvSlot[pack${packnum}].Item.Container}) {
					/for T 1 to 10
						|Find the item by ID...
						/if (${InvSlot[pack${packnum}].Item.Item[${T}].ID} == ${tokenid}) {
							/varset CurrentID ${InvSlot[pack${packnum}].Item.Item[${T}].ID}
							/varset ItemName ${InvSlot[pack${packnum}].Item.Item[${T}].Name}
							/varset TokenItemCount ${FindItemCount[${ItemName}]}

							/if (${TokenItemCount} < 2) {
								|/echo Skipping ID.. ${CurrentID} - ${InvSlot[pack${packnum}].Item.Item[${T}].Name}
								/goto :dont_upgrade
								/echo Item skipped.. if we got here.. something is WRONG
							} else {
								|/echo We have .. ${InvSlot[pack${packnum}].Item.Item[${T}].Name}
								/ctrlkey /itemnotify in pack${packnum} ${T} leftmouseup
								/delay 6
								/call CombineHoHToken
								/call FindNextToken
								/goto :retrycombine
							}
						}
					/next T
				}	
			/next packnum
		:dont_upgrade
	/next tokenid
	
	|Close our bags back up...
	/for bag 1 to 8
		/if (${Window[pack${bag}].Open} && ${InvSlot[pack${bag}].Item.Container}) /nomodkey /itemnotify pack${bag} rightmouseup
	/next bag

/return

sub FindNextToken
	/if (!${Defined[P]}) /declare P int 1
	/if (!${Defined[packnum2]}) /declare packnum2 int 1
	/for packnum2 1 to 8
		/if (!${Window[pack${packnum2}].Open} && ${InvSlot[pack${packnum2}].Item.Container}) {
			/itemnotify pack${packnum2} rightmouseup
			/delay 6
		}
		
		/if (${Window[pack${packnum2}].Open} && ${InvSlot[pack${packnum2}].Item.Container}) {
			/for P 1 to 10
				/if (${InvSlot[pack${packnum2}].Item.Item[${P}].ID} == ${CurrentID}) {
					/ctrlkey /itemnotify in pack${packnum2} ${P} leftmouseup
					/delay 6
					/call CombineHoHToken
					/return
				}
			/next P
		}
	/next packnum2

/return

Sub CombineHoHToken
	|Make sure bag is open.. (it should be...)
	/if (!${Window[${MagicBoxSlot}].Open} && ${InvSlot[${MagicBoxSlot}].Item.Container}) /nomodkey /itemnotify ${MagicBoxSlot} rightmouseup
	/if (!${Defined[slot]}) /declare slot int 0
	/varset slot ${Math.Calc[${FindItem[A Magic Box].Items}+1]}
	/if (${slot} > 2) {
		/autoinventory
		/declare fixit int 1
		:fixbox
		/for fixit 1 to 10
			/delay 5
			/shiftkey /itemnotify in ${MagicBoxSlot} ${fixit} leftmouseup
			/delay 5
			/autoinventory
		/next fixit
		/if (${FindItem[A Magic Box].Items} > 0) {
			/goto :fixbox
		} else {
			/goto :endcombine
		}
	}
	/itemnotify in ${MagicBoxSlot} ${slot} leftmouseup
	/delay 6
	
	/if (${slot} == 2) {
		/combine ${MagicBoxSlot}
		/delay 1s
		/autoinventory
		/delay 15
	}
	:endcombine
/return

[Raygan]

Thanks Nate...I will give it a shot a little later this week and let ya know
 

[Raygan]

ok that combine macro works perfect for RoF2 client 

[Rakharth]

hmm cant get any of these to work opens all bags and just keeps picking one token up and putting it back in a bag and picking it up again I must be doing something wrong.

[Natedog]

hmm cant get any of these to work opens all bags and just keeps picking one token up and putting it back in a bag and picking it up again I must be doing something wrong.

If you updated mq2 recently i think the itemslot bug was fixed .. try this..

Code:

|112921 - 112927 - T3 IDs
|112931 - 112937 - T4 IDs
#turbo 40
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||| Place A Magic Box in the 8th bag slot (bottom right)          ||||
|||| Any loss of tokens is not my fault Kappa                      ||||
|||| Written By: Natedog                                           ||||
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Sub Main
	/if (!${Defined[MagicBoxSlot]}) /declare MagicBoxSlot string outer
	/varset MagicBoxSlot ${FindItem[=A Magic Box].InvSlot.Name}
	
	|/varset MagicBoxSlot pack${Math.Calc[${FindItem[=A Magic Box].InvSlot.Name.Right[1]}-1].Int}
	
	||Lets open all bags!
	/if (!${Defined[bag]}) /declare bag int local 0
	/if (!${Defined[packnum]}) /declare packnum int 1
	/if (!${Defined[tokenid]}) /declare tokenid int 112921
	/if (!${Defined[T]}) /declare T int 1
	/if (!${Defined[CurrentID]}) /declare CurrentID int outer
	/if (!${Defined[ItemName]}) /declare ItemName string outer
	/if (!${Defined[TokenItemCount]}) /declare TokenItemCount int outer
	
	/for bag 1 to 8
		/if (!${Window[pack${bag}].Open} && ${InvSlot[pack${bag}].Item.Container}) /nomodkey /itemnotify pack${bag} rightmouseup
	/next bag
	
	/for tokenid 112927 downto 112921
		:retrycombine
			/for packnum 1 to 8
				/if (!${Window[pack${packnum}].Open} && ${InvSlot[pack${packnum}].Item.Container}) {
					/itemnotify pack${packnum} rightmouseup
					/delay 6
				}
				
				/if (${Window[pack${packnum}].Open} && ${InvSlot[pack${packnum}].Item.Container}) {
					/for T 1 to 10
						|Find the item by ID...
						/if (${InvSlot[pack${packnum}].Item.Item[${T}].ID} == ${tokenid}) {
							/varset CurrentID ${InvSlot[pack${packnum}].Item.Item[${T}].ID}
							/varset ItemName ${InvSlot[pack${packnum}].Item.Item[${T}].Name}
							/varset TokenItemCount ${FindItemCount[${ItemName}]}

							/if (${TokenItemCount} < 2) {
								|/echo Skipping ID.. ${CurrentID} - ${InvSlot[pack${packnum}].Item.Item[${T}].Name}
								/goto :dont_upgrade
								/echo Item skipped.. if we got here.. something is WRONG
							} else {
								|/echo We have .. ${InvSlot[pack${packnum}].Item.Item[${T}].Name}
								/ctrlkey /itemnotify in pack${packnum} ${T} leftmouseup
								/delay 6
								/call CombineHoHToken
								/call FindNextToken
								/goto :retrycombine
							}
						}
					/next T
				}	
			/next packnum
		:dont_upgrade
	/next tokenid
	
	|Close our bags back up...
	/for bag 1 to 8
		/if (${Window[pack${bag}].Open} && ${InvSlot[pack${bag}].Item.Container}) /nomodkey /itemnotify pack${bag} rightmouseup
	/next bag

/return

sub FindNextToken
	/if (!${Defined[P]}) /declare P int 1
	/if (!${Defined[packnum2]}) /declare packnum2 int 1
	/for packnum2 1 to 8
		/if (!${Window[pack${packnum2}].Open} && ${InvSlot[pack${packnum2}].Item.Container}) {
			/itemnotify pack${packnum2} rightmouseup
			/delay 6
		}
		
		/if (${Window[pack${packnum2}].Open} && ${InvSlot[pack${packnum2}].Item.Container}) {
			/for P 1 to 10
				/if (${InvSlot[pack${packnum2}].Item.Item[${P}].ID} == ${CurrentID}) {
					/ctrlkey /itemnotify in pack${packnum2} ${P} leftmouseup
					/delay 6
					/call CombineHoHToken
					/return
				}
			/next P
		}
	/next packnum2

/return

Sub CombineHoHToken
	|Make sure bag is open.. (it should be...)
	/if (!${Window[${MagicBoxSlot}].Open} && ${InvSlot[${MagicBoxSlot}].Item.Container}) /nomodkey /itemnotify ${MagicBoxSlot} rightmouseup
	/if (!${Defined[slot]}) /declare slot int 0
	/varset slot ${Math.Calc[${FindItem[A Magic Box].Items}+1]}
	/if (${slot} > 2) {
		/autoinventory
		/declare fixit int 1
		:fixbox
		/for fixit 1 to 10
			/delay 5
			/shiftkey /itemnotify in ${MagicBoxSlot} ${fixit} leftmouseup
			/delay 5
			/autoinventory
		/next fixit
		/if (${FindItem[A Magic Box].Items} > 0) {
			/goto :fixbox
		} else {
			/goto :endcombine
		}
	}
	/itemnotify in ${MagicBoxSlot} ${slot} leftmouseup
	/delay 6
	
	/if (${slot} == 2) {
		/combine ${MagicBoxSlot}
		/delay 1s
		/autoinventory
		/delay 15
	}
	:endcombine
/return

[Rakharth]

Thanks will try that when i get home later.

[Sarthin]

Speaking from own experience, could also make sure you only have one magic box and that it's in the 8th slot.

[Rakharth]

hmm don't work says slot is null: could not send notification to in null. 

[Rakharth]

I Cant get this to work for me any ideas?

[Sarthin]

I don't have any other ideas, but I can combine for you if you want. Just hail me in game.

[Rakharth]

Thanks if i cant get this to work i will take you up on that offer.

[wendel]

so here is what I have... empty box in slot 8 I think.
All this mac does is pickup items from box 2 and return them...  no combines, no clicks, and thankfully no destroys lol
I'm running RoF client.

Thoughts?

[Sarthin]

https://imgur.com/a/JKrccQP 8 slot bag

This is the setup I have and the macro I use. If it's not working for you with this macro and the bag setup I have in the picture, my guess is you need to try a different MQ2 build.

[Rakharth]

I have tried multiple build im at a loss lol

[Knorgar]

Updated. Follow instructions.

I haven't reach HoH yet, but the rest of the combines for getting to there are giving me carpal tunnel anyways.

Code:

|Combine HoH tokens
|Have an empty Magic Box in slot 10
|1 2
|3 4
|5 6
|7 8  
|9 10 <--Empty "A Magic Box"
|

Sub Main
|This is the slot of the Magic Box I'll be using. Use 10 since I'm using Auto Inventory
/declare MagicBoxSlot string outer pack10
|These are the items I'm going to check for, grab 2 of, and combine them in
/declare item1 string outer Split Paw Quest Token
/declare item2 string outer The Oceanlord Quest Token
/declare item3 string outer The Lightbringer Quest Token
/declare item4 string outer The Tranquil Quest Token
/declare item5 string outer The Faceless Quest Token
/declare item6 string outer H-One N-One Quest Token
/declare item7 string outer The Prince of Darkness Quest Token
/declare i int outer 1

/keypress OPEN_INV_BAGS
|Delay 1minute until that condition is met
/delay 1m ${Window[pack8].Open}

|Cycle through all 7 of the items above
/for i 1 to 7
	:nextset
	|Check if I have 2 or more of the item
	/if (${FindItem[=${item${i}}].Stack} < 2) {
	/echo I don't have enough of ${item${i}} I only have ${FindItem[=${item${i}}].Stack}. Going to next one
	/next i
	}
	|Pickup the first one
	/ctrlkey /itemnotify ${FindItem[=${item${i}}].InvSlot} leftmouseup
	/delay 1m ${Cursor.ID} == ${FindItem[=${item${i}}].ID}
	/itemnotify in ${MagicBoxSlot} 1 leftmouseup
	/delay 1m !${Cursor.ID}
	|Pickup the second one
	/ctrlkey /itemnotify ${FindItem[=${item${i}}].InvSlot} leftmouseup
	/delay 1m ${Cursor.ID} == ${FindItem[=${item${i}}].ID}
	/itemnotify in ${MagicBoxSlot} 2 leftmouseup
	/delay 1m !${Cursor.ID}
	|Hit Combine and put it away
	/combine ${MagicBoxSlot}
	/delay 1m ${Cursor.ID}
	/delay 1s
	/autoinventory
	/delay 1m !${Cursor.ID}
	|If I still have more, go through the process again
	/if (${FindItem[${item${i}}].ID}) /goto :nextset
/next i

/echo Done!

/return

Advanced search

• Unable to log in by Chieftan [November 23, 2024, 07:04:51 am]
• Everquest Tweaks and Sett... by Pubis [November 18, 2024, 11:18:15 am]
• Broken Stuff Repair Shop ... by Draca [November 12, 2024, 08:47:03 am]
• Update to Halls of Honor by Sarthin [November 10, 2024, 04:57:40 pm]
• Halloween 2024 by clbreastmilk [November 04, 2024, 07:55:17 am]
• Some T12 Questions by Miriya [October 28, 2024, 01:38:59 pm]
• HW 2024 by Raygan [October 21, 2024, 08:03:01 am]
• Ninja Looting by zefirus [October 20, 2024, 04:55:10 pm]
• Official Guild Creation R... by Tylperion [September 15, 2024, 11:54:54 am]
• T11 Feedback Thread by Sarthin [August 28, 2024, 12:45:01 pm]
• What's next for the rest ... by Mixlor [August 27, 2024, 02:01:07 pm]
• Hard Mode NPC by Mixlor [August 06, 2024, 09:37:00 am]
• Looking for some advice (... by Draca [July 31, 2024, 10:55:17 am]
• 4th of July Event by orkiho [July 12, 2024, 07:35:22 pm]
• New Server update causing... by Mixlor [June 02, 2024, 01:01:54 am]
• Memorial Day Event by wachna [May 30, 2024, 01:52:28 pm]
• EZServer Rules by Sarthin [May 30, 2024, 01:10:12 pm]
• Fear Itself, testing week... by torotornot [May 24, 2024, 09:29:42 am]
• Fear Itself, the new Even... by kendiian [April 26, 2024, 11:48:38 pm]
• Recent & Upcoming Changes by Dokplayer2 [April 23, 2024, 10:48:30 pm]
• Issue with my epic by fangzy [April 22, 2024, 07:32:32 pm]
• Few Changes - T11, VP, Gu... by clbreastmilk [April 10, 2024, 11:32:33 am]
• Combine HoH tokens macro.... by Dbeast [April 04, 2024, 05:10:46 pm]
• Warlock self buffs by Fecs [April 04, 2024, 03:56:08 pm]

Members

• Total Members: 6156
• Latest: Rin1

Stats

• Total Posts: 65127
• Total Topics: 5066
• Online Today: 333
• Online Ever: 8678
• (December 19, 2022, 02:32:09 pm)

Users Online

Users: 1
Guests: 343
Total: 344

gunson3