useherbs.lic

=begin

	Script to heal yourself with herbs.

	Will use herbs in your herbsack, or on a bench or something.
	Works with any combination of herbs from any town.
	Herbsack must be set. ( unless using bench mode, ;set change herbsack <container> )
	Might heal your Adventurer's Guild escort. ( ;useherbs escort )
	Will buy missing herbs. ( ;useherbs buy=on )

	https://github.com/matt-lowe/lich-scripts
	tillmen@lichproject.org

=end

unless defined?(dothis) and defined?(GameObj)
	echo 'Your version of Lich is too old for this script.'
	exit
end

# fixme: garland of sovyn cloves
# fixme: skip more better
# fixme: buy herbs/right hand full

known_herbs = [
	{ :name=>"some acantha leaf",                :type=>"blood", :store_doses=>10 },
	{ :name=>"some spicy acantha leaf",          :type=>"blood", :store_doses=>10 },
	{ :name=>"tincture of acantha",              :type=>"blood" },
	{ :name=>"tincture of yabathilium",          :type=>"blood" },
	{ :name=>"yabathilium fruit",                :type=>"blood" },
	{ :name=>"iceberry tart",                    :type=>"blood", :store_doses=>10 },
	{ :name=>"some acantha leaf tea",            :type=>"blood" },
	{ :name=>"grey mushroom potion",             :type=>"blood" },
	{ :name=>"flagon of Olak's Ol'style ale",    :type=>"blood" },
	{ :name=>"barrel of Olak's Ol'style ale",    :type=>"blood" },
	{ :name=>"flagon of Bloody Krolvin ale",     :type=>"blood" },
	{ :name=>"barrel of Bloody Krolvin ale",     :type=>"blood" },
	{ :name=>"some aloeas stem",                 :type=>"major head wound", :store_doses=>2 },
	{ :name=>"some withered aloeas stem",        :type=>"major head wound", :store_doses=>2 },
	{ :name=>"tincture of aloeas",               :type=>"major head wound" },
	{ :name=>"some ram's bladder",               :type=>"major head wound", :store_doses=>2 },
	{ :name=>"feverfew potion",                  :type=>"major head wound" },
	{ :name=>"sticky lichen tea",                :type=>"major head wound" },
	{ :name=>"flagon of Dark Swampwater ale",    :type=>"major head wound" },
	{ :name=>"barrel of Dark Swampwater ale",    :type=>"major head wound" },
	{ :name=>"rose-marrow potion",               :type=>"minor head wound", :store_doses=>4 },
	{ :name=>"crystalline rose-marrow elixir",   :type=>"minor head wound" },
	{ :name=>"tincture of rose-marrow",          :type=>"minor head wound" },
	{ :name=>"elk horn potion",                  :type=>"minor head wound", :store_doses=>4 },
	{ :name=>"some feverfew tea",                :type=>"minor head wound" },
	{ :name=>"rusty red ale",                    :type=>"minor head wound" },
	{ :name=>"flagon of Semak's Smooth ale",     :type=>"minor head wound" },
	{ :name=>"barrel of Semak's Smooth ale",     :type=>"minor head wound" },
	{ :name=>"brostheras potion",                :type=>"major head scar", :store_doses=>2 },
	{ :name=>"crystalline brostheras elixir",    :type=>"major head scar" },
	{ :name=>"tincture of brostheras",           :type=>"major head scar" },
	{ :name=>"some polar bear fat soup",         :type=>"major head scar", :store_doses=>2 },
	{ :name=>"pennyroyal potion",                :type=>"major head scar" },
	{ :name=>"stone soot brew",                  :type=>"major head scar" },
	{ :name=>"flagon of Reaper's Red ale",       :type=>"major head scar" },
	{ :name=>"barrel of Reaper's Red ale",       :type=>"major head scar" },
	{ :name=>"some haphip root",                 :type=>"minor head scar", :store_doses=>4 },
	{ :name=>"some dirty haphip root",           :type=>"minor head scar", :store_doses=>4 },
	{ :name=>"tincture of haphip",               :type=>"minor head scar" },
	{ :name=>"sparrowhawk pie",                  :type=>"minor head scar", :store_doses=>4 },
	{ :name=>"pennyroyal tea",                   :type=>"minor head scar" },
	{ :name=>"dull crimson ale",                 :type=>"minor head scar" },
	{ :name=>"flagon of Agrak's Amber ale",      :type=>"minor head scar" },
	{ :name=>"barrel of Agrak's Amber ale",      :type=>"minor head scar" },
	{ :name=>"some pothinir grass",              :type=>"major organ wound", :store_doses=>2 },
	{ :name=>"some bright green pothinir grass", :type=>"major organ wound", :store_doses=>2 },
	{ :name=>"tincture of pothinir",             :type=>"major organ wound" },
	{ :name=>"musk ox tart",                     :type=>"major organ wound", :store_doses=>2 },
	{ :name=>"ginkgo nut potion",                :type=>"major organ wound" },
	{ :name=>"roasted ratweed tea",              :type=>"major organ wound" },
	{ :name=>"flagon of Aged Schooner ale",      :type=>"major organ wound" },
	{ :name=>"barrel of Aged Schooner ale",      :type=>"major organ wound" },
	{ :name=>"some basal moss",                  :type=>"minor organ wound", :store_doses=>4 },
	{ :name=>"tincture of moss",                 :type=>"minor organ wound" },
	{ :name=>"sticky ball of basal moss",        :type=>"minor organ wound", :store_doses=>4 },
	{ :name=>"tincture of basal",                :type=>"minor organ wound" },
	{ :name=>"some tundra grass",                :type=>"minor organ wound", :store_doses=>4 },
	{ :name=>"some ginkgo nut tea",              :type=>"minor organ wound" },
	{ :name=>"chunky black ale",                 :type=>"minor organ wound" },
	{ :name=>"flagon of Mama Dwarf's ale",       :type=>"minor organ wound" },
	{ :name=>"barrel of Mama Dwarf's ale",       :type=>"minor organ wound" },
	{ :name=>"wingstem potion",                  :type=>"major organ scar", :store_doses=>2 },
	{ :name=>"crystalline wingstem elixir",      :type=>"major organ scar" },
	{ :name=>"tincture of wingstem",             :type=>"major organ scar" },
	{ :name=>"earthworm potion",                 :type=>"major organ scar", :store_doses=>2 },
	{ :name=>"wyrmwood root potion",             :type=>"major organ scar" },
	{ :name=>"dirty crevice brew",               :type=>"major organ scar" },
	{ :name=>"flagon of Wort's Winter ale",      :type=>"major organ scar" },
	{ :name=>"barrel of Wort's Winter ale",      :type=>"major organ scar" },
	{ :name=>"talneo potion",                    :type=>"minor organ scar", :store_doses=>4 },
	{ :name=>"crystalline talneo elixir",        :type=>"minor organ scar" },
	{ :name=>"tincture of talneo",               :type=>"minor organ scar" },
	{ :name=>"rock lizard potion",               :type=>"minor organ scar", :store_doses=>4 },
	{ :name=>"wyrmwood root tea",                :type=>"minor organ scar" },
	{ :name=>"brown weedroot ale",               :type=>"minor organ scar" },
	{ :name=>"flagon of Gert's Homemade ale",    :type=>"minor organ scar" },
	{ :name=>"barrel of Gert's Homemade ale",    :type=>"minor organ scar" },
	{ :name=>"bur-clover potion",                :type=>"missing eye", :store_doses=>1 },
	{ :name=>"crystalline bur-clover elixir",    :type=>"missing eye", },
	{ :name=>"tincture of bur-clover",           :type=>"missing eye" },
	{ :name=>"starfish potion",                  :type=>"missing eye", :store_doses=>1 },
	{ :name=>"daggit root potion",               :type=>"missing eye" },
	{ :name=>"dirty rat fur potion",             :type=>"missing eye" },
	{ :name=>"flagon of Volcano Vision ale",     :type=>"missing eye" },
	{ :name=>"barrel of Volcano Vision ale",     :type=>"missing eye" },
	{ :name=>"some ephlox moss",                 :type=>"major limb wound", :store_doses=>4 },
	{ :name=>"gooey ball of ephlox moss",        :type=>"major limb wound" },
	{ :name=>"tincture of ephlox",               :type=>"major limb wound" },
	{ :name=>"some frog's bone porridge",        :type=>"major limb wound", :store_doses=>4 },
	{ :name=>"sweetfern potion",                 :type=>"major limb wound" },
	{ :name=>"crushed cavegrass tea",            :type=>"major limb wound" },
	{ :name=>"flagon of Golden Goose ale",       :type=>"major limb wound" },
	{ :name=>"barrel of Golden Goose ale",       :type=>"major limb wound" },
	{ :name=>"some ambrominas leaf",             :type=>"minor limb wound", :store_doses=>4 },
	{ :name=>"some sugary ambrominas leaf",      :type=>"minor limb wound", },
	{ :name=>"tincture of ambrominas",           :type=>"minor limb wound" },
	{ :name=>"Dabbings Family special tart",     :type=>"minor limb wound", :store_doses=>4 },
	{ :name=>"some sweetfern tea",               :type=>"minor limb wound" },
	{ :name=>"bubbling brown ale",               :type=>"minor limb wound" },
	{ :name=>"flagon of Lost Dogwater ale",      :type=>"minor limb wound" },
	{ :name=>"barrel of Lost Dogwater ale",      :type=>"minor limb wound" },
	{ :name=>"some calamia fruit",               :type=>"major limb scar", :store_doses=>2 },
	{ :name=>"some ripe calamia fruit",          :type=>"major limb scar" },
	{ :name=>"tincture of calamia",              :type=>"major limb scar" },
	{ :name=>"some walrus blubber",              :type=>"major limb scar", :store_doses=>2 },
	{ :name=>"manroot potion",                   :type=>"major limb scar" },
	{ :name=>"stalactite brew",                  :type=>"major limb scar" },
	{ :name=>"flagon of Mad Mutt Frothy ale",    :type=>"major limb scar" },
	{ :name=>"barrel of Mad Mutt Frothy ale",    :type=>"major limb scar" },
	{ :name=>"some cactacae spine",              :type=>"minor limb scar", :store_doses=>4 },
	{ :name=>"some prickly cactacae spine",      :type=>"minor limb scar" },
	{ :name=>"tincture of cactacae",             :type=>"minor limb scar" },
	{ :name=>"some elk fat gel",                 :type=>"minor limb scar", :store_doses=>4 },
	{ :name=>"manroot tea",                      :type=>"minor limb scar" },
	{ :name=>"spotted toadstool ale",            :type=>"minor limb scar" },
	{ :name=>"flagon of Bearded Ladies' ale",    :type=>"minor limb scar" },
	{ :name=>"barrel of Bearded Ladies' ale",    :type=>"minor limb scar" },
	{ :name=>"some sovyn clove",                 :type=>"severed limb", :store_doses=>1 },
	{ :name=>"sovyn clove",                      :type=>"severed limb" },
	{ :name=>"tincture of sovyn",                :type=>"severed limb" },
	{ :name=>"some rock ptarmigan feathers",     :type=>"severed limb", :store_doses=>1 },
	{ :name=>"angelica root potion",             :type=>"severed limb" },
	{ :name=>"grainy black potion",              :type=>"severed limb" },
	{ :name=>"flagon of Captn' Pegleg's ale",    :type=>"severed limb" },
	{ :name=>"barrel of Captn' Pegleg's ale",    :type=>"severed limb" },
	{ :name=>"bolmara potion",                   :type=>"major nerve wound", :store_doses=>4 },
	{ :name=>"crystalline bolmara elixir",       :type=>"major nerve wound" },
	{ :name=>"tincture of bolmara",              :type=>"major nerve wound" },
	{ :name=>"snowflake elixir",                 :type=>"major nerve wound", :store_doses=>4 },
	{ :name=>"red lichen potion",                :type=>"major nerve wound" },
	{ :name=>"glowing mold tea",                 :type=>"major nerve wound" },
	{ :name=>"flagon of Kenar's Dropjaw ale",    :type=>"major nerve wound" },
	{ :name=>"barrel of Kenar's Dropjaw ale",    :type=>"major nerve wound" },
	{ :name=>"some wolifrew lichen",             :type=>"minor nerve wound", :store_doses=>4 },
	{ :name=>"some dry wolifrew lichen",         :type=>"minor nerve wound", },
	{ :name=>"tincture of wolifrew",             :type=>"minor nerve wound" },
	{ :name=>"Leaftoe's lichen tart",            :type=>"minor nerve wound", :store_doses=>4 },
	{ :name=>"some red lichen tea",              :type=>"minor nerve wound" },
	{ :name=>"thick foggy ale",                  :type=>"minor nerve wound" },
	{ :name=>"flagon of Orc's Head ale",         :type=>"minor nerve wound" },
	{ :name=>"barrel of Orc's Head ale",         :type=>"minor nerve wound" },
	{ :name=>"some woth flower",                 :type=>"major nerve scar", :store_doses=>2 },
	{ :name=>"some fragrant woth flower",        :type=>"major nerve scar" },
	{ :name=>"tincture of woth",                 :type=>"major nerve scar" },
	{ :name=>"flower-shaped tart",               :type=>"major nerve scar", :store_doses=>2 },
	{ :name=>"valerian root potion",             :type=>"major nerve scar" },
	{ :name=>"stalagmite brew",                  :type=>"major nerve scar" },
	{ :name=>"flagon of Dacra's Dream ale",      :type=>"major nerve scar" },
	{ :name=>"barrel of Dacra's Dream ale",      :type=>"major nerve scar" },
	{ :name=>"some torban leaf",                 :type=>"minor nerve scar", :store_doses=>3 },
	{ :name=>"some fresh torban leaf",           :type=>"minor nerve scar" },
	{ :name=>"tincture of torban",               :type=>"minor nerve scar" },
	{ :name=>"Ma Leaftoe's spiced torban tart",  :type=>"minor nerve scar", :store_doses=>4 },
	{ :name=>"valerian root tea",                :type=>"minor nerve scar" },
	{ :name=>"dark frothing ale",                :type=>"minor nerve scar" },
	{ :name=>"flagon of Miner's Muddy ale",      :type=>"minor nerve scar" },
	{ :name=>"barrel of Miner's Muddy ale",      :type=>"minor nerve scar" },
	{ :name=>"dimly glowing sky-blue potion",    :type=>"disease" },
	{ :name=>"dimly glowing sea-green potion",   :type=>"poison" },
]

