## debug 10

## If your remedies container is not an herbal case, change here!
var container herbal case
## NOTE: Not yet implemented! If you want to use Rakash healing teas, set this to true. Please note that teas cannot be applied to others.
var teas false

var nemoih inactive
var sufil inactive
var georin inactive
var plovik inactive
var jadice inactive
var hulnik inactive
var nilos inactive
var aloe inactive
var marram inactive
var woundwort inactive
var qun inactive
var genich inactive
var blocil inactive
var cebi inactive
var dioica inactive
var clubmoss inactive
var eghmok inactive
var aevaes inactive
var riolur inactive
var ithor inactive
var junliar inactive
var muljin inactive
var yelith inactive
var lujeakave inactive
var flamestalk inactive
var hulij inactive
var ojhenik inactive
var nuloe inactive
var hisan inactive
var belradi inactive
var herb 0
var form 0
var herb1 0
var form1 0
var herb2 0
var form2 0

var ALLHERBS %nemoih|%sufil|%georin|%plovik|%jadice|%hulnik|%nilos|%aloe|%marram|%woundwort|%qun|%genich|%blocil|%cebi|%dioica|%clubmoss|%eghmok|%aevaes|%riolur|%ithor|%junliar|%muljin|%yelith|%lujeakave|%flamestalk|%hulij|%ojhenik|%nuloe|%hisan|%beldradi

eval NAME tolower (%1)
eval CAPITAL replacere ("%NAME","(?!^[a-z]|^[A-Z])(.*)","")
eval NAME replacere ("%NAME","(^[a-z]|^[A-Z])","")
eval CAPITAL toupper (%CAPITAL)
var PLAYER %CAPITAL%NAME
var SELF 0
if matchre ("$charactername","%PLAYER") then
    {
    var 1
    var SELF 1
    goto start
    }
gosub FIND_PLAYER

