Selling Macro

[Hades0721]

Having problems getting this macro to run. It won't parse the FindItem command. Says that an unparseable string of text was detected.

Code: Select all

| - SellItem.mac - 
| 
| Usage: /macro SellItem "Bottle of Milk" 
| 11/21/03 

| #event Selling "for the Electrum Malachite Bracelet."


Sub Main 
   /declare OldMoney global 
   /declare NewMoney global 

   /autoinv 
   

   :Finding 
      /newif (!${FindItem[@Param0].ID}) /goto :Done 
      ${FindItem[@Param0].InvSlot} 

   :WaitFind 
      /newif (!${SelectedItem[@Param0].ID}) /goto :WaitFind 

/doevents

   :WaitSell 
      /varset NewMoney ${Me.Cash} 
      /newif (@NewMoney==@OldMoney) /goto :WaitSell 
      /goto :Finding 

   :Done  
      /endmacro 

/return 

Sub Event_Selling
   :Selling 
      /delay 1s 
      /varset OldMoney ${Me.Cash} 
      /shiftkey /notify MerchantWnd MW_Sell_Button leftmouseup 
/return

[wassup]

Having problems getting this macro to run. It won't parse the FindItem command. Says that an unparseable string of text was detected.

Code: Select all

| - SellItem.mac - 
| 
| Usage: /macro SellItem "Bottle of Milk" 
| 11/21/03 

| #event Selling "for the Electrum Malachite Bracelet."


Sub Main 
   /declare OldMoney global 
   /declare NewMoney global 

   /autoinv 
   

   :Finding 
      /newif (!${FindItem[@Param0].ID}) /goto :Done 
      ${FindItem[@Param0].InvSlot} 

   :WaitFind 
      /newif (!${SelectedItem[@Param0].ID}) /goto :WaitFind 

/doevents

   :WaitSell 
      /varset NewMoney ${Me.Cash} 
      /newif (@NewMoney==@OldMoney) /goto :WaitSell 
      /goto :Finding 

   :Done  
      /endmacro 

/return 

Sub Event_Selling
   :Selling 
      /delay 1s 
      /varset OldMoney ${Me.Cash} 
      /shiftkey /notify MerchantWnd MW_Sell_Button leftmouseup 
/return

The bottle of milk holds an Electrum Malachite Bracelet? How interesting...

[Skye]

I wrap this around an INI-driven list of items that I don't ever want to keep. I kind of hacked this around to get it back to the poster's format - hope it helps.

[--edit--] Oh, this assumes that your packs are open - otherwise the /ctrlkey /itemnotify code will fail.

Code: Select all

Sub SellItem
	/declare OldMoney	int	local	0
	/declare NewMoney	int	local	0

	/autoinv 

	:Finding 
		/if (${FindItemCount[${Param0}]}==0) /goto :Done
		/ctrlkey /itemnotify ${FindItem[${Param0}].InvSlot} leftmouseup

	:WaitFind 
		/if (${Bool[${SelectedItem}]}==FALSE) /goto :WaitFind 

	:Selling 
		/delay 1s 
		/varset OldMoney ${Me.Cash}
		/shift /notify MerchantWnd MW_Sell_Button leftmouseup

	:WaitSell 
		/varset NewMoney $(Me.Cash}
		/if (${NewMoney}==${OldMoney}) /goto :WaitSell 
		/goto :Finding 

	:Done 

/return 

[magictiger]

Post this in the new macro help forum please. Probably get better response.