Code: Select all
| - SellItem.inc -
| Bob_the_builder
|
| 11/21/03
| #include SellItem
| /call SellItem "item_name"
Sub SellItem
/declare OldMoney local
/declare NewMoney local
/autoinv
/sendkey down shift
:Finding
/if n $count("@Param0")==0 /goto :Done
/finditem "@Param0"
:WaitFind
/if "$cursor()"=="FALSE" /goto :WaitFind
:Selling
/delay 1s
/varset OldMoney $char(cash)
/sellitem $selecteditem(count)
|/click left merchant sell
:WaitSell
/varset NewMoney $char(cash)
/if n @NewMoney==@OldMoney /goto :WaitSell
/goto :Finding
:Done
/sendkey up shift
|/endmacro
/return
