Foraging Script (WIP)
This script is the overhaul of my macros shared above. It's not as spammy and considers which plant is nearby (instead of blindly trying to gather everything).
It will collect the closest plant in the range of 2 tiles and will clean the root (with the Coroner perk).
If you add "loop" at the end, it can be used on 3×3 farming fields (should be stopped manually).
The current list is NOT FULL, so I'll be updating as I'll be encountering new plants (or you can send me IDs).
The current script includes:
Code: Select all
- red pepper
- nightshade
- alfalfa
- bloodroot
- oleander
- mandrake
- ginseng
- black pearl
- garlic
- broccoli
- asparagus
- corn
- onions
- carrots or beet
- cabbage (only 1 type)
- cotton
- flax
Last update: June 16th, 2021
Added mandrake, oleander, bloodroot, alfalfa, nightshade, red pepper
Code: Select all
//// REAGENTS
# mandrake
if findtype '6367' true
dclicktype '6367' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '6367' true
wait 500
if insysmsg "plant bare"
dclicktype '3169' true
endif
wait 2500
endwhile
endif
endif
# ginseng
if findtype '6378' true
dclicktype '6378' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '6378' true
wait 500
if insysmsg "plant bare"
dclicktype '3198' true
endif
wait 2500
endwhile
endif
endif
# oleander
if findtype '15830' true
dclicktype '15830' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '15830' true
wait 500
if insysmsg "plant bare"
dclicktype '15701' true
endif
wait 2500
endwhile
endif
endif
# bloodroot
if findtype '3208' true
dclicktype '3208' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3208' true
wait 500
if insysmsg "plant bare"
dclicktype '15701' true
endif
wait 2500
endwhile
endif
endif
# alfalfa
if findtype '3209' true
dclicktype '3209' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3209' true
wait 500
if insysmsg "plant bare"
dclicktype '3219' true
endif
wait 2500
endwhile
endif
endif
# nightshade
if findtype '6373' true
dclicktype '6373' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '6373' true
wait 500
if insysmsg "plant bare"
dclicktype '6372' true
endif
wait 2500
endwhile
endif
endif
# black pearl
if findtype '3566' true
dclicktype '3566' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3566' true
wait 500
if insysmsg "plant bare"
dclicktype '3565' true
endif
wait 2500
endwhile
endif
endif
# garlic
if findtype '3183' true
dclicktype '3183' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3183' true
wait 500
if insysmsg "plant bare"
dclicktype '3177' true
endif
wait 2500
endwhile
endif
endif
//// VEGS
# broccoli
if findtype '3271' true
dclicktype '3271' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3271' true
wait 500
if insysmsg "plant bare"
dclicktype '3170' true
endif
wait 2500
endwhile
endif
endif
# red pepper
if findtype '3220' true
dclicktype '3220' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3220' true
wait 500
if insysmsg "plant bare"
dclicktype '3219' true
endif
wait 2500
endwhile
endif
endif
# asparagus
if findtype '3169' true
dclicktype '3169' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3169' true
wait 500
if insysmsg "plant bare"
dclicktype '3169' true
endif
wait 2500
endwhile
endif
endif
if findtype '3170' true
dclicktype '3170' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3170' true
wait 500
if insysmsg "plant bare"
dclicktype '3170' true
endif
wait 2500
endwhile
endif
endif
if findtype '3171' true
dclicktype '3171' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3171' true
wait 500
if insysmsg "plant bare"
dclicktype '3171' true
endif
wait 2500
endwhile
endif
endif
# corn
if findtype '3197' true
dclicktype '3197' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3197' true
wait 500
if insysmsg "plant bare"
dclicktype '3198' true
endif
wait 2500
endwhile
endif
endif
# onions
if findtype '3183' true
dclicktype '3183' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3183' true
wait 500
if insysmsg "plant bare"
dclicktype '3177' true
endif
wait 2500
endwhile
endif
endif
# carrots or beet
if findtype '3190' true
dclicktype '3190' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3190' true
wait 500
if insysmsg "plant bare"
dclicktype '3183' true
dclicktype '3177' true
endif
wait 2500
endwhile
endif
endif
# cabbage (3195 will not work until the id of gathered cabbage is not fixed)
#if findtype '3195' true
# dclicktype '3195' true
# wait 3000
#
# if not insysmsg "plant bare"
# while insysmsg 'You harvest' or insysmsg 'You fail'
# dclicktype '3195' true
# wait 500
# if insysmsg "plant bare"
# dclicktype '3169' true
# endif
# wait 2500
# endwhile
# endif
#endif
if findtype '3196' true
dclicktype '3196' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3196' true
wait 500
if insysmsg "plant bare"
dclicktype '3169' true
endif
wait 2500
endwhile
endif
endif
//// TAILORING
# cotton
if findtype '3151' true
dclicktype '3151' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3151' true
wait 500
if insysmsg "plant bare"
dclicktype '3155' true
dclicktype '3156' true
endif
wait 2500
endwhile
endif
endif
if findtype '3152' true
dclicktype '3152' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '3152' true
wait 500
if insysmsg "plant bare"
dclicktype '3155' true
dclicktype '3156' true
endif
wait 2500
endwhile
endif
endif
# flax
if findtype '6809' true
dclicktype '6809' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '6809' true
wait 500
if insysmsg "plant bare"
dclicktype '6810' true
endif
wait 2500
endwhile
endif
endif
if findtype '6810' true
dclicktype '6810' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '6810' true
wait 500
if insysmsg "plant bare"
dclicktype '6810' true
endif
wait 2500
endwhile
endif
endif
if findtype '6811' true
dclicktype '6811' true
wait 3000
if not insysmsg "plant bare"
while insysmsg 'You harvest' or insysmsg 'You fail'
dclicktype '6811' true
wait 500
if insysmsg "plant bare"
dclicktype '6810' true
endif
wait 2500
endwhile
endif
endif