I dont remember where this code came from.. but I remember using it to turn in a ton of plat to a vendor for something...
will pick up the gold and hand it to the NPC without clicking turnin
sub Main
/echo Grabbing gold...
/if (${Window[InventoryWindow].Open}) {
/call GetQuantity InventoryWindow IW_Money0 10000000
/delay 3
/click left target
/delay ${Window[GiveWnd].Open}
/delay 1s
}
/return
Sub GetQuantity(string Wnd, string Ctrl, int Count)
/declare I int local
/declare J int local
/declare S string local
/echo in GetQuantity...
/delay 1s
/echo notifying ${Wnd} ${Ctrl} leftmouseup
/notify ${Wnd} ${Ctrl} leftmouseup
/delay 3s ( ${Window[QuantityWnd].Open} )
/for I 1 to 2
/varset J ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}
/if ( ${J} > 0 ) {
/keypress backspace chat
/delay 3s ( ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} < ${J} )
/varset I 1
} else {
/varset I 2
}
/next I
/varset S ${Count}
/for I 1 to ${S.Length}
/keypress ${S.Mid[${I},1]} chat
/delay 3s ( ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} == ${I} )
/next I
/delay 1s
/nomodkey /notify QuantityWnd QTYW_Accept_Button leftmouseup
/delay 3s ( !${Window[QuantityWnd].Open} )
/return