start:
put stow left
var EXT_HEAD_WOUND 0
action var EXT_HEAD_WOUND 1 when (faint scuffing|minor abrasions|tiny scratches) to the head|(cuts|bruises) about the head|a cracked skull with|a pulpy stump for a head
var EXT_EYE_WOUND 0
action var EXT_EYE_WOUND 1 when (faint scuffing|minor abrasions|light scratches) to the (right|left) eye|(black and blue|bruised and swollen|bruised, swollen and bleeding|bruised, swollen and slashed|bruised, swollen and shattered) (right|left) eye|pulpy cavity for a (right|left) eye
var EXT_NECK_WOUND 0
action var EXT_NECK_WOUND 1 when (faint scuffing|minor abrasions|tiny scratches) to the neck|cuts and bruises about the neck|(deep cuts|deep slashes) across the neck|gaping holes in the neck|shattered neck with gaping wounds|completely useless neck with nearly all flesh and bone torn away
var EXT_CHEST_WOUND 0
action var EXT_CHEST_WOUND 1 when (faint scuffing|minor abrasions|tiny scratches) to the chest|cuts and bruises about the chest area|(deep cuts|deep slashes) across the chest area|gaping holes in the chest area|shattered chest area with gaping wounds|completely destroyed chest
var EXT_ABD_WOUND 0
action var EXT_ABD_WOUND 1 when (faint scuffing|minor abrasions|tiny scratches) to the abdomen|cuts and bruises about the abdomen|(deep cuts|deep slashes) across the abdomen|gaping holes in the abdomen|abdomen deeply gouged with gaping wounds|completely destroyed abdomen
var EXT_BACK_WOUND 0
action var EXT_BACK_WOUND 1 when (faint scuffing|minor abrasions|tiny scratches) to the back|cuts and bruises about the back|(deep cuts|deep slashes) across the back|gaping holes in the back|shattered back with gaping wounds|completely destroyed back
var EXT_LIMB_WOUND 0
action var EXT_LIMB_WOUND 1 when (faint scuffing|minor abrasions|tiny scratches) to the back|(faint scuffing|minor abrasions|tiny scratches) to the (left|right) (hand|arm|leg)|(faint scuffing|minor abrasions|tiny scratches) to the tail|cuts and bruises about the (left|right) (hand|arm|leg)|(deep cuts|deep slashes) across the (left|right) (hand|arm|leg)|broken (left|right) (hand|arm|leg) with gaping holes|shattered (left|right) (hand|arm|leg) with gaping holes|ugly stump for a (left|right) (hand|arm|leg)|cuts and bruises about the tail|(deep cuts|deep slashes) across the tail|broken tail with gaping holes|shattered tail with gaping wounds|ugly stump for a tail
var EXT_SKIN_WOUND 0
action var EXT_SKIN_WOUND 1 when (faint scuffing|minor abrasions|tiny scratches) to the skin|small skin rash|large skin rash|body rash|painful, inflamed body rash|boils and sores around the skin|open and bleeding sores all over the skin
var INT_HEAD_WOUND 0
action var INT_HEAD_WOUND 1 when (slightly tender|bruised|deeply bruised) head|major swelling and bruising around the head|ghastly bloated head|grotesquely bloated head
var INT_EYE_WOUND 0
action var INT_EYE_WOUND 1 when slightly tender (left|right) eye|(minor swelling and bruising around the|severely swollen and bruised|severely swollen, bruised and crossed|severely swollen, bruised and cloudy|severely swollen, bruised, and blind) (right|left) eye
var INT_NECK_WOUND 0
action var INT_NECK_WOUND 1 when slightly tender neck|(minor swelling and bruising around the|severely swollen and deeply bruised|severely swollen and shattered) neck
var INT_CHEST_WOUND 0
action var INT_CHEST_WOUND 1 when slightly tender chest|(minor swelling and bruising in the|severely swollen and bruised|severely swollen and deeply bruised|severely swollen) chest
var INT_ABD_WOUND 0
action var INT_ABD_WOUND 1 when slightly tender abdomen|(minor swelling and bruising in the|severely swollen and bruised|severely bloated and discolored) abdomen
var INT_BACK_WOUND 0
action var INT_BACK_WOUND 1 when slightly tender back|(minor swelling and bruising in the|severely swollen and bruised|severely swollen and deeply bruised|severely swollen) back
var INT_LIMB_WOUND 0
action var INT_LIMB_WOUND 1 when minor swelling and bruising around the (right|left) (hand|arm|leg)|minor swelling and bruising around the tail|(severely swollen and deeply bruised|severely swollen and shattered) (right|left) (hand|arm|leg)|(severely swollen and deeply bruised|severely swollen and shattered) tail
var INT_NERVE_WOUND 0
action var INT_NERVE_WOUND 1 when minor twitching|severe twitching|difficulty controlling actions|paralysis of the entire body
var EXT_HEAD_SCAR 0
action var EXT_HEAD_SCAR 1 when (faint scars along the|nearly invisible scars along the|tiny scars across the|minor scars about the) head|(faint scars along the|nearly invisible scars along the|tiny scars along the|minor scars across the) (right|left) eye|(faint scars along the|nearly invisible scars along the|tiny scars across the|minor scarring along the) neck|(severe scarring about the|severe scarring and ugly gashes about the|missing chunks out of the|mangled and malformed|stump for a) head|(severe scarring across the|deeply scarred gashes across the|punctured and shriveled|painfully mangled and malformed|empty) (right|left) eye|(severe scarring along the|severe scarring and ugly gashes about the|severely scarred, mangled and malformed|ugly flesh stump for a) neck
var EXT_TORSO_SCAR 0
action var EXT_TORSO_SCAR 1 when (faint scars|nearly invisible scars|tiny scars|minor scarring) (along the|across the|about the|from the) chest|(faint scars|nearly invisible scars|tiny scars|minor scarring) (along the|across the|about the|from the) abdomen|(faint scars|nearly invisible scars|tiny scars|minor scarring) (along the|across the|about the|from the) back|(severe scarring|severe scarring and ugly gashes|severe scarring and chunks of flesh missing) (along the|across the|about the|from the) chest|severely scarred, mangled and malformed chest|mostly non-existent chest|(severe scarring|severe scarring and ugly gashes|severe scarring and chunks of flesh missing) (along the|across the|about the|from the) abdomen|severely scarred, mangled and malformed abdomen|mostly non-existent abdomen|(severe scarring|severe scarring and ugly glashes|severe scarring and chunks of flesh missing) (along the|across the|about the|from the) back|severely scarred, mangled and malformed back|mostly non-existent back
var EXT_LIMB_SCAR 0
action var EXT_LIMB_SCAR 1 when (faint scars|nearly invisible scars|tiny scars|minor scarring) (along the|across the|about the|from the|for a) (right|left) (hand|arm|leg)|(faint scars|nearly invisible scars|tiny scars|minor scarring) (along the|across the|about the|from the|for a) tail|(severe scarring|severe scarring and ugly gashes|severe scarring and chunks of flesh missing|ugly flesh stump) (along the|across the|about the|from the|for a) (right|left) (hand|arm|leg)|severely scarred, mangled and malformed (right|left) (hand|arm|leg)|(severe scarring|severe scarring and ugly gashes|severe scarring and chunks of flesh missing|ugly flesh stump) (along the|across the|about the|from the|for a) tail|severely scarred, mangled and malformed tail
var EXT_SKIN_SCAR 0
action var EXT_SKIN_SCAR 1 when (faint scars|nearly invisible scars|tiny scars) (along the|across the) skin|loss of skin tone|(minor|severe) skin discoloration|shriveled and oddly folded skin|severely stiff and shriveled skin|severe skin loss
var INT_HEAD_SCAR 0
action var INT_HEAD_SCAR 1 when (occasional twitch|confused look with sporadic twitching) (on the|of the) forehead|blank stare|(occasional twitching|constant twitching) in the (right|left) eye|(clouded|blind) (right|left) eye|(occasional twitching|constant twitching) in the neck|paralyzed neck
var INT_TORSO_SCAR 0
action var INT_TORSO_SCAR 1 when (occasional twitch|confused look with sporadic twitching) (on the|of the) forehead|blank stare|(occasional twitching|constant twitching) in the (right|left) eye|(clouded|blind) (right|left) eye|(occasional twitching|constant twitching) in the neck|paralyzed neck|(occasional twitching|constant twitching) in the (chest|abdomen|back)|painful chest|somewhat emaciated|pallor|painful back|(severely|extremely) painful back
var INT_LIMB_SCAR 0
action var INT_LIMB_SCAR 1 when (occasional twitching|constant twitching) in the (right|left) (hand|arm|leg)|(occasional twitching|constant twitching) in the tail|paralyzed (right|left) (hand|arm|leg)|paralyzed tail
var INT_NERVE_SCAR 0
action var INT_NERVE_SCAR 1 when (difficulty moving|numbness in) (your|his|her) (fingers and toes|arms and legs)|general numbness|difficulty moving

