Code: Select all
| questitem.mac
| Useage: /macro QuestItem "bandages"
| Bob the Builder
| 11/1/03
|#turbo
Sub Main
/declare QuestItem local
:Finding
/doevents
/if n $count("@Param0")==0 /goto :Done
/finditem "@Param0"
:WaitFind
/doevents
/if "$cursor()"=="FALSE" /goto :WaitFind
:GiveItem
/sendkey down ctrl
/for QuestItem 1 to 4
/doevents
/if n $count("@Param0")==0 /goto :Done
/finditem "@Param0"
/delay 5
/if "$cursor()"=="FALSE" /goto Done
/lclicktarget
/click left npctrade $int($calc(@QuestItem-1))
/delay 5
/next QuestItem
/sendkey up ctrl
/click left npctrade give
/delay 5
/goto :Giveitem
:Done
/doevents flush
/sendkey up shift
/endmacro
/return