silence_me

drinkable         = /potion|tea|elixir|brew|tincture|ale|soup/
skippable         = Array.new
close_herbsack    = false
stow_container_id = nil
preposition       = 'in'
return_to_stow    = false
herb_container    = nil
right_hand_save   = nil
left_hand_save    = nil
buy_missing       = CharSettings['buy_missing']
start_room        = Room.current
herb_shop_menu    = nil
silvers           = nil
withdraw_amount   = 8000
deposit_silvers   = false
used_herbs        = Array.new

=begin
if script.vars[1].downcase == 'set'
	if script.vars[2].downcase == 'buy-missing'
		CharSettings['buy-missing'] = nil
	if script.vars[2].downcase == 'fill-missing'
		CharSettings['fill-missing'] = nil
	elsif script.vars[2].downcase == 'use-haste'
		
	elsif script.vars[2].downcase == 'use-mending'
		
	else
		echo 'unknown setting'
	end
	exit
end
=end

too_wounded_to_cast = proc {
	([Wounds.head, Scars.head, Wounds.nsys, Scars.nsys].max > 1) or ([Wounds.leftArm, Wounds.leftHand, Wounds.rightArm, Wounds.rightHand, Scars.leftArm, Scars.leftHand, Scars.rightArm, Scars.rightHand].max > 2) or ( ([Wounds.leftArm, Wounds.leftHand, Scars.leftArm, Scars.leftHand].max > 0) and ([Wounds.rightArm, Wounds.rightHand, Scars.leftArm, Scars.leftHand].max > 0) )
}

