Trigger: Harvest Bal
That plant has been fully harvested.
You have already harvested from this plant recently.
You have recovered balance on all limbs.
You find that you don't know how to harvest that. How odd.
What do you wish to harvest?
You don't have the skill to harvest from that plant yet.

pickPlants()

Trigger: HarvestRift
^You reach out and carefully harvest(?: \d+| a| an| some|\s+)(.+)s?\.$

if not string.find(matches[2],"pear") then
  send("inr all "..matches[2])
else
  send("inr all pear")
end

Trigger: harvestNewRoom
You see exits leading
You see a single exit
There are no obvious exits.

if autoHarvest then
  CurrentEnv = matches[2]
  echo("\n")
  harvestBegin(CurrentEnv)
end

Alias: autoHarvest
^aharv$

if not autoHarvest then
  autoHarvest=true
else
  autoHarvest=false
end

if not autoHarvest then
  cecho("\n<yellow>(<white>xTF<yellow>)<white> Auto Harvesting is Paused!")
else
  cecho("\n<yellow>(<white>xTF<yellow>)<white> Auto Harvesting is unPaused!")
end

if autoHarvest then
  harvestBegin(CurrentEnv)
end

Script: Harvester

RoomEnv = {
  ["Forest"] = {"echinacea", "elm", "ginger", "ginseng", "lobelia", "myrrh"},
  ["Garden"] = {"echinacea", "elm", "ginger", "ginseng", "lobelia", "myrrh"},
  ["Desert"] = {"pear", "weed"},
  ["Grasslands"] = {"goldenseal", "slipper"},
  ["Mountains"] = {"valerian"},
  ["Jungle"] = {"kuzu", "kola", "skullcap"},
  ["Natural underground"] = {"moss", "bloodroot"},
  ["Hills"] = {"bayberry", "hawthorn"},
  ["Swamp"] = {"ash", "cohosh", "bellwort"},
  ["Valley"] = {"sileris"},
  ["Freshwater"] = {"kelp"},
  ["River"] = {"kelp"},
  ["Water"] = {"kelp"},
  ["Ocean"] = {"kelp"},
};

gmcp.Room.Info.environment = CurrentEnv
CurrentEnv = ""
HarvestQueue = {
};

function harvestBegin(env)
  for i = 1,table.maxn(RoomEnv[env]) do
    table.insert(HarvestQueue, RoomEnv[env][i])
  end
  cecho("\n<white>[<blue>Harvesting<white>]<grey>: Commencing Plant Snatching!")
  enableTrigger("HarvestBal")
  pickPlants()
end

function pickPlants()
  if HarvestQueue[1] == nil  then
    cecho("\n<white>[<blue>Harvesting<white>]<grey>: Finished Snatching Plants!")
    disableTrigger("HarvestBal")
  else
    send("harvest " .. HarvestQueue[1])
    table.remove(HarvestQueue,1)
  end
end