MacroQuest64

Code: Select all

|Casino Plat-waster by Groo Apr 29, 2004

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