if %SELF = 1 then put look $charactername wound
if %SELF = 0 then put look %2 wound
pause 1

if %EXT_HEAD_WOUND = 1 then
    {
    if %nemoih = inactive then
        {
        gosub extheadwndget
        }
    else put #echo aqua Some nemoih has already been applied. Please wait.
    }

if %EXT_EYE_WOUND = 1 then
    {
    if %sufil = inactive then
        {
        gosub exteyewndget
        }
    else put #echo aqua Some sufil has already been applied. Please wait.
    }

if %EXT_NECK_WOUND = 1 then
    {
    if %georin = inactive then
        {
        gosub extneckwndget
        }
    else put #echo aqua Some georin has already been applied. Please wait.
    }

if %EXT_CHEST_WOUND = 1 then
    {
    if %plovik = inactive then
        {
        gosub extchestwndget
        }
    else put #echo aqua Some plovik has already been applied. Please wait.
    }

if %EXT_ABD_WOUND = 1 then
    {
    if %nilos = inactive then
        {
        gosub extabdwndget
        }
    else put #echo aqua Some nilos has already been applied. Please wait.
    }

if %EXT_BACK_WOUND = 1 then
    {
    if %hulnik = inactive then
        {
        gosub extbackwndget
        }
    else put #echo aqua Some hulnik has already been applied. Please wait.
    }

if %EXT_LIMB_WOUND = 1 then
    {
    if %jadice = inactive then
        {
        gosub extlimbwndget
        }
    else put #echo aqua Some jadice has already been applied. Please wait.
    }

if %EXT_SKIN_WOUND = 1 then
    {
    if %aloe = inactive then
        {
        gosub extskinwndget
        }
    else put #echo aqua Some aloe has already been applied. Please wait.
    }

