Request - Looking for old school the hidden forest macros

[E9er]

Looking for older underfoot macros i completely suck with these types and play on the hidden forest where kiss wont work. Anyone can any THF macros they would like to share?

 

[Veradis_Melodia]

This is not my macro but written by a friend and close guildy of mine from way back when we ran THF. It will use casion tokens and inventory any items won. Be careful as you will run through your tokens quickly.

|THF Casino Macro By pw3ntt 01/24/2011
|open the bags where your tokens are being held, target the mob and
|run the mac. It does the rest for you!


Sub Main
/declare i int
:Loop
/for i 0 to 3
/call PickupToken
/call GiveToken ${i}
/next i
/call ClickTrade
/call ClearCursor
/if (${FindItem[Gold Ticket].ID}) {
/beep
/endmacro
}
/delay 1s
/goto :Loop
/return


Sub GiveToken(i)
/if (${i}>0) {
/notify GiveWnd GVW_MyItemSlot${i} leftmouseup
} else {
/click left target
:Loop
/delay 1
/if (!${Window[GiveWnd].Open}) /goto :Loop
}
/delay 3
/return


Sub PickupToken
/if (!${FindItem[King's Court Token].ID}) {
/echo Could not find King's Court Token in inventory
/beep
/endmacro
}


:Loop
/ctrl /itemnotify ${FindItem[=King's Court Token].InvSlot} leftmouseup


/if (!${Cursor.ID}) {
/delay 1
/goto :Loop
}
/return


Sub ClickTrade
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s
/return


sub ClearCursor
:Loop
/if (!${Cursor.ID}) /return
/autoinv
/delay 1s
/doevents
/goto :Loop
/return