Code: Select all
| -Forage.mac-
sub Main
/cleanup
:MainLoop
/doevents
/call Forage
/delay 10
/goto :MainLoop
/return
sub Forage
/if n $char(ability,"forage")>0 {
/doability 2
/delay 5
/echo $cursor(name)
/if "$cursor(name)"=="Vegetables" /call Inventory
/if "$cursor(name)"=="Berries" /call Inventory
/if "$cursor(name)"=="Pod of Water" /call Inventory
/if "$cursor(name)"=="Fishing Grubs" /call Inventory
/if "$cursor(name)"=="Yew Leaf" /call Inventory
/if "$cursor(name)"=="Dragon Egg" /call Inventory
/if "$cursor(name)"=="Drake Egg" /call Inventory
/if "$cursor(name)"=="Wurm Egg" /call Inventory
/call Destroy
}
/return
sub Inventory
/if $invpanel==FALSE /press i
/if $invpanel==TRUE {
/mouseto 550 50
/click left
}
/return
sub Destroy
/if $invpanel==FALSE /press i
/if $invpanel==TRUE {
/mouseto 550 240
/click left
}
/return