if %INT_HEAD_WOUND = 1 then
    {
    if %eghmok = inactive then
        {
        gosub intheadwndget
        }
    else put #echo aqua Some eghmok has already been applied. Please wait.
    }

if %INT_EYE_WOUND = 1 then
    {
    if %aevaes = inactive then
        {
        gosub inteyewndget
        }
    else put #echo aqua Some aevaes has already been applied. Please wait.
    }

if %INT_NECK_WOUND = 1 then
    {
    if %riolur = inactive then
        {
        gosub intneckwndget
        }
    else put #echo aqua Some riolur has already been applied. Please wait.
    }

if %INT_CHEST_WOUND = 1 then
    {
    if %ithor = inactive then
        {
        gosub intchestwndget
        }
    else put #echo aqua Some ithor has already been applied. Please wait.
    }

if %INT_ABD_WOUND = 1 then
    {
    if %muljin = inactive then
        {
        gosub intabdwndget
        }
    else put #echo aqua Some muljin has already been applied. Please wait.
    }

if %INT_BACK_WOUND = 1 then
    {
    if %junliar = inactive then
        {
        gosub intbackwndget
        }
    else put #echo aqua Some junliar has already been applied. Please wait.
    }

if %INT_LIMB_WOUND = 1 then
    {
    if %yelith = inactive then
        {
        gosub intlimbwndget
        }
    else put #echo aqua Some yelith has already been applied. Please wait.
    }

if %INT_NERVE_WOUND = 1 then
    {
    if %lujeakave = inactive then
        {
        gosub intnrvwndget
        }
    else put #echo aqua Some lujeakave has already been applied. Please wait.
    }

if %EXT_HEAD_SCAR = 1 then
    {
    if %qun = inactive then
        {
        gosub extheadscrget
        }
    else put #echo aqua Some qun has already been applied. Please wait.
    }

if %EXT_TORSO_SCAR = 1 then
    {
    if %genich = inactive then
        {
        gosub exttorscrget
        }
    else put #echo aqua Some genich has already been applied. Please wait.
    }

if %EXT_LIMB_SCAR = 1 then
    {
    if %blocil = inactive then
        {
        gosub extlimbscrget
        }
    else put #echo aqua Some blocil has already been applied. Please wait.
    }

if %EXT_SKIN_SCAR = 1 then
    {
    if %cebi = inactive then
        {
        gosub extskinscrget
        }
    else put #echo aqua Some cebi has already been applied. Please wait.
    }

if %INT_HEAD_SCAR = 1 then
    {
    if %hulij = inactive then
        {
        gosub intheadscrget
        }
    else put #echo aqua Some hulij has already been applied. Please wait.
    }

if %INT_TORSO_SCAR = 1 then
    {
    if %ojhenik = inactive then
        {
        gosub inttorscrget
        }
    else put #echo aqua Some ojhenik has already been applied. Please wait.
    }

if %INT_LIMB_SCAR = 1 then
    {
    if %nuloe = inactive then
        {
        gosub intlimbscrget
        }
    else put #echo aqua Some nuloe has already been applied. Please wait.
    }

if %INT_NERVE_SCAR = 1 then
    {
    if %hisan = inactive then
        {
        gosub intnrvscrget
        }
    else put #echo aqua Some hisan has already been applied. Please wait.
    }

if matchre ("%nemoih|%sufil|%georin|%plovik|%jadice|%hulnik|%nilos|%aloe|%marram|%woundwort|%qun|%genich|%blocil|%cebi|%dioica|%clubmoss|%eghmok|%aevaes|%riolur|%ithor|%junliar|%muljin|%yelith|%lujeakave|%flamestalk|%hulij|%ojhenik|%nuloe|%hisan|%beldradi","\bactive\b") then goto done
exit
extheadinsigwndget:
	var herb nemoih
	var form salve
	put pinch %herb %form from %container
	match extheadwndget What were you referring to?
	match extheadwndget I could not find
	match extheadwndapply You pinch a portion
	matchwait

extheadwndget:
	var herb nemoih
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match extheadwndapply You pinch a portion
	matchwait

extheadwndapply:
	put apply %form %1
	var nemoih active
	return

exteyeinsigwndget:
	var herb sufil
	var form salve
	put pinch %herb %form from %container
	match exteyewndget What were you referring to?
	match exteyewndget I could not find
	match exteyewndapply You pinch a portion
	matchwait

