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

Make an instance.

There are no camps.. just like live. Only thing frowned upon is kill stealing stuff you are already engaged on.

Line 250 has an error btw :p

Code:

/ That took ${howlong} seconds.

guessing you meant to echo?

P.s. If you feel this thread was started jus to brag about my new pc, you are only partially right.

Gimme your old PC and I will forgive you... or just one of the SSDs.

I like to run out full time and incorporate special commands through the BC channel and other chat channels for people I play with.


With this setup when I  /bc natebot assist

Every character that is running that macro and is in the current zone of the commander (character that sent the command).. will assist him.

This is only a few of the commands written into it.. there are a shit ton of them.

One of the commands will have all characters sell off everything in their inventory to the currently targeted vendor.. based on an INI file of looted/sellable shit.



example...

Code:

#event BcRequest "<#2#> natebot #1#"
#event TellMSG "#2# tells you, 'natebot #1#'"
#event BctRequest "[#2#(msg)] natebot #1#"

Sub Event_TellMSG(string message, string request, string commander)
	/call CommandRequest "${commander.Right[-2].Left[-1]}" "${request}"
/return

Sub Event_BcRequest(string message, string request, string commander)
	/call CommandRequest "${commander}" "${request}"
/return

Sub Event_BctRequest(string message, string request, string commander)
	/call CommandRequest "${commander}" "${request}"
/return


Sub CommandRequest(string commander, string request)
	/declare arg1 string
	/declare arg2 string
	/declare arg3 string
	/declare arg4 string
	/declare arg5 string
	
	/varset arg1 ${request.Arg[1," "].Lower}
	
	/echo Request is ${arg1}
	/if (${arg1.Equal[assist]}) {
		|Only assist if they are in the zone
		/varset arg2 ${request.Arg[2," "].Lower}
		/if (${Spawn[PC ${commander}].ID}) {
			/varset stickid 0
			/varset startcombat ${arg2}
			/echo New Target: ${Spawn[id ${arg2}].Name} requested from ${commander}
			/if (${startcombat}) {
				/varset autocombat 1
			} else {
				/varset autocombat 0
			}
		}
	} else /if (${arg1.Equal[space]}) {
		/if (${commander.Equal[${Me.Name}]}) {
			/popup I have ${Me.FreeInventory} inventory slots left!
		} else {
			/tell ${commander} I have ${Me.FreeInventory} inventory slots left!
		}
	} else /if (${arg1.Equal[followme]}) {
		/varset arg2 ${request.Arg[2," "].Lower}
		/if (${Spawn[PC ${commander}].ID} && ${commander.NotEqual[${Me.Name}]}) {
			/varset startcombat 0
			/varset autocombat 0
			/if (${arg2.Equal[on]}) {
				/attack off
				/varset stickid ${Spawn[PC ${commander}].ID}
				/target id ${Spawn[PC ${commander}].ID}
				/delay 3
				/stick ${stickfollow}
			} else {
				/varset stickid 0
				/stick off
			}
		}
	} else /if (${arg1.Equal[vendor]}) {
		/varset arg2 ${request.Arg[2," "].Lower}
		/if (${Spawn[PC ${commander}].ID}) {
			/varset startcombat 0
			/call SellToVendor ${arg2}
		}
	}
/return

Why not write a permanent macro that is run by all toons and when needed you can trigger buffs with commands / auto buff. 

Ill loan you some plat for RL money?

Looks like AoE from the Zerker Epic is hitting the Zerker, killed myself a few times before I figured out what was going on.

my zerker epic wasnt hitting me /shrug

Increasing the cost of things that the top end players already have just hurts the players that are new... lol

Not a very good idea to do that

Make the GC hit 4x harder... give everyone a debuff that makes them take 75% less magic / physical damage... so PVP won't be instant 1 shots

When they leave the zone the debuff is removed

If you have Perl I have a script loads all my characters and changes the ID for you.... not sure if anyone is interested though as it requires perl

10 ToFS7 essences... wtb the hax you are using

Sorry to necro this dead topic...


Regarding spell effects not being able to be seen on RoF2.. someone on the EQEMU forums posted about replacing...
spellsnew.edd
spellsnew.eff

In their RoF2 folder with the ones from a UF / HOT install and then they were able to see spell effects just fine..

I personally use those files from a Live install of EQ.. which is probably why I never noticed them not wokring.. (They are used for weapon glows as well)

Do you have the plugin loaded? .. /plugin mq2autologin load