Back to "pet" tags

Plants - The Auto-Gardener by jfrostp

Created: 05/14/2024
Last Updated: about 1 year ago
Description from the author:

Automatically plants, waters, toils, cures, etc all plants within a 3-tile radius of you

# Auto-gardener by Frost # Make sure to have lots of gardening tools in your backpack. # You will be prompted for any new seeds to plant. # This script will use the first planter spade it finds in your pack, so be sure to only have the one you want to use in your pack. # Adjust the variables below to turn on/off what you want the script to manage. It defaults to doing everything. # Set these if you want it to cure **detrimental** effects setvar! cureCreatures 1 setvar! cureFungus 1 setvar! curePestilents 1 # Set these for how you want it to setvar! useFertilizer 1 setvar! useGrowthSerum 1 setvar! useWaterBooster 1 setvar! useHeatingGrate 1 setvar! plantSeeds 1 # Set this if you are near water and want it to refill your watering cans for you setvar! autoRefillWateringCans 0 #------------------------------------------- #------------------------------------------- clearignore clearsysmsg gumpclose setvar! debug 0 if autoRefillWateringCans = 1 overhead 'Refilling watering cans..' while findtype 25570 backpack as wateringCan getlabel wateringCan waterLevel if " 0/" in waterLevel dclick wateringCan wait 750 if insysmsg "nearby water" break endif endif ignore wateringCan endwhile clearignore endif # Harvest any finished plants first while findtype 6330|6333|6334|6335|6337|6338|6341|28987|6341|4550|4551|6327|6328|6330 true as planter getlabel planter planterLabel if "arvest" in planterLabel dclick planter waitforgump 3224608375 wait 150 gumpresponse 2 waitforgump 3224608375 wait 150 gumpclose endif @ignore planter endwhile clearignore while findtype 6330|6333|6334|6335|6337|6338|6341|28987|6341|4550|4551|6327|6328|6330 true as planter if debug = 1 overhead 'Begin planter' endif clearsysmsg getlabel planter planterLabel dclick planter waitforgump 3224608375 wait 150 if "%" in planterLabel gumpresponse 2 waitfortarget waitforgump 3224608375 elseif plantSeeds = 0 ignore planter continue else gumpclose gumpclose wait 500 dclick planter wait 100 waitforgump 3224608375 overhead 'Select a seed to plant' unsetvar seed setvar! seed gumpresponse 2 waitfortarget waitforgump 3224608375 target seed if debug = 1 overhead 'planting new seed' overhead seed endif if insysmsg "not a plant seed" overhead 'No seed selected, aborting script' stop endif waitforgump 3224608375 # Estimate levels for new plant gumpresponse 3 waitforgump 3224608375 gumpresponse 4 waitforgump 3224608375 gumpresponse 5 waitforgump 3224608375 wait 150 endif if debug = 1 overhead 'heat' endif # Add boosters if missing if useHeatingGrate = 1 if findtype 28741|11942|28719 backpack as heatingGrate gumpresponse 2 waitfortarget waitforgump 3224608375 target heatingGrate wait 300 else overhead 'Out of heating grates!' endif endif if debug = 1 overhead 'filter' endif if useWaterBooster = 1 if findtype 20501|20502|20503 backpack as waterBooster gumpresponse 2 waitfortarget waitforgump 3224608375 target waterBooster wait 300 else overhead 'Out of water boosters!' endif endif if debug = 1 overhead 'fert' endif if useFertilizer = 1 if findtype 4154|19403|29217 backpack as fertilizer gumpresponse 2 waitfortarget waitforgump 3224608375 target fertilizer wait 300 else overhead 'Out of fertilizer!' endif endif if debug = 1 overhead 'growth' endif if useGrowthSerum = 1 if findtype 20498|20499|20500 backpack as growthSerum gumpresponse 2 waitfortarget waitforgump 3224608375 target growthSerum wait 300 else overhead 'Out of growth serum!' endif endif if debug = 1 overhead 'watering' endif # Water clearsysmsg setvar! waterDone 0 while findtype 25570 backpack as wateringCan # Use watering cans until done getlabel wateringCan waterLevel if " 0/" in waterLevel ignore wateringCan else gumpresponse 2 waitfortarget waitforgump 3224608375 target wateringCan waitforgump 3929333591 gumpresponse 2 waitforgump 3929333591 gumpclose 3929333591 if insysmsg "not yet estimated" # Estimate levels gumpclose 3224608375 wait 500 dclick planter wait 100 waitforgump 3224608375 gumpresponse 3 waitforgump 3224608375 if insysmsg "spade is required" overhead 'No plater spade found!' stop endif gumpresponse 4 waitforgump 3224608375 gumpresponse 5 waitforgump 3224608375 wait 150 endif endif if insysmsg "unable to meet" gumpclose gumpclose wait 500 dclick planter wait 100 waitforgump 3224608375 ignore wateringCan else setvar! waterDone 1 break endif wait 200 endwhile gumpclose 3224608375 wait 500 if waterDone = 0 overhead 'Out of water!' stop endif if debug = 1 overhead 'soil' endif # Soil clearsysmsg setvar! soil 0 if findtype 2323 backpack as dirt setvar! soil dirt endif if soil = 0 overhead 'Out of soil' stop endif dclick planter wait 100 waitforgump 3224608375 gumpresponse 2 waitfortarget waitforgump 3224608375 target soil waitforgump 3224608375 waitforgump 4024474571 gumpresponse 2 waitforgump 3224608375 waitforgump 4024474571 gumpclose 3224608375 wait 500 # Labor and toil dclick planter wait 100 waitforgump 3224608375 gumpresponse 2 waitfortarget if findtype 29868 backpack as spade target spade else overhead 'No spade found in backpack!' stop endif waitforgump 1429840072 gumpresponse 6 waitforgump 3224608375 waitforgump 1429840072 gumpclose 1429840072 gumpclose 3224608375 wait 500 # Pests/etc if debug = 1 overhead 'cure detrimental pests' endif dclick planter wait 100 waitforgump 3224608375 # Try to fix up to 3 negative effects for 3 gumpresponse 10 waitforgump 3224608375 wait 100 if insysmsg 'Reduces' gumpresponse 10 waitforgump 3224608375 wait 100 if insysmsg 'Fungal' and cureFungus = 1 if findtype 6193 backpack as cure overhead 'Cured fungus' gumpresponse 2 waitfortarget waitforgump 3224608375 target cure wait 500 else overhead 'Out of fungicide!' endif endif gumpresponse 10 waitforgump 3224608375 wait 100 if insysmsg 'Creature' and cureCreatures = 1 if findtype 29343 backpack as cure overhead 'Cured creature' gumpresponse 2 waitfortarget waitforgump 3224608375 target cure wait 500 else overhead 'Out of farmers almanacs!' endif endif gumpresponse 10 waitforgump 3224608375 wait 100 if insysmsg 'Pestilent' and curePestilents = 1 if findtype 6187 backpack as cure overhead 'Cured pestilent' gumpresponse 2 waitfortarget waitforgump 3224608375 target cure wait 500 else overhead 'Out of defoliant!' endif endif else break endif endfor if debug = 1 overhead 'Planter done' endif ignore planter endwhile gumpclose overhead 'Done! Move to the next 3x3 area of planters' clearignore

Quick Filters

Bard Quick SearchCrafter Quick SearchDexxer Quick SearchHarvester Quick SearchMage Quick SearchPVM Quick SearchPVP Quick SearchStealth Quick SearchTamer Quick Search