Tend Wounds (script): Difference between revisions

From Elanthipedia
Jump to navigation Jump to search
m (added category of "Survival")
No edit summary
 
(2 intermediate revisions by the same user not shown)
Line 20: Line 20:
==Trigger==
==Trigger==


<pre>#trigger {^The bandages binding your (.*) (soak|come)} {#send tend my $1} {tend}</pre>
<pre>#trigger {^The bandages binding your (.*) (soak|come|become)} {#send tend my $1} {tend}</pre>


==Aliases==
==Aliases==


<pre>
<pre>#alias {tab} {tend my abdomen}
#alias {tab} {tend my abdomen}
#alias {tb} {tend my back}
#alias {tb} {tend my back}
#alias {tch} {tend my chest}
#alias {tch} {tend my chest}
Line 61: Line 62:
<pre>put #class tend on
<pre>put #class tend on
action goto end when ^Your .+ too injured|^You have no significant injuries
action goto end when ^Your .+ too injured|^You have no significant injuries

send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send stop climb
waitforre ^You stop practicing your climbing skills|^You weren't practicing your climbing skills anyway


ACTION setvar head 1 WHEN ^\s+head (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar head 1 WHEN ^\s+head (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
Line 109: Line 115:
===Your Partially Tended Wounds===
===Your Partially Tended Wounds===


<pre>put #class tend off
<pre>put #class tend on
action goto end when ^Your .+ too injured|^You have no significant injuries
action goto end when ^Your .+ too injured|^You have no significant injuries


send stop play
ACTION setvar head 1 WHEN ^\s+head (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
ACTION setvar neck 1 WHEN ^\s+neck (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
send stop climb
ACTION setvar chest 1 WHEN ^\s+chest (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
waitforre ^You stop practicing your climbing skills|^You weren't practicing your climbing skills anyway
ACTION setvar abdomen 1 WHEN ^\s+abdomen (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)

ACTION setvar back 1 WHEN ^\s+back (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
tendstart:
ACTION setvar tail 1 WHEN ^\s+tail (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar head 1 WHEN ^\s+head
ACTION setvar rightarm 1 WHEN ^\s+right arm (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar neck 1 WHEN ^\s+neck
ACTION setvar leftarm 1 WHEN ^\s+left arm (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar chest 1 WHEN ^\s+chest
ACTION setvar righthand 1 WHEN ^\s+right hand (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar abdomen 1 WHEN ^\s+abdomen
ACTION setvar lefthand 1 WHEN ^\s+left hand (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar back 1 WHEN ^\s+back
ACTION setvar rightleg 1 WHEN ^\s+right leg (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar tail 1 WHEN ^\s+tail
ACTION setvar leftleg 1 WHEN ^\s+left leg (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar rightarm 1 WHEN ^\s+right arm
ACTION setvar righteye 1 WHEN ^\s+right eye (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar leftarm 1 WHEN ^\s+left arm
ACTION setvar lefteye 1 WHEN ^\s+left eye (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)
ACTION setvar righthand 1 WHEN ^\s+right hand
ACTION setvar lefthand 1 WHEN ^\s+left hand
ACTION setvar rightleg 1 WHEN ^\s+right leg
ACTION setvar leftleg 1 WHEN ^\s+left leg
ACTION setvar righteye 1 WHEN ^\s+right eye
ACTION setvar lefteye 1 WHEN ^\s+left eye
put health
put health
waitforre ^Bleeding$
waitforre ^Bleeding$
Line 143: Line 155:
if %righteye = 1 then gosub tend right eye
if %righteye = 1 then gosub tend right eye
if %lefteye = 1 then gosub tend left eye
if %lefteye = 1 then gosub tend left eye
pause 120
goto end
goto tendstart


tend:
tend:
var bodypart $0
send tend my $0
send unwrap my %bodypart
wait
pause .5
send tend my %bodypart
matchre return ^You work|^That area|^Look again
matchre return ^You work|^That area|^Look again


Line 158: Line 167:


end:
end:
put #class tend on
put #parse SCRIPT DONE
put #parse SCRIPT DONE
exit</pre>
exit</pre>


===Tend Others' Wounds===
===Prompt Others to Tend You===


<pre>put #class tend on
<pre>#debuglevel 10
put #class tend off
var patient %1
action goto end when ^Your .+ too injured
action var fullprep yes when ^You feel fully prepared to cast your spell
put #class tend off


put demeanor neutral
tendstart:
waitforre ^You decide to take things as they come
gosub tend head
gosub tend neck
gosub tend chest
gosub tend abdomen
gosub tend back
gosub tend tail
gosub tend right arm
gosub tend left arm
gosub tend right hand
gosub tend left hand
gosub tend right leg
gosub tend left leg
gosub tend right eye
gosub tend left eye
goto wait


put demeanor clear S'Kra Mur
tend:
waitforre ^You no longer regard
send tend %1 $0
waitforre ^You work|^That area|^Look again|^%1 will have to sit down for you to work on (him|her)\.$
matchre return ^You work|^That area|^Look again|^%1 will have to sit down for you to work on (him|her)\.$


put avoid touch
return:
waitforre ^You're now allowing attempts to touch you
return


if $prone = 0 then
wait:
{
action goto tendstart when ^The bandages binding %patient's (.+) (soak|come)
send lie
waitforre ^blood as it begins bleeding again\.$
waitforre ^You lie down|^You are already lying down
pause
}

end:
exit</pre>

===Prompt Others to Tend You===

<pre>action var fullprep yes when ^You feel fully prepared to cast your spell
put #class tend off


vhcheck:
vhcheck:
Line 213: Line 199:


start:
start:
action setvariable part $1;goto tend when ^The bandages binding your (.*) (soak|come)
action setvariable part $1;goto tend when ^The bandages binding your (.*) (soak|come|become)
waitforre you begin bleeding again\.$
waitforre you begin bleeding again\.$


Line 231: Line 217:
wait
wait
pause
pause
send invoke my $cambrinth
send invoke $cambrinth
wait
wait
pause .5
pause .25
if %fullprep = no then waiteval %fullprep = yes
if %fullprep = no then waiteval %fullprep = yes
send cast
send cast
Line 247: Line 233:
send sit
send sit
waitforre ^You sit (down|up)|^You are already sitting
waitforre ^You sit (down|up)|^You are already sitting

ACTION setvar head 1 WHEN ^\s+head (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar head 1 WHEN ^\s+head (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar neck 1 WHEN ^\s+neck (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar neck 1 WHEN ^\s+neck (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
Line 281: Line 268:


unwrap:
unwrap:
send unwrap my $0
var bodypart $0
matchre return ^You unwrap your bandages|^That area is not tended
matchre return ^That area is not tended|^That area is not bleeding
send unwrap my %bodypart
wait
pause
matchre return ^That area is not tended|^That area is not bleeding
send tend my %bodypart
wait
pause
return


return:
return:
Line 291: Line 286:
put health
put health
waitforre ^You have
waitforre ^You have
send sit
waitforre ^You sit (down|up)|^You are already sitting
send .tend
send .tend
exit</pre>
exit</pre>
Line 296: Line 293:
===Unwrap (for Others to Tend)===
===Unwrap (for Others to Tend)===


<pre>put #class tend off
<pre>#debuglevel 10
put #class tend off
send sit
action var fullprep yes when ^You feel fully prepared to cast your spell
waitforre ^You sit (down|up)|^You are already sitting
put #class tend off

put demeanor neutral
waitforre ^You decide to take things as they come

put demeanor clear S'Kra Mur
waitforre ^You no longer regard

put avoid touch
waitforre ^You're now allowing attempts to touch you

if $prone = 0 then
{
send lie
waitforre ^You lie down|^You are already lying down
}

vhcheck:
if $health < 60 then
{
gosub vh
}


ACTION setvar head 1 WHEN ^\s+head (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar head 1 WHEN ^\s+head (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
Line 334: Line 353:


unwrap:
unwrap:
pause 1
var bodypart $0
send unwrap my $0
matchre return ^That area is not tended|^That area is not bleeding
matchre return ^You unwrap your bandages|^That area is not tended
send unwrap my %bodypart
wait
pause
matchre return ^That area is not tended|^That area is not bleeding
send tend my %bodypart
wait
pause
return


return:
return:
wait
pause
pause
return
return


end:
end:
put #class tend on
send stand
waitforre ^You stand back up|^You are already standing
put health
put health
waitforre ^You have
waitforre ^You have
send sit
waitforre ^You sit (down|up)|^You are already sitting
send .tend
send .tend
exit</pre>
exit</pre>

Latest revision as of 21:10, 20 August 2020

Tend Wounds (script)
Category utility,Survival
Front-end Genie
Author Isharon


This script attempts to tend wounds that are not tended. From there, my wound-tending trigger takes over.

Changelog

3/5/2016

  • Added additional version

9/15/2015

  • Added additional versions

1/29/2012

  • Fixed bug that prevented "massive stream" bleeders from being tended.

03/21/2011

  • The script automatically terminates if you are too injured to tend your wounds.

Trigger

#trigger {^The bandages binding your (.*) (soak|come|become)} {#send tend my $1} {tend}

Aliases

#alias {tab} {tend my abdomen}
#alias {tb} {tend my back}
#alias {tch} {tend my chest}
#alias {tendoff} {#class tend off}
#alias {tendon} {#class tend on}
#alias {thd} {tend my head}
#alias {tla} {tend my left arm}
#alias {tle} {tend my left eye}
#alias {tlh} {tend my left hand}
#alias {tll} {tend my left leg}
#alias {tn} {tend my neck}
#alias {tra} {tend my right arm}
#alias {tre} {tend my right eye}
#alias {trh} {tend my right hand}
#alias {trl} {tend my right leg}
#alias {tt} {tend my tail}
#alias {uab} {unwrap my abdomen}
#alias {ub} {unwrap my back}
#alias {uch} {unwrap my chest}
#alias {uh} {unwrap my head}
#alias {ula} {unwrap my left arm}
#alias {ule} {unwrap my left eye}
#alias {ulh} {unwrap my left hand}
#alias {ull} {unwrap my left leg}
#alias {un} {unwrap my neck}
#alias {ura} {unwrap my right arm}
#alias {ure} {unwrap my right eye}
#alias {urh} {unwrap my right hand}
#alias {url} {unwrap my right leg}
#alias {ut} {unwrap my tail}

Tending Scripts

Your Untended Wounds

put #class tend on
action goto end when ^Your .+ too injured|^You have no significant injuries

send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send stop climb
waitforre ^You stop practicing your climbing skills|^You weren't practicing your climbing skills anyway

ACTION setvar head 1 WHEN ^\s+head       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar neck 1 WHEN ^\s+neck       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar chest 1 WHEN ^\s+chest       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar abdomen 1 WHEN ^\s+abdomen       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar back 1 WHEN ^\s+back       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar tail 1 WHEN ^\s+tail       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar rightarm 1 WHEN ^\s+right arm       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar leftarm 1 WHEN ^\s+left arm       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar righthand 1 WHEN ^\s+right hand       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar lefthand 1 WHEN ^\s+left hand       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar rightleg 1 WHEN ^\s+right leg       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar leftleg 1 WHEN ^\s+left leg       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar righteye 1 WHEN ^\s+right eye       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
ACTION setvar lefteye 1 WHEN ^\s+left eye       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive stream|uncontrollable|unbelievable|beyond measure|death awaits)$
put health
waitforre ^Bleeding$

if %head = 1 then gosub tend head
if %neck = 1 then gosub tend neck
if %chest = 1 then gosub tend chest
if %abdomen = 1 then gosub tend abdomen
if %back = 1 then gosub tend back
if %tail = 1 then gosub tend tail
if %rightarm = 1 then gosub tend right arm
if %leftarm = 1 then gosub tend left arm
if %righthand = 1 then gosub tend right hand
if %lefthand = 1 then gosub tend left hand
if %rightleg = 1 then gosub tend right leg
if %leftleg = 1 then gosub tend left leg
if %righteye = 1 then gosub tend right eye
if %lefteye = 1 then gosub tend left eye
goto end

tend:
send tend my $0
matchre return ^You work|^That area|^Look again

return:
pause
return

end:
put #parse SCRIPT DONE
exit

Your Partially Tended Wounds

put #class tend on
action goto end when ^Your .+ too injured|^You have no significant injuries

send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send stop climb
waitforre ^You stop practicing your climbing skills|^You weren't practicing your climbing skills anyway

tendstart:
ACTION setvar head 1 WHEN ^\s+head
ACTION setvar neck 1 WHEN ^\s+neck
ACTION setvar chest 1 WHEN ^\s+chest
ACTION setvar abdomen 1 WHEN ^\s+abdomen
ACTION setvar back 1 WHEN ^\s+back
ACTION setvar tail 1 WHEN ^\s+tail
ACTION setvar rightarm 1 WHEN ^\s+right arm
ACTION setvar leftarm 1 WHEN ^\s+left arm
ACTION setvar righthand 1 WHEN ^\s+right hand
ACTION setvar lefthand 1 WHEN ^\s+left hand
ACTION setvar rightleg 1 WHEN ^\s+right leg
ACTION setvar leftleg 1 WHEN ^\s+left leg
ACTION setvar righteye 1 WHEN ^\s+right eye
ACTION setvar lefteye 1 WHEN ^\s+left eye
put health
waitforre ^Bleeding$

if %head = 1 then gosub tend head
if %neck = 1 then gosub tend neck
if %chest = 1 then gosub tend chest
if %abdomen = 1 then gosub tend abdomen
if %back = 1 then gosub tend back
if %tail = 1 then gosub tend tail
if %rightarm = 1 then gosub tend right arm
if %leftarm = 1 then gosub tend left arm
if %righthand = 1 then gosub tend right hand
if %lefthand = 1 then gosub tend left hand
if %rightleg = 1 then gosub tend right leg
if %leftleg = 1 then gosub tend left leg
if %righteye = 1 then gosub tend right eye
if %lefteye = 1 then gosub tend left eye
pause 120
goto tendstart

tend:
send tend my $0
matchre return ^You work|^That area|^Look again

return:
pause
return

end:
put #parse SCRIPT DONE
exit

Prompt Others to Tend You

#debuglevel 10
put #class tend off
action var fullprep yes when ^You feel fully prepared to cast your spell
put #class tend off

put demeanor neutral
waitforre ^You decide to take things as they come

put demeanor clear S'Kra Mur
waitforre ^You no longer regard

put avoid touch
waitforre ^You're now allowing attempts to touch you

if $prone = 0 then
{
send lie
waitforre ^You lie down|^You are already lying down
}

vhcheck:
if $health < 60 then
{
gosub vh
}

start:
action setvariable part $1;goto tend when ^The bandages binding your (.*) (soak|come|become)
waitforre you begin bleeding again\.$

tend:
put whisper %1 Tend my %part.
waitforre ^You whisper|^Whisper what
goto start

vh:
evalmath HARNESS round($half.vh / 2)
put prep VH
pause 2
send charge $cambrinth %HARNESS
wait
pause
send charge $cambrinth %HARNESS
wait
pause
send invoke $cambrinth
wait
pause .25
if %fullprep = no then waiteval %fullprep = yes
send cast
pause .5
return

end:
put #class tend on

Unwrap and Re-Tend

put #class tend off
send sit
waitforre ^You sit (down|up)|^You are already sitting

ACTION setvar head 1 WHEN ^\s+head       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar neck 1 WHEN ^\s+neck       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar chest 1 WHEN ^\s+chest       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar abdomen 1 WHEN ^\s+abdomen       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar back 1 WHEN ^\s+back       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar tail 1 WHEN ^\s+tail       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar rightarm 1 WHEN ^\s+right arm       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar leftarm 1 WHEN ^\s+left arm       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar righthand 1 WHEN ^\s+right hand       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar lefthand 1 WHEN ^\s+left hand       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar rightleg 1 WHEN ^\s+right leg       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar leftleg 1 WHEN ^\s+left leg       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar righteye 1 WHEN ^\s+right eye       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar lefteye 1 WHEN ^\s+left eye       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
put health
waitforre ^-----------------------------------------$

if %head = 1 then gosub unwrap head
if %neck = 1 then gosub unwrap neck
if %chest = 1 then gosub unwrap chest
if %abdomen = 1 then gosub unwrap abdomen
if %back = 1 then gosub unwrap back
if %tail = 1 then gosub unwrap tail
if %rightarm = 1 then gosub unwrap right arm
if %leftarm = 1 then gosub unwrap left arm
if %righthand = 1 then gosub unwrap right hand
if %lefthand = 1 then gosub unwrap left hand
if %rightleg = 1 then gosub unwrap right leg
if %leftleg = 1 then gosub unwrap left leg
if %righteye = 1 then gosub unwrap right eye
if %lefteye = 1 then gosub unwrap left eye
goto end

unwrap:
var bodypart $0
matchre return ^That area is not tended|^That area is not bleeding
send unwrap my %bodypart
wait
pause
matchre return ^That area is not tended|^That area is not bleeding
send tend my %bodypart
wait
pause
return

return:
pause
return

end:
put health
waitforre ^You have
send sit
waitforre ^You sit (down|up)|^You are already sitting
send .tend
exit

Unwrap (for Others to Tend)

#debuglevel 10
put #class tend off
action var fullprep yes when ^You feel fully prepared to cast your spell
put #class tend off

put demeanor neutral
waitforre ^You decide to take things as they come

put demeanor clear S'Kra Mur
waitforre ^You no longer regard

put avoid touch
waitforre ^You're now allowing attempts to touch you

if $prone = 0 then
{
send lie
waitforre ^You lie down|^You are already lying down
}

vhcheck:
if $health < 60 then
{
gosub vh
}

ACTION setvar head 1 WHEN ^\s+head       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar neck 1 WHEN ^\s+neck       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar chest 1 WHEN ^\s+chest       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar abdomen 1 WHEN ^\s+abdomen       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar back 1 WHEN ^\s+back       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar tail 1 WHEN ^\s+tail       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar rightarm 1 WHEN ^\s+right arm       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar leftarm 1 WHEN ^\s+left arm       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar righthand 1 WHEN ^\s+right hand       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar lefthand 1 WHEN ^\s+left hand       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar rightleg 1 WHEN ^\s+right leg       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar leftleg 1 WHEN ^\s+left leg       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar righteye 1 WHEN ^\s+right eye       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
ACTION setvar lefteye 1 WHEN ^\s+left eye       (clotted|slight|light|moderate|bad|very bad|heavy|very heavy|severe|very severe|profuse|very profuse|gushing|massive|uncontrollable|unbelievable|beyond measure|death awaits)?\(tended\)$
put health
waitforre ^-----------------------------------------$

if %head = 1 then gosub unwrap head
if %neck = 1 then gosub unwrap neck
if %chest = 1 then gosub unwrap chest
if %abdomen = 1 then gosub unwrap abdomen
if %back = 1 then gosub unwrap back
if %tail = 1 then gosub unwrap tail
if %rightarm = 1 then gosub unwrap right arm
if %leftarm = 1 then gosub unwrap left arm
if %righthand = 1 then gosub unwrap right hand
if %lefthand = 1 then gosub unwrap left hand
if %rightleg = 1 then gosub unwrap right leg
if %leftleg = 1 then gosub unwrap left leg
if %righteye = 1 then gosub unwrap right eye
if %lefteye = 1 then gosub unwrap left eye
goto end

unwrap:
pause 1
send unwrap my $0
matchre return ^You unwrap your bandages|^That area is not tended

return:
wait
pause
return

end:
put #class tend on
send stand
waitforre ^You stand back up|^You are already standing
put health
waitforre ^You have
send .tend
exit
Retrieved from "https://elanthipedia.play.net/index.php?title=Tend_Wounds_(script)&oldid=527618"