go_to_herbalist = proc {
	if working_herbalist = Room.current.find_nearest(Room.list.find_all { |room| room.tags.include?('herbalist') and not room.title.any? { |t| t =~ /Valina's Herbs and Tinctures|Marroux and Haert, Chirurgeons/ } })
		start_script 'go2', [ working_herbalist.to_s ]
	else
		start_script 'go2', [ 'herbalist', '--disable-confirm' ]
	end
	wait_while { running?('go2') }
}

next_herb_type = proc {
	herb_type = nil
	#unless herb_type or skippable.include?('disease')
	#	if checkdisease
	#		herb_type = 'disease'
	#	end
	#end
	#unless herb_type or skippable.include?('poison')
	#	if checkpoison
	#		herb_type = 'poison'
	#	end
	#end
	unless herb_type
		herb_type = 'blood' if (percenthealth < 50) and not skippable.include?('blood')
	end
	unless herb_type
		for area in [ 'head', 'neck', 'torso', 'limbs', 'nerves' ] - skippable
			if Wounds.send(area) > 1
				area = 'head' if area == 'neck'
				area = 'organ' if area == 'torso'
				area = 'limb' if area == 'limbs'
				area = 'nerve' if area == 'nerves'
				herb_type = "major #{area} wound"
				break
			end
		end
	end
	unless herb_type
		for area in [ 'head', 'neck', 'torso', 'limbs', 'nerves' ] - skippable
			if Wounds.send(area) == 1
				area = 'head' if area == 'neck'
				area = 'organ' if area == 'torso'
				area = 'limb' if area == 'limbs'
				area = 'nerve' if area == 'nerves'
				herb_type = "minor #{area} wound"
				break
			end
		end
	end
	unless herb_type
		herb_type = 'severed limb' if (Scars.limbs == 3) and not skippable.include?('limbs')
	end
	unless herb_type
		herb_type = 'missing eye' if (Scars.reye == 3 or Scars.leye == 3) and not skippable.include?('torso')
	end
	unless herb_type
		for area in [ 'head', 'neck', 'torso', 'limbs', 'nerves' ] - skippable
			if Scars.send(area) > 1
				area = 'head' if area == 'neck'
				area = 'organ' if area == 'torso'
				area = 'limb' if area == 'limbs'
				area = 'nerve' if area == 'nerves'
				herb_type = "major #{area} scar"
				break
			end
		end
	end
		unless herb_type
			for area in [ 'head', 'neck', 'torso', 'limbs', 'nerves' ] - skippable
				if Scars.send(area) == 1
					area = 'head' if area == 'neck'
					area = 'organ' if area == 'torso'
					area = 'limb' if area == 'limbs'
					area = 'nerve' if area == 'nerves'
					herb_type = "minor #{area} scar"
					break
				end
			end
		end
	unless herb_type
		herb_type = 'blood' if (checkhealth + 7) < maxhealth and not skippable.include?('blood')
	end
	herb_type
}

stow_herb = proc {
	if return_to_stow and (Room.current.id != start_room.id)
		start_script 'go2', [ start_room.id.to_s ]
		wait_while { running?('go2') }
	end
	if used_herbs.include?(GameObj.right_hand.id)
		result = dothistimeout "put ##{GameObj.right_hand.id} #{preposition} ##{herb_container.id}", 10, /^You put|^You slip|^You carefully add|^A sigh of grateful pleasure can be heard as you feed .*? to your|^I could not find what you were referring to\.$/
		if result =~ /^I could not find what you were referring to\./
			dothistimeout "drop ##{GameObj.right_hand.id}", 10, /^You drop/
		end
	end
	if used_herbs.include?(GameObj.left_hand.id)
		dothistimeout "put ##{GameObj.left_hand.id} #{preposition} ##{herb_container.id}", 10, /^You put|^You slip|^You carefully add|^A sigh of grateful pleasure can be heard as you feed .*? to your|^I could not find what you were referring to\.$/
		if result =~ /^I could not find what you were referring to\./
			dothistimeout "drop ##{GameObj.right_hand.id}", 10, /^You drop/
		end
	end
}

read_menu = proc {
	status_tags
	clear
	fput 'unhide' if hidden? or invisible?
	fput 'order'
	menu = Hash.new
	while (line = get) and (line !~ /ORDER|BUY/)
		for item in line.scan(/<d.*?cmd=["']order ([0-9]+).*?>(.*?)<\/d>/)
			menu[item[1].sub(/^a /, '')] = item[0]
		end
	end
	status_tags
	clear
	menu
}

check_silvers = proc {
	silvers = nil
	action = proc { |server_string|
		if server_string =~ /^\s*Name\:|^\s*Gender\:|^\s*Normal \(Bonus\)|^\s*Strength \(STR\)\:|^\s*Constitution \(CON\)\:|^\s*Dexterity \(DEX\)\:|^\s*Agility \(AGI\)\:|^\s*Discipline \(DIS\)\:|^\s*Aura \(AUR\)\:|^\s*Logic \(LOG\)\:|^\s*Intuition \(INT\)\:|^\s*Wisdom \(WIS\)\:|^\s*Influence \(INF\)\:/
			nil
		elsif server_string =~ /^\s*Mana\:\s+\-?[0-9]+\s+Silver\:\s+([0-9]+)/
			silvers = $1.to_i
			DownstreamHook.remove("#{script.name}_check_silvers")
			nil
		else
			server_string
		end
	}
	DownstreamHook.add("#{script.name}_check_silvers", action)
	silence_me unless undo_silence = silence_me
	put 'info'
	silence_me if undo_silence
	wait_until { silvers }
	silvers
}

buy_herb = proc { |herb_type|
	unless silvers
		silvers = check_silvers.call
	end
	unless herb_shop_menu
		herb_shop_menu = read_menu.call
	end
	herb_name = herb_shop_menu.keys.find { |name| known_herbs.any? { |h| (h[:type] == herb_type) and (name =~ /#{h[:name]}/ or name =~ /#{h[:name].sub(/sticky |gooey | green| fragrant| shiny| dirty/, '')}/) } }
	unless order_number = herb_shop_menu[herb_name]
		echo "error: failed to find a herb for #{herb_type} in the menu"
		exit
	end
	dothistimeout "order #{order_number}", 3, /BUY/
	buy_result = dothistimeout 'buy', 3, /Sold for [0-9]+ silver|^But you do not have enough silver!/
	if buy_result =~ /Sold for ([0-9]+) silver/
		silvers -= $1.to_i
	elsif buy_result =~ /^But you do not have enough silver!/
		start_script 'go2', [ 'bank', '_disable_confirm_' ]
		wait_while { running?('go2') }
		fput 'unhide' if invisible?
		# fixme: Pinefar bank is dumb
		result = dothistimeout "withdraw #{withdraw_amount} silvers", 1, /debt collector/
		if result =~ /debt collector/
			fput "withdraw #{withdraw_amount} silvers"
		end
		silvers += withdraw_amount
		deposit_silvers = true
		go_to_herbalist.call
		redo
	else
		silvers = check_silvers.call
	end
	if checkright
		GameObj.right_hand
	else
		nil
	end
}

if script.vars[0] =~ /help/i
	respond
	respond 'To use the herbs in your herbsack:'
	respond
	respond '   ;setting change herbsack <container>'
	respond
	respond '   ;useherbs'
	respond
	respond 'To use the herbs on a bench or something:'
	respond
	respond '   ;useherbs on bench'
	respond
	respond '   ;useherbs behind altar'
	respond
	respond 'To use the herbs on a bench without picking up the eatables:'
	respond
	respond '   ;useherbs on bench noget'
	respond
	respond 'To look up what herbs heal what:'
	respond
	respond '   ;useherbs list'
	respond
	respond '   Append any combination of these to the previous example to narrow down the list: minor, major, severed, missing, head, organ, limb, nerve, eye, blood, wound, scar'
	respond
	respond "To heal your Adventurer's Guild escort (not well tested):"
	respond
	respond '   ;useherbs escort'
	respond
	respond 'Other options:'
	respond
	respond '   ;useherbs buy=<on/off>             Buy missing herbs or not in the future.'
	respond '   ;useherbs haste=<on/off>           Use haste before healing.'
	respond '   ;useherbs mending=<on/off>         Use sigil of mending before healing.'
	respond '   ;useherbs --buy-missing=<on/off>   Buy missing herbs or not for this run only.'
	respond 
	exit
elsif script.vars[1] =~ /^list$/i
	if (script.vars[0] =~ /major|severed|missing/i) and (script.vars[0] !~ /minor/i)
		known_herbs.delete_if { |herb| herb[:type] !~ /major|severed|missing/i }
	elsif (script.vars[0] =~ /minor/i) and (script.vars[0] !~ /major|severed|missing/i)
		known_herbs.delete_if { |herb| herb[:type] !~ /minor/ }
	end
	if (script.vars[0] =~ /wound/i) and (script.vars[0] !~ /scar|missing|severed/i)
		known_herbs.delete_if { |herb| herb[:type] !~ /wound/ }
	elsif (script.vars[0] =~ /scar|missing|severed/i) and (script.vars[0] !~ /wound/i)
		known_herbs.delete_if { |herb| herb[:type] !~ /scar|missing|severed/ }
	end
	if script.vars[0] =~ /head|neck|organ|limb|leg|arm|hand|nerve|eye|blood|health|poison|posion|disease/
		known_herbs.delete_if { |herb| herb[:type] =~ /head/ } unless script.vars[0] =~ /head|neck/
		known_herbs.delete_if { |herb| herb[:type] =~ /organ|eye/ } unless script.vars[0] =~ /organ|eye/
		known_herbs.delete_if { |herb| herb[:type] =~ /limb/ } unless script.vars[0] =~ /limb|leg|arm|hand/
		known_herbs.delete_if { |herb| herb[:type] =~ /nerve/ } unless script.vars[0] =~ /nerve/
		known_herbs.delete_if { |herb| herb[:type] =~ /blood/ } unless script.vars[0] =~ /blood|health/
		known_herbs.delete_if { |herb| herb[:type] =~ /poison/ } unless script.vars[0] =~ /poison|posion/
		known_herbs.delete_if { |herb| herb[:type] =~ /disease/ } unless script.vars[0] =~ /disease/
	end
	list = Hash.new
	for herb in known_herbs
		list[herb[:type]] ||= Array.new
		list[herb[:type]].push(herb[:name])
	end
	output = "\n"
	for type,herbs in list
		output.concat "#{monsterbold_start}#{type}:#{monsterbold_end} #{herbs.join(', ')}\n"
	end
	output.concat "\n"
	if defined?(_respond)
		_respond output
	else
		puts output
	end
	exit
elsif script.vars[1] =~ /^buy=(on|off|true|false|yes|no)$/
	fix_option = { 'on' => true, 'true' => true, 'yes' => true, 'off' => false, 'false' => false, 'no' => false }
	CharSettings['buy_missing'] = fix_option[$1]
	echo 'setting saved'
	exit
elsif script.vars[1] =~ /^haste=(on|off|true|false|yes|no)$/
	fix_option = { 'on' => true, 'true' => true, 'yes' => true, 'off' => false, 'false' => false, 'no' => false }
	CharSettings['use-haste'] = fix_option[$1]
	echo 'setting saved'
	exit
elsif script.vars[1] =~ /^mending=(on|off|true|false|yes|no)$/
	fix_option = { 'on' => true, 'true' => true, 'yes' => true, 'off' => false, 'false' => false, 'no' => false }
	CharSettings['use-mending'] = fix_option[$1]
	echo 'setting saved'
	exit
elsif script.vars[1].downcase == 'fill'
	# 5-7 doses: There is a good bit left in the rose-marrow potion.
	# 3-4 doses: There is a small amount in the rose-marrow potion.
	# 1-2 doses: There is just a little left in the rose-marrow potion.

	start_room = Room.current
	if UserVars.herbsack.nil? or UserVars.herbsack.empty?
		echo 'herbsack is not set (;set change herbsack <container name>)'
		exit
	end
	unless herb_container = GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack.strip)}/i } || GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack).sub(' ', ' .*')}/i }
		echo "error: unable to find container \"#{UserVars.herbsack}\" in your inventory."
		exit
	end
	close_herbsack = false
	if herb_container.contents.nil?
		open_result = dothistimeout "open ##{herb_container.id}", 10, /^You open|^That is already open\.$/
		if open_result =~ /^You open/
			close_herbsack = true
		else
			dothistimeout "look in ##{herb_container.id}", 10, /In the .*? you see/
			if herb_container.contents.nil?
				echo 'fixme 2'
				exit
			end
		end
	end
	unless silvers
		silvers = check_silvers.call
	end
	unless silvers > 4000
		start_script 'go2', [ 'bank', '_disable_confirm_' ]
		wait_while { running?('go2') }
		fput 'unhide' if invisible?
		# fixme: Pinefar bank is dumb
		result = dothistimeout "withdraw #{withdraw_amount} silvers", 1, /debt collector/
		if result =~ /debt collector/
			fput "withdraw #{withdraw_amount} silvers"
		end
		silvers += withdraw_amount
		deposit_silvers = true
	end
	start_script 'go2', [ '325' ]
	wait_while { running?('go2') }
	herb_shop_menu = read_menu.call
	for herb_type in [ 'blood', 'major head wound', 'minor head wound', 'major head scar', 'minor head scar', 'major organ wound', 'minor organ wound', 'major organ scar', 'minor organ scar', 'missing eye', 'major limb wound', 'minor limb wound', 'major limb scar', 'minor limb scar', 'severed limb', 'major nerve wound', 'minor nerve wound', 'major nerve scar', 'minor nerve scar' ]
		unless herb_container.contents.any? { |obj| known_herbs.any? { |herb| (herb[:name] == obj.name) and herb[:type] == herb_type } }
			#echo "no herb for #{herb_type}"
			herb_name = herb_shop_menu.keys.find { |name| known_herbs.any? { |h| (h[:type] == herb_type) and (name =~ /#{h[:name]}/ or name =~ /#{h[:name].sub(/sticky |gooey | green| fragrant| shiny| dirty/, '')}/) } }
			unless order_number = herb_shop_menu[herb_name]
				echo "error: failed to find a herb for #{herb_type} in the menu"
				exit
			end
			dothistimeout "order #{order_number}", 3, /BUY/
			buy_result = dothistimeout 'buy', 3, /Sold for [0-9]+ silver|^But you do not have enough silver!/
			if buy_result =~ /Sold for ([0-9]+) silver/
				silvers -= $1.to_i
			elsif buy_result =~ /^But you do not have enough silver!/
				start_script 'go2', [ 'bank', '_disable_confirm_' ]
				wait_while { running?('go2') }
				fput 'unhide' if invisible?
				# fixme: Pinefar bank is dumb
				result = dothistimeout "withdraw #{withdraw_amount} silvers", 1, /debt collector/
				if result =~ /debt collector/
					fput "withdraw #{withdraw_amount} silvers"
				end
				silvers += withdraw_amount
				deposit_silvers = true
				go_to_herbalist.call
				redo
			else
				silvers = check_silvers.call
			end
			if checkright
				herb = GameObj.right_hand
				dothistimeout "put ##{herb.id} #{preposition} ##{herb_container.id}", 10, /^You put|^You slip|^You carefully add|^A sigh of grateful pleasure can be heard as you feed .*? to your|^I could not find what you were referring to\.$/
				if herb_info = known_herbs.find { |h| h[:name] =~ /#{herb.name}$/ }
					$count_herbs[herb.id] = herb_info[:store_doses]
				end
			end
		end
	end
	fput "close ##{herb_container.id}" if close_herbsack
	start_script 'go2', [ start_room.id.to_s ]
	wait_while { running?('go2') }
	exit
elsif script.vars[1].downcase == 'escort'
	close_herbsack = false
	unless herb_container = GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack.strip)}/i } || GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack).sub(' ', ' .*')}/i }
		echo "error: unable to find container \"#{UserVars.herbsack}\" in your inventory."
		exit
	end
	if herb_container.contents.nil?
		open_result = dothistimeout "open ##{herb_container.id}", 10, /^You open|^That is already open\.$/
		if open_result =~ /^You open/
			close_herbsack = true
		else
			dothistimeout "look in ##{herb_container.id}", 10, /In the .*? you see/
			if herb_container.contents.nil?
				echo 'fixme 2'
				exit
			end
		end
	end
	if script.vars[2]
		unless escort = GameObj.npcs.find { |npc| npc.id == script.vars[2] }
			echo "Failed to find an npc with id #{script.vars[2]}."
			dothistimeout "close ##{herb_container.id}", 5, /^You close|^That is already closed\.$/ if close_herbsack
			exit
		end
	else
		unless escort = GameObj.npcs.find { |npc| npc.type =~ /escort/ }
			echo "Failed to find an escort."
			dothistimeout "close ##{herb_container.id}", 5, /^You close|^That is already closed\.$/ if close_herbsack
			exit
		end
	end
	look_result = dothistimeout "look ##{escort.id}", 5, /^(?:She|He) appears to be in good shape\.|^(?:She|He) has|^I could not find what you were referring to\./
	if look_result.nil?
		echo 'error: timed out'
	elsif look_result =~ /^I could not find what you were referring to\./
		echo "error: can't see escort"
	elsif look_result =~ /^(?:She|He) appears to be in good shape\./
		echo 'nothing to do'
	elsif look_result =~ /^(?:She|He) has/
		escort_injuries = Array.new
		if look_result =~ /severe head trauma and bleeding from the ears/
			escort_injuries.push('major head wound')
			escort_injuries.push('major head wound')
		end
		if look_result =~ /minor lacerations about the head and a possible mild concussion/
			escort_injuries.push('major head wound')
		end
		if look_result =~ /snapped bones and serious bleeding from the neck/
			escort_injuries.push('major head wound')
			escort_injuries.push('major head wound')
		end
		if look_result =~ /moderate bleeding from (?:his|her) neck/
			escort_injuries.push('major head wound')
		end
		if look_result =~ /deep gashes and serious bleeding from (?:his|her) chest/
			escort_injuries.push('major organ wound')
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /deep lacerations across (?:his|her) chest/
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /deep gashes and serious bleeding from (?:his|her) abdomen/
			escort_injuries.push('major organ wound')
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /deep lacerations across (?:his|her) abdomen/
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /deep gashes and serious bleeding from (?:his|her) back/
			escort_injuries.push('major organ wound')
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /deep lacerations across (?:his|her) back/
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /a blinded right eye/
			escort_injuries.push('missing eye')
		end
		if look_result =~ /a blinded left eye/
			escort_injuries.push('missing eye')
		end
		if look_result =~ /a swollen right eye/
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /a swollen left eye/
			escort_injuries.push('major organ wound')
		end
		if look_result =~ /a completely severed right leg/
			escort_injuries.push('severed limb')
		end
		if look_result =~ /a completely severed left leg/
			escort_injuries.push('severed limb')
		end
		if look_result =~ /a completely severed right arm/
			escort_injuries.push('severed limb')
		end
		if look_result =~ /a completely severed left arm/
			escort_injuries.push('severed limb')
		end
		if look_result =~ /a completely severed right hand/
			escort_injuries.push('severed limb')
		end
		if look_result =~ /a completely severed left hand/
			escort_injuries.push('severed limb')
		end
		if look_result =~ /a fractured and bleeding right leg/
			escort_injuries.push('major limb wound')
		end
		if look_result =~ /a fractured and bleeding left leg/
			escort_injuries.push('major limb wound')
		end
		if look_result =~ /a fractured and bleeding right arm/
			escort_injuries.push('major limb wound')
		end
		if look_result =~ /a fractured and bleeding left arm/
			escort_injuries.push('major limb wound')
		end
		if look_result =~ /a fractured and bleeding right hand/
			escort_injuries.push('major limb wound')
		end
		if look_result =~ /a fractured and bleeding left hand/
			escort_injuries.push('major limb wound')
		end
		if look_result =~ /a case of uncontrollable convulsions/
			escort_injuries.push('major nerve wound')
		end
		if look_result =~ /a case of sporadic convulsions/
			escort_injuries.push('major nerve wound')
		end
		if look_result =~ /minor bruises about the head/
			escort_injuries.push('minor head wound')
		end
		if look_result =~ /minor bruises on (?:his|her) neck/
			escort_injuries.push('minor head wound')
		end
		if look_result =~ /minor cuts and bruises on (?:his|her) chest/
			escort_injuries.push('minor organ wound')
		end
		if look_result =~ /minor cuts and bruises on (?:his|her) abdomen/
			escort_injuries.push('minor organ wound')
		end
		if look_result =~ /minor cuts and bruises on (?:his|her) back/
			escort_injuries.push('minor organ wound')
		end
		if look_result =~ /a bruised right eye/
			escort_injuries.push('minor organ wound')
		end
		if look_result =~ /a bruised left eye/
			escort_injuries.push('minor organ wound')
		end
		if look_result =~ /some minor cuts and bruises on (?:his|her) right leg/
			escort_injuries.push('minor limb wound')
		end
		if look_result =~ /some minor cuts and bruises on (?:his|her) left leg/
			escort_injuries.push('minor limb wound')
		end
		if look_result =~ /some minor cuts and bruises on (?:his|her) right arm/
			escort_injuries.push('minor limb wound')
		end
		if look_result =~ /some minor cuts and bruises on (?:his|her) left arm/
			escort_injuries.push('minor limb wound')
		end
		if look_result =~ /some minor cuts and bruises on (?:his|her) right hand/
			escort_injuries.push('minor limb wound')
		end
		if look_result =~ /some minor cuts and bruises on (?:his|her) left hand/
			escort_injuries.push('minor limb wound')
		end
		if look_result =~ /a strange case of muscle twitching/
			escort_injuries.push('minor nerve wound')
		end
		echo escort_injuries.inspect
		empty_right_hand
		for herb_type in escort_injuries
			herb = nil
			if known_herbs.any? { |h| (h[:name].sub(/^(?:some|flagon of|barrel of) /, '') == GameObj.right_hand.name) and (h[:type] == herb_type) }
				herb = GameObj.right_hand
			elsif known_herbs.any? { |h| (h[:name].sub(/^(?:some|flagon of|barrel of) /, '') == GameObj.left_hand.name) and (h[:type] == herb_type) }
				herb = GameObj.left_hand
			else
				if herb = herb_container.contents.find { |i| known_herbs.find { |h| (h[:name] == i.name) and h[:type] == herb_type } }
					stow_herb.call
					get_result = dothistimeout "get ##{herb.id}", 5, /^You (?:carefully )?(?:remove|grab|reach|slip|tuck)|^Get what\?|^You need a free hand for that\./
					if get_result.nil? or (get_result =~ /^Get what\?/)
						echo 'fixme 44235'
						dothistimeout "close ##{herb_container.id}", 5, /^You close|^That is already closed\.$/ if close_herbsack
						exit
					elsif get_result =~ /^You need a free hand for that\./
						echo 'fixme 28382'
						dothistimeout "close ##{herb_container.id}", 5, /^You close|^That is already closed\.$/ if close_herbsack
						exit
					end
				end
			end
			if herb
				haste = Spell[506]
				haste.cast if haste.known? and haste.affordable? and not haste.active?
				dothistimeout "give ##{escort.id}", 5, /fuck/
			end
		end
		stow_herb.call
		fill_right_hand
	end
	dothistimeout "close ##{herb_container.id}", 5, /^You close|^That is already closed\.$/ if close_herbsack
	exit
elsif script.vars[1].downcase == 'stock'
	start_room = Room.current
	close_herbsack = false
	if UserVars.herbsack.nil? or UserVars.herbsack.empty?
		echo 'herbsack is not set (;set change herbsack <container name>)'
		exit
	end
	unless herb_container = GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack.strip)}/i } || GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack).sub(' ', ' .*')}/i }
		echo "error: unable to find container \"#{UserVars.herbsack}\" in your inventory."
		exit
	end
	if herb_container.contents.nil?
		open_result = dothistimeout "open ##{herb_container.id}", 10, /^You open|^That is already open\.$/
		if open_result =~ /^You open/
			close_herbsack = true
		else
			dothistimeout "look in ##{herb_container.id}", 10, /In the .*? you see/
			if herb_container.contents.nil?
				echo 'fixme 2'
				exit
			end
		end
	end
	if script.vars[2].downcase == 'potions'
		herb_type_list = [ 'major head scar', 'minor head wound', 'major nerve wound', 'minor organ scar', 'major organ scar', 'missing eye' ]
		for herb_type in herb_type_list
			doses = Hash.new
			herb_list = herb_container.contents.find_all { |obj| known_herbs.find { |h| (h[:name] == obj.name) and h[:type] == herb_type } }
			if herb_type == 'missing eye'
				num_wanted = 1
			else
				num_wanted = 2
			end
			done_gone_to_herbalist = false
			(num_wanted - herb_list.length).times {
				unless done_gone_to_herbalist
					go_to_herbalist.call
					done_gone_to_herbalist = true
				end
				if herb = buy_herb.call(herb_type)
					dothistimeout "_drag ##{herb.id} ##{herb_container.id}", 10, /^You put|^You slip|^You carefully add|^A sigh of grateful pleasure can be heard as you feed .*? to your|^I could not find what you were referring to\.$/
				end
			}
			herb_list = herb_container.contents.find_all { |obj| known_herbs.find { |h| (h[:name] == obj.name) and h[:type] == herb_type } }
			for herb in herb_list
				result = dothistimeout "look in ##{herb.id}", 5, /^There is (?:a good|a small|just a little)/
				if result =~ /good/ # 5-7 doses
					doses[herb.id] = [5,7]
				elsif result =~ /small/ # 3-4 doses
					doses[herb.id] = [3,4]
				elsif result =~ /little/ # 1-2 doses
					doses[herb.id] = [1,2]
				end
			end
			while doses.values.any? { |dose| dose.max < 7 }
				unless done_gone_to_herbalist
					go_to_herbalist.call
					done_gone_to_herbalist = true
				end
				new_herb = buy_herb.call(herb_type)
				while doses.values.any? { |dose| dose.min < 7 } and ((GameObj.right_hand.id == new_herb.id) or (GameObj.left_hand.id == new_herb.id))
					for herb in herb_list
						result = dothistimeout "pour ##{new_herb.id} in ##{herb.id}", 5, /^You carefully pour|You can't pour|^I can't find that|^I could not find what you were referring to/
						if result =~ /^You carefully pour/
							doses[herb.id].collect! { |num| num + 1 }
						elsif result =~ /^You can't pour/
							doses[herb.id] = [7,7]
						else
							break
						end
						unless doses.values.any? { |dose| dose.min < 7 } and ((GameObj.right_hand.id == new_herb.id) or (GameObj.left_hand.id == new_herb.id))
							dothistimeout "_drag ##{new_herb.id} drop", 5, /^You drop|^^I could not find what you were referring to/
							break
						end
					end
				end
			end
		end
	end
	if deposit_silvers
		start_script('go2', ['bank','_disable_confirm_'])
		wait_while { running?('go2') }
		fput "deposit #{check_silvers.call}"
	end
	unless Room.current.id == start_room.id
		start_script 'go2', [ start_room.id.to_s ]
		wait_while { running?('go2') }
	end
	exit
