Here's my old one:
Worked for everything:
CODE
#CLASS {Class Skills|Concoctions|Harvesting}
#ALIAS harvesting {#IF (@harvesting=1) {#if (@autoharvesting=1) {autohv};#VA harvesting {0};#echo {%ansi( white)Harvesting Disabled};#noop %btncol( hvbtn, magenta, black)} {#VA harvesting {1};#echo {%ansi( white)Harvesting Enabled};#noop %btncol( hvbtn, magenta, white)}}
#ALIAS autohv {#if (@harvesting=1) {#IF (@autoharvesting=1) {#VA autoharvesting {0};#echo {%ansi( white)Autoharvesting Disabled};#noop %btncol( autohvbtn, magenta, black)} {#VA autoharvesting {1};#echo {%ansi( white)Autoharvesting Enabled-%ansi( high, yellow)CAUTION-Do not use when in the forest};#noop %btncol( autohvbtn, magenta, white)}}}
#BUTTON 46 {Harvesting} {harvesting} {} {} {} {} {} {} {} {} {Pos} {0} {140} {95} {} {} {} "" {} {} {hvbtn}
#BUTTON 47 {Autoharvest} {autohv} {} {} {} {} {} {} {} {} {} {} {} {95} {} {} {} "" {} {} {autohvbtn}
#CLASS 0
#CLASS {Class Skills|Concoctions|Harvesting|Hvstscrpt}
#ALIAS hv {#if (@harvesting=1) {harvest %pop( plantlist)}}
#ALIAS pts {#if (@harvesting=1) {plants;~ };#if (@harvesting=0) {~pt %1}}
#VAR plantcheck {0}
#VAR plantlist {}
#VAR longnames
#addk longnames {red elm=elm|wild ginger=ginger|myrrh bush=myrrh|echinacea=echinacea|ginseng=ginseng|lobelia=lobelia|Irid moss=moss|bloodroot=bloodroot|kelp=kelp|lady's slipper=slipper|goldenseal=goldenseal|hawthorn=hawthorn|bayberry tree=bayberry|valerian=valerian|pear=pear|cactus weed=weed|sileris=sileris|kola tree=kola|skullcap=skullcap|kuzu vine=kuzu|black cohosh=cohsoh|bellwort=bellwort|Prickly ash tree=ash}
#VAR harvesting {0}
#VAR autoharvesting {0}
#REGEX {^The following plants are growing in this room\:$} {#var plantcheck 1}
#REGEX {^(\d+)h\, (\d+)m\, (\d+)e\, (\d+)w (?pflags:[cexkdb@]*)\-} {#if (@plantcheck=1) {#var plantcheck 0;hv}}
#REGEX {^(.+)\((([A-Za-z\s]+|lady\'s slipper))\)(\s+)(\w+)$} {#if (@plantcheck=1) {#if %iskey( @longnames, %2) {#forall %db( @longnames, %2) {#addi plantlist {%i}}}}}
#REGEX {^You reach out and carefully harvest (.*)\.$} {inr %1}
#REGEX {^You have recovered balance on all limbs\.$} {#if (@harvesting=1) {#if (@autoharvesting=1) {hv}}}
#REGEX {^That plant has been fully harvested\.$} {#if (@harvesting=1) {#if (@autoharvesting=1) {hv}}}
#REGEX {^You have already harvested from this plant recently\.$} {#if (@harvesting=1) {#if (@autoharvesting=1) {hv}}}
#CLASS 0
you can use the buttons to turn it on and off, PTS to check plants and then HV to harvest them.
If autoharvesting is disabled, you have to use HV after every balance recovery.
Edit: If you don't want to use the buttons, you can use HARVESTING to turn it on and off, and then AUTOHV to turn on the harvesting on balance recovery.