|
Natedog
|
 |
« on: May 18, 2016, 04:56:20 am » |
|
This is so you don't break your wrist trying to combine all those damn HoH tokens... Works best if you use more than 1 character if you are in a hurry to combine them. Otherwise just put tokens on one character and just watch a movie or something because it will take awhile if you have tons of tokens 
DO NOT RUN THIS IF YOU HAVE BAGS INSIDE BAGS... (not sure why but someone else had an error doing this.. just a heads up) |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}
||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 .. ${AugmentItemCount} of this item.. ${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
|
|
|
|
« Last Edit: June 12, 2016, 12:00:24 am by Natedog »
|
Logged
|
|
|
|
|
Kelordis
|
|
« Reply #1 on: May 18, 2016, 10:36:05 am » |
|
Awesome, this will be handy when I farm Airplane for my UW.
Thanks Nate!
|
|
|
|
|
Logged
|
|
|
|
KnowFear
Newbie
Posts: 38
|
|
« Reply #2 on: May 18, 2016, 01:02:05 pm » |
|
If someone wants to donate a few hundred tokens to me I will gladly help test this out.
|
|
|
|
|
Logged
|
|
|
|
|
Danish
|
|
« Reply #3 on: May 18, 2016, 03:05:15 pm » |
|
hehe I think I have a script, that actually hands in the tokens to the guy upon your request aswell.
Not sure if its allowed, if so, I never used it.
|
|
|
|
|
Logged
|
|
|
|
|
balidet
|
|
« Reply #4 on: May 18, 2016, 03:56:09 pm » |
|
all banned!
now that they are clicks its pretty slick
|
|
|
|
|
Logged
|
|
|
|
Rent Due
EZ Server Admin GM
Administrator
Master
Posts: 776
|
|
« Reply #5 on: May 18, 2016, 04:20:31 pm » |
|
hehe I think I have a script, that actually hands in the tokens to the guy upon your request aswell.
Not sure if its allowed, if so, I never used it.
Was changed you no longer have to turn in the tokens just click them and the boss spawns. Thanks for the combining macro $$ |
|
|
|
|
Logged
|
|
|
|
Moggs
Newbie
Posts: 3
|
|
« Reply #6 on: November 07, 2017, 02:25:28 pm » |
|
By chance does one that actually works?
|
|
|
|
|
Logged
|
|
|
|
|
Loyal
|
|
« Reply #7 on: November 07, 2017, 04:53:26 pm » |
|
This works - i use it all the time.....i think a couple of the coin names are wrong in the original post so it will return an error? I hunted them down and fixed them in my macro back home (just find the misnamed coins and correct it)....then it runs quite nicely.
|
|
|
|
|
Logged
|
|
|
|
|
Poker-ecaf
|
|
« Reply #8 on: November 07, 2017, 07:36:55 pm » |
|
Turn in at Teleporter is much faster as use the cast ability !
didnt work to me that macro!
|
|
|
|
« Last Edit: November 07, 2017, 07:50:41 pm by Poker-ecaf »
|
Logged
|
|
|
|
|
WatchYouDie
|
|
« Reply #9 on: November 07, 2017, 09:31:48 pm » |
|
This works just used it 2 days ago. Need UF client has not been updated to rof
|
|
|
|
|
Logged
|
|
|
|
|
Raygan
|
|
« Reply #10 on: January 07, 2018, 02:27:13 pm » |
|
Is there any way to fix this for RoF2 client? i tried running it and gives an error message about unavailable bag slot or something.  |
|
|
|
|
Logged
|
Hate's Most Hateful Hater
|
|
|
gotee
Newbie
Posts: 36
|
|
« Reply #11 on: January 09, 2018, 08:30:24 pm » |
|
Anything that can be done to streamline the MPC tokens got tons.
|
|
|
|
|
Logged
|
|
|
|
|
WatchYouDie
|
|
« Reply #12 on: January 10, 2018, 01:24:16 am » |
|
Anything that can be done to streamline the MPC tokens got tons.
hand them in 4x at a time to teleporter for random name |
|
|
|
|
Logged
|
|
|
|
|
RedDwarf
|
|
« Reply #13 on: January 14, 2018, 11:42:56 am » |
|
Think he means to speed up the hand ins, to prevent carpal tunnel Something like this should work, have mule run it by observer, change last /delay to how long you want for next to be spawned, its dirty, but should work, not automating kills, just the hand in's Sub Main
:Loop
/if (${FindItemCount[=The MCP Quest Token]}<4 ) /endmacro
/if (${FindItemCount[=The MCP Quest Token]}>=4) {
/call Give
/goto :loop
}
/return
Sub Give
/ctrl /itemnotify ${FindItem[The MCP Quest Token].InvSlot} LeftMouseUp
/delay 10
/target Observer
/click left target
/delay 10
/ctrl /itemnotify ${FindItem[The MCP Quest Token].InvSlot} LeftMouseUp
/delay 10
/click left target
/delay 10
/ctrl /itemnotify ${FindItem[The MCP Quest Token].InvSlot} LeftMouseUp
/delay 10
/click left target
/delay 10
/ctrl /itemnotify ${FindItem[The MCP Quest Token].InvSlot} LeftMouseUp
/delay 10
/click left target
/delay 10
/notify GiveWnd GVW_Give_Button LeftMouseUP
/delay 100
/return |
|
|
|
|
Logged
|
|
|
|
synthaxx_17
Full Member
Posts: 124
rawr!
|
|
« Reply #14 on: January 14, 2018, 07:59:34 pm » |
|
Awesome! thanks for this MCP hand-in macro.
|
|
|
|
|
Logged
|
Ectheldir/Thoruz
(Alliance of the Savage)
|
|
|
|