exteyewndget:
	var herb sufil
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match exteyewndapply You pinch a portion
	matchwait

exteyewndapply:
	put apply %form %1
	var sufil active
	return

extneckinsigwndget:
	var herb georin
	var form salve
	put pinch %herb %form from %container
	match extneckwndget What were you referring to?
	match extneckwndget I could not find
	match extneckwndapply You pinch a portion
	matchwait

extneckwndget:
	var herb georin
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match extneckwndapply You pinch a portion
	matchwait

extneckwndapply:
	put apply %form %1
	var georin active
	return

extchestinsigwndget:
	var herb plovik
	var form salve
	put pinch %herb %form from %container
	match extchestwndget What were you referring to?
	match extchestwndget I could not find
	match extchestwndapply You pinch a portion
	matchwait

extchestwndget:
	var herb plovik
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match extchestwndapply You pinch a portion
	matchwait

extchestwndapply:
	put apply %form %1
	var plovik active
	return

extabdinsigwndget:
	var herb nilos
	var form salve
	put pinch %herb %form from %container
	match extabdwndget What were you referring to?
	match extabdwndget I could not find
	match extabdwndapply You pinch a portion
	matchwait

extabdwndget:
	var herb nilos
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match extabdwndapply You pinch a portion
	matchwait

extabdwndapply:
	put apply %form %1
	var nilos active
	return

extbackinsigwndget:
	var herb hulnik
	var form salve
	put pinch %herb %form from %container
	match extbackwndget What were you referring to?
	match extbackwndget I could not find
	match extbackwndapply You pinch a portion
	matchwait

extbackwndget:
	var herb hulnik
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match extbackwndapply You pinch a portion
	matchwait

extbackwndapply:
	put apply %form %1
	var hulnik $active
	return

extlimbinsigwndget:
	var herb jadice
	var form salve
	put pinch %herb %form from %container
	match extlimbwndget What were you referring to?
	match extlimbwndget I could not find
	match extlimbwndapply You pinch a portion
	matchwait

extlimbwndget:
	var herb jadice
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match extlimbwndapply You pinch a portion
	matchwait

extlimbwndapply:
	put apply %form %1
	var jadice active
	return

extskininsigwndget:
	var herb aloe
	var form salve
	put pinch %herb %form from %container
	match extskinwndget What were you referring to?
	match extskinwndget I could not find
	match extskinwndapply You pinch a portion
	matchwait

extskinwndget:
	var herb aloe
	var form unguent
	put pinch %herb %form from %container
	match extwndmissget What were you referring to?
	match extwndmissget I could not find
	match extskinwndapply You pinch a portion
	matchwait

extskinwndapply:
	put apply %form %1
	var aloe active
	return

intheadinsigwndget:
	var herb eghmok
	var form potion
	put pinch %herb %form from %container
	match intheadwndget What were you referring to?
	match intheadwndget I could not find
	match intheadwndapply You pinch a portion
	matchwait

intheadwndget:
	var herb eghmok
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match intheadwndapply You pinch a portion
	matchwait

intheadwndapply:
	put apply %form %1
	var eghmok active
	return

inteyeinsigwndget:
	var herb aevaes
	var form potion
	put pinch %herb %form from %container
	match inteyewndget What were you referring to?
	match inteyewndget I could not find
	match inteyewndapply You pinch a portion
	matchwait

inteyewndget:
	var herb aevaes
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match inteyewndapply You pinch a portion
	matchwait

inteyewndapply:
	put apply %form %1
	var aevaes active
	return

intneckinsigwndget:
	var herb riolur
	var form potion
	put pinch %herb %form from %container
	match intneckwndget What were you referring to?
	match intneckwndget I could not find
	match intneckwndapply You pinch a portion
	matchwait

intneckwndget:
	var herb riolur
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match intneckwndapply You pinch a portion
	matchwait

intneckwndapply:
	put apply %form %1
	var riolur active
	return

intchestinsigwndget:
	var herb ithor
	var form potion
	put pinch %herb %form from %container
	match intchestwndget What were you referring to?
	match intchestwndget I could not find
	match intchestwndapply You pinch a portion
	matchwait

