Herb Healer (script)

Herb Healer (script)
Category	utility
Front-end	Genie
Author	Isharon

This script checks your supply of herbs and your wounds and then treats your wounds with the appropriate herbs. It can also check which herbs you are missing.

This is a modification of Pete's herb-healing script. This version works with all herb preparations and knows whether you should EAT, RUB, or DRINK the herb.

Syntax

.HERB: diagnoses and treats wounds

.HERB CHECK: checks your herb pouch for missing herbs

Changelog

3/9/2012

• Added support herbal ale, mead, porridge, and yogurt. (Thanks to Blaayd for letting me know about these.)

Script

IF_1 GOTO %1
GOTO INIT

CHE:
CHECK:
BUY:
LOOT:
#Initialize Supplies
setvar need_aevaes 1
setvar need_aloe 1
setvar need_blocil_or_junliar 1
setvar need_cebi 1
setvar need_eghmok 1
setvar need_georin 1
setvar need_hisan 1
setvar need_hulnik 1
setvar need_ithor 1
setvar need_jadice 1
setvar need_lujeakave 1
setvar need_muljin 1
setvar need_nemoih 1
setvar need_nilos 1
setvar need_plovik 1
setvar need_riolur 1
setvar need_sufil 1
setvar need_yelith 1

action setvariable need_aevaes 0 when ^You rummage.*aevaes
action setvariable need_aloe 0 when ^You rummage.*aloe
action setvariable need_blocil_or_junliar 0 when ^You rummage.*(blocil|junliar)
action setvariable need_cebi 0 when ^You rummage.*cebi
action setvariable need_eghmok 0 when ^You rummage.*eghmok
action setvariable need_georin 0 when ^You rummage.*georin
action setvariable need_hisan 0 when ^You rummage.*hisan
action setvariable need_hulnik 0 when ^You rummage.*hulnik
action setvariable need_ithor 0 when ^You rummage.*ithor
action setvariable need_jadice 0 when ^You rummage.*jadice
action setvariable need_lujeakave 0 when ^You rummage.*lujeakave
action setvariable need_muljin 0 when ^You rummage.*muljin
action setvariable need_nemoih 0 when ^You rummage.*nemoih
action setvariable need_nilos 0 when ^You rummage.*nilos
action setvariable need_plovik 0 when ^You rummage.*plovik
action setvariable need_riolur 0 when ^You rummage.*riolur
action setvariable need_sufil 0 when ^You rummage.*sufil
action setvariable need_yelith 0 when ^You rummage.*yelith

put rummage in my herb pouch
waitforre ^You rummage
GOTO supplies

INIT:

#Initialize Supplies
setvar need_aevaes 0
setvar need_aloe 0
setvar need_blocil_or_junliar 0
setvar need_cebi 0
setvar need_eghmok 0
setvar need_georin 0
setvar need_hisan 0
setvar need_hulnik 0
setvar need_ithor 0
setvar need_jadice 0
setvar need_lujeakave 0
setvar need_muljin 0
setvar need_nemoih 0
setvar need_nilos 0
setvar need_plovik 0
setvar need_riolur 0
setvar need_sufil 0
setvar need_yelith 0

# Initialize wound variables
setvar nerves 0
setvar skin 0
setvar ext_head 0
setvar int_head 0
setvar ext_neck 0
setvar int_neck 0
setvar ext_chest 0
setvar int_chest 0
setvar ext_abdomen 0
setvar int_abdomen 0
setvar ext_back 0
setvar int_back 0
setvar ext_limb 0
setvar int_limb 0
setvar ext_eye 0
setvar int_eye 0
setvar ext_scar 0
setvar int_scar 0