=begin
elsif script.vars[0] =~ /^inspect$/i
	if script.vars[2].nil?
		
	else

	end
	exit
=end
end

unless ([Wounds.head, Wounds.neck, Wounds.torso, Wounds.limbs, Wounds.nerves, Scars.head, Scars.neck, Scars.torso, Scars.limbs, Scars.nerves].max > 0) or ((checkhealth + 7) < maxhealth)
	respond
	respond 'Missing herb for major stupid.'
	respond
	exit
end

#
# set up
#
if script.vars.any? { |var| var =~ /^--buy-missing=(on|off|true|false|yes|no)$/i }
	fix_option = { 'on' => true, 'true' => true, 'yes' => true, 'off' => false, 'false' => false, 'no' => false }
	buy_missing = fix_option[$1]
	script.vars.delete_if { |var| var =~ /^--buy-missing=(on|off|true|false|yes|no)$/i }
	script.vars[0] = script.vars[1..-1].join(' ')
end
if script.vars.any? { |var| var =~ /^noget$/i }
	no_get = true
	script.vars.delete_if { |var| var =~ /^noget$/i }
	script.vars[0] = script.vars[1..-1].join(' ')
else
	no_get = false
end
if script.vars[1]
	return_to_stow = true
	if script.vars[1] =~ /^(in|on|behind|under)$/i
		preposition = $1.downcase
		script.vars.delete_at(1)
		script.vars[0] = script.vars[1..-1].join(' ')
	else
		preposition = nil
	end
	if script.vars[1] =~ /^\#\-?[0-9]+$/
		herb_container = GameObj.new(script.vars[1].sub('#',''), '', '')
	else
		unless herb_container = GameObj.loot.find { |obj| obj.name =~ /#{Regexp.escape(script.vars[0].strip)}/i } || GameObj.loot.find { |obj| obj.name =~ /#{Regexp.escape(script.vars[0].strip).sub(' ', ' .*')}/i } || GameObj.room_desc.find { |obj| obj.name =~ /#{Regexp.escape(script.vars[0].strip)}/i } || GameObj.room_desc.find { |obj| obj.name =~ /#{Regexp.escape(script.vars[0].strip).sub(' ', ' .*')}/i } || GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(script.vars[0].strip)}/i } || GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(script.vars[0].strip).sub(' ', ' .*')}/i }
			echo "error: failed to find herb container (#{script.vars[0]})"
			exit
		end
	end
	if preposition.nil?
		for prep in [ 'in', 'on', 'under', 'behind' ]
			look_result = dothistimeout "look #{prep} ##{herb_container.id}", 5, /(?:In|On|Under|Behind) .*? you see|There is nothing|^That is closed\.$|^What were you referring to\?|^I could not find what you were referring to\./
			if look_result =~ /^(?:In|On|Under|Behind) .*? you see/
				preposition = prep
				break
			elsif look_result =~ /^That is closed\./
				open_result = dothistimeout "open ##{herb_container.id}", 5, /^You open|^What were you referring to\?|^I could not find what you were referring to\./
				close_herbsack = true
				redo if open_result =~ /^You open/
			end
		end
		if preposition.nil?
			echo 'fixme'
			exit
		end
	end
	if herb_container.contents.nil?
		open_result = dothistimeout "open ##{herb_container.id}", 10, /^You open|^That is already open\.$|^There doesn't seem to be any way to do that\.$|^What were you referring to\?|^I could not find what you were referring to\./
		if open_result =~ /^You open/
			close_herbsack = true
		else
			dothistimeout "look #{preposition} ##{herb_container.id}", 10, /(?:In|On|Under|Behind) .*? you see|^There is nothing|^What were you referring to\?|^I could not find what you were referring to\./
			if herb_container.contents.nil?
				echo 'fixme 2'
				exit
			end
		end
	end
else
	if UserVars.herbsack.nil? or UserVars.herbsack.empty?
		echo 'no container was given and herbsack is not set'
		echo '  use  ;setting change herbsack <container name>'
		echo '  or   ;useherbs <in|on|behind|under> <container name>'
		exit
	end

	unless herb_container = GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack.strip)}/i } || GameObj.inv.find { |obj| obj.name =~ /#{Regexp.escape(UserVars.herbsack).sub(' ', ' .*')}/i }
		echo "error: unable to find container \"#{UserVars.herbsack}\" in your inventory."
		exit
	end

	if herb_container.contents.nil?
		open_result = dothistimeout "open ##{herb_container.id}", 10, /^You open|^That is already open\.$/
		if open_result =~ /^You open/
			close_herbsack = true
		else
			dothistimeout "look in ##{herb_container.id}", 10, /In the .*? you see/
			if herb_container.contents.nil?
				echo 'fixme 2'
				exit
			end
		end
	end
end

empty_hand

#
# use herbs
#
while herb_type = next_herb_type.call
	if CharSettings['use-mending']  and (mending = Spell[9713]) and !mending.active? and mending.known? and mending.affordable?
		mending.cast
	end
	if CharSettings['use-haste'] and (haste = Spell[506]) and !haste.active? and haste.known? and haste.affordable? and not too_wounded_to_cast.call
		haste.cast
	end
	if known_herbs.any? { |h| (h[:name].sub(/^(?:some|flagon of|barrel of) /, '') == GameObj.right_hand.name) and (h[:type] == herb_type) }
		herb = GameObj.right_hand
	elsif known_herbs.any? { |h| (h[:name].sub(/^(?:some|flagon of|barrel of) /, '') == GameObj.left_hand.name) and (h[:type] == herb_type) }
		herb = GameObj.left_hand
	elsif [Wounds.leftArm, Wounds.rightArm].min < 3
		if return_to_stow and start_room.id != Room.current.id
			start_script 'go2', [ start_room.id.to_s ]
			wait_while { running?('go2') }
			dothistimeout "look in ##{herb_container.id}", 4, /^In the/
		end
		if herb_container.contents.nil?
			dothistimeout "look in ##{herb_container.id}", 4, /^In the/
		end
		if herb = herb_container.contents.find { |i| known_herbs.find { |h| (h[:name] == i.name) and h[:type] == herb_type } }
			stow_herb.call
			unless no_get and (herb.name !~ drinkable)
				get_result = dothistimeout "get ##{herb.id}", 5, /^^You (?:carefully )?(?:remove|grab|reach|slip|tuck)|^Get what\?$|^Why don't you leave some for others\?$|^You need a free hand for that\.|^You need a free hand to pick that up\./
				if get_result.nil? or (get_result == 'Get what?') or (get_result == "Why don't you leave some for others?")
					echo 'fixme 4'
					exit
				elsif (get_result =~ /^You need a free hand for that\.|^You need a free hand to pick that up\./) and (!checkright or !checkleft)
					herb = nil
				end
			end
		end
	end
	if buy_missing and not herb
		stow_herb.call
		unless silvers
			silvers = check_silvers.call
		end
		unless silvers > 4000
			start_script 'go2', [ 'bank', '_disable_confirm_' ]
			wait_while { running?('go2') }
			fput 'unhide' if invisible?
			# fixme: Pinefar bank is dumb
			result = dothistimeout 'withdraw 8000 silvers', 1, /debt collector/
			if result =~ /debt collector/
				fput 'withdraw 8000 silvers'
			end
			silvers += 8000
			deposit_silvers = true
		end
		unless Room.current.tags.include?('herbalist')
			go_to_herbalist.call
		end
		unless herb_shop_menu
			herb_shop_menu = read_menu.call
		end
		herb_name = herb_shop_menu.keys.find { |name| known_herbs.any? { |h| (h[:type] == herb_type) and (name =~ /#{h[:name]}/ or name =~ /#{h[:name].sub(/sticky |gooey | green| fragrant| shiny| dirty/, '')}/) } }
		unless order_number = herb_shop_menu[herb_name]
			echo "error: failed to find a herb for #{herb_type} in the menu"
			buy_missing = false
		end
		dothistimeout "order #{order_number}", 3, /BUY/
		buy_result = dothistimeout 'buy', 3, /Sold for [0-9]+ silver|^But you do not have enough silver!/
		if buy_result =~ /Sold for ([0-9]+) silver/
			silvers -= $1.to_i
		elsif buy_result =~ /^But you do not have enough silver!/
			start_script 'go2', [ 'bank', '_disable_confirm_' ]
			wait_while { running?('go2') }
			fput 'unhide' if invisible?
			# fixme: Pinefar bank is dumb
			result = dothistimeout 'withdraw 5000 silvers', 1, /debt collector/
			if result =~ /debt collector/
				fput 'withdraw 5000 silvers'
			end
			silvers += 5000
			deposit_silvers = true
			go_to_herbalist.call
			redo
		else
			silvers = check_silvers.call
		end
		if known_herbs.any? { |info| info[:name] =~ /#{checkright}/ }
			herb = GameObj.right_hand
		elsif known_herbs.any? { |info| info[:name] =~ /#{checkleft}/ }
			herb = GameObj.left_hand
		else
			echo 'fixme: 6'
			buy_missing = false
		end
	end
	if herb
		used_herbs.push(herb.id) unless used_herbs.include?(herb.id)
		if herb.name =~ drinkable
			use_cmd = "drink ##{herb.id}"
		else
			use_cmd = "eat ##{herb.id}"
		end
		use_result = dothistimeout use_cmd, 5, /^You (?:manage to )?take a (?:bite|drink)/
		if use_result.nil?
			echo 'fixme 5'
			exit
		else
			sleep 0.5
			waitrt?
		end
	else
		if herb_type =~ /head/
			skippable.push 'head'
			skippable.push 'neck'
		elsif herb_type =~ /organ|missing eye/
			skippable.push 'torso'
		elsif herb_type =~ /limb/
			skippable.push 'limbs'
		elsif herb_type =~ /nerve/
			skippable.push 'nerves'
		elsif herb_type == 'blood'
			skippable.push 'blood'
		else
			skippable.push herb_type
		end
		respond "\nMissing herb for #{herb_type}.\n\n   #{known_herbs.find_all { |h| h[:type] == herb_type }.collect { |h| h[:name] }.join(', ')}\n\n"
	end
end

#
# clean up
#
stow_herb.call
fill_hand
dothistimeout "close ##{herb_container.id}", 5, /^You close|^That is already closed\.$/ if close_herbsack
dothistimeout "close ##{stow_container_id}", 5, /^You close|^That is already closed\.$/ if stow_container_id
if deposit_silvers
	start_script('go2', ['bank','_disable_confirm_'])
	wait_while { running?('go2') }
	fput "deposit #{check_silvers.call}"
end
unless Room.current.id == start_room.id
	start_script('go2', [ start_room.id.to_s ])
	wait_while { running?('go2') }
end