intchestwndget:
	var herb ithor
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match intchestwndapply You pinch a portion
	matchwait

intchestwndapply:
	put apply %form %1
	var ithor active
	return

intabdinsigwndget:
	var herb muljin
	var form potion
	put pinch %herb %form from %container
	match intabdwndget What were you referring to?
	match intabdwndget I could not find
	match intabdwndapply You pinch a portion
	matchwait

intabdwndget:
	var herb muljin
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match intabdwndapply You pinch a portion
	matchwait

intabdwndapply:
	put apply %form %1
	var muljin active
	return

intbackinsigwndget:
	var herb junliar
	var form potion
	put pinch %herb %form from %container
	match intbackwndget What were you referring to?
	match intbackwndget I could not find
	match intbackwndapply You pinch a portion
	matchwait

intbackwndget:
	var herb junliar
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match intbackwndapply You pinch a portion
	matchwait

intbackwndapply:
	put apply %form %1
	var junliar active
	return

intlimbinsigwndget:
	var herb yelith
	var form potion
	put pinch %herb %form from %container
	match intlimbwndget What were you referring to?
	match intlimbwndget I could not find
	match intlimbwndapply You pinch a portion
	matchwait

intlimbwndget:
	var herb yelith
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match intlimbwndapply You pinch a portion
	matchwait

intlimbwndapply:
	put apply %form %1
	var yelith active
	return

intnrvinsigwndget:
	var herb lujeakave
	var form potion
	put pinch %herb %form from %container
	match intnrvwndget What were you referring to?
	match intnrvwndget I could not find
	match intnrvwndapply You pinch a portion
	matchwait

intnrvwndget:
	var herb lujeakave
	var form tonic
	put pinch %herb %form from %container
	match intwndmissget What were you referring to?
	match intwndmissget I could not find
	match intnrvwndapply You pinch a portion
	matchwait

intnrvwndapply:
	put apply %form %1
	var lujeakave active
	return

extheadinsigscrget:
	var herb qun
	var form ointment
	put pinch %herb %form from %container
	match extheadscrget What were you referring to?
	match extheadscrget I could not find
	match extheadscrapply You pinch a portion
	matchwait

extheadscrget:
	var herb qun
	var form poultice
	put pinch %herb %form from %container
	match extscrmissget What were you referring to?
	match extscrmissget I could not find
	match extheadscrapply You pinch a portion
	matchwait

extheadscrapply:
	put apply %form %1
	var qun active
	return

exttorinsigscrget:
	var herb genich
	var form ointment
	put pinch %herb %form from %container
	match exttorscrget What were you referring to?
	match exttorscrget I could not find
	match exttorscrapply You pinch a portion
	matchwait

exttorscrget:
	var herb genich
	var form poultice
	put pinch %herb %form from %container
	match extscrmissget What were you referring to?
	match extscrmissget I could not find
	match exttorscrapply You pinch a portion
	matchwait

exttorscrapply:
	put apply %form %1
	var genich active
	return

extlimbinsigscrget:
	var herb blocil
	var form ointment
	put pinch %herb %form from %container
	match extlimbscrget What were you referring to?
	match extlimbscrget I could not find
	match extlimbscrapply You pinch a portion
	matchwait

extlimbscrget:
	var herb blocil
	var form poultice
	put pinch %herb %form from %container
	match extscrmissget What were you referring to?
	match extscrmissget I could not find
	match extlimbscrapply You pinch a portion
	matchwait

extlimbscrapply:
	put apply %form %1
	var blocil active
	return

extskininsigscrget:
	var herb cebi
	var form ointment
	put pinch %herb %form from %container
	match extskinscrget What were you referring to?
	match extskinscrget I could not find
	match extskinscrapply You pinch a portion
	matchwait

extskinscrget:
	var herb cebi
	var form poultice
	put pinch %herb %form from %container
	match extscrmissget What were you referring to?
	match extscrmissget I could not find
	match extskinscrapply You pinch a portion
	matchwait

extskinscrapply:
	put apply %form %1
	var cebi active
	return

intheadscrget:
	var herb hulij
	var form elixir
	put pinch %herb %form from %container
	match intscrmissget What were you referring to?
	match intscrmissget I could not find
	match intheadscrapply You pinch a portion
	matchwait

