Code: Select all
| - Farming.mac -
| use /macro farming.mac "item name" |without the "s
| press F9 once and make sure ur char is in the center
| and zoom out as much as possible
#include routines.mac
|#Event Trees "Usage: /click"
|#Event Feets "Your feet"
Sub Main
/doevents
/varset v85 0
/varset v87 1
/varset v90 0
/mqlog
:again
/call StatStuff
/delay 5
/itemtarget $p0
/call Runto
/call AutoRun 0
/delay 10
/delay 20
/call Pickup
/doevents
/goto :again
/return
Sub Runto
/echo running
/face item
/call AutoRun 1
:runningto
/varadd v85 1
/varset v67 "$char(x)"
/varset v68 "$char(y)"
/if n "$v67"=="$char(x)" /if "$v68"=="$char(y)" /call Tree
/if n "$v85"=="50" /face item
/if n "$v85"=="50" /varset v85 0
/if n "$distance(item)"<"10" /goto :done
/goto :runningto
:done
/return
sub Pickup
/doevents
/echo picking up
/face item
/cleanup
/delay 20
/doevents
/click left item
/delay 30
/if $cursor()!=TRUE /call trees
/mqlog Got $p0
/click left auto
/delay 5
/doevents
/varadd v87 1
/return
sub Tree
/doevents
/echo Hit a tree.. turning
/delay 10
/varcalc v69 $char(heading)+20
/face heading $v69
/sendkey down up
/delay 5
/call runto
/return
sub StatStuff
/doevents
/echo starting to look for the $v87 , $p0
/echo $count("Yew Leaf") Yew leaves in Inventory
/if n "$V87"=="10 /varadd V90 10
/if n "$v87"=="10" /mqlog You have found $v90 , $p0
/if n "$v87"=="10" /varset v87 1
/doevents
/return
Sub Event_Feets
/doevents
/delay 1
/cleanup
/echo Jbootsing
/mouseto equip feet
/click right
/delay 1
/mouseto inv 4
/click right
/return
Sub Trees
/mqlog $p0 in tree, or out of range.
/face away item
/call autorun 1
/echo running for 20 seconds.
/delay 20
/itemtarget none
/return