Page 1 of 1
Help with simple macro
Posted: Sat Oct 16, 2010 12:54 am
by fallenkal
Ok, im stuck on this part the purpose of this macro is to basically hand 100pp to my target and click the give button... it doesnt seem to work. it gets to the quantity part of the platinum then nothing... basically how do i tell it i want 100PP to go onto the cursor? thanks in advance; the current code is below.
Code: Select all
Sub Main
:start
}
}
/if (!${Window[InventoryWindow]}) /keypress inventory
/if (${Cursor.ID}) /destroy
/notify InventoryWindow IW_Money0 leftmouseup
/delay 1s
/click left target
/delay 3s
/notify GiveWnd GVW_Give_Button leftmouseup
/delay ${Math.Rand[3]}s
}
}
/goto :start
/return
Re: Help with simple macro
Posted: Sun Oct 17, 2010 5:43 am
by Jastur
In your script you clicked on the platinum slot inside your inventory window. You still need to tell it how much platinum, and then click the Ok button to get the plat on the cursor. The rest of it looks fine, but if your target is a player, the currency will not be traded because you need to be using the trade window, not the give window.
Re: Help with simple macro
Posted: Tue Oct 19, 2010 12:10 pm
by Villageidiot
Code: Select all
Sub Main
:start
}
}
/if (!${Window[InventoryWindow]}) /keypress inventory
/if (${Cursor.ID}) /destroy
/notify InventoryWindow IW_Money0 leftmouseup
/delay 1s
/notify QuantityWnd QTYW_InputSlider newvalue 100
/delay 1s
/notify QuantityWnd QTYW_Accept_Button leftmouseup
/delay 1s
/click left target
/delay 3s
/notify GiveWnd GVW_Give_Button leftmouseup
/delay ${Math.Rand[3]}s
}
}
/goto :start
/return
That would be my guess but for some reason the /notify QuantityWnd QTYW_SliderInput newvalue 100 isn't working
Re: Help with simple macro
Posted: Wed Oct 20, 2010 12:16 am
by mystikule
Code: Select all
/for i 1 to ${j}
/varset itemp ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}
/nomodkey /keypress backspace chat
/delay 3s ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}!=${itemp}
/next i
/for i 1 to ${GrabCount.Length}
/nomodkey /keypress ${GrabCount.Mid[${i},1]} chat
/delay 3s ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}==${i}
/next i
/nomodkey /notify QuantityWnd QTYW_Accept_Button leftmouseup
}
This is from one of my old macs..... used to work, but I haven't played eq in 1.5yrs. Hope it helps