#Initialize preparation variables
send rummage in my herb pouch
action setvariable prep_aevaes $1 when ^You rummage .+ aevaes (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_aevaes mead when ^You rummage .+ mead flavored with aevaes
action setvariable prep_aloe $1 when ^You rummage .+ aloe (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_blocil $1 when ^You rummage .+ blocil (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_cebi $1 when ^You rummage .+ cebi (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_eghmok $1 when ^You rummage .+ eghmok (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_georin $1 when ^You rummage .+ georin (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_hisan $1 when ^You rummage .+ hisan (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_hulnik $1 when ^You rummage .+ hulnik (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_ithor $1 when ^You rummage .+ ithor (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_jadice $1 when ^You rummage .+ jadice (balm|berries|coffee|elixir|flower|grass|leaf|mash|moss|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture)
action setvariable prep_junliar $1 when ^You rummage .+ junliar (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_lujeakave $1 when ^You rummage .+ lujeakave (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_muljin $1 when ^You rummage .+ muljin (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_nemoih $1 when ^You rummage .+ nemoih (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_nilos $1 when ^You rummage .+ nilos (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_plovik $1 when ^You rummage .+ plovik (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_riolur $1 when ^You rummage .+ riolur (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_sufil $1 when ^You rummage .+ sufil (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
action setvariable prep_yelith $1 when ^You rummage .+ yelith (ale|balm|berries|coffee|elixir|flower|grass|leaf|mash|mead|moss|paste|pollen|porridge|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture|yogurt)
waitforre ^You rummage

# Initialize actions
send health
ACTION setvar nerves 1 WHEN (minor|severe) twitching|difficulty controlling actions|paralysis of the entire body
ACTION setvar skin 1 WHEN (abrasions|scuffing|scratches) (about|across|along|around|from|in|of|on|to) the skin|rash|boils|sores
ACTION setvar ext_head 1 WHEN (abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the head|(cracked|crushed) skull|pulpy stump for a head
ACTION setvar int_head 1 WHEN (bruised|swollen|bloated) head|bruising (about|across|along|around|from|in|of|on|to) the head|inside head
ACTION setvar ext_neck 1 WHEN (abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the neck|(shattered|useless) neck
ACTION setvar int_neck 1 WHEN bruising (about|across|along|around|from|in|of|on|to) the neck|(bruised|swollen|swollen and shattered) neck|inside neck
ACTION setvar ext_chest 1 WHEN (abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the chest|(shattered|destroyed) chest
ACTION setvar int_chest 1 WHEN bruising (about|across|along|around|from|in|of|on|to) the chest|(bruised|swollen) chest|inside chest
ACTION setvar ext_abdomen 1 WHEN (abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the abdomen|abdomen deeply gouged|destroyed abdomen
ACTION setvar int_abdomen 1 WHEN  bruising (about|across|along|around|from|in|of|on|to) the abdomen|(bruised|swollen) abdomen|discolored abdomen|inside abdomen
ACTION setvar ext_back 1 WHEN (abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the back|(shattered|destroyed) back
ACTION setvar int_back 1 WHEN (about|across|along|around|from|in|of|on|to) the back|(bruised|swollen) back|inside back
ACTION setvar ext_limb 1 WHEN (scarring|scars|gashes) (about|across|along|around|from|in|of|on|to) the ((right|left) (hand|arm|leg)|tail)|missing from the ((right|left) (hand|arm|leg)|tail)|malformed ((right|left) (hand|arm|leg)|tail)|stump for a ((right|left) (hand|arm|leg)|tail)
ACTION setvar int_limb 1 WHEN bruising (about|across|along|around|from|in|of|on|to) the ((right|left) (hand|arm|leg)|tail)|(bruised|swollen) ((right|left) (hand|arm|leg)|tail)|inside ((right|left|r\.|l\.) (hand|arm|leg)|tail)
ACTION setvar ext_eye 1 WHEN (black and blue|swollen|bleeding|slashed|shattered) (right|left) eye|cavity for a (right|left) eye
ACTION setvar int_eye 1 WHEN bruising (about|across|along|around|from|in|of|on|to) the (right|left) eye|bruised (right|left) eye|bruised and (crossed|cloudy|blind) (right|left) eye|inside ((right|left)|r\.|l\.) eye

ACTION setvar ext_scar 1 WHEN a stump for|flesh stump for|gashes|malformed|missing|non-existent|scarred|scarring|scars|shriveled|skin discoloration|skin loss|skin tone|socket|stump
ACTION setvar int_scar 1 WHEN a blind|blank stare|breath|clouded|emaciated|move|moving|numbness|pallor|paralyzed|twitch|twitching

#Secondary resupply action
ACTION setvar need_%s 1 WHEN ^That was the last of
pause

#Take herbs for anything that picked up by the triggers

nerves:
	if (%nerves = 1) then GOTO heal_nerves
	GOTO skin

heal_nerves:
	if (%prep_lujeakave = "coffee") then var consume drink
	if (%prep_lujeakave = "elixir") then var consume drink
	if (%prep_lujeakave = "mash") then var consume drink
	if (%prep_lujeakave = "potion") then var consume drink
	if (%prep_lujeakave = "solution") then var consume drink
	if (%prep_lujeakave = "tea") then var consume drink
	if (%prep_lujeakave = "tincture") then var consume drink
	if (%prep_lujeakave = "berries") then var consume eat
	if (%prep_lujeakave = "flower") then var consume eat
	if (%prep_lujeakave = "grass") then var consume eat
	if (%prep_lujeakave = "leaf") then var consume eat
	if (%prep_lujeakave = "moss") then var consume eat
	if (%prep_lujeakave = "paste") then var consume eat
	if (%prep_lujeakave = "pollen") then var consume eat
	if (%prep_lujeakave = "powder") then var consume eat
	if (%prep_lujeakave = "pulp") then var consume eat
	if (%prep_lujeakave = "root") then var consume eat
	if (%prep_lujeakave = "sap") then var consume eat
	if (%prep_lujeakave = "stem") then var consume eat
	if (%prep_lujeakave = "balm") then var consume rub
	if (%prep_lujeakave = "salve") then var consume rub
	SAVE lujeakave
	matchre heal_nerves ...wait
	matchre nerves_scar ^You apply|^You drink|^You eat
	matchre rub_lujeakave ^Rub what
	matchre need_lujeakave ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my lujeakave %prep_lujeakave
	matchwait

	rub_lujeakave:
	send get my lujeakave %prep_lujeakave
	matchre need_lujeakave ^What were you referring
	matchwait 1
	send rub my lujeakave %prep_lujeakave
	waitforre ^You rub
	send stow my lujeakave %prep_lujeakave
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
nerves_scar:
	gosub set_int_scar
	goto skin
need_lujeakave:
	setvar need_lujeakave 1

skin:
	if (%skin = 1) then GOTO heal_skin
	GOTO ext_head

heal_skin:
	if (%prep_aloe = "coffee") then var consume drink
	if (%prep_aloe = "elixir") then var consume drink
	if (%prep_aloe = "mash") then var consume drink
	if (%prep_aloe = "potion") then var consume drink
	if (%prep_aloe = "solution") then var consume drink
	if (%prep_aloe = "tea") then var consume drink
	if (%prep_aloe = "tincture") then var consume drink
	if (%prep_aloe = "berries") then var consume eat
	if (%prep_aloe = "flower") then var consume eat
	if (%prep_aloe = "grass") then var consume eat
	if (%prep_aloe = "leaf") then var consume eat
	if (%prep_aloe = "moss") then var consume eat
	if (%prep_aloe = "paste") then var consume eat
	if (%prep_aloe = "pollen") then var consume eat
	if (%prep_aloe = "powder") then var consume eat
	if (%prep_aloe = "pulp") then var consume eat
	if (%prep_aloe = "root") then var consume eat
	if (%prep_aloe = "sap") then var consume eat
	if (%prep_aloe = "stem") then var consume eat
	if (%prep_aloe = "balm") then var consume rub
	if (%prep_aloe = "salve") then var consume rub
	SAVE aloe
	matchre heal_skin ...wait
	matchre skin_scar ^You apply|^You drink|^You eat
	matchre rub_aloe ^Rub what
	matchre need_aloe ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my aloe %prep_aloe
	matchwait

	rub_aloe:
	send get my aloe %prep_aloe
	matchre need_aloe ^What were you referring
	matchwait 1
	send rub my aloe %prep_aloe
	waitforre ^You rub
	send stow my aloe %prep_aloe
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
skin_scar:
	gosub set_ext_scar
	goto ext_head
need_aloe:
	setvar need_aloe 1

ext_head:
	if (%ext_head = 1) then GOTO heal_ext_head
	GOTO int_head

heal_ext_head:
	if (%prep_nemoih = "coffee") then var consume drink
	if (%prep_nemoih = "elixir") then var consume drink
	if (%prep_nemoih = "mash") then var consume drink
	if (%prep_nemoih = "potion") then var consume drink
	if (%prep_nemoih = "solution") then var consume drink
	if (%prep_nemoih = "tea") then var consume drink
	if (%prep_nemoih = "tincture") then var consume drink
	if (%prep_nemoih = "berries") then var consume eat
	if (%prep_nemoih = "flower") then var consume eat
	if (%prep_nemoih = "grass") then var consume eat
	if (%prep_nemoih = "leaf") then var consume eat
	if (%prep_nemoih = "moss") then var consume eat
	if (%prep_nemoih = "paste") then var consume eat
	if (%prep_nemoih = "pollen") then var consume eat
	if (%prep_nemoih = "powder") then var consume eat
	if (%prep_nemoih = "pulp") then var consume eat
	if (%prep_nemoih = "root") then var consume eat
	if (%prep_nemoih = "sap") then var consume eat
	if (%prep_nemoih = "stem") then var consume eat
	if (%prep_nemoih = "balm") then var consume rub
	if (%prep_nemoih = "salve") then var consume rub
	SAVE nemoih
	matchre heal_ext_head ...wait
	matchre ext_head_scar ^You apply|^You drink|^You eat
	matchre rub_nemoih ^Rub what
	matchre need_nemoih ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my nemoih %prep_nemoih
	matchwait

	rub_nemoih:
	send get my nemoih %prep_nemoih
	matchre need_nemoih ^What were you referring
	matchwait 1
	send rub my nemoih %prep_nemoih
	waitforre ^You rub
	send stow my nemoih %prep_nemoih
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
ext_head_scar:
	gosub set_ext_scar
	goto int_head
need_nemoih:
	setvar need_nemoih 1

int_head:
	if (%int_head = 1) then GOTO heal_int_head
	GOTO ext_neck

heal_int_head:
	if (%prep_eghmok = "coffee") then var consume drink
	if (%prep_eghmok = "elixir") then var consume drink
	if (%prep_eghmok = "mash") then var consume drink
	if (%prep_eghmok = "potion") then var consume drink
	if (%prep_eghmok = "solution") then var consume drink
	if (%prep_eghmok = "tea") then var consume drink
	if (%prep_eghmok = "tincture") then var consume drink
	if (%prep_eghmok = "berries") then var consume eat
	if (%prep_eghmok = "flower") then var consume eat
	if (%prep_eghmok = "grass") then var consume eat
	if (%prep_eghmok = "leaf") then var consume eat
	if (%prep_eghmok = "moss") then var consume eat
	if (%prep_eghmok = "paste") then var consume eat
	if (%prep_eghmok = "pollen") then var consume eat
	if (%prep_eghmok = "powder") then var consume eat
	if (%prep_eghmok = "pulp") then var consume eat
	if (%prep_eghmok = "root") then var consume eat
	if (%prep_eghmok = "sap") then var consume eat
	if (%prep_eghmok = "stem") then var consume eat
	if (%prep_eghmok = "balm") then var consume rub
	if (%prep_eghmok = "salve") then var consume rub
	SAVE eghmok
	matchre heal_int_head ...wait
	matchre int_head_scar ^You apply|^You drink|^You eat
	matchre rub_eghmok ^Rub what
	matchre need_eghmok ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my eghmok %prep_eghmok
	matchwait

	rub_eghmok:
	send get my eghmok %prep_eghmok
	matchre need_eghmok ^What were you referring
	matchwait 1
	send rub my eghmok %prep_eghmok
	waitforre ^You rub
	send stow my eghmok %prep_eghmok
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
int_head_scar:
	gosub set_int_scar
	goto ext_neck
need_eghmok:
	setvar need_eghmok 1

ext_neck:
	if (%ext_neck = 1) then GOTO heal_ext_neck
	GOTO int_neck

heal_ext_neck:
	if (%prep_georin = "coffee") then var consume drink
	if (%prep_georin = "elixir") then var consume drink
	if (%prep_georin = "mash") then var consume drink
	if (%prep_georin = "potion") then var consume drink
	if (%prep_georin = "solution") then var consume drink
	if (%prep_georin = "tea") then var consume drink
	if (%prep_georin = "tincture") then var consume drink
	if (%prep_georin = "berries") then var consume eat
	if (%prep_georin = "flower") then var consume eat
	if (%prep_georin = "grass") then var consume eat
	if (%prep_georin = "leaf") then var consume eat
	if (%prep_georin = "moss") then var consume eat
	if (%prep_georin = "paste") then var consume eat
	if (%prep_georin = "pollen") then var consume eat
	if (%prep_georin = "powder") then var consume eat
	if (%prep_georin = "pulp") then var consume eat
	if (%prep_georin = "root") then var consume eat
	if (%prep_georin = "sap") then var consume eat
	if (%prep_georin = "stem") then var consume eat
	if (%prep_georin = "balm") then var consume rub
	if (%prep_georin = "salve") then var consume rub
	SAVE georin
	matchre heal_ext_neck ...wait
	matchre ext_neck_scar ^You apply|^You drink|^You eat
	matchre rub_georin ^Rub what
	matchre need_georin ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my georin %prep_georin
	matchwait

	rub_georin:
	send get my georin %prep_georin
	matchre need_georin ^What were you referring
	matchwait 1
	send rub my georin %prep_georin
	waitforre ^You rub
	send stow my georin %prep_georin
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
ext_neck_scar:
	gosub set_ext_scar
	goto int_neck
need_georin:
	setvar need_georin 1


int_neck:
	if (%int_neck = 1) then GOTO heal_int_neck
	GOTO ext_chest

heal_int_neck:
	if (%prep_riolur = "coffee") then var consume drink
	if (%prep_riolur = "elixir") then var consume drink
	if (%prep_riolur = "mash") then var consume drink
	if (%prep_riolur = "potion") then var consume drink
	if (%prep_riolur = "solution") then var consume drink
	if (%prep_riolur = "tea") then var consume drink
	if (%prep_riolur = "tincture") then var consume drink
	if (%prep_riolur = "berries") then var consume eat
	if (%prep_riolur = "flower") then var consume eat
	if (%prep_riolur = "grass") then var consume eat
	if (%prep_riolur = "leaf") then var consume eat
	if (%prep_riolur = "moss") then var consume eat
	if (%prep_riolur = "paste") then var consume eat
	if (%prep_riolur = "pollen") then var consume eat
	if (%prep_riolur = "powder") then var consume eat
	if (%prep_riolur = "pulp") then var consume eat
	if (%prep_riolur = "root") then var consume eat
	if (%prep_riolur = "sap") then var consume eat
	if (%prep_riolur = "stem") then var consume eat
	if (%prep_riolur = "balm") then var consume rub
	if (%prep_riolur = "salve") then var consume rub
	SAVE riolur
	matchre heal_int_neck ...wait
	matchre int_neck_scar ^You apply|^You drink|^You eat
	matchre rub_riolur ^Rub what
	matchre need_riolur ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my riolur %prep_riolur
	matchwait

	rub_riolur:
	send get my riolur %prep_riolur
	matchre need_riolur ^What were you referring
	matchwait 1
	send rub my riolur %prep_riolur
	waitforre ^You rub
	send stow my riolur %prep_riolur
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
int_neck_scar:
	gosub set_int_scar
	goto ext_chest
need_riolur:
	setvar need_riolur 1

ext_chest:
	if (%ext_chest = 1) then GOTO heal_ext_chest
	GOTO int_chest

heal_ext_chest:
	if (%prep_plovik = "coffee") then var consume drink
	if (%prep_plovik = "elixir") then var consume drink
	if (%prep_plovik = "mash") then var consume drink
	if (%prep_plovik = "potion") then var consume drink
	if (%prep_plovik = "solution") then var consume drink
	if (%prep_plovik = "tea") then var consume drink
	if (%prep_plovik = "tincture") then var consume drink
	if (%prep_plovik = "berries") then var consume eat
	if (%prep_plovik = "flower") then var consume eat
	if (%prep_plovik = "grass") then var consume eat
	if (%prep_plovik = "leaf") then var consume eat
	if (%prep_plovik = "moss") then var consume eat
	if (%prep_plovik = "paste") then var consume eat
	if (%prep_plovik = "pollen") then var consume eat
	if (%prep_plovik = "powder") then var consume eat
	if (%prep_plovik = "pulp") then var consume eat
	if (%prep_plovik = "root") then var consume eat
	if (%prep_plovik = "sap") then var consume eat
	if (%prep_plovik = "stem") then var consume eat
	if (%prep_plovik = "balm") then var consume rub
	if (%prep_plovik = "salve") then var consume rub
	SAVE plovik
	matchre heal_ext_chest ...wait
	matchre ext_chest_scar ^You apply|^You drink|^You eat
	matchre rub_plovik ^Rub what
	matchre need_plovik ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my plovik %prep_plovik
	matchwait

	rub_plovik:
	send get my plovik %prep_plovik
	matchre need_plovik ^What were you referring
	matchwait 1
	send rub my plovik %prep_plovik
	waitforre ^You rub
	send stow my plovik %prep_plovik
	waitforre ^You put|^You stow|^That was the last|^Stow what

ext_chest_scar:
	gosub set_ext_scar
	goto int_chest
need_plovik:
	setvar need_plovik 1

int_chest:
	if (%int_chest = 1) then GOTO heal_int_chest
	GOTO ext_abdomen

heal_int_chest:
	if (%prep_ithor = "coffee") then var consume drink
	if (%prep_ithor = "elixir") then var consume drink
	if (%prep_ithor = "mash") then var consume drink
	if (%prep_ithor = "potion") then var consume drink
	if (%prep_ithor = "solution") then var consume drink
	if (%prep_ithor = "tea") then var consume drink
	if (%prep_ithor = "tincture") then var consume drink
	if (%prep_ithor = "berries") then var consume eat
	if (%prep_ithor = "flower") then var consume eat
	if (%prep_ithor = "grass") then var consume eat
	if (%prep_ithor = "leaf") then var consume eat
	if (%prep_ithor = "moss") then var consume eat
	if (%prep_ithor = "paste") then var consume eat
	if (%prep_ithor = "pollen") then var consume eat
	if (%prep_ithor = "powder") then var consume eat
	if (%prep_ithor = "pulp") then var consume eat
	if (%prep_ithor = "root") then var consume eat
	if (%prep_ithor = "sap") then var consume eat
	if (%prep_ithor = "stem") then var consume eat
	if (%prep_ithor = "balm") then var consume rub
	if (%prep_ithor = "salve") then var consume rub

	SAVE ithor
	matchre heal_int_chest ...wait
	matchre int_chest_scar ^You apply|^You drink|^You eat
	matchre rub_ithor ^Rub what
	matchre need_ithor ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my ithor %prep_ithor
	matchwait

	rub_ithor:
	send get my ithor %prep_ithor
	matchre need_ithor ^What were you referring
	matchwait 1
	send rub my ithor %prep_ithor
	waitforre ^You rub
	send stow my ithor %prep_ithor
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
int_chest_scar:
	gosub set_int_scar
	goto ext_abdomen
need_ithor:
	setvar need_ithor 1

ext_abdomen:
	if (%ext_abdomen = 1) then GOTO heal_ext_abdomen
	GOTO int_abdomen

heal_ext_abdomen:
	if (%prep_nilos = "coffee") then var consume drink
	if (%prep_nilos = "elixir") then var consume drink
	if (%prep_nilos = "mash") then var consume drink
	if (%prep_nilos = "potion") then var consume drink
	if (%prep_nilos = "solution") then var consume drink
	if (%prep_nilos = "tea") then var consume drink
	if (%prep_nilos = "tincture") then var consume drink
	if (%prep_nilos = "berries") then var consume eat
	if (%prep_nilos = "flower") then var consume eat
	if (%prep_nilos = "grass") then var consume eat
	if (%prep_nilos = "leaf") then var consume eat
	if (%prep_nilos = "moss") then var consume eat
	if (%prep_nilos = "paste") then var consume eat
	if (%prep_nilos = "pollen") then var consume eat
	if (%prep_nilos = "powder") then var consume eat
	if (%prep_nilos = "pulp") then var consume eat
	if (%prep_nilos = "root") then var consume eat
	if (%prep_nilos = "sap") then var consume eat
	if (%prep_nilos = "stem") then var consume eat
	if (%prep_nilos = "balm") then var consume rub
	if (%prep_nilos = "salve") then var consume rub
	SAVE nilos
	matchre heal_ext_abdomen ...wait
	matchre ext_abdomen_scar ^You apply|^You drink|^You eat
	matchre rub_nilos ^Rub what
	matchre need_nilos ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my nilos %prep_nilos
	matchwait

	rub_nilos:
	send get my nilos %prep_nilos
	matchre need_nilos ^What were you referring
	matchwait 1
	send rub my nilos %prep_nilos
	waitforre ^You rub
	send stow my nilos %prep_nilos
	waitforre ^You put|^You stow|^That was the last|^Stow what
	
ext_abdomen_scar:
	gosub set_ext_scar
	goto int_abdomen
need_nilos:
	setvar need_nilos 1

int_abdomen:
	if (%int_abdomen = 1) then GOTO heal_int_abdomen
	GOTO ext_back

heal_int_abdomen:
	if (%prep_muljin = "coffee") then var consume drink
	if (%prep_muljin = "elixir") then var consume drink
	if (%prep_muljin = "mash") then var consume drink
	if (%prep_muljin = "potion") then var consume drink
	if (%prep_muljin = "solution") then var consume drink
	if (%prep_muljin = "tea") then var consume drink
	if (%prep_muljin = "tincture") then var consume drink
	if (%prep_muljin = "berries") then var consume eat
	if (%prep_muljin = "flower") then var consume eat
	if (%prep_muljin = "grass") then var consume eat
	if (%prep_muljin = "leaf") then var consume eat
	if (%prep_muljin = "moss") then var consume eat
	if (%prep_muljin = "paste") then var consume eat
	if (%prep_muljin = "pollen") then var consume eat
	if (%prep_muljin = "powder") then var consume eat
	if (%prep_muljin = "pulp") then var consume eat
	if (%prep_muljin = "root") then var consume eat
	if (%prep_muljin = "sap") then var consume eat
	if (%prep_muljin = "stem") then var consume eat
	if (%prep_muljin = "balm") then var consume rub
	if (%prep_muljin = "salve") then var consume rub
	SAVE muljin
	matchre heal_int_abdomen ...wait
	matchre int_abdomen_scar ^You apply|^You drink|^You eat
	matchre rub_muljin ^Rub what
	matchre need_muljin ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my muljin %prep_muljin
	matchwait

	rub_muljin:
	send get my muljin %prep_muljin
	matchre need_muljin ^What were you referring
	matchwait 1
	send rub my muljin %prep_muljin
	waitforre ^You rub
	send stow my muljin %prep_muljin
	waitforre ^You put|^You stow|^That was the last|^Stow what

int_abdomen_scar:
	gosub set_int_scar
	goto ext_back
need_muljin:
	setvar need_muljin 1

ext_back:
	if (%ext_back = 1) then GOTO heal_ext_back
	GOTO int_back

heal_ext_back:
	if (%prep_hulnik = "coffee") then var consume drink
	if (%prep_hulnik = "elixir") then var consume drink
	if (%prep_hulnik = "mash") then var consume drink
	if (%prep_hulnik = "potion") then var consume drink
	if (%prep_hulnik = "solution") then var consume drink
	if (%prep_hulnik = "tea") then var consume drink
	if (%prep_hulnik = "tincture") then var consume drink
	if (%prep_hulnik = "berries") then var consume eat
	if (%prep_hulnik = "flower") then var consume eat
	if (%prep_hulnik = "grass") then var consume eat
	if (%prep_hulnik = "leaf") then var consume eat
	if (%prep_hulnik = "moss") then var consume eat
	if (%prep_hulnik = "paste") then var consume eat
	if (%prep_hulnik = "pollen") then var consume eat
	if (%prep_hulnik = "powder") then var consume eat
	if (%prep_hulnik = "pulp") then var consume eat
	if (%prep_hulnik = "root") then var consume eat
	if (%prep_hulnik = "sap") then var consume eat
	if (%prep_hulnik = "stem") then var consume eat
	if (%prep_hulnik = "balm") then var consume rub
	if (%prep_hulnik = "salve") then var consume rub
	SAVE hulnik
	matchre heal_ext_back ...wait
	matchre ext_back_scar ^You apply|^You drink|^You eat
	matchre rub_hulnik ^Rub what
	matchre need_hulnik ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my hulnik %prep_hulnik
	matchwait

	rub_hulnik:
	send get my hulnik %prep_hulnik
	matchre need_hulnik ^What were you referring
	matchwait 1
	send rub my hulnik %prep_hulnik
	waitforre ^You rub
	send stow my hulnik %prep_hulnik
	waitforre ^You put|^You stow|^That was the last|^Stow what

ext_back_scar:
	gosub set_ext_scar
	goto int_back
need_hulnik:
	setvar need_hulnik 1

int_back:
	if (%int_back = 1) then GOTO heal_int_back
	GOTO ext_limb

heal_int_back:
	if (%prep_blocil = "coffee") then var consume drink
	if (%prep_blocil = "elixir") then var consume drink
	if (%prep_blocil = "mash") then var consume drink
	if (%prep_blocil = "potion") then var consume drink
	if (%prep_blocil = "solution") then var consume drink
	if (%prep_blocil = "tea") then var consume drink
	if (%prep_blocil = "tincture") then var consume drink
	if (%prep_blocil = "berries") then var consume eat
	if (%prep_blocil = "flower") then var consume eat
	if (%prep_blocil = "grass") then var consume eat
	if (%prep_blocil = "leaf") then var consume eat
	if (%prep_blocil = "moss") then var consume eat
	if (%prep_blocil = "paste") then var consume eat
	if (%prep_blocil = "pollen") then var consume eat
	if (%prep_blocil = "powder") then var consume eat
	if (%prep_blocil = "pulp") then var consume eat
	if (%prep_blocil = "root") then var consume eat
	if (%prep_blocil = "sap") then var consume eat
	if (%prep_blocil = "stem") then var consume eat
	if (%prep_blocil = "balm") then var consume rub
	if (%prep_blocil = "salve") then var consume rub
	SAVE blocil
	matchre heal_int_back ...wait
	matchre int_back_scar ^You apply|^You drink|^You eat
	matchre rub_blocil ^Rub what
	matchre heal_int_back2 ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my blocil %prep_blocil
	matchwait

	rub_blocil:
	send get my blocil %prep_blocil
	matchre heal_int_back2 ^What were you referring
	matchwait 1
	send rub my blocil %prep_blocil
	waitforre ^You rub
	send stow my blocil %prep_blocil
	waitforre ^You put|^You stow|^That was the last|^Stow what

heal_int_back2:
	if (%prep_junliar = "coffee") then var consume drink
	if (%prep_junliar = "elixir") then var consume drink
	if (%prep_junliar = "mash") then var consume drink
	if (%prep_junliar = "potion") then var consume drink
	if (%prep_junliar = "solution") then var consume drink
	if (%prep_junliar = "tea") then var consume drink
	if (%prep_junliar = "tincture") then var consume drink
	if (%prep_junliar = "berries") then var consume eat
	if (%prep_junliar = "flower") then var consume eat
	if (%prep_junliar = "grass") then var consume eat
	if (%prep_junliar = "leaf") then var consume eat
	if (%prep_junliar = "moss") then var consume eat
	if (%prep_junliar = "paste") then var consume eat
	if (%prep_junliar = "pollen") then var consume eat
	if (%prep_junliar = "powder") then var consume eat
	if (%prep_junliar = "pulp") then var consume eat
	if (%prep_junliar = "root") then var consume eat
	if (%prep_junliar = "sap") then var consume eat
	if (%prep_junliar = "stem") then var consume eat
	if (%prep_junliar = "balm") then var consume rub
	if (%prep_junliar = "salve") then var consume rub
	SAVE junliar
	matchre heal_int_back2 ...wait
	matchre int_back_scar ^You apply|^You drink|^You eat
	matchre rub_junliar ^Rub what
	matchre need_blocil_or_junliar ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my junliar %prep_junliar
	matchwait

	rub_junliar:
	send get my junliar %prep_junliar
	matchre need_blocil_or_junliar ^What were you referring
	matchwait 1
	send rub my junliar %prep_junliar
	waitforre ^You rub
	send stow my junliar %prep_junliar
	waitforre ^You put|^You stow|^That was the last|^Stow what

int_back_scar:
	gosub set_int_scar
	goto ext_limb
need_blocil_or_junliar:
	setvar need_blocil_or_junliar 1

ext_limb:
	if (%ext_limb = 1) then GOTO heal_ext_limb
	GOTO int_limb

heal_ext_limb:
	if (%prep_jadice = "coffee") then var consume drink
	if (%prep_jadice = "elixir") then var consume drink
	if (%prep_jadice = "mash") then var consume drink
	if (%prep_jadice = "potion") then var consume drink
	if (%prep_jadice = "solution") then var consume drink
	if (%prep_jadice = "tea") then var consume drink
	if (%prep_jadice = "tincture") then var consume drink
	if (%prep_jadice = "berries") then var consume eat
	if (%prep_jadice = "flower") then var consume eat
	if (%prep_jadice = "grass") then var consume eat
	if (%prep_jadice = "leaf") then var consume eat
	if (%prep_jadice = "moss") then var consume eat
	if (%prep_jadice = "paste") then var consume eat
	if (%prep_jadice = "pollen") then var consume eat
	if (%prep_jadice = "powder") then var consume eat
	if (%prep_jadice = "pulp") then var consume eat
	if (%prep_jadice = "root") then var consume eat
	if (%prep_jadice = "sap") then var consume eat
	if (%prep_jadice = "stem") then var consume eat
	if (%prep_jadice = "balm") then var consume rub
	if (%prep_jadice = "salve") then var consume rub
	SAVE jadice
	matchre heal_ext_limb ...wait
	matchre ext_limb_scar ^You apply|^You drink|^You eat
	matchre rub_jadice ^Rub what
	matchre need_jadice ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my jadice %prep_jadice
	matchwait

	rub_jadice:
	send get my jadice %prep_jadice
	matchre need_jadice ^What were you referring
	matchwait 1
	send rub my jadice %prep_jadice
	waitforre ^You rub
	send stow my jadice %prep_jadice
	waitforre ^You put|^You stow|^That was the last|^Stow what

ext_limb_scar:
	gosub set_ext_scar
	goto int_limb
need_jadice:
	setvar need_jadice 1

int_limb:
	if (%int_limb = 1) then GOTO heal_int_limb
	GOTO ext_eye

heal_int_limb:
	if (%prep_yelith = "coffee") then var consume drink
	if (%prep_yelith = "elixir") then var consume drink
	if (%prep_yelith = "mash") then var consume drink
	if (%prep_yelith = "potion") then var consume drink
	if (%prep_yelith = "solution") then var consume drink
	if (%prep_yelith = "tea") then var consume drink
	if (%prep_yelith = "tincture") then var consume drink
	if (%prep_yelith = "berries") then var consume eat
	if (%prep_yelith = "flower") then var consume eat
	if (%prep_yelith = "grass") then var consume eat
	if (%prep_yelith = "leaf") then var consume eat
	if (%prep_yelith = "moss") then var consume eat
	if (%prep_yelith = "paste") then var consume eat
	if (%prep_yelith = "pollen") then var consume eat
	if (%prep_yelith = "powder") then var consume eat
	if (%prep_yelith = "pulp") then var consume eat
	if (%prep_yelith = "root") then var consume eat
	if (%prep_yelith = "sap") then var consume eat
	if (%prep_yelith = "stem") then var consume eat
	if (%prep_yelith = "balm") then var consume rub
	if (%prep_yelith = "salve") then var consume rub
	SAVE yelith
	matchre heal_int_limb ...wait
	matchre int_limb_scar ^You apply|^You drink|^You eat
	matchre rub_yelith ^Rub what
	matchre need_yelith ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my yelith %prep_yelith
	matchwait

	rub_yelith:
	send get my yelith %prep_yelith
	matchre need_yelith ^What were you referring
	matchwait 1
	send rub my yelith %prep_yelith
	waitforre ^You rub
	send stow my yelith %prep_yelith
	waitforre ^You put|^You stow|^That was the last|^Stow what

int_limb_scar:
	gosub set_int_scar
	goto ext_eye
need_yelith:
	setvar need_yelith 1

ext_eye:
	if (%ext_eye = 1) then GOTO heal_ext_eye
	GOTO int_eye

heal_ext_eye:
	if (%prep_sufil = "coffee") then var consume drink
	if (%prep_sufil = "elixir") then var consume drink
	if (%prep_sufil = "mash") then var consume drink
	if (%prep_sufil = "potion") then var consume drink
	if (%prep_sufil = "solution") then var consume drink
	if (%prep_sufil = "tea") then var consume drink
	if (%prep_sufil = "tincture") then var consume drink
	if (%prep_sufil = "berries") then var consume eat
	if (%prep_sufil = "flower") then var consume eat
	if (%prep_sufil = "grass") then var consume eat
	if (%prep_sufil = "leaf") then var consume eat
	if (%prep_sufil = "moss") then var consume eat
	if (%prep_sufil = "paste") then var consume eat
	if (%prep_sufil = "pollen") then var consume eat
	if (%prep_sufil = "powder") then var consume eat
	if (%prep_sufil = "pulp") then var consume eat
	if (%prep_sufil = "root") then var consume eat
	if (%prep_sufil = "sap") then var consume eat
	if (%prep_sufil = "stem") then var consume eat
	if (%prep_sufil = "balm") then var consume rub
	if (%prep_sufil = "salve") then var consume rub
	SAVE sufil
	matchre heal_ext_eye ...wait
	matchre ext_eye_scar ^You apply|^You drink|^You eat
	matchre rub_sufil ^Rub what
	matchre need_sufil ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my sufil %prep_sufil
	matchwait

	rub_sufil:
	send get my sufil %prep_sufil
	matchre need_sufil ^What were you referring
	matchwait 1
	send rub my sufil %prep_sufil
	waitforre ^You rub
	send stow my sufil %prep_sufil
	waitforre ^You put|^You stow|^That was the last|^Stow what

ext_eye_scar:
	gosub set_ext_scar
	goto int_eye
need_sufil:
	setvar need_sufil 1

int_eye:
	if (%int_eye = 1) then GOTO heal_int_eye
	GOTO ext_scar

heal_int_eye:
	if (%prep_aevaes = "coffee") then var consume drink
	if (%prep_aevaes = "elixir") then var consume drink
	if (%prep_aevaes = "mash") then var consume drink
	if (%prep_aevaes = "potion") then var consume drink
	if (%prep_aevaes = "solution") then var consume drink
	if (%prep_aevaes = "tea") then var consume drink
	if (%prep_aevaes = "tincture") then var consume drink
	if (%prep_aevaes = "berries") then var consume eat
	if (%prep_aevaes = "flower") then var consume eat
	if (%prep_aevaes = "grass") then var consume eat
	if (%prep_aevaes = "leaf") then var consume eat
	if (%prep_aevaes = "moss") then var consume eat
	if (%prep_aevaes = "paste") then var consume eat
	if (%prep_aevaes = "pollen") then var consume eat
	if (%prep_aevaes = "powder") then var consume eat
	if (%prep_aevaes = "pulp") then var consume eat
	if (%prep_aevaes = "root") then var consume eat
	if (%prep_aevaes = "sap") then var consume eat
	if (%prep_aevaes = "stem") then var consume eat
	if (%prep_aevaes = "balm") then var consume rub
	if (%prep_aevaes = "salve") then var consume rub
	SAVE aevaes
	matchre heal_int_eye ...wait
	matchre int_eye_scar ^You apply|^You drink|^You eat
	matchre rub_aevaes ^Rub what
	matchre need_aevaes ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my aevaes %prep_aevaes
	matchwait

	rub_aevaes:
	send get my aevaes %prep_aevaes
	matchre need_aevaes ^What were you referring
	matchwait 1
	send rub my aevaes %prep_aevaes
	waitforre ^You rub
	send stow my aevaes %prep_aevaes
	waitforre ^You put|^You stow|^That was the last|^Stow what

int_eye_scar:
	gosub set_int_scar
	goto ext_scar
need_aevaes:
	setvar need_aevaes 1

ext_scar:
	if (%ext_scar = 1) then GOTO heal_ext_scar
	GOTO int_scar

heal_ext_scar:
	if (%prep_cebi = "coffee") then var consume drink
	if (%prep_cebi = "elixir") then var consume drink
	if (%prep_cebi = "mash") then var consume drink
	if (%prep_cebi = "potion") then var consume drink
	if (%prep_cebi = "solution") then var consume drink
	if (%prep_cebi = "tea") then var consume drink
	if (%prep_cebi = "tincture") then var consume drink
	if (%prep_cebi = "berries") then var consume eat
	if (%prep_cebi = "flower") then var consume eat
	if (%prep_cebi = "grass") then var consume eat
	if (%prep_cebi = "leaf") then var consume eat
	if (%prep_cebi = "moss") then var consume eat
	if (%prep_cebi = "paste") then var consume eat
	if (%prep_cebi = "pollen") then var consume eat
	if (%prep_cebi = "powder") then var consume eat
	if (%prep_cebi = "pulp") then var consume eat
	if (%prep_cebi = "root") then var consume eat
	if (%prep_cebi = "sap") then var consume eat
	if (%prep_cebi = "stem") then var consume eat
	if (%prep_cebi = "balm") then var consume rub
	if (%prep_cebi = "salve") then var consume rub
	SAVE cebi
	matchre heal_ext_scar ...wait
	matchre int_scar ^You apply|^You drink|^You eat
	matchre rub_cebi ^Rub what
	matchre need_cebi ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my cebi %prep_cebi
	matchwait

	rub_cebi:
	send get my cebi %prep_cebi
	matchre need_cebi ^What were you referring
	matchwait 1
	send rub my cebi %prep_cebi
	waitforre ^You rub
	send stow my cebi %prep_cebi
	waitforre ^You put|^You stow|^That was the last|^Stow what

need_cebi:
	setvar need_cebi 1

int_scar:
	if (%int_scar = 1) then GOTO heal_int_scar
	GOTO supplies

heal_int_scar:
	if (%prep_hisan = "coffee") then var consume drink
	if (%prep_hisan = "elixir") then var consume drink
	if (%prep_hisan = "mash") then var consume drink
	if (%prep_hisan = "potion") then var consume drink
	if (%prep_hisan = "solution") then var consume drink
	if (%prep_hisan = "tea") then var consume drink
	if (%prep_hisan = "tincture") then var consume drink
	if (%prep_hisan = "berries") then var consume eat
	if (%prep_hisan = "flower") then var consume eat
	if (%prep_hisan = "grass") then var consume eat
	if (%prep_hisan = "leaf") then var consume eat
	if (%prep_hisan = "moss") then var consume eat
	if (%prep_hisan = "paste") then var consume eat
	if (%prep_hisan = "pollen") then var consume eat
	if (%prep_hisan = "powder") then var consume eat
	if (%prep_hisan = "pulp") then var consume eat
	if (%prep_hisan = "root") then var consume eat
	if (%prep_hisan = "sap") then var consume eat
	if (%prep_hisan = "stem") then var consume eat
	if (%prep_hisan = "balm") then var consume rub
	if (%prep_hisan = "salve") then var consume rub
	SAVE hisan
	matchre heal_int_scar ...wait
	matchre supplies ^You apply|^You drink|^You eat
	matchre rub_hisan ^Rub what
	matchre need_hisan ^Drink what|^Eat what|^What were you referring|^Please rephrase that command
	send %consume my hisan %prep_hisan
	matchwait

	rub_hisan:
	send get my hisan %prep_hisan
	matchre need_hisan ^What were you referring
	matchwait 1
	send rub my hisan %prep_hisan
	waitforre ^You rub
	send stow my hisan %prep_hisan
	waitforre ^You put|^You stow|^That was the last|^Stow what
	goto supplies

need_hisan:
	setvar need_hisan 1

#Report on missing herbs
supplies:

echo
echo You are missing the following herbs:
echo

if (%need_nemoih = (1) then
{
ECHO nemoih (external head wounds)
}
if (%need_eghmok = (1) then
{
ECHO eghmok (internal head wounds)
}
if (%need_sufil = (1) then
{
ECHO sufil (external eye wounds)
}
if (%need_aevaes = (1) then
{
ECHO aevaes (internal eye wounds)
}
if (%need_georin = (1) then
{
ECHO georin (external neck wounds)
}
if (%need_riolur = (1) then
{
ECHO riolur (internal neck wounds)
}
if (%need_plovik = (1) then
{
ECHO plovik (external chest wounds)
}
if (%need_ithor = (1) then
{
ECHO ithor (internal chest wounds)
}
if (%need_nilos = (1) then
{
ECHO nilos (external abdomen wounds)
}
if (%need_muljin = (1) then
{
ECHO muljin (internal abdomen wounds)
}
if (%need_hulnik = (1) then
{
ECHO hulnik (external back wounds)
}
if (%need_blocil_or_junliar = (1) then
{
ECHO blocil or junliar (internal back wounds)
}
if (%need_jadice = (1) then
{
ECHO jadice (external limb wounds)
}
if (%need_yelith = (1) then
{
ECHO yelith (internal limb wounds)
}
if (%need_aloe = (1) then
{
ECHO aloe (skin wounds)
}
if (%need_lujeakave = (1) then
{
ECHO lujeakave (nerve wounds)
}
if (%need_cebi = (1) then
{
ECHO cebi (external scars)
}
if (%need_hisan = (1) then
{
ECHO hisan (internal scars)
}

goto end

set_ext_scar:
setvar ext_scar 1
return

set_int_scar:
setvar int_scar 1
return

ScriptError:
ECHO *********************************
ECHO *** Usage:
ECHO *** To see which herbs you need:
ECHO ***  .herb check
ECHO *** To heal:
ECHO ***  .herb
ECHO *********************************
goto end

end: