Tend Wounds (script): Difference between revisions
Jump to navigation
Jump to search
No edit summary |
|||
| 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 114: | Line 115: | ||
===Your Partially Tended Wounds=== |
===Your Partially Tended Wounds=== |
||
<pre>put #class tend |
<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 148: | 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: |
||
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 163: | Line 167: | ||
end: |
end: |
||
put #class tend on |
|||
put #parse SCRIPT DONE |
put #parse SCRIPT DONE |
||
exit</pre> |
exit</pre> |
||
=== |
===Prompt Others to Tend You=== |
||
<pre> |
<pre>#debuglevel 10 |
||
put #class tend off |
|||
var patient %1 |
|||
action |
action var fullprep yes when ^You feel fully prepared to cast your spell |
||
put #class tend off |
|||
put demeanor neutral |
|||
send stop play |
|||
waitforre ^You |
waitforre ^You decide to take things as they come |
||
send stop climb |
|||
waitforre ^You stop practicing your climbing skills|^You weren't practicing your climbing skills anyway |
|||
put demeanor clear S'Kra Mur |
|||
tendstart: |
|||
waitforre ^You no longer regard |
|||
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 avoid touch |
|||
tend: |
|||
waitforre ^You're now allowing attempts to touch you |
|||
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)\.$ |
|||
if $prone = 0 then |
|||
return: |
|||
{ |
|||
return |
|||
send lie |
|||
waitforre ^You lie down|^You are already lying down |
|||
wait: |
|||
} |
|||
action goto tendstart when ^The bandages binding %patient's (.+) (soak|come) |
|||
waitforre ^blood as it begins bleeding again\.$ |
|||
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 223: | 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 241: | Line 217: | ||
wait |
wait |
||
pause |
pause |
||
send invoke |
send invoke $cambrinth |
||
wait |
wait |
||
pause . |
pause .25 |
||
if %fullprep = no then waiteval %fullprep = yes |
if %fullprep = no then waiteval %fullprep = yes |
||
send cast |
send cast |
||
| Line 257: | 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 291: | Line 268: | ||
unwrap: |
unwrap: |
||
var bodypart $0 |
|||
matchre return ^ |
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 301: | 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 306: | Line 293: | ||
===Unwrap (for Others to Tend)=== |
===Unwrap (for Others to Tend)=== |
||
<pre> |
<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 344: | 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