intheadscrapply:
	put apply %form %1
	var hulij active
	return

inttorscrget:
	var herb ojhenik
	var form elixir
	put pinch %herb %form from %container
	match intscrmissget What were you referring to?
	match intscrmissget I could not find
	match inttorscrapply You pinch a portion
	matchwait

inttorscrapply:
	put apply %form %1
	var ojhenik active
	return

intlimbscrget:
	var herb nuloe
	var form elixir
	put pinch %herb %form from %container
	match intscrmissget What were you referring to?
	match intscrmissget I could not find
	match intlimbscrapply You pinch a portion
	matchwait

intlimbscrapply:
	put apply %form %1
	var nuloe active
	return

intnrvscrget:
	var herb hisan
	var form elixir
	put pinch %herb %form from %container
	match intscrmissget What were you referring to?
	match intscrmissget I could not find
	match intlimbscrapply You pinch a portion
	matchwait

intnrvscrapply:
	put apply %form %1
	var hisan active
	return

extwndmissget:
	var herb1 marram
	var form1 salve
	put pinch %herb1 %form1 from my %container
	match advwndmissget What were you referring to?
	match advwndmissget I could not find
	match extwndmissapply You pinch a portion
	matchwait

extwndmissapply:
	pause 1
	var marram active
	put apply %form1 %1
	match return You rub some
	matchwait

advwndmissget:
	var herb2 woundwort
	var form2 curative
	put pinch %herb2 %form2 from my %container
	match wndwhiff What were you referring to?
	match wndwhiff I could not find
	match advwndmissapply You pinch a portion
	matchwait

advwndmissapply:
	pause 1
	var woundwort active
	put apply %form2 %1
	match return You apply
	matchwait

intwndmissget:
	var herb1 flamestalk
	var form1 potion
	put pinch %herb1 %form1 from my %container
	match advwndmissget What were you referring to?
	match advwndmissget I could not find
	match intwndmissapply You pinch a portion
	matchwait

intwndmissapply:
	pause 1
	var flamestalk active
	put apply %form1 %1
	match return You apply
	matchwait

extscrmissget:
	var herb1 dioica
	var form1 poultice
	put pinch %herb1 %form1 from my %container
	match advscrmissget What were you referring to?
	match advscrmissget I could not find
	match extscrmissapply You pinch a portion
	matchwait

extscrmissapply:
	pause 1
	var dioica active
	put apply %form1 %1
	match return You apply
	matchwait

intscrmissget:
	var herb1 belradi
	var form1 elixir
	put pinch %herb1 %form1 from my %container
	match advscrmissget What were you referring to?
	match advscrmissget I could not find
	match extscrmissapply You pinch a portion
	matchwait

intscrmissapply:
	pause 1
	var belradi active
	put apply %form1 %1
	match return You apply
	matchwait

advscrmissget:
	var herb2 clubmoss
	var form2 liniment
	put pinch %herb2 %form2 from my %container
	match scrwhiff What were you referring to?
	match scrwhiff I could not find
	match advscrmissapply You pinch a portion
	matchwait

advscrmissapply:
	pause 1
	var clubmoss active
	put apply %form2 %1
	match return You apply
	matchwait

return:
return

wndwhiff:
	put #echo pink You do not have %herb %form, %herb1 %form1, or %herb2 %form2. Some wounds may not be healed.
	return

scrwhiff:
	put #echo pink You do not have %herb %form, %herb1 %form1, or %herb2 %form2. Some scars may not be healed.
	return

done:
    if %SELF = 0 then put #echo aqua You have skillfully applied remedies %1. Please wait for the current batch to take effect before applying more.
    if %SELF = 1 then put #echo aqua You have skillfully applied remedies. Wait for the toxins to subside before applying more.
    exit

FIND_PLAYER:
eval ROOM replacere ("$roomplayers","\,|\s","|")
var COUNT 0

FIND_PLAYER_LOOP:
eval POSSIBLE element("%ROOM","%COUNT")
eval NAME replacere ("%POSSIBLE","\.","")
if matchre ("%NAME","%PLAYER") then
	{
	var 1 to %NAME
    var 2 %NAME
	return
	}
if matchre ("%POSSIBLE","\.") then return
math COUNT add 1
goto FIND_PLAYER_LOOP