Patient Healing Suite (script): Difference between revisions
Jump to navigation
Jump to search
m (→Caveats) |
m (→Description) |
||
| (34 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
{{Script |
{{Script |
||
|cat=utility |
|cat=utility, Empath |
||
|fe=Genie |
|fe=Genie |
||
|auth=[[User:Isharon|Isharon]] |
|auth=[[User:Isharon|Isharon]] |
||
| Line 7: | Line 7: | ||
==Description== |
==Description== |
||
This script is a script for advanced Empaths that is designed to safely transfer wounds without over-healing. I began writing this script several months ago, but hidden wounds posed the risk of death until the PERCEIVE HEALTH SELF command was released. Since then, the script has not let me die. |
This script is a script for advanced Empaths that is designed to safely transfer wounds without over-healing. I began writing this script several months ago, but hidden wounds posed the risk of death until the {{tt|PERCEIVE HEALTH SELF}} command was released. Since then, the script has not let me die.<br> |
||
<br> |
|||
'''This script should not be used by Empaths who are incapable of using {{tt|TAKE QUICK}} and {{tt|TAKE HALF}}. If you lose control while trying to take half of a wound, you may die.''' If you are not using worn [[cambrinth]], you will have to make some modifications to the magic subroutines.<br> |
|||
<br> |
|||
For self-healing, see [[Empath Self-Healing Suite (script)]]. |
|||
===Process=== |
|||
[b]This script should not be used by Empaths who are incapable of using TAKE QUICK and TAKE HALF. If you lose control while trying to take half of a wound, you may die.[/b] If you are not using worn cambrinth, you will have to make some modifications to the magic subroutines. |
|||
First, it checks whether Refresh is in effect by checking the [[Refresh]] variable (triggered by either the power perceive messaging or the spell messaging).<br> |
|||
<br> |
|||
If Refresh is not in effect, it casts [[Refresh]] before proceeding. Then it checks your vitality. If it's less than 60%, it will cast [[Vitality Healing]].<br> |
|||
<br> |
|||
Then it sets variables between 0 and 13 for all of the patient's injuries (using the {{tt|TOUCH}} output) and the Empath's injuries to critical parts (using the {{tt|PERCEIVE HEALTH SELF}} output). |
|||
# insignificant |
|||
# negligible |
|||
# minor |
|||
# more than minor |
|||
# harmful |
|||
# very harmful |
|||
# damaging |
|||
# very damaging |
|||
# severe |
|||
# very severe |
|||
# devastating |
|||
# very devastating |
|||
# useless |
|||
<br> |
|||
After it sets the wound variables for patient and Empath, it adds the values for critical parts. If the value is greater than 11, an anti-over-healing mechanism is triggered. (Technically, a value of 12 should be survivable, but I erred on the side of caution by setting it to 11.)<br> |
|||
<br> |
|||
Each wound can be handled in one of the following ways: |
|||
* non-critical part <14 -> take quick |
|||
* non-critical part >13 -> heal self -> take quick |
|||
* combined wound <12 -> take quick |
|||
* combined wound >11 & patient's wound <12 -> heal self -> take quick |
|||
* patient's wound >11 & my wound <5 -> take half |
|||
* patient's wound >11 & my wound >4 -> heal self -> take half |
|||
<br> |
|||
When the script decides to heal the Empath's head wound or scar, it harnesses instead of using cambrinth. (If the head wound is damaging or worse, it's impossible to focus on cambrinth.)<br> |
|||
<br> |
|||
At the end of the script, it checks whether you need to tend any wounds, pauses for 10 seconds (to let the wound transfers run their course) and then restarts. (Do not shorten this pause. If the wound variables reset before the wounds have completely transferred, you might over-heal.) The script will loop until the patient is fully healed. |
|||
==Instructions== |
==Instructions== |
||
| Line 15: | Line 54: | ||
===Syntax=== |
===Syntax=== |
||
{{tt|.take [patient]}}: |
{{tt|.take [patient]}}: The script is case-sensitive. (In other words, if your patient's name is Isharon, you must type ''Isharon'', not ''ish'' or ''isharon''. However, you don't have to type the entire name, so ''Isha'' would work. (In Genie, you can quickly copy your patient's name to the clipboard by double-clicking it.) |
||
===Required Genie Settings=== |
===Required Genie Settings=== |
||
| Line 21: | Line 60: | ||
This script relies on triggers to set spell variables and to handle certain issues, such as being knocked over from healing. |
This script relies on triggers to set spell variables and to handle certain issues, such as being knocked over from healing. |
||
<pre>#trigger {^Closing the WIZARD front end|^You feel the surge of energy within you ebb away} {#var |
<pre>#trigger {^Closing the (WIZARD|STORMFRONT) front end|^Your death cry echoes in your brain|^You feel the surge of energy within you ebb away\.$} {#var REFRESH OFF} {buff} |
||
#trigger {^You sense the Refresh spell|^Soft waves of a gentle, warm peach color flicker around you} {#var |
#trigger {^You sense the Refresh spell upon you, which will last for|^Soft waves of a gentle, warm peach color flicker around you\.$|^A surge of renewed strength runs through you, replacing the previous sensation\.$|^You are already being bolstered by a more powerful cast of the refresh spell\.$} {#var REFRESH ON} {buff} |
||
#trigger {^You |
#trigger {^You are unable to take any more wounds from the (.+)\.} {#echo >log #FF0000 You can't transfer more wounds to your $1.} |
||
#trigger {^You can't do that while (kneeling|lying|sitting)|^You must be standing to do that|^You must stand first|^You'll need to stand up} {#send stand;#send $lastcommand} |
|||
#trigger {^You can't heal while lying down on the job|^You fall screaming to the ground} {#send sit} |
|||
#trigger {^You have no empathic link with .+ and cannot transfer (his|her) wounds} {#send touch $1} |
|||
#trigger {you cannot manage to stand} {#send sit;send stand}</pre> |
|||
The script sometimes uses [[cambrinth]] (worn or held). You need to open your character's variables file and add a variable for cambrinth: |
The script sometimes uses [[cambrinth]] (worn or held). You need to open your character's variables file and add a variable for cambrinth: |
||
<pre>#var {cambrinth} {your cambrinth} |
<pre>#var {cambrinth} {your cambrinth}</pre> |
||
#var {hum} {your song}</pre> |
|||
====Healing Aliases==== |
|||
<pre>#alias {brka} {break all} |
|||
#alias {etaq} {.takequick_all2 $1} |
|||
#alias {eta} {.takequick_all $1} |
|||
#alias {eti} {.takequick_most $1} |
|||
#alias {etl} {#window close Familiar;.takel $1} |
|||
#alias {etm} {#window close Familiar;.takemost $1} |
|||
#alias {ets} {.takequick_scars $1} |
|||
#alias {etu} {.takequick_unity $1} |
|||
#alias {healed} {whisper $patient You are fully healed.} |
|||
#alias {healf} {whisper $1 Do you want to be fully healed, or would you rather keep tending your bleeders?} |
|||
#alias {holdl} {language Common;'/smugly $patient will hold life.} |
|||
#alias {hq} {whisper $1 Do you want to be healed?} |
|||
#alias {ph} {#window close Familiar;perceive health self} |
|||
#alias {tabp} {#window close Familiar;take $patient abdomen part quick} |
|||
#alias {tdis} {#window close Familiar;take $patient quick disease} |
|||
#alias {tphc} {#window close Familiar;link all hodierna cancel} |
|||
#alias {tph} {#window close Familiar;link $patient hodierna} |
|||
#alias {tpl} {#window close Familiar;touch $patient;link $patient persistent} |
|||
#alias {tpoi} {#window close Familiar;take $patient quick poison} |
|||
#alias {tp} {#window close Familiar;#var patient $1;touch $patient} |
|||
#alias {tvit} {#window close Familiar;touch $patient;take $patient vitality quick} |
|||
#alias {whole} {language Common;'/smugly The body of $patient is whole.} |
|||
#alias {wrdc} {redirect cancel} |
|||
#alias {wrd} {redirect all to $0}</pre> |
|||
==Caveats== |
==Caveats== |
||
| Line 35: | Line 104: | ||
*If you are not using worn cambrinth, you may want to avoid allowing both your right and left arm or hand to become so injured that you can't hold items. Because the healing subroutines won't end until you get the "appears completely healed" messaging, I don't think that this mistake would be lethal, but it could significantly slow the script. (It would cause you to cast spells without charging cambrinth or harnessing.) |
*If you are not using worn cambrinth, you may want to avoid allowing both your right and left arm or hand to become so injured that you can't hold items. Because the healing subroutines won't end until you get the "appears completely healed" messaging, I don't think that this mistake would be lethal, but it could significantly slow the script. (It would cause you to cast spells without charging cambrinth or harnessing.) |
||
== |
==Changelog== |
||
*'''6/25/2016''': Fixed some hangups due to variations in the touch messaging; added #parse PATIENT HEALED to the end of each script so that they can be more easily run by other scripts. |
|||
*'''9/16/2015''': Added additional script versions |
|||
*'''11/15/2013''': Fixed hangup at end of performance; Added sound alert to end of script. |
|||
*'''4/7/2013''': Fixed potentially lethal error that sometimes ended self-healing prematurely. |
|||
*'''2/22/2013''': More Empaths 3.0 tweaks/fixes. |
|||
*'''2/9/2013''': Updated for Empaths 3.0. |
|||
*'''1/29/2012''': Fixed bug that prevented "massive stream" bleeders from being tended. |
|||
*'''1/4/2012''': Changed "takehalf" subroutine to use quick mode. |
|||
*'''6/5/2011''': Updated the [[Refresh]] triggers to work with the Geniehunter buffing add-on. |
|||
*'''4/12/2011''': Typing the patient's whole name is no longer required. (The script is still case-sensitive.) If you are using the $patient variable, it's best to type the whole name. |
|||
*'''4/3/2011''': Fixed bug that prevented "massive" bleeders from being tended. |
|||
*'''3/14/2011''': This script will now heal your useless-level wounds to non-vital areas. (Previously, the script looped infinitely if you couldn't transfer additional wounds to one of these areas.) |
|||
*'''2/26/2011''': I added an action that will immediately end the script if the person has no injuries, even if the script is not at the part where it checks whether you're done. |
|||
*'''2/11/2011''': The script will now only attempt to tend wounds that need to be tended. |
|||
*'''2/10/2011''': The script will now tell you how many times it has looped. I also removed some unnecessary variable setting. |
|||
*'''2/4/2011''': The script no longer checks your scars before healing your wounds. (This is not necessary; you can't die from scars unless you are transferring scars from a patient.) The script also uses harness instead of cambrinth, which saves a few seconds of roundtime. |
|||
==Safe Scripts== |
|||
*'''3/14/2010''': This script will now heal your useless-level wounds to non-vital areas. (Previously, the script looped infinitely if you couldn't transfer additional rooms to one of these areas.) |
|||
*'''2/26/2010''': I added an action that will immediately end the script if the person has no injuries, even if the script is not at the part where it checks whether you're done. |
|||
*'''2/11/2010''': The script will now only attempt to tend wounds that need to be tended. |
|||
*'''2/10/2010''': The script will now tell you how many times it has looped. I also removed some unnecessary variable setting. |
|||
*'''2/4/2010''': The script no longer checks your scars before healing your wounds. (This is not necessary; you can't die from scars unless you are transferring scars from a patient.) The script also uses harness instead of cambrinth, which saves a few seconds of roundtime. |
|||
===Living Patient: Take All=== |
|||
==Script== |
|||
<pre> |
<pre>put #window close Familiar |
||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action send touch %1 when ^You have no empathic link |
action send touch %1 when ^You have no empathic link |
||
action goto done when ^\.\.\. no injuries to speak of |
action goto done when ^\.\.\. no injuries to speak of |
||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
put #var patient %1 |
||
refreshcheck: |
refreshcheck: |
||
if $ |
if $REFRESH = OFF && $Courage = OFF then |
||
{ |
{ |
||
gosub refresh |
gosub refresh |
||
| Line 197: | Line 284: | ||
var SKIN_ES 0 |
var SKIN_ES 0 |
||
var SKIN_IS 0 |
var SKIN_IS 0 |
||
pause |
pause |
||
| Line 260: | Line 348: | ||
PatientWounds: |
PatientWounds: |
||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
action setvariable poison 1 when ^(He|She).+poison |
|||
send touch %1 |
send touch %1 |
||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
CombinedWounds: |
|||
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW |
|||
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW |
|||
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES |
|||
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS |
|||
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW |
|||
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW |
|||
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES |
|||
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS |
|||
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW |
|||
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW |
|||
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES |
|||
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS |
|||
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW |
|||
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW |
|||
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES |
|||
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS |
|||
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW |
|||
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW |
|||
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES |
|||
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS |
|||
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW |
|||
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW |
|||
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES |
|||
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS |
|||
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES |
|||
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS |
|||
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES |
|||
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS |
|||
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES |
|||
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS |
|||
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES |
|||
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS |
|||
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES |
|||
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS |
|||
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES |
|||
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS |
|||
pause |
|||
math LOOP add 1 |
|||
echo ***** Wound variables set! Starting round %LOOP. ***** |
|||
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW < 13 then |
|||
{ |
|||
gosub takequick right eye |
|||
} |
|||
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right eye |
|||
} |
|||
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES < 13 then |
|||
{ |
|||
gosub takequick right eye scar |
|||
} |
|||
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right eye scar |
|||
} |
|||
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW < 13 then |
|||
{ |
|||
gosub takequick left eye |
|||
} |
|||
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left eye |
|||
} |
|||
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES < 13 then |
|||
{ |
|||
gosub takequick left eye scar |
|||
} |
|||
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left eye scar |
|||
} |
|||
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW < 13 then |
|||
{ |
|||
gosub takequick right arm |
|||
} |
|||
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right arm |
|||
} |
|||
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES < 13 then |
|||
{ |
|||
gosub takequick right arm scar |
|||
} |
|||
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right arm scar |
|||
} |
|||
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW < 13 then |
|||
{ |
|||
gosub takequick left arm |
|||
} |
|||
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left arm |
|||
} |
|||
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES < 13 then |
|||
{ |
|||
gosub takequick left arm scar |
|||
} |
|||
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left arm scar |
|||
} |
|||
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW < 13 then |
|||
{ |
|||
gosub takequick right hand |
|||
} |
|||
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right hand |
|||
} |
|||
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES < 13 then |
|||
{ |
|||
gosub takequick right hand scar |
|||
} |
|||
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right hand scar |
|||
} |
|||
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW < 13 then |
|||
{ |
|||
gosub takequick left hand |
|||
} |
|||
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left hand |
|||
} |
|||
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES < 13 then |
|||
{ |
|||
gosub takequick left hand scar |
|||
} |
|||
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left hand scar |
|||
} |
|||
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW < 13 then |
|||
{ |
|||
gosub takequick right leg |
|||
} |
|||
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right leg |
|||
} |
|||
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES < 13 then |
|||
{ |
|||
gosub takequick right leg scar |
|||
} |
|||
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right leg scar |
|||
} |
|||
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW < 13 then |
|||
{ |
|||
gosub takequick left leg |
|||
} |
|||
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left leg |
|||
} |
|||
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES < 13 then |
|||
{ |
|||
gosub takequick left leg scar |
|||
} |
|||
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left leg scar |
|||
} |
|||
if %SKIN_EW > 0 && %SKIN_MYEW < 13 then |
|||
{ |
|||
gosub takequick skin |
|||
} |
|||
if %SKIN_IW > 0 && %SKIN_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal skin |
|||
} |
|||
if %SKIN_ES > 0 && %SKIN_MYES < 13 then |
|||
{ |
|||
gosub takequick skin scar |
|||
} |
|||
if %SKIN_IS > 0 && %SKIN_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal skin scar |
|||
} |
|||
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right eye |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick right eye |
|||
} |
|||
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right eye |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal right eye |
|||
} |
|||
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right eye |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick right eye scar |
|||
} |
|||
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right eye |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal right eye scar |
|||
} |
|||
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left eye |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick left eye |
|||
} |
|||
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left eye |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal left eye |
|||
} |
|||
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left eye |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick left eye scar |
|||
} |
|||
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left eye |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal left eye scar |
|||
} |
|||
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right arm |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick right arm |
|||
} |
|||
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right arm |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal right arm |
|||
} |
|||
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right arm |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick right arm scar |
|||
} |
|||
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right arm |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal right arm scar |
|||
} |
|||
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left arm |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick left arm |
|||
} |
|||
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left arm |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal left arm |
|||
} |
|||
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left arm |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick left arm scar |
|||
} |
|||
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left arm |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal left arm scar |
|||
} |
|||
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right hand |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick right hand |
|||
} |
|||
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right hand |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal right hand |
|||
} |
|||
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right hand |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick right hand scar |
|||
} |
|||
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right hand |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal right hand scar |
|||
} |
|||
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left hand |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick left hand |
|||
} |
|||
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left hand |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal left hand |
|||
} |
|||
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left hand |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick left hand scar |
|||
} |
|||
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left hand |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal left hand scar |
|||
} |
|||
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right leg |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick right leg |
|||
} |
|||
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right leg |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal right leg |
|||
} |
|||
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right leg |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick right leg scar |
|||
} |
|||
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right leg |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal right leg scar |
|||
} |
|||
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left leg |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick left leg |
|||
} |
|||
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left leg |
|||
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal left leg |
|||
} |
|||
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left leg |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick left leg scar |
|||
} |
|||
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left leg |
|||
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal left leg scar |
|||
} |
|||
if %SKIN_EW > 0 && %SKIN_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part skin |
|||
echo ***** You need to heal your skin wound before you can transfer more of %1's skin wound. Now healing your skin wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick skin |
|||
} |
|||
if %SKIN_IW > 0 && %SKIN_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part skin |
|||
echo ***** You need to heal your nerve wound before you can transfer more of %1's skin wound. Now healing your skin wound. ***** |
|||
gosub HW |
|||
send touch %1 |
|||
gosub takequick internal skin |
|||
} |
|||
if %SKIN_ES > 0 && %SKIN_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part skin |
|||
echo ***** You need to heal your skin scar before you can transfer more of %1's skin scar. Now healing your skin scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick skin scar |
|||
} |
|||
if %SKIN_IS > 0 && %SKIN_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part skin |
|||
echo ***** You need to heal your nerve scar before you can transfer more of %1's skin scar. Now healing your skin scar. ***** |
|||
gosub HS |
|||
send touch %1 |
|||
gosub takequick internal skin scar |
|||
} |
|||
if %COMBHEAD_EW> 0 && %COMBHEAD_EW< 12 && %HEAD_EW> 0 then |
|||
{ |
|||
gosub takequick head |
|||
} |
|||
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then |
|||
{ |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES> 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then |
|||
{ |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS> 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then |
|||
{ |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_EW> 0 && %COMBNECK_EW< 12 && %NECK_EW> 0 then |
|||
{ |
|||
gosub takequick neck |
|||
} |
|||
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then |
|||
{ |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES> 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then |
|||
{ |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS> 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then |
|||
{ |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_EW> 0 && %COMBCHEST_EW< 12 && %CHEST_EW> 0 then |
|||
{ |
|||
gosub takequick chest |
|||
} |
|||
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then |
|||
{ |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES> 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then |
|||
{ |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS> 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then |
|||
{ |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_EW> 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW> 0 then |
|||
{ |
|||
gosub takequick abdomen |
|||
} |
|||
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then |
|||
{ |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES> 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then |
|||
{ |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS> 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then |
|||
{ |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_EW> 0 && %COMBBACK_EW< 12 && %BACK_EW> 0 then |
|||
{ |
|||
gosub takequick back |
|||
} |
|||
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then |
|||
{ |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES> 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then |
|||
{ |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS> 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then |
|||
{ |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_EW> 0 && %COMBTAIL_EW< 12 && %TAIL_EW> 0 then |
|||
{ |
|||
gosub takequick tail |
|||
} |
|||
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then |
|||
{ |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES> 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then |
|||
{ |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS> 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then |
|||
{ |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %COMBHEAD_EW> 11 && %HEAD_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick head |
|||
} |
|||
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_EW> 11 && %NECK_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick neck |
|||
} |
|||
if %COMBNECK_IW> 11 && %NECK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES> 11 && %NECK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS> 11 && %NECK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_EW> 11 && %CHEST_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick chest |
|||
} |
|||
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick abdomen |
|||
} |
|||
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_EW> 11 && %BACK_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick back |
|||
} |
|||
if %COMBBACK_IW> 11 && %BACK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES> 11 && %BACK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS> 11 && %BACK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_EW> 11 && %TAIL_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick tail |
|||
} |
|||
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %HEAD_MYEW< 5 && %HEAD_EW> 11 then |
|||
{ |
|||
gosub takehalf head |
|||
} |
|||
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then |
|||
{ |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES< 5 && %HEAD_ES> 11 then |
|||
{ |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS< 5 && %HEAD_IS> 11 then |
|||
{ |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYEW< 5 && %NECK_EW> 11 then |
|||
{ |
|||
gosub takehalf neck |
|||
} |
|||
if %NECK_MYIW< 5 && %NECK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES< 5 && %NECK_ES> 11 then |
|||
{ |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS< 5 && %NECK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYEW< 5 && %CHEST_EW> 11 then |
|||
{ |
|||
gosub takehalf chest |
|||
} |
|||
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then |
|||
{ |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES< 5 && %CHEST_ES> 11 then |
|||
{ |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS< 5 && %CHEST_IS> 11 then |
|||
{ |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYEW< 5 && %ABDOMEN_EW> 11 then |
|||
{ |
|||
gosub takehalf abdomen |
|||
} |
|||
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES< 5 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS< 5 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYEW< 5 && %BACK_EW> 11 then |
|||
{ |
|||
gosub takehalf back |
|||
} |
|||
if %BACK_MYIW< 5 && %BACK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES< 5 && %BACK_ES> 11 then |
|||
{ |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS< 5 && %BACK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYEW< 5 && %TAIL_EW> 11 then |
|||
{ |
|||
gosub takehalf tail |
|||
} |
|||
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then |
|||
{ |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES< 5 && %TAIL_ES> 11 then |
|||
{ |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS< 5 && %TAIL_IS> 11 then |
|||
{ |
|||
gosub takehalf internal tail scar |
|||
} |
|||
if %HEAD_MYEW> 4 && %HEAD_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf head |
|||
} |
|||
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES> 4 && %HEAD_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYEW> 4 && %NECK_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf neck |
|||
} |
|||
if %NECK_MYIW> 4 && %NECK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES> 4 && %NECK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS> 4 && %NECK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYEW> 4 && %CHEST_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf chest |
|||
} |
|||
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES> 4 && %CHEST_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYEW> 4 && %ABDOMEN_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf abdomen |
|||
} |
|||
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYEW> 4 && %BACK_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf back |
|||
} |
|||
if %BACK_MYIW> 4 && %BACK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES> 4 && %BACK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS> 4 && %BACK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYEW> 4 && %TAIL_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf tail |
|||
} |
|||
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES> 4 && %TAIL_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal tail scar |
|||
} |
|||
goto loop |
|||
takequick: |
|||
send take %1 $0 quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
takehalf: |
|||
send take %1 $0 half quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
HW: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW |
|||
HW2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW2 |
|||
HS: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS |
|||
HS2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS2 |
|||
return: |
|||
return |
|||
loop: |
|||
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. ***** |
|||
pause 5 |
|||
if $bleeding = 1 then |
|||
{ |
|||
gosub tendstart |
|||
} |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
goto start |
|||
refresh: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep Refresh |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
VH: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
evalmath HARNESS round((100-$health) / 5) |
|||
send prep VH |
|||
pause 2 |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
tendstart: |
|||
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 |
|||
return |
|||
tend: |
|||
send tend my $0 |
|||
waitforre ^You work|^That area|^Look again|^Your .+ too injured |
|||
return |
|||
done: |
|||
put '}%1 /smugly Good as new! |
|||
put #play ScriptEnd |
|||
put #parse PATIENT HEALED</pre> |
|||
===Dead Patient: Take All=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action send touch %1 when ^You have no empathic link |
|||
action goto done when ^\.\.\. no injuries to speak of |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
refreshcheck: |
|||
if $REFRESH = OFF && $Courage = OFF then |
|||
{ |
|||
gosub refresh |
|||
} |
|||
vhcheck: |
|||
if $health < 60 then |
|||
{ |
|||
gosub vh |
|||
} |
|||
start: |
|||
var head.bleed 0 |
|||
var neck.bleed 0 |
|||
var chest.bleed 0 |
|||
var abdo.bleed 0 |
|||
var back.bleed 0 |
|||
var tail.bleed 0 |
|||
var rarm.bleed 0 |
|||
var larm.bleed 0 |
|||
var rhnd.bleed 0 |
|||
var lhnd.bleed 0 |
|||
var rleg.bleed 0 |
|||
var lleg.bleed 0 |
|||
var reye.bleed 0 |
|||
var leye.bleed 0 |
|||
var HEAD_MYEW 0 |
|||
var HEAD_MYIW 0 |
|||
var HEAD_MYES 0 |
|||
var HEAD_MYIS 0 |
|||
var NECK_MYEW 0 |
|||
var NECK_MYIW 0 |
|||
var NECK_MYES 0 |
|||
var NECK_MYIS 0 |
|||
var CHEST_MYEW 0 |
|||
var CHEST_MYIW 0 |
|||
var CHEST_MYES 0 |
|||
var CHEST_MYIS 0 |
|||
var ABDOMEN_MYEW 0 |
|||
var ABDOMEN_MYIW 0 |
|||
var ABDOMEN_MYES 0 |
|||
var ABDOMEN_MYIS 0 |
|||
var BACK_MYEW 0 |
|||
var BACK_MYIW 0 |
|||
var BACK_MYES 0 |
|||
var BACK_MYIS 0 |
|||
var TAIL_MYEW 0 |
|||
var TAIL_MYIW 0 |
|||
var TAIL_MYES 0 |
|||
var TAIL_MYIS 0 |
|||
var RIGHT_EYE_MYEW 0 |
|||
var RIGHT_EYE_MYIW 0 |
|||
var RIGHT_EYE_MYES 0 |
|||
var RIGHT_EYE_MYIS 0 |
|||
var LEFT_EYE_MYEW 0 |
|||
var LEFT_EYE_MYIW 0 |
|||
var LEFT_EYE_MYES 0 |
|||
var LEFT_EYE_MYIS 0 |
|||
var RIGHT_ARM_MYEW 0 |
|||
var RIGHT_ARM_MYIW 0 |
|||
var RIGHT_ARM_MYES 0 |
|||
var RIGHT_ARM_MYIS 0 |
|||
var LEFT_ARM_MYEW 0 |
|||
var LEFT_ARM_MYIW 0 |
|||
var LEFT_ARM_MYES 0 |
|||
var LEFT_ARM_MYIS 0 |
|||
var RIGHT_HAND_MYEW 0 |
|||
var RIGHT_HAND_MYIW 0 |
|||
var RIGHT_HAND_MYES 0 |
|||
var RIGHT_HAND_MYIS 0 |
|||
var LEFT_HAND_MYEW 0 |
|||
var LEFT_HAND_MYIW 0 |
|||
var LEFT_HAND_MYES 0 |
|||
var LEFT_HAND_MYIS 0 |
|||
var RIGHT_LEG_MYEW 0 |
|||
var RIGHT_LEG_MYIW 0 |
|||
var RIGHT_LEG_MYES 0 |
|||
var RIGHT_LEG_MYIS 0 |
|||
var LEFT_LEG_MYEW 0 |
|||
var LEFT_LEG_MYIW 0 |
|||
var LEFT_LEG_MYES 0 |
|||
var LEFT_LEG_MYIS 0 |
|||
var SKIN_MYEW 0 |
|||
var SKIN_MYIW 0 |
|||
var SKIN_MYES 0 |
|||
var SKIN_MYIS 0 |
|||
var HEAD_EW 0 |
|||
var HEAD_IW 0 |
|||
var HEAD_ES 0 |
|||
var HEAD_IS 0 |
|||
var NECK_EW 0 |
|||
var NECK_IW 0 |
|||
var NECK_ES 0 |
|||
var NECK_IS 0 |
|||
var CHEST_EW 0 |
|||
var CHEST_IW 0 |
|||
var CHEST_ES 0 |
|||
var CHEST_IS 0 |
|||
var ABDOMEN_EW 0 |
|||
var ABDOMEN_IW 0 |
|||
var ABDOMEN_ES 0 |
|||
var ABDOMEN_IS 0 |
|||
var BACK_EW 0 |
|||
var BACK_IW 0 |
|||
var BACK_ES 0 |
|||
var BACK_IS 0 |
|||
var TAIL_EW 0 |
|||
var TAIL_IW 0 |
|||
var TAIL_ES 0 |
|||
var TAIL_IS 0 |
|||
var RIGHT_EYE_EW 0 |
|||
var RIGHT_EYE_IW 0 |
|||
var RIGHT_EYE_ES 0 |
|||
var RIGHT_EYE_IS 0 |
|||
var LEFT_EYE_EW 0 |
|||
var LEFT_EYE_IW 0 |
|||
var LEFT_EYE_ES 0 |
|||
var LEFT_EYE_IS 0 |
|||
var RIGHT_ARM_EW 0 |
|||
var RIGHT_ARM_IW 0 |
|||
var RIGHT_ARM_ES 0 |
|||
var RIGHT_ARM_IS 0 |
|||
var LEFT_ARM_EW 0 |
|||
var LEFT_ARM_IW 0 |
|||
var LEFT_ARM_ES 0 |
|||
var LEFT_ARM_IS 0 |
|||
var RIGHT_HAND_EW 0 |
|||
var RIGHT_HAND_IW 0 |
|||
var RIGHT_HAND_ES 0 |
|||
var RIGHT_HAND_IS 0 |
|||
var LEFT_HAND_EW 0 |
|||
var LEFT_HAND_IW 0 |
|||
var LEFT_HAND_ES 0 |
|||
var LEFT_HAND_IS 0 |
|||
var RIGHT_LEG_EW 0 |
|||
var RIGHT_LEG_IW 0 |
|||
var RIGHT_LEG_ES 0 |
|||
var RIGHT_LEG_IS 0 |
|||
var LEFT_LEG_EW 0 |
|||
var LEFT_LEG_IW 0 |
|||
var LEFT_LEG_ES 0 |
|||
var LEFT_LEG_IS 0 |
|||
var SKIN_EW 0 |
|||
var SKIN_IW 0 |
|||
var SKIN_ES 0 |
|||
var SKIN_IS 0 |
|||
pause |
|||
EmpathWounds: |
|||
send perceive health self |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
waitforre ^You .+ vitality |
|||
wait |
|||
pause |
|||
PatientWounds: |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
||
| Line 315: | Line 2,178: | ||
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$ |
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$ |
||
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$ |
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$ |
||
send touch %1 |
|||
waitforre ^%1 .+ vitality |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
CombinedWounds: |
CombinedWounds: |
||
| Line 1,623: | Line 3,497: | ||
takequick: |
takequick: |
||
send take %1 $0 quick |
send take %1 $0 quick |
||
waitforre ^You touch %1 |
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
||
return |
return |
||
takehalf: |
takehalf: |
||
send take %1 $0 half |
send take %1 $0 half quick |
||
waitforre ^You touch %1 |
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
||
return |
return |
||
HW: |
HW: |
||
if $mana < 80 then waiteval $mana >= 80 |
if $mana < 80 then waiteval $mana >= 80 |
||
send stop |
send stop play |
||
waitforre ^You stop|^In the name |
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
||
send prep HW |
send prep HW |
||
pause 2 |
pause 2 |
||
send charge my $cambrinth 7 |
send charge my $cambrinth 7 |
||
| Line 1,643: | Line 3,517: | ||
wait |
wait |
||
pause |
pause |
||
send |
send invoke my $cambrinth |
||
wait |
wait |
||
pause |
pause |
||
send cast %part reverse |
send cast %part reverse |
||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
match return but it cannot heal what is not injured |
||
matchwait 1 |
matchwait 1 |
||
| Line 1,654: | Line 3,528: | ||
HW2: |
HW2: |
||
if $mana < 80 then waiteval $mana >= 80 |
if $mana < 80 then waiteval $mana >= 80 |
||
send stop |
send stop play |
||
waitforre ^You stop|^In the name |
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
||
send prep HW |
send prep HW |
||
pause 2 |
pause 2 |
||
send harness 7 |
send harness 7 |
||
| Line 1,665: | Line 3,539: | ||
pause |
pause |
||
send cast %part reverse |
send cast %part reverse |
||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
match return but it cannot heal what is not injured |
||
matchwait 1 |
matchwait 1 |
||
| Line 1,672: | Line 3,546: | ||
HS: |
HS: |
||
if $mana < 80 then waiteval $mana >= 80 |
if $mana < 80 then waiteval $mana >= 80 |
||
send stop |
send stop play |
||
waitforre ^You stop|^In the name |
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
||
send prep HS |
send prep HS |
||
pause 2 |
pause 2 |
||
send charge my $cambrinth 7 |
send charge my $cambrinth 7 |
||
| Line 1,682: | Line 3,556: | ||
wait |
wait |
||
pause |
pause |
||
send |
send invoke my $cambrinth |
||
wait |
wait |
||
pause |
pause |
||
send cast %part reverse |
send cast %part reverse |
||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
match return but it cannot heal what is not injured |
||
matchwait 1 |
matchwait 1 |
||
| Line 1,693: | Line 3,567: | ||
HS2: |
HS2: |
||
if $mana < 80 then waiteval $mana >= 80 |
if $mana < 80 then waiteval $mana >= 80 |
||
send stop |
send stop play |
||
waitforre ^You stop|^In the name |
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
||
send prep HS |
send prep HS |
||
pause 2 |
pause 2 |
||
send harness 7 |
send harness 7 |
||
| Line 1,704: | Line 3,578: | ||
pause |
pause |
||
send cast %part reverse |
send cast %part reverse |
||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
match return but it cannot heal what is not injured |
||
matchwait 1 |
matchwait 1 |
||
| Line 1,713: | Line 3,587: | ||
loop: |
loop: |
||
echo ***** End of round %LOOP. Now pausing for |
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. ***** |
||
pause |
pause 5 |
||
if $bleeding = 1 then |
if $bleeding = 1 then |
||
{ |
{ |
||
| Line 1,720: | Line 3,594: | ||
} |
} |
||
send touch %1 |
send touch %1 |
||
waitforre ^%1 |
waitforre /^%1.+ vitality/i |
||
goto start |
goto start |
||
refresh: |
refresh: |
||
send stop |
send stop play |
||
waitforre ^You stop|^In the name |
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
||
send prep |
send prep Refresh |
||
pause 2 |
pause 2 |
||
send charge my $cambrinth 7 |
send charge my $cambrinth 7 |
||
| Line 1,734: | Line 3,608: | ||
wait |
wait |
||
pause |
pause |
||
send |
send invoke my $cambrinth |
||
wait |
wait |
||
pause |
pause |
||
| Line 1,742: | Line 3,616: | ||
VH: |
VH: |
||
send stop |
send stop play |
||
waitforre ^You stop|^In the name |
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
||
evalmath HARNESS round((100-$health) / 5) |
evalmath HARNESS round((100-$health) / 5) |
||
send prep VH |
send prep VH |
||
pause 2 |
pause 2 |
||
send charge my $cambrinth %HARNESS |
send charge my $cambrinth %HARNESS |
||
| Line 1,753: | Line 3,627: | ||
wait |
wait |
||
pause |
pause |
||
send |
send invoke my $cambrinth |
||
wait |
wait |
||
pause |
pause |
||
| Line 1,799: | Line 3,673: | ||
done: |
done: |
||
put language Common |
|||
put '}%1 You are fully healed. |
|||
waitforre ^You switch|^But you are already|^You are already |
|||
put '/smugly The body of %1 is whole. |
|||
put #play ScriptEnd |
|||
put #parse PATIENT HEALED</pre> |
|||
===Dead Patient: Hold Life=== |
|||
send hum $hum</pre> |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action send touch %1 when ^You have no empathic link |
|||
action goto done when ^\.\.\. no injuries to speak of |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
refreshcheck: |
|||
if $REFRESH = OFF && $Courage = OFF then |
|||
{ |
|||
gosub refresh |
|||
} |
|||
vhcheck: |
|||
if $health < 60 then |
|||
{ |
|||
gosub vh |
|||
} |
|||
start: |
|||
var head.bleed 0 |
|||
var neck.bleed 0 |
|||
var chest.bleed 0 |
|||
var abdo.bleed 0 |
|||
var back.bleed 0 |
|||
var tail.bleed 0 |
|||
var rarm.bleed 0 |
|||
var larm.bleed 0 |
|||
var rhnd.bleed 0 |
|||
var lhnd.bleed 0 |
|||
var rleg.bleed 0 |
|||
var lleg.bleed 0 |
|||
var reye.bleed 0 |
|||
var leye.bleed 0 |
|||
var HEAD_MYEW 0 |
|||
var HEAD_MYIW 0 |
|||
var HEAD_MYES 0 |
|||
var HEAD_MYIS 0 |
|||
var NECK_MYEW 0 |
|||
var NECK_MYIW 0 |
|||
var NECK_MYES 0 |
|||
var NECK_MYIS 0 |
|||
var CHEST_MYEW 0 |
|||
var CHEST_MYIW 0 |
|||
var CHEST_MYES 0 |
|||
var CHEST_MYIS 0 |
|||
var ABDOMEN_MYEW 0 |
|||
var ABDOMEN_MYIW 0 |
|||
var ABDOMEN_MYES 0 |
|||
var ABDOMEN_MYIS 0 |
|||
var BACK_MYEW 0 |
|||
var BACK_MYIW 0 |
|||
var BACK_MYES 0 |
|||
var BACK_MYIS 0 |
|||
var TAIL_MYEW 0 |
|||
var TAIL_MYIW 0 |
|||
var TAIL_MYES 0 |
|||
var TAIL_MYIS 0 |
|||
var RIGHT_EYE_MYEW 0 |
|||
var RIGHT_EYE_MYIW 0 |
|||
var RIGHT_EYE_MYES 0 |
|||
var RIGHT_EYE_MYIS 0 |
|||
var LEFT_EYE_MYEW 0 |
|||
var LEFT_EYE_MYIW 0 |
|||
var LEFT_EYE_MYES 0 |
|||
var LEFT_EYE_MYIS 0 |
|||
var RIGHT_ARM_MYEW 0 |
|||
var RIGHT_ARM_MYIW 0 |
|||
var RIGHT_ARM_MYES 0 |
|||
var RIGHT_ARM_MYIS 0 |
|||
var LEFT_ARM_MYEW 0 |
|||
var LEFT_ARM_MYIW 0 |
|||
var LEFT_ARM_MYES 0 |
|||
var LEFT_ARM_MYIS 0 |
|||
var RIGHT_HAND_MYEW 0 |
|||
var RIGHT_HAND_MYIW 0 |
|||
var RIGHT_HAND_MYES 0 |
|||
var RIGHT_HAND_MYIS 0 |
|||
var LEFT_HAND_MYEW 0 |
|||
var LEFT_HAND_MYIW 0 |
|||
var LEFT_HAND_MYES 0 |
|||
var LEFT_HAND_MYIS 0 |
|||
var RIGHT_LEG_MYEW 0 |
|||
var RIGHT_LEG_MYIW 0 |
|||
var RIGHT_LEG_MYES 0 |
|||
var RIGHT_LEG_MYIS 0 |
|||
var LEFT_LEG_MYEW 0 |
|||
var LEFT_LEG_MYIW 0 |
|||
var LEFT_LEG_MYES 0 |
|||
var LEFT_LEG_MYIS 0 |
|||
var SKIN_MYEW 0 |
|||
var SKIN_MYIW 0 |
|||
var SKIN_MYES 0 |
|||
var SKIN_MYIS 0 |
|||
var HEAD_EW 0 |
|||
var HEAD_IW 0 |
|||
var HEAD_ES 0 |
|||
var HEAD_IS 0 |
|||
var NECK_EW 0 |
|||
var NECK_IW 0 |
|||
var NECK_ES 0 |
|||
var NECK_IS 0 |
|||
var CHEST_EW 0 |
|||
var CHEST_IW 0 |
|||
var CHEST_ES 0 |
|||
var CHEST_IS 0 |
|||
var ABDOMEN_EW 0 |
|||
var ABDOMEN_IW 0 |
|||
var ABDOMEN_ES 0 |
|||
var ABDOMEN_IS 0 |
|||
var BACK_EW 0 |
|||
var BACK_IW 0 |
|||
var BACK_ES 0 |
|||
var BACK_IS 0 |
|||
var TAIL_EW 0 |
|||
var TAIL_IW 0 |
|||
var TAIL_ES 0 |
|||
var TAIL_IS 0 |
|||
var RIGHT_EYE_EW 0 |
|||
var RIGHT_EYE_IW 0 |
|||
var RIGHT_EYE_ES 0 |
|||
var RIGHT_EYE_IS 0 |
|||
var LEFT_EYE_EW 0 |
|||
var LEFT_EYE_IW 0 |
|||
var LEFT_EYE_ES 0 |
|||
var LEFT_EYE_IS 0 |
|||
var RIGHT_ARM_EW 0 |
|||
var RIGHT_ARM_IW 0 |
|||
var RIGHT_ARM_ES 0 |
|||
var RIGHT_ARM_IS 0 |
|||
var LEFT_ARM_EW 0 |
|||
var LEFT_ARM_IW 0 |
|||
var LEFT_ARM_ES 0 |
|||
var LEFT_ARM_IS 0 |
|||
var RIGHT_HAND_EW 0 |
|||
var RIGHT_HAND_IW 0 |
|||
var RIGHT_HAND_ES 0 |
|||
var RIGHT_HAND_IS 0 |
|||
var LEFT_HAND_EW 0 |
|||
var LEFT_HAND_IW 0 |
|||
var LEFT_HAND_ES 0 |
|||
var LEFT_HAND_IS 0 |
|||
var RIGHT_LEG_EW 0 |
|||
var RIGHT_LEG_IW 0 |
|||
var RIGHT_LEG_ES 0 |
|||
var RIGHT_LEG_IS 0 |
|||
var LEFT_LEG_EW 0 |
|||
var LEFT_LEG_IW 0 |
|||
var LEFT_LEG_ES 0 |
|||
var LEFT_LEG_IS 0 |
|||
var SKIN_EW 0 |
|||
var SKIN_IW 0 |
|||
var SKIN_ES 0 |
|||
var SKIN_IS 0 |
|||
pause |
|||
EmpathWounds: |
|||
send perceive health self |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
waitforre ^You .+ vitality |
|||
wait |
|||
pause |
|||
PatientWounds: |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
CombinedWounds: |
|||
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW |
|||
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW |
|||
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES |
|||
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS |
|||
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW |
|||
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW |
|||
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES |
|||
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS |
|||
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW |
|||
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW |
|||
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES |
|||
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS |
|||
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW |
|||
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW |
|||
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES |
|||
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS |
|||
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW |
|||
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW |
|||
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES |
|||
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS |
|||
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW |
|||
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW |
|||
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES |
|||
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS |
|||
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES |
|||
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS |
|||
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES |
|||
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS |
|||
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES |
|||
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS |
|||
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES |
|||
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS |
|||
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES |
|||
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS |
|||
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES |
|||
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS |
|||
pause |
|||
math LOOP add 1 |
|||
echo ***** Wound variables set! Starting round %LOOP. ***** |
|||
if %RIGHT_EYE_EW > 4 then |
|||
{ |
|||
gosub takehalf right eye |
|||
} |
|||
if %RIGHT_EYE_IW > 4 then |
|||
{ |
|||
gosub takehalf internal right eye |
|||
} |
|||
if %LEFT_EYE_EW > 4 then |
|||
{ |
|||
gosub takehalf left eye |
|||
} |
|||
if %LEFT_EYE_IW > 4 then |
|||
{ |
|||
gosub takehalf internal left eye |
|||
} |
|||
if %RIGHT_ARM_EW > 4 then |
|||
{ |
|||
gosub takehalf right arm |
|||
} |
|||
if %RIGHT_ARM_IW > 4 then |
|||
{ |
|||
gosub takehalf internal right arm |
|||
} |
|||
if %LEFT_ARM_EW > 4 then |
|||
{ |
|||
gosub takehalf left arm |
|||
} |
|||
if %LEFT_ARM_IW > 4 then |
|||
{ |
|||
gosub takehalf internal left arm |
|||
} |
|||
if %RIGHT_HAND_EW > 4 then |
|||
{ |
|||
gosub takehalf right hand |
|||
} |
|||
if %RIGHT_HAND_IW > 4 then |
|||
{ |
|||
gosub takehalf internal right hand |
|||
} |
|||
if %LEFT_HAND_EW > 4 then |
|||
{ |
|||
gosub takehalf left hand |
|||
} |
|||
if %LEFT_HAND_IW > 4 then |
|||
{ |
|||
gosub takehalf internal left hand |
|||
} |
|||
if %RIGHT_LEG_EW > 4 then |
|||
{ |
|||
gosub takehalf right leg |
|||
} |
|||
if %RIGHT_LEG_IW > 4 then |
|||
{ |
|||
gosub takehalf internal right leg |
|||
} |
|||
if %LEFT_LEG_EW > 4 then |
|||
{ |
|||
gosub takehalf left leg |
|||
} |
|||
if %LEFT_LEG_IW > 4 then |
|||
{ |
|||
gosub takehalf internal left leg |
|||
} |
|||
if %COMBHEAD_EW> 0 && %COMBHEAD_EW< 12 && %HEAD_EW> 4 then |
|||
{ |
|||
gosub takehalf head |
|||
} |
|||
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 4 then |
|||
{ |
|||
gosub takehalf internal head |
|||
} |
|||
if %COMBNECK_EW> 0 && %COMBNECK_EW< 12 && %NECK_EW> 4 then |
|||
{ |
|||
gosub takehalf neck |
|||
} |
|||
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 4 then |
|||
{ |
|||
gosub takehalf internal neck |
|||
} |
|||
if %COMBCHEST_EW> 0 && %COMBCHEST_EW< 12 && %CHEST_EW> 4 then |
|||
{ |
|||
gosub takehalf chest |
|||
} |
|||
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 4 then |
|||
{ |
|||
gosub takehalf internal chest |
|||
} |
|||
if %COMBABDOMEN_EW> 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW> 4 then |
|||
{ |
|||
gosub takehalf abdomen |
|||
} |
|||
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 4 then |
|||
{ |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %COMBBACK_EW> 0 && %COMBBACK_EW< 12 && %BACK_EW> 4 then |
|||
{ |
|||
gosub takehalf back |
|||
} |
|||
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 4 then |
|||
{ |
|||
gosub takehalf internal back |
|||
} |
|||
if %COMBTAIL_EW> 0 && %COMBTAIL_EW< 12 && %TAIL_EW> 4 then |
|||
{ |
|||
gosub takehalf tail |
|||
} |
|||
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 4 then |
|||
{ |
|||
gosub takehalf internal tail |
|||
} |
|||
if %COMBHEAD_EW> 11 && %HEAD_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf head |
|||
} |
|||
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal head |
|||
} |
|||
if %COMBNECK_EW> 11 && %NECK_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf neck |
|||
} |
|||
if %COMBNECK_IW> 11 && %NECK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal neck |
|||
} |
|||
if %COMBCHEST_EW> 11 && %CHEST_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf chest |
|||
} |
|||
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal chest |
|||
} |
|||
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf abdomen |
|||
} |
|||
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %COMBBACK_EW> 11 && %BACK_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf back |
|||
} |
|||
if %COMBBACK_IW> 11 && %BACK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal back |
|||
} |
|||
if %COMBTAIL_EW> 11 && %TAIL_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf tail |
|||
} |
|||
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal tail |
|||
} |
|||
if %HEAD_MYEW< 5 && %HEAD_EW> 11 then |
|||
{ |
|||
gosub takehalf head |
|||
} |
|||
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then |
|||
{ |
|||
gosub takehalf internal head |
|||
} |
|||
if %NECK_MYEW< 5 && %NECK_EW> 11 then |
|||
{ |
|||
gosub takehalf neck |
|||
} |
|||
if %NECK_MYIW< 5 && %NECK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal neck |
|||
} |
|||
if %CHEST_MYEW< 5 && %CHEST_EW> 11 then |
|||
{ |
|||
gosub takehalf chest |
|||
} |
|||
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then |
|||
{ |
|||
gosub takehalf internal chest |
|||
} |
|||
if %ABDOMEN_MYEW< 5 && %ABDOMEN_EW> 11 then |
|||
{ |
|||
gosub takehalf abdomen |
|||
} |
|||
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %BACK_MYEW< 5 && %BACK_EW> 11 then |
|||
{ |
|||
gosub takehalf back |
|||
} |
|||
if %BACK_MYIW< 5 && %BACK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal back |
|||
} |
|||
if %TAIL_MYEW< 5 && %TAIL_EW> 11 then |
|||
{ |
|||
gosub takehalf tail |
|||
} |
|||
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then |
|||
{ |
|||
gosub takehalf internal tail |
|||
} |
|||
if %HEAD_MYEW> 4 && %HEAD_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf head |
|||
} |
|||
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal head |
|||
} |
|||
if %NECK_MYEW> 4 && %NECK_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf neck |
|||
} |
|||
if %NECK_MYIW> 4 && %NECK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal neck |
|||
} |
|||
if %CHEST_MYEW> 4 && %CHEST_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf chest |
|||
} |
|||
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal chest |
|||
} |
|||
if %ABDOMEN_MYEW> 4 && %ABDOMEN_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf abdomen |
|||
} |
|||
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %BACK_MYEW> 4 && %BACK_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf back |
|||
} |
|||
if %BACK_MYIW> 4 && %BACK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal back |
|||
} |
|||
if %TAIL_MYEW> 4 && %TAIL_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf tail |
|||
} |
|||
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal tail |
|||
} |
|||
goto loop |
|||
takequick: |
|||
send take %1 $0 quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
takehalf: |
|||
send take %1 $0 half quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
HW: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW |
|||
HW2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW2 |
|||
HS: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS |
|||
HS2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS2 |
|||
return: |
|||
return |
|||
loop: |
|||
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. ***** |
|||
pause 5 |
|||
if $bleeding = 1 then |
|||
{ |
|||
gosub tendstart |
|||
} |
|||
if %LOOP < 3 then |
|||
{ |
|||
goto start |
|||
} |
|||
if %LOOP > 2 then |
|||
{ |
|||
goto done |
|||
} |
|||
refresh: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep Refresh |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
VH: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
evalmath HARNESS round((100-$health) / 5) |
|||
send prep VH |
|||
pause 2 |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
tendstart: |
|||
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 |
|||
return |
|||
tend: |
|||
send tend my $0 |
|||
waitforre ^You work|^That area|^Look again|^Your .+ too injured |
|||
return |
|||
done: |
|||
put language Common |
|||
waitforre ^You switch|^But you are already|^You are already |
|||
put '/smugly %1 will hold life. |
|||
put #play ScriptEnd |
|||
put #parse PATIENT HEALED</pre> |
|||
===Living Patient: Save Bleeders=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action send touch %1 when ^You have no empathic link |
|||
action goto done when ^\.\.\. no injuries to speak of |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
refreshcheck: |
|||
if $REFRESH = OFF && $Courage = OFF then |
|||
{ |
|||
gosub refresh |
|||
} |
|||
vhcheck: |
|||
if $health < 60 then |
|||
{ |
|||
gosub vh |
|||
} |
|||
start: |
|||
var head.bleed 0 |
|||
var neck.bleed 0 |
|||
var chest.bleed 0 |
|||
var abdo.bleed 0 |
|||
var back.bleed 0 |
|||
var tail.bleed 0 |
|||
var rarm.bleed 0 |
|||
var larm.bleed 0 |
|||
var rhnd.bleed 0 |
|||
var lhnd.bleed 0 |
|||
var rleg.bleed 0 |
|||
var lleg.bleed 0 |
|||
var reye.bleed 0 |
|||
var leye.bleed 0 |
|||
var HEAD_MYEW 0 |
|||
var HEAD_MYIW 0 |
|||
var HEAD_MYES 0 |
|||
var HEAD_MYIS 0 |
|||
var NECK_MYEW 0 |
|||
var NECK_MYIW 0 |
|||
var NECK_MYES 0 |
|||
var NECK_MYIS 0 |
|||
var CHEST_MYEW 0 |
|||
var CHEST_MYIW 0 |
|||
var CHEST_MYES 0 |
|||
var CHEST_MYIS 0 |
|||
var ABDOMEN_MYEW 0 |
|||
var ABDOMEN_MYIW 0 |
|||
var ABDOMEN_MYES 0 |
|||
var ABDOMEN_MYIS 0 |
|||
var BACK_MYEW 0 |
|||
var BACK_MYIW 0 |
|||
var BACK_MYES 0 |
|||
var BACK_MYIS 0 |
|||
var TAIL_MYEW 0 |
|||
var TAIL_MYIW 0 |
|||
var TAIL_MYES 0 |
|||
var TAIL_MYIS 0 |
|||
var RIGHT_EYE_MYEW 0 |
|||
var RIGHT_EYE_MYIW 0 |
|||
var RIGHT_EYE_MYES 0 |
|||
var RIGHT_EYE_MYIS 0 |
|||
var LEFT_EYE_MYEW 0 |
|||
var LEFT_EYE_MYIW 0 |
|||
var LEFT_EYE_MYES 0 |
|||
var LEFT_EYE_MYIS 0 |
|||
var RIGHT_ARM_MYEW 0 |
|||
var RIGHT_ARM_MYIW 0 |
|||
var RIGHT_ARM_MYES 0 |
|||
var RIGHT_ARM_MYIS 0 |
|||
var LEFT_ARM_MYEW 0 |
|||
var LEFT_ARM_MYIW 0 |
|||
var LEFT_ARM_MYES 0 |
|||
var LEFT_ARM_MYIS 0 |
|||
var RIGHT_HAND_MYEW 0 |
|||
var RIGHT_HAND_MYIW 0 |
|||
var RIGHT_HAND_MYES 0 |
|||
var RIGHT_HAND_MYIS 0 |
|||
var LEFT_HAND_MYEW 0 |
|||
var LEFT_HAND_MYIW 0 |
|||
var LEFT_HAND_MYES 0 |
|||
var LEFT_HAND_MYIS 0 |
|||
var RIGHT_LEG_MYEW 0 |
|||
var RIGHT_LEG_MYIW 0 |
|||
var RIGHT_LEG_MYES 0 |
|||
var RIGHT_LEG_MYIS 0 |
|||
var LEFT_LEG_MYEW 0 |
|||
var LEFT_LEG_MYIW 0 |
|||
var LEFT_LEG_MYES 0 |
|||
var LEFT_LEG_MYIS 0 |
|||
var SKIN_MYEW 0 |
|||
var SKIN_MYIW 0 |
|||
var SKIN_MYES 0 |
|||
var SKIN_MYIS 0 |
|||
var HEAD_EW 0 |
|||
var HEAD_IW 0 |
|||
var HEAD_ES 0 |
|||
var HEAD_IS 0 |
|||
var NECK_EW 0 |
|||
var NECK_IW 0 |
|||
var NECK_ES 0 |
|||
var NECK_IS 0 |
|||
var CHEST_EW 0 |
|||
var CHEST_IW 0 |
|||
var CHEST_ES 0 |
|||
var CHEST_IS 0 |
|||
var ABDOMEN_EW 0 |
|||
var ABDOMEN_IW 0 |
|||
var ABDOMEN_ES 0 |
|||
var ABDOMEN_IS 0 |
|||
var BACK_EW 0 |
|||
var BACK_IW 0 |
|||
var BACK_ES 0 |
|||
var BACK_IS 0 |
|||
var TAIL_EW 0 |
|||
var TAIL_IW 0 |
|||
var TAIL_ES 0 |
|||
var TAIL_IS 0 |
|||
var RIGHT_EYE_EW 0 |
|||
var RIGHT_EYE_IW 0 |
|||
var RIGHT_EYE_ES 0 |
|||
var RIGHT_EYE_IS 0 |
|||
var LEFT_EYE_EW 0 |
|||
var LEFT_EYE_IW 0 |
|||
var LEFT_EYE_ES 0 |
|||
var LEFT_EYE_IS 0 |
|||
var RIGHT_ARM_EW 0 |
|||
var RIGHT_ARM_IW 0 |
|||
var RIGHT_ARM_ES 0 |
|||
var RIGHT_ARM_IS 0 |
|||
var LEFT_ARM_EW 0 |
|||
var LEFT_ARM_IW 0 |
|||
var LEFT_ARM_ES 0 |
|||
var LEFT_ARM_IS 0 |
|||
var RIGHT_HAND_EW 0 |
|||
var RIGHT_HAND_IW 0 |
|||
var RIGHT_HAND_ES 0 |
|||
var RIGHT_HAND_IS 0 |
|||
var LEFT_HAND_EW 0 |
|||
var LEFT_HAND_IW 0 |
|||
var LEFT_HAND_ES 0 |
|||
var LEFT_HAND_IS 0 |
|||
var RIGHT_LEG_EW 0 |
|||
var RIGHT_LEG_IW 0 |
|||
var RIGHT_LEG_ES 0 |
|||
var RIGHT_LEG_IS 0 |
|||
var LEFT_LEG_EW 0 |
|||
var LEFT_LEG_IW 0 |
|||
var LEFT_LEG_ES 0 |
|||
var LEFT_LEG_IS 0 |
|||
var SKIN_EW 0 |
|||
var SKIN_IW 0 |
|||
var SKIN_ES 0 |
|||
var SKIN_IS 0 |
|||
pause |
|||
EmpathWounds: |
|||
send perceive health self |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
waitforre ^You .+ vitality |
|||
wait |
|||
pause |
|||
PatientWounds: |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
CombinedWounds: |
|||
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW |
|||
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW |
|||
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES |
|||
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS |
|||
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW |
|||
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW |
|||
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES |
|||
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS |
|||
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW |
|||
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW |
|||
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES |
|||
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS |
|||
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW |
|||
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW |
|||
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES |
|||
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS |
|||
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW |
|||
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW |
|||
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES |
|||
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS |
|||
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW |
|||
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW |
|||
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES |
|||
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS |
|||
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES |
|||
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS |
|||
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES |
|||
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS |
|||
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES |
|||
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS |
|||
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES |
|||
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS |
|||
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES |
|||
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS |
|||
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES |
|||
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS |
|||
pause |
|||
math LOOP add 1 |
|||
echo ***** Wound variables set! Starting round %LOOP. ***** |
|||
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_EW < 5 then |
|||
{ |
|||
gosub takequick right eye |
|||
} |
|||
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_EW > 8 then |
|||
{ |
|||
gosub takepart2 right eye |
|||
} |
|||
if %RIGHT_EYE_IW > 0 then |
|||
{ |
|||
gosub takequick internal right eye |
|||
} |
|||
if %RIGHT_EYE_ES > 0 then |
|||
{ |
|||
gosub takequick right eye scar |
|||
} |
|||
if %RIGHT_EYE_IS > 0 then |
|||
{ |
|||
gosub takequick internal right eye scar |
|||
} |
|||
if %LEFT_EYE_EW > 0 && %LEFT_EYE_EW < 5 then |
|||
{ |
|||
gosub takequick left eye |
|||
} |
|||
if %LEFT_EYE_EW > 0 && %LEFT_EYE_EW > 8 then |
|||
{ |
|||
gosub takepart2 left eye |
|||
} |
|||
if %LEFT_EYE_IW > 0 then |
|||
{ |
|||
gosub takequick internal left eye |
|||
} |
|||
if %LEFT_EYE_ES > 0 then |
|||
{ |
|||
gosub takequick left eye scar |
|||
} |
|||
if %LEFT_EYE_IS > 0 then |
|||
{ |
|||
gosub takequick internal left eye scar |
|||
} |
|||
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_EW < 5 then |
|||
{ |
|||
gosub takequick right arm |
|||
} |
|||
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_EW > 8 then |
|||
{ |
|||
gosub takepart right arm |
|||
} |
|||
if %RIGHT_ARM_IW > 0 then |
|||
{ |
|||
gosub takequick internal right arm |
|||
} |
|||
if %RIGHT_ARM_ES > 0 then |
|||
{ |
|||
gosub takequick right arm scar |
|||
} |
|||
if %RIGHT_ARM_IS > 0 then |
|||
{ |
|||
gosub takequick internal right arm scar |
|||
} |
|||
if %LEFT_ARM_EW > 0 && %LEFT_ARM_EW < 5 then |
|||
{ |
|||
gosub takequick left arm |
|||
} |
|||
if %LEFT_ARM_EW > 0 && %LEFT_ARM_EW > 8 then |
|||
{ |
|||
gosub takepart left arm |
|||
} |
|||
if %LEFT_ARM_IW > 0 then |
|||
{ |
|||
gosub takequick internal left arm |
|||
} |
|||
if %LEFT_ARM_ES > 0 then |
|||
{ |
|||
gosub takequick left arm scar |
|||
} |
|||
if %LEFT_ARM_IS > 0 then |
|||
{ |
|||
gosub takequick internal left arm scar |
|||
} |
|||
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_EW < 5 then |
|||
{ |
|||
gosub takequick right hand |
|||
} |
|||
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_EW > 8 then |
|||
{ |
|||
gosub takepart right hand |
|||
} |
|||
if %RIGHT_HAND_IW > 0 then |
|||
{ |
|||
gosub takequick internal right hand |
|||
} |
|||
if %RIGHT_HAND_ES > 0 then |
|||
{ |
|||
gosub takequick right hand scar |
|||
} |
|||
if %RIGHT_HAND_IS > 0 then |
|||
{ |
|||
gosub takequick internal right hand scar |
|||
} |
|||
if %LEFT_HAND_EW > 0 && %LEFT_HAND_EW < 5 then |
|||
{ |
|||
gosub takequick left hand |
|||
} |
|||
if %LEFT_HAND_EW > 0 && %LEFT_HAND_EW > 8 then |
|||
{ |
|||
gosub takepart left hand |
|||
} |
|||
if %LEFT_HAND_IW > 0 then |
|||
{ |
|||
gosub takequick internal left hand |
|||
} |
|||
if %LEFT_HAND_ES > 0 then |
|||
{ |
|||
gosub takequick left hand scar |
|||
} |
|||
if %LEFT_HAND_IS > 0 then |
|||
{ |
|||
gosub takequick internal left hand scar |
|||
} |
|||
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_EW < 5 then |
|||
{ |
|||
gosub takequick right leg |
|||
} |
|||
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_EW > 8 then |
|||
{ |
|||
gosub takepart right leg |
|||
} |
|||
if %RIGHT_LEG_IW > 0 then |
|||
{ |
|||
gosub takequick internal right leg |
|||
} |
|||
if %RIGHT_LEG_ES > 0 then |
|||
{ |
|||
gosub takequick right leg scar |
|||
} |
|||
if %RIGHT_LEG_IS > 0 then |
|||
{ |
|||
gosub takequick internal right leg scar |
|||
} |
|||
if %LEFT_LEG_EW > 0 && %LEFT_LEG_EW < 5 then |
|||
{ |
|||
gosub takequick left leg |
|||
} |
|||
if %LEFT_LEG_EW > 0 && %LEFT_LEG_EW > 8 then |
|||
{ |
|||
gosub takepart left leg |
|||
} |
|||
if %LEFT_LEG_IW > 0 then |
|||
{ |
|||
gosub takequick internal left leg |
|||
} |
|||
if %LEFT_LEG_ES > 0 then |
|||
{ |
|||
gosub takequick left leg scar |
|||
} |
|||
if %LEFT_LEG_IS > 0 then |
|||
{ |
|||
gosub takequick internal left leg scar |
|||
} |
|||
if %SKIN_EW > 0 then |
|||
{ |
|||
gosub takequick skin |
|||
} |
|||
if %SKIN_IW > 0 then |
|||
{ |
|||
gosub takequick internal skin |
|||
} |
|||
if %SKIN_ES > 0 then |
|||
{ |
|||
gosub takequick skin scar |
|||
} |
|||
if %SKIN_IS > 0 then |
|||
{ |
|||
gosub takequick internal skin scar |
|||
} |
|||
if %COMBHEAD_EW > 0 && %COMBHEAD_EW< 12 && %HEAD_EW > 0 && %HEAD_EW < 5 then |
|||
{ |
|||
gosub takequick head |
|||
} |
|||
if %COMBHEAD_IW > 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then |
|||
{ |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES > 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then |
|||
{ |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS > 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then |
|||
{ |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_EW > 0 && %COMBNECK_EW< 12 && %NECK_EW > 0 && %NECK_EW < 5 then |
|||
{ |
|||
gosub takequick neck |
|||
} |
|||
if %COMBNECK_IW > 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then |
|||
{ |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES > 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then |
|||
{ |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS > 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then |
|||
{ |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_EW > 0 && %COMBCHEST_EW< 12 && %CHEST_EW > 0 && %CHEST_EW < 5 then |
|||
{ |
|||
gosub takequick chest |
|||
} |
|||
if %COMBCHEST_IW > 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then |
|||
{ |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES > 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then |
|||
{ |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS > 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then |
|||
{ |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_EW > 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW > 0 && %ABDOMEN_EW < 5 then |
|||
{ |
|||
gosub takequick abdomen |
|||
} |
|||
if %COMBABDOMEN_IW > 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then |
|||
{ |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES > 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then |
|||
{ |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS > 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then |
|||
{ |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_EW > 0 && %COMBBACK_EW< 12 && %BACK_EW > 0 && %BACK_EW < 5 then |
|||
{ |
|||
gosub takequick back |
|||
} |
|||
if %COMBBACK_IW > 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then |
|||
{ |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES > 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then |
|||
{ |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS > 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then |
|||
{ |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_EW > 0 && %COMBTAIL_EW< 12 && %TAIL_EW > 0 && %TAIL_EW < 5 then |
|||
{ |
|||
gosub takequick tail |
|||
} |
|||
if %COMBTAIL_IW > 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then |
|||
{ |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES > 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then |
|||
{ |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS > 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then |
|||
{ |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %COMBHEAD_EW> 11 && %HEAD_EW < 5 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick head |
|||
} |
|||
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_EW> 11 && %NECK_EW < 5 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick neck |
|||
} |
|||
if %COMBNECK_IW> 11 && %NECK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES> 11 && %NECK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS> 11 && %NECK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_EW> 11 && %CHEST_EW < 5 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick chest |
|||
} |
|||
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW < 5 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick abdomen |
|||
} |
|||
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_EW> 11 && %BACK_EW < 5 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick back |
|||
} |
|||
if %COMBBACK_IW> 11 && %BACK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES> 11 && %BACK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS> 11 && %BACK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_EW> 11 && %TAIL_EW < 5 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick tail |
|||
} |
|||
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %HEAD_MYEW< 8 && %HEAD_EW> 8 then |
|||
{ |
|||
gosub takepart2 head |
|||
} |
|||
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then |
|||
{ |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES< 5 && %HEAD_ES> 11 then |
|||
{ |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS< 5 && %HEAD_IS> 11 then |
|||
{ |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYEW< 8 && %NECK_EW> 8 then |
|||
{ |
|||
gosub takepart2 neck |
|||
} |
|||
if %NECK_MYIW< 5 && %NECK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES< 5 && %NECK_ES> 11 then |
|||
{ |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS< 5 && %NECK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYEW< 8 && %CHEST_EW> 8 then |
|||
{ |
|||
gosub takepart2 chest |
|||
} |
|||
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then |
|||
{ |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES< 5 && %CHEST_ES> 11 then |
|||
{ |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS< 5 && %CHEST_IS> 11 then |
|||
{ |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYEW< 8 && %ABDOMEN_EW> 8 then |
|||
{ |
|||
gosub takepart2 abdomen |
|||
} |
|||
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES< 5 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS< 5 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYEW< 8 && %BACK_EW> 8 then |
|||
{ |
|||
gosub takepart2 back |
|||
} |
|||
if %BACK_MYIW< 5 && %BACK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES< 5 && %BACK_ES> 11 then |
|||
{ |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS< 5 && %BACK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYEW< 8 && %TAIL_EW> 8 then |
|||
{ |
|||
gosub takepart2 tail |
|||
} |
|||
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then |
|||
{ |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES< 5 && %TAIL_ES> 11 then |
|||
{ |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS< 5 && %TAIL_IS> 11 then |
|||
{ |
|||
gosub takehalf internal tail scar |
|||
} |
|||
if %HEAD_MYEW> 7 && %HEAD_EW> 8 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takepart2 head |
|||
} |
|||
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES> 4 && %HEAD_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYEW> 7 && %NECK_EW> 8 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takepart2 neck |
|||
} |
|||
if %NECK_MYIW> 4 && %NECK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES> 4 && %NECK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS> 4 && %NECK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYEW> 7 && %CHEST_EW> 8 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takepart2 chest |
|||
} |
|||
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES> 4 && %CHEST_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYEW> 7 && %ABDOMEN_EW> 8 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takepart2 abdomen |
|||
} |
|||
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYEW> 7 && %BACK_EW> 8 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takepart2 back |
|||
} |
|||
if %BACK_MYIW> 4 && %BACK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES> 4 && %BACK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS> 4 && %BACK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYEW> 7 && %TAIL_EW> 8 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takepart2 tail |
|||
} |
|||
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES> 4 && %TAIL_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal tail scar |
|||
} |
|||
goto loop |
|||
takequick: |
|||
send take %1 $0 quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
takehalf: |
|||
send take %1 $0 half quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
takepart: |
|||
send take %1 $0 part quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
takepart2: |
|||
echo take %1 $0 part quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
HW: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW |
|||
HW2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW2 |
|||
HS: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS |
|||
HS2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS2 |
|||
return: |
|||
return |
|||
loop: |
|||
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. ***** |
|||
pause 5 |
|||
if $bleeding = 1 then |
|||
{ |
|||
gosub tendstart |
|||
} |
|||
if %LOOP < 3 then |
|||
{ |
|||
goto start |
|||
} |
|||
if %LOOP > 2 then |
|||
{ |
|||
goto done |
|||
} |
|||
refresh: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep Refresh |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
VH: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
evalmath HARNESS round((100-$health) / 5) |
|||
send prep VH |
|||
pause 2 |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
tendstart: |
|||
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 |
|||
return |
|||
tend: |
|||
send tend my $0 |
|||
waitforre ^You work|^That area|^Look again|^Your .+ too injured |
|||
return |
|||
done: |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
put '}%1 /smugly You are competely healed except for your bleeding wounds. |
|||
put #play ScriptEnd |
|||
put #parse PATIENT HEALED</pre> |
|||
===Living Patient: Save External Wounds=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action send touch %1 when ^You have no empathic link |
|||
action goto done when ^\.\.\. no injuries to speak of |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
refreshcheck: |
|||
if $REFRESH = OFF && $Courage = OFF then |
|||
{ |
|||
gosub refresh |
|||
} |
|||
vhcheck: |
|||
if $health < 60 then |
|||
{ |
|||
gosub vh |
|||
} |
|||
start: |
|||
var head.bleed 0 |
|||
var neck.bleed 0 |
|||
var chest.bleed 0 |
|||
var abdo.bleed 0 |
|||
var back.bleed 0 |
|||
var tail.bleed 0 |
|||
var rarm.bleed 0 |
|||
var larm.bleed 0 |
|||
var rhnd.bleed 0 |
|||
var lhnd.bleed 0 |
|||
var rleg.bleed 0 |
|||
var lleg.bleed 0 |
|||
var reye.bleed 0 |
|||
var leye.bleed 0 |
|||
var HEAD_MYEW 0 |
|||
var HEAD_MYIW 0 |
|||
var HEAD_MYES 0 |
|||
var HEAD_MYIS 0 |
|||
var NECK_MYEW 0 |
|||
var NECK_MYIW 0 |
|||
var NECK_MYES 0 |
|||
var NECK_MYIS 0 |
|||
var CHEST_MYEW 0 |
|||
var CHEST_MYIW 0 |
|||
var CHEST_MYES 0 |
|||
var CHEST_MYIS 0 |
|||
var ABDOMEN_MYEW 0 |
|||
var ABDOMEN_MYIW 0 |
|||
var ABDOMEN_MYES 0 |
|||
var ABDOMEN_MYIS 0 |
|||
var BACK_MYEW 0 |
|||
var BACK_MYIW 0 |
|||
var BACK_MYES 0 |
|||
var BACK_MYIS 0 |
|||
var TAIL_MYEW 0 |
|||
var TAIL_MYIW 0 |
|||
var TAIL_MYES 0 |
|||
var TAIL_MYIS 0 |
|||
var RIGHT_EYE_MYEW 0 |
|||
var RIGHT_EYE_MYIW 0 |
|||
var RIGHT_EYE_MYES 0 |
|||
var RIGHT_EYE_MYIS 0 |
|||
var LEFT_EYE_MYEW 0 |
|||
var LEFT_EYE_MYIW 0 |
|||
var LEFT_EYE_MYES 0 |
|||
var LEFT_EYE_MYIS 0 |
|||
var RIGHT_ARM_MYEW 0 |
|||
var RIGHT_ARM_MYIW 0 |
|||
var RIGHT_ARM_MYES 0 |
|||
var RIGHT_ARM_MYIS 0 |
|||
var LEFT_ARM_MYEW 0 |
|||
var LEFT_ARM_MYIW 0 |
|||
var LEFT_ARM_MYES 0 |
|||
var LEFT_ARM_MYIS 0 |
|||
var RIGHT_HAND_MYEW 0 |
|||
var RIGHT_HAND_MYIW 0 |
|||
var RIGHT_HAND_MYES 0 |
|||
var RIGHT_HAND_MYIS 0 |
|||
var LEFT_HAND_MYEW 0 |
|||
var LEFT_HAND_MYIW 0 |
|||
var LEFT_HAND_MYES 0 |
|||
var LEFT_HAND_MYIS 0 |
|||
var RIGHT_LEG_MYEW 0 |
|||
var RIGHT_LEG_MYIW 0 |
|||
var RIGHT_LEG_MYES 0 |
|||
var RIGHT_LEG_MYIS 0 |
|||
var LEFT_LEG_MYEW 0 |
|||
var LEFT_LEG_MYIW 0 |
|||
var LEFT_LEG_MYES 0 |
|||
var LEFT_LEG_MYIS 0 |
|||
var SKIN_MYEW 0 |
|||
var SKIN_MYIW 0 |
|||
var SKIN_MYES 0 |
|||
var SKIN_MYIS 0 |
|||
var HEAD_EW 0 |
|||
var HEAD_IW 0 |
|||
var HEAD_ES 0 |
|||
var HEAD_IS 0 |
|||
var NECK_EW 0 |
|||
var NECK_IW 0 |
|||
var NECK_ES 0 |
|||
var NECK_IS 0 |
|||
var CHEST_EW 0 |
|||
var CHEST_IW 0 |
|||
var CHEST_ES 0 |
|||
var CHEST_IS 0 |
|||
var ABDOMEN_EW 0 |
|||
var ABDOMEN_IW 0 |
|||
var ABDOMEN_ES 0 |
|||
var ABDOMEN_IS 0 |
|||
var BACK_EW 0 |
|||
var BACK_IW 0 |
|||
var BACK_ES 0 |
|||
var BACK_IS 0 |
|||
var TAIL_EW 0 |
|||
var TAIL_IW 0 |
|||
var TAIL_ES 0 |
|||
var TAIL_IS 0 |
|||
var RIGHT_EYE_EW 0 |
|||
var RIGHT_EYE_IW 0 |
|||
var RIGHT_EYE_ES 0 |
|||
var RIGHT_EYE_IS 0 |
|||
var LEFT_EYE_EW 0 |
|||
var LEFT_EYE_IW 0 |
|||
var LEFT_EYE_ES 0 |
|||
var LEFT_EYE_IS 0 |
|||
var RIGHT_ARM_EW 0 |
|||
var RIGHT_ARM_IW 0 |
|||
var RIGHT_ARM_ES 0 |
|||
var RIGHT_ARM_IS 0 |
|||
var LEFT_ARM_EW 0 |
|||
var LEFT_ARM_IW 0 |
|||
var LEFT_ARM_ES 0 |
|||
var LEFT_ARM_IS 0 |
|||
var RIGHT_HAND_EW 0 |
|||
var RIGHT_HAND_IW 0 |
|||
var RIGHT_HAND_ES 0 |
|||
var RIGHT_HAND_IS 0 |
|||
var LEFT_HAND_EW 0 |
|||
var LEFT_HAND_IW 0 |
|||
var LEFT_HAND_ES 0 |
|||
var LEFT_HAND_IS 0 |
|||
var RIGHT_LEG_EW 0 |
|||
var RIGHT_LEG_IW 0 |
|||
var RIGHT_LEG_ES 0 |
|||
var RIGHT_LEG_IS 0 |
|||
var LEFT_LEG_EW 0 |
|||
var LEFT_LEG_IW 0 |
|||
var LEFT_LEG_ES 0 |
|||
var LEFT_LEG_IS 0 |
|||
var SKIN_EW 0 |
|||
var SKIN_IW 0 |
|||
var SKIN_ES 0 |
|||
var SKIN_IS 0 |
|||
pause |
|||
EmpathWounds: |
|||
send perceive health self |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
waitforre ^You .+ vitality |
|||
wait |
|||
pause |
|||
PatientWounds: |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
CombinedWounds: |
|||
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW |
|||
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW |
|||
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES |
|||
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS |
|||
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW |
|||
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW |
|||
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES |
|||
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS |
|||
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW |
|||
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW |
|||
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES |
|||
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS |
|||
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW |
|||
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW |
|||
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES |
|||
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS |
|||
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW |
|||
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW |
|||
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES |
|||
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS |
|||
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW |
|||
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW |
|||
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES |
|||
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS |
|||
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES |
|||
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS |
|||
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES |
|||
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS |
|||
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES |
|||
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS |
|||
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES |
|||
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS |
|||
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES |
|||
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS |
|||
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES |
|||
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS |
|||
pause |
|||
math LOOP add 1 |
|||
echo ***** Wound variables set! Starting round %LOOP. ***** |
|||
if %RIGHT_EYE_IW > 0 then |
|||
{ |
|||
gosub takequick internal right eye |
|||
} |
|||
if %RIGHT_EYE_ES > 0 then |
|||
{ |
|||
gosub takequick right eye scar |
|||
} |
|||
if %RIGHT_EYE_IS > 0 then |
|||
{ |
|||
gosub takequick internal right eye scar |
|||
} |
|||
if %LEFT_EYE_IW > 0 then |
|||
{ |
|||
gosub takequick internal left eye |
|||
} |
|||
if %LEFT_EYE_ES > 0 then |
|||
{ |
|||
gosub takequick left eye scar |
|||
} |
|||
if %LEFT_EYE_IS > 0 then |
|||
{ |
|||
gosub takequick internal left eye scar |
|||
} |
|||
if %RIGHT_ARM_IW > 0 then |
|||
{ |
|||
gosub takequick internal right arm |
|||
} |
|||
if %RIGHT_ARM_ES > 0 then |
|||
{ |
|||
gosub takequick right arm scar |
|||
} |
|||
if %RIGHT_ARM_IS > 0 then |
|||
{ |
|||
gosub takequick internal right arm scar |
|||
} |
|||
if %LEFT_ARM_IW > 0 then |
|||
{ |
|||
gosub takequick internal left arm |
|||
} |
|||
if %LEFT_ARM_ES > 0 then |
|||
{ |
|||
gosub takequick left arm scar |
|||
} |
|||
if %LEFT_ARM_IS > 0 then |
|||
{ |
|||
gosub takequick internal left arm scar |
|||
} |
|||
if %RIGHT_HAND_IW > 0 then |
|||
{ |
|||
gosub takequick internal right hand |
|||
} |
|||
if %RIGHT_HAND_ES > 0 then |
|||
{ |
|||
gosub takequick right hand scar |
|||
} |
|||
if %RIGHT_HAND_IS > 0 then |
|||
{ |
|||
gosub takequick internal right hand scar |
|||
} |
|||
if %LEFT_HAND_IW > 0 then |
|||
{ |
|||
gosub takequick internal left hand |
|||
} |
|||
if %LEFT_HAND_ES > 0 then |
|||
{ |
|||
gosub takequick left hand scar |
|||
} |
|||
if %LEFT_HAND_IS > 0 then |
|||
{ |
|||
gosub takequick internal left hand scar |
|||
} |
|||
if %RIGHT_LEG_IW > 0 then |
|||
{ |
|||
gosub takequick internal right leg |
|||
} |
|||
if %RIGHT_LEG_ES > 0 then |
|||
{ |
|||
gosub takequick right leg scar |
|||
} |
|||
if %RIGHT_LEG_IS > 0 then |
|||
{ |
|||
gosub takequick internal right leg scar |
|||
} |
|||
if %LEFT_LEG_IW > 0 then |
|||
{ |
|||
gosub takequick internal left leg |
|||
} |
|||
if %LEFT_LEG_ES > 0 then |
|||
{ |
|||
gosub takequick left leg scar |
|||
} |
|||
if %LEFT_LEG_IS > 0 then |
|||
{ |
|||
gosub takequick internal left leg scar |
|||
} |
|||
if %SKIN_EW > 0 then |
|||
{ |
|||
gosub takequick skin |
|||
} |
|||
if %SKIN_IW > 0 then |
|||
{ |
|||
gosub takequick internal skin |
|||
} |
|||
if %SKIN_ES > 0 then |
|||
{ |
|||
gosub takequick skin scar |
|||
} |
|||
if %SKIN_IS > 0 then |
|||
{ |
|||
gosub takequick internal skin scar |
|||
} |
|||
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then |
|||
{ |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES> 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then |
|||
{ |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS> 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then |
|||
{ |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then |
|||
{ |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES> 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then |
|||
{ |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS> 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then |
|||
{ |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then |
|||
{ |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES> 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then |
|||
{ |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS> 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then |
|||
{ |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then |
|||
{ |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES> 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then |
|||
{ |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS> 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then |
|||
{ |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then |
|||
{ |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES> 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then |
|||
{ |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS> 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then |
|||
{ |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then |
|||
{ |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES> 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then |
|||
{ |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS> 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then |
|||
{ |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_IW> 11 && %NECK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES> 11 && %NECK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS> 11 && %NECK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_IW> 11 && %BACK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES> 11 && %BACK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS> 11 && %BACK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %HEAD_MYIW < 5 && %HEAD_IW> 11 then |
|||
{ |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES < 5 && %HEAD_ES> 11 then |
|||
{ |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS < 5 && %HEAD_IS> 11 then |
|||
{ |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYIW < 5 && %NECK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES < 5 && %NECK_ES> 11 then |
|||
{ |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS < 5 && %NECK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYIW < 5 && %CHEST_IW> 11 then |
|||
{ |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES < 5 && %CHEST_ES> 11 then |
|||
{ |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS < 5 && %CHEST_IS> 11 then |
|||
{ |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYIW < 5 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES < 5 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS < 5 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYIW < 5 && %BACK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES < 5 && %BACK_ES> 11 then |
|||
{ |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS < 5 && %BACK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYIW < 5 && %TAIL_IW> 11 then |
|||
{ |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES < 5 && %TAIL_ES> 11 then |
|||
{ |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS < 5 && %TAIL_IS> 11 then |
|||
{ |
|||
gosub takehalf internal tail scar |
|||
} |
|||
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES> 4 && %HEAD_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYIW> 4 && %NECK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES> 4 && %NECK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS> 4 && %NECK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES> 4 && %CHEST_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYIW> 4 && %BACK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES> 4 && %BACK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS> 4 && %BACK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. ***** |
|||
gosub HW2 |
|||
send touch %1 |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES> 4 && %TAIL_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. ***** |
|||
gosub HS2 |
|||
send touch %1 |
|||
gosub takehalf internal tail scar |
|||
} |
|||
goto loop |
|||
takequick: |
|||
send take %1 $0 quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
takehalf: |
|||
send take %1 $0 half quick |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
return |
|||
HW: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW |
|||
HW2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HW |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HW2 |
|||
HS: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS |
|||
HS2: |
|||
if $mana < 80 then waiteval $mana >= 80 |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep HS |
|||
pause 2 |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send harness 7 |
|||
wait |
|||
pause |
|||
send cast %part reverse |
|||
matchre return %location.+appears? completely healed\.$ |
|||
match return but it cannot heal what is not injured |
|||
matchwait 1 |
|||
goto HS2 |
|||
return: |
|||
return |
|||
loop: |
|||
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. ***** |
|||
pause 5 |
|||
if $bleeding = 1 then |
|||
{ |
|||
gosub tendstart |
|||
} |
|||
if %LOOP < 3 then |
|||
{ |
|||
goto start |
|||
} |
|||
if %LOOP > 2 then |
|||
{ |
|||
goto done |
|||
} |
|||
refresh: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
send prep Refresh |
|||
pause 2 |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send charge my $cambrinth 7 |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
VH: |
|||
send stop play |
|||
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything |
|||
evalmath HARNESS round((100-$health) / 5) |
|||
send prep VH |
|||
pause 2 |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send charge my $cambrinth %HARNESS |
|||
wait |
|||
pause |
|||
send invoke my $cambrinth |
|||
wait |
|||
pause |
|||
send cast |
|||
waitforre ^You gesture |
|||
return |
|||
tendstart: |
|||
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 |
|||
return |
|||
tend: |
|||
send tend my $0 |
|||
waitforre ^You work|^That area|^Look again|^Your .+ too injured |
|||
return |
|||
done: |
|||
put '}%1 /smugly You are free of scars and internal wounds. |
|||
put #play ScriptEnd |
|||
put #parse PATIENT HEALED</pre> |
|||
===Diagnostic Mode=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
action send touch %1 when ^You have no empathic link |
|||
action goto done when ^\.\.\. no injuries to speak of |
|||
action var poison 0 when ^Your patient does not have any poison in their body |
|||
action var disease 0 when ^Your patient does not have any disease |
|||
put #var patient %1 |
|||
start: |
|||
var head.bleed 0 |
|||
var neck.bleed 0 |
|||
var chest.bleed 0 |
|||
var abdo.bleed 0 |
|||
var back.bleed 0 |
|||
var tail.bleed 0 |
|||
var rarm.bleed 0 |
|||
var larm.bleed 0 |
|||
var rhnd.bleed 0 |
|||
var lhnd.bleed 0 |
|||
var rleg.bleed 0 |
|||
var lleg.bleed 0 |
|||
var reye.bleed 0 |
|||
var leye.bleed 0 |
|||
var HEAD_MYEW 0 |
|||
var HEAD_MYIW 0 |
|||
var HEAD_MYES 0 |
|||
var HEAD_MYIS 0 |
|||
var NECK_MYEW 0 |
|||
var NECK_MYIW 0 |
|||
var NECK_MYES 0 |
|||
var NECK_MYIS 0 |
|||
var CHEST_MYEW 0 |
|||
var CHEST_MYIW 0 |
|||
var CHEST_MYES 0 |
|||
var CHEST_MYIS 0 |
|||
var ABDOMEN_MYEW 0 |
|||
var ABDOMEN_MYIW 0 |
|||
var ABDOMEN_MYES 0 |
|||
var ABDOMEN_MYIS 0 |
|||
var BACK_MYEW 0 |
|||
var BACK_MYIW 0 |
|||
var BACK_MYES 0 |
|||
var BACK_MYIS 0 |
|||
var TAIL_MYEW 0 |
|||
var TAIL_MYIW 0 |
|||
var TAIL_MYES 0 |
|||
var TAIL_MYIS 0 |
|||
var RIGHT_EYE_MYEW 0 |
|||
var RIGHT_EYE_MYIW 0 |
|||
var RIGHT_EYE_MYES 0 |
|||
var RIGHT_EYE_MYIS 0 |
|||
var LEFT_EYE_MYEW 0 |
|||
var LEFT_EYE_MYIW 0 |
|||
var LEFT_EYE_MYES 0 |
|||
var LEFT_EYE_MYIS 0 |
|||
var RIGHT_ARM_MYEW 0 |
|||
var RIGHT_ARM_MYIW 0 |
|||
var RIGHT_ARM_MYES 0 |
|||
var RIGHT_ARM_MYIS 0 |
|||
var LEFT_ARM_MYEW 0 |
|||
var LEFT_ARM_MYIW 0 |
|||
var LEFT_ARM_MYES 0 |
|||
var LEFT_ARM_MYIS 0 |
|||
var RIGHT_HAND_MYEW 0 |
|||
var RIGHT_HAND_MYIW 0 |
|||
var RIGHT_HAND_MYES 0 |
|||
var RIGHT_HAND_MYIS 0 |
|||
var LEFT_HAND_MYEW 0 |
|||
var LEFT_HAND_MYIW 0 |
|||
var LEFT_HAND_MYES 0 |
|||
var LEFT_HAND_MYIS 0 |
|||
var RIGHT_LEG_MYEW 0 |
|||
var RIGHT_LEG_MYIW 0 |
|||
var RIGHT_LEG_MYES 0 |
|||
var RIGHT_LEG_MYIS 0 |
|||
var LEFT_LEG_MYEW 0 |
|||
var LEFT_LEG_MYIW 0 |
|||
var LEFT_LEG_MYES 0 |
|||
var LEFT_LEG_MYIS 0 |
|||
var SKIN_MYEW 0 |
|||
var SKIN_MYIW 0 |
|||
var SKIN_MYES 0 |
|||
var SKIN_MYIS 0 |
|||
var HEAD_EW 0 |
|||
var HEAD_IW 0 |
|||
var HEAD_ES 0 |
|||
var HEAD_IS 0 |
|||
var NECK_EW 0 |
|||
var NECK_IW 0 |
|||
var NECK_ES 0 |
|||
var NECK_IS 0 |
|||
var CHEST_EW 0 |
|||
var CHEST_IW 0 |
|||
var CHEST_ES 0 |
|||
var CHEST_IS 0 |
|||
var ABDOMEN_EW 0 |
|||
var ABDOMEN_IW 0 |
|||
var ABDOMEN_ES 0 |
|||
var ABDOMEN_IS 0 |
|||
var BACK_EW 0 |
|||
var BACK_IW 0 |
|||
var BACK_ES 0 |
|||
var BACK_IS 0 |
|||
var TAIL_EW 0 |
|||
var TAIL_IW 0 |
|||
var TAIL_ES 0 |
|||
var TAIL_IS 0 |
|||
var RIGHT_EYE_EW 0 |
|||
var RIGHT_EYE_IW 0 |
|||
var RIGHT_EYE_ES 0 |
|||
var RIGHT_EYE_IS 0 |
|||
var LEFT_EYE_EW 0 |
|||
var LEFT_EYE_IW 0 |
|||
var LEFT_EYE_ES 0 |
|||
var LEFT_EYE_IS 0 |
|||
var RIGHT_ARM_EW 0 |
|||
var RIGHT_ARM_IW 0 |
|||
var RIGHT_ARM_ES 0 |
|||
var RIGHT_ARM_IS 0 |
|||
var LEFT_ARM_EW 0 |
|||
var LEFT_ARM_IW 0 |
|||
var LEFT_ARM_ES 0 |
|||
var LEFT_ARM_IS 0 |
|||
var RIGHT_HAND_EW 0 |
|||
var RIGHT_HAND_IW 0 |
|||
var RIGHT_HAND_ES 0 |
|||
var RIGHT_HAND_IS 0 |
|||
var LEFT_HAND_EW 0 |
|||
var LEFT_HAND_IW 0 |
|||
var LEFT_HAND_ES 0 |
|||
var LEFT_HAND_IS 0 |
|||
var RIGHT_LEG_EW 0 |
|||
var RIGHT_LEG_IW 0 |
|||
var RIGHT_LEG_ES 0 |
|||
var RIGHT_LEG_IS 0 |
|||
var LEFT_LEG_EW 0 |
|||
var LEFT_LEG_IW 0 |
|||
var LEFT_LEG_ES 0 |
|||
var LEFT_LEG_IS 0 |
|||
var SKIN_EW 0 |
|||
var SKIN_IW 0 |
|||
var SKIN_ES 0 |
|||
var SKIN_IS 0 |
|||
pause |
|||
EmpathWounds: |
|||
send perceive health self |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
waitforre ^You .+ vitality |
|||
wait |
|||
pause |
|||
PatientWounds: |
|||
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$ |
|||
action setvariable TEMP $1 when ^Wounds to the (\w+):$ |
|||
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$ |
|||
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$ |
|||
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$ |
|||
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$ |
|||
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$ |
|||
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$ |
|||
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$ |
|||
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$ |
|||
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$ |
|||
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$ |
|||
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$ |
|||
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$ |
|||
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$ |
|||
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$ |
|||
action setvariable poison 1 when ^(He|She).+poison |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
CombinedWounds: |
|||
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW |
|||
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW |
|||
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES |
|||
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS |
|||
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW |
|||
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW |
|||
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES |
|||
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS |
|||
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW |
|||
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW |
|||
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES |
|||
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS |
|||
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW |
|||
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW |
|||
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES |
|||
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS |
|||
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW |
|||
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW |
|||
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES |
|||
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS |
|||
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW |
|||
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW |
|||
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES |
|||
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS |
|||
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES |
|||
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS |
|||
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES |
|||
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS |
|||
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES |
|||
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS |
|||
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES |
|||
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS |
|||
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES |
|||
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS |
|||
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES |
|||
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS |
|||
pause |
|||
math LOOP add 1 |
|||
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW < 13 then |
|||
{ |
|||
gosub takequick right eye |
|||
} |
|||
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right eye |
|||
} |
|||
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES < 13 then |
|||
{ |
|||
gosub takequick right eye scar |
|||
} |
|||
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right eye scar |
|||
} |
|||
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW < 13 then |
|||
{ |
|||
gosub takequick left eye |
|||
} |
|||
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left eye |
|||
} |
|||
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES < 13 then |
|||
{ |
|||
gosub takequick left eye scar |
|||
} |
|||
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left eye scar |
|||
} |
|||
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW < 13 then |
|||
{ |
|||
gosub takequick right arm |
|||
} |
|||
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right arm |
|||
} |
|||
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES < 13 then |
|||
{ |
|||
gosub takequick right arm scar |
|||
} |
|||
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right arm scar |
|||
} |
|||
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW < 13 then |
|||
{ |
|||
gosub takequick left arm |
|||
} |
|||
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left arm |
|||
} |
|||
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES < 13 then |
|||
{ |
|||
gosub takequick left arm scar |
|||
} |
|||
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left arm scar |
|||
} |
|||
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW < 13 then |
|||
{ |
|||
gosub takequick right hand |
|||
} |
|||
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right hand |
|||
} |
|||
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES < 13 then |
|||
{ |
|||
gosub takequick right hand scar |
|||
} |
|||
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right hand scar |
|||
} |
|||
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW < 13 then |
|||
{ |
|||
gosub takequick left hand |
|||
} |
|||
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left hand |
|||
} |
|||
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES < 13 then |
|||
{ |
|||
gosub takequick left hand scar |
|||
} |
|||
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left hand scar |
|||
} |
|||
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW < 13 then |
|||
{ |
|||
gosub takequick right leg |
|||
} |
|||
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal right leg |
|||
} |
|||
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES < 13 then |
|||
{ |
|||
gosub takequick right leg scar |
|||
} |
|||
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal right leg scar |
|||
} |
|||
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW < 13 then |
|||
{ |
|||
gosub takequick left leg |
|||
} |
|||
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal left leg |
|||
} |
|||
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES < 13 then |
|||
{ |
|||
gosub takequick left leg scar |
|||
} |
|||
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal left leg scar |
|||
} |
|||
if %SKIN_EW > 0 && %SKIN_MYEW < 13 then |
|||
{ |
|||
gosub takequick skin |
|||
} |
|||
if %SKIN_IW > 0 && %SKIN_MYIW < 13 then |
|||
{ |
|||
gosub takequick internal skin |
|||
} |
|||
if %SKIN_ES > 0 && %SKIN_MYES < 13 then |
|||
{ |
|||
gosub takequick skin scar |
|||
} |
|||
if %SKIN_IS > 0 && %SKIN_MYIS < 13 then |
|||
{ |
|||
gosub takequick internal skin scar |
|||
} |
|||
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right eye |
|||
gosub HW2 |
|||
gosub takequick right eye |
|||
} |
|||
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right eye |
|||
gosub HW2 |
|||
gosub takequick internal right eye |
|||
} |
|||
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right eye |
|||
gosub HS2 |
|||
gosub takequick right eye scar |
|||
} |
|||
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right eye |
|||
gosub HS2 |
|||
gosub takequick internal right eye scar |
|||
} |
|||
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left eye |
|||
gosub HW2 |
|||
gosub takequick left eye |
|||
} |
|||
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left eye |
|||
gosub HW2 |
|||
gosub takequick internal left eye |
|||
} |
|||
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left eye |
|||
gosub HS2 |
|||
gosub takequick left eye scar |
|||
} |
|||
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left eye |
|||
gosub HS2 |
|||
gosub takequick internal left eye scar |
|||
} |
|||
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right arm |
|||
gosub HW2 |
|||
gosub takequick right arm |
|||
} |
|||
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right arm |
|||
gosub HW2 |
|||
gosub takequick internal right arm |
|||
} |
|||
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right arm |
|||
gosub HS2 |
|||
gosub takequick right arm scar |
|||
} |
|||
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right arm |
|||
gosub HS2 |
|||
gosub takequick internal right arm scar |
|||
} |
|||
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left arm |
|||
gosub HW2 |
|||
gosub takequick left arm |
|||
} |
|||
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left arm |
|||
gosub HW2 |
|||
gosub takequick internal left arm |
|||
} |
|||
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left arm |
|||
gosub HS2 |
|||
gosub takequick left arm scar |
|||
} |
|||
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left arm |
|||
gosub HS2 |
|||
gosub takequick internal left arm scar |
|||
} |
|||
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right hand |
|||
gosub HW2 |
|||
gosub takequick right hand |
|||
} |
|||
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right hand |
|||
gosub HW2 |
|||
gosub takequick internal right hand |
|||
} |
|||
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right hand |
|||
gosub HS2 |
|||
gosub takequick right hand scar |
|||
} |
|||
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right hand |
|||
gosub HS2 |
|||
gosub takequick internal right hand scar |
|||
} |
|||
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left hand |
|||
gosub HW2 |
|||
gosub takequick left hand |
|||
} |
|||
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left hand |
|||
gosub HW2 |
|||
gosub takequick internal left hand |
|||
} |
|||
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left hand |
|||
gosub HS2 |
|||
gosub takequick left hand scar |
|||
} |
|||
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left hand |
|||
gosub HS2 |
|||
gosub takequick internal left hand scar |
|||
} |
|||
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part right leg |
|||
gosub HW2 |
|||
gosub takequick right leg |
|||
} |
|||
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part right leg |
|||
gosub HW2 |
|||
gosub takequick internal right leg |
|||
} |
|||
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part right leg |
|||
gosub HS2 |
|||
gosub takequick right leg scar |
|||
} |
|||
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part right leg |
|||
gosub HS2 |
|||
gosub takequick internal right leg scar |
|||
} |
|||
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part left leg |
|||
gosub HW2 |
|||
gosub takequick left leg |
|||
} |
|||
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part left leg |
|||
gosub HW2 |
|||
gosub takequick internal left leg |
|||
} |
|||
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part left leg |
|||
gosub HS2 |
|||
gosub takequick left leg scar |
|||
} |
|||
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part left leg |
|||
gosub HS2 |
|||
gosub takequick internal left leg scar |
|||
} |
|||
if %SKIN_EW > 0 && %SKIN_MYEW > 12 then |
|||
{ |
|||
var location external |
|||
var part skin |
|||
gosub HW2 |
|||
gosub takequick skin |
|||
} |
|||
if %SKIN_IW > 0 && %SKIN_MYIW > 12 then |
|||
{ |
|||
var location internal |
|||
var part skin |
|||
gosub HW |
|||
gosub takequick internal skin |
|||
} |
|||
if %SKIN_ES > 0 && %SKIN_MYES > 12 then |
|||
{ |
|||
var location external |
|||
var part skin |
|||
gosub HS2 |
|||
gosub takequick skin scar |
|||
} |
|||
if %SKIN_IS > 0 && %SKIN_MYIS > 12 then |
|||
{ |
|||
var location internal |
|||
var part skin |
|||
gosub HS |
|||
gosub takequick internal skin scar |
|||
} |
|||
if %COMBHEAD_EW> 0 && %COMBHEAD_EW< 12 && %HEAD_EW> 0 then |
|||
{ |
|||
gosub takequick head |
|||
} |
|||
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then |
|||
{ |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES> 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then |
|||
{ |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS> 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then |
|||
{ |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_EW> 0 && %COMBNECK_EW< 12 && %NECK_EW> 0 then |
|||
{ |
|||
gosub takequick neck |
|||
} |
|||
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then |
|||
{ |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES> 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then |
|||
{ |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS> 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then |
|||
{ |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_EW> 0 && %COMBCHEST_EW< 12 && %CHEST_EW> 0 then |
|||
{ |
|||
gosub takequick chest |
|||
} |
|||
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then |
|||
{ |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES> 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then |
|||
{ |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS> 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then |
|||
{ |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_EW> 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW> 0 then |
|||
{ |
|||
gosub takequick abdomen |
|||
} |
|||
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then |
|||
{ |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES> 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then |
|||
{ |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS> 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then |
|||
{ |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_EW> 0 && %COMBBACK_EW< 12 && %BACK_EW> 0 then |
|||
{ |
|||
gosub takequick back |
|||
} |
|||
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then |
|||
{ |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES> 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then |
|||
{ |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS> 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then |
|||
{ |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_EW> 0 && %COMBTAIL_EW< 12 && %TAIL_EW> 0 then |
|||
{ |
|||
gosub takequick tail |
|||
} |
|||
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then |
|||
{ |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES> 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then |
|||
{ |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS> 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then |
|||
{ |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %COMBHEAD_EW> 11 && %HEAD_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
gosub HW2 |
|||
gosub takequick head |
|||
} |
|||
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
gosub HW2 |
|||
gosub takequick internal head |
|||
} |
|||
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
gosub HS2 |
|||
gosub takequick head scar |
|||
} |
|||
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
gosub HS2 |
|||
gosub takequick internal head scar |
|||
} |
|||
if %COMBNECK_EW> 11 && %NECK_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
gosub HW2 |
|||
gosub takequick neck |
|||
} |
|||
if %COMBNECK_IW> 11 && %NECK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
gosub HW2 |
|||
gosub takequick internal neck |
|||
} |
|||
if %COMBNECK_ES> 11 && %NECK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
gosub HS2 |
|||
gosub takequick neck scar |
|||
} |
|||
if %COMBNECK_IS> 11 && %NECK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
gosub HS2 |
|||
gosub takequick internal neck scar |
|||
} |
|||
if %COMBCHEST_EW> 11 && %CHEST_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
gosub HW2 |
|||
gosub takequick chest |
|||
} |
|||
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
gosub HW2 |
|||
gosub takequick internal chest |
|||
} |
|||
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
gosub HS2 |
|||
gosub takequick chest scar |
|||
} |
|||
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
gosub HS2 |
|||
gosub takequick internal chest scar |
|||
} |
|||
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
gosub HW2 |
|||
gosub takequick abdomen |
|||
} |
|||
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
gosub HW2 |
|||
gosub takequick internal abdomen |
|||
} |
|||
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
gosub HS2 |
|||
gosub takequick abdomen scar |
|||
} |
|||
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
gosub HS2 |
|||
gosub takequick internal abdomen scar |
|||
} |
|||
if %COMBBACK_EW> 11 && %BACK_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
gosub HW2 |
|||
gosub takequick back |
|||
} |
|||
if %COMBBACK_IW> 11 && %BACK_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
gosub HW2 |
|||
gosub takequick internal back |
|||
} |
|||
if %COMBBACK_ES> 11 && %BACK_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
gosub HS2 |
|||
gosub takequick back scar |
|||
} |
|||
if %COMBBACK_IS> 11 && %BACK_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
gosub HS2 |
|||
gosub takequick internal back scar |
|||
} |
|||
if %COMBTAIL_EW> 11 && %TAIL_EW< 12 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
gosub HW2 |
|||
gosub takequick tail |
|||
} |
|||
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
gosub HW2 |
|||
gosub takequick internal tail |
|||
} |
|||
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
gosub HS2 |
|||
gosub takequick tail scar |
|||
} |
|||
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
gosub HS2 |
|||
gosub takequick internal tail scar |
|||
} |
|||
if %HEAD_MYEW< 5 && %HEAD_EW> 11 then |
|||
{ |
|||
gosub takehalf head |
|||
} |
|||
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then |
|||
{ |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES< 5 && %HEAD_ES> 11 then |
|||
{ |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS< 5 && %HEAD_IS> 11 then |
|||
{ |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYEW< 5 && %NECK_EW> 11 then |
|||
{ |
|||
gosub takehalf neck |
|||
} |
|||
if %NECK_MYIW< 5 && %NECK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES< 5 && %NECK_ES> 11 then |
|||
{ |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS< 5 && %NECK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYEW< 5 && %CHEST_EW> 11 then |
|||
{ |
|||
gosub takehalf chest |
|||
} |
|||
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then |
|||
{ |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES< 5 && %CHEST_ES> 11 then |
|||
{ |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS< 5 && %CHEST_IS> 11 then |
|||
{ |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYEW< 5 && %ABDOMEN_EW> 11 then |
|||
{ |
|||
gosub takehalf abdomen |
|||
} |
|||
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES< 5 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS< 5 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYEW< 5 && %BACK_EW> 11 then |
|||
{ |
|||
gosub takehalf back |
|||
} |
|||
if %BACK_MYIW< 5 && %BACK_IW> 11 then |
|||
{ |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES< 5 && %BACK_ES> 11 then |
|||
{ |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS< 5 && %BACK_IS> 11 then |
|||
{ |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYEW< 5 && %TAIL_EW> 11 then |
|||
{ |
|||
gosub takehalf tail |
|||
} |
|||
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then |
|||
{ |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES< 5 && %TAIL_ES> 11 then |
|||
{ |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS< 5 && %TAIL_IS> 11 then |
|||
{ |
|||
gosub takehalf internal tail scar |
|||
} |
|||
if %HEAD_MYEW> 4 && %HEAD_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
gosub HW2 |
|||
gosub takehalf head |
|||
} |
|||
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
gosub HW2 |
|||
gosub takehalf internal head |
|||
} |
|||
if %HEAD_MYES> 4 && %HEAD_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part head |
|||
gosub HS2 |
|||
gosub takehalf head scar |
|||
} |
|||
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part head |
|||
gosub HS2 |
|||
gosub takehalf internal head scar |
|||
} |
|||
if %NECK_MYEW> 4 && %NECK_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
gosub HW2 |
|||
gosub takehalf neck |
|||
} |
|||
if %NECK_MYIW> 4 && %NECK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
gosub HW2 |
|||
gosub takehalf internal neck |
|||
} |
|||
if %NECK_MYES> 4 && %NECK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part neck |
|||
gosub HS2 |
|||
gosub takehalf neck scar |
|||
} |
|||
if %NECK_MYIS> 4 && %NECK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part neck |
|||
gosub HS2 |
|||
gosub takehalf internal neck scar |
|||
} |
|||
if %CHEST_MYEW> 4 && %CHEST_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
gosub HW2 |
|||
gosub takehalf chest |
|||
} |
|||
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
gosub HW2 |
|||
gosub takehalf internal chest |
|||
} |
|||
if %CHEST_MYES> 4 && %CHEST_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part chest |
|||
gosub HS2 |
|||
gosub takehalf chest scar |
|||
} |
|||
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part chest |
|||
gosub HS2 |
|||
gosub takehalf internal chest scar |
|||
} |
|||
if %ABDOMEN_MYEW> 4 && %ABDOMEN_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
gosub HW2 |
|||
gosub takehalf abdomen |
|||
} |
|||
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
gosub HW2 |
|||
gosub takehalf internal abdomen |
|||
} |
|||
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part abdomen |
|||
gosub HS2 |
|||
gosub takehalf abdomen scar |
|||
} |
|||
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part abdomen |
|||
gosub HS2 |
|||
gosub takehalf internal abdomen scar |
|||
} |
|||
if %BACK_MYEW> 4 && %BACK_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
gosub HW2 |
|||
gosub takehalf back |
|||
} |
|||
if %BACK_MYIW> 4 && %BACK_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
gosub HW2 |
|||
gosub takehalf internal back |
|||
} |
|||
if %BACK_MYES> 4 && %BACK_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part back |
|||
gosub HS2 |
|||
gosub takehalf back scar |
|||
} |
|||
if %BACK_MYIS> 4 && %BACK_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part back |
|||
gosub HS2 |
|||
gosub takehalf internal back scar |
|||
} |
|||
if %TAIL_MYEW> 4 && %TAIL_EW> 11 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
gosub HW2 |
|||
gosub takehalf tail |
|||
} |
|||
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
gosub HW2 |
|||
gosub takehalf internal tail |
|||
} |
|||
if %TAIL_MYES> 4 && %TAIL_ES> 11 then |
|||
{ |
|||
var location external |
|||
var part tail |
|||
gosub HS2 |
|||
gosub takehalf tail scar |
|||
} |
|||
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then |
|||
{ |
|||
var location internal |
|||
var part tail |
|||
gosub HS2 |
|||
gosub takehalf internal tail scar |
|||
} |
|||
goto loop |
|||
takequick: |
|||
return |
|||
takehalf: |
|||
return |
|||
HW: |
|||
echo ***** You need to heal your %location %part wound. ***** |
|||
return |
|||
HW2: |
|||
echo ***** You need to heal your %location %part wound. ***** |
|||
return |
|||
HS: |
|||
echo ***** You need to heal your %location %part scar. ***** |
|||
return |
|||
HS2: |
|||
echo ***** You need to heal your %location %part scar. ***** |
|||
return |
|||
return: |
|||
return |
|||
loop: |
|||
if $bleeding = 1 then |
|||
{ |
|||
gosub tendstart |
|||
} |
|||
goto done |
|||
tendstart: |
|||
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 |
|||
return |
|||
tend: |
|||
send tend my $0 |
|||
waitforre ^You work|^That area|^Look again|^Your .+ too injured |
|||
return |
|||
done: |
|||
put #play ScriptEnd |
|||
put #parse PATIENT HEALED</pre> |
|||
==Fast Scripts (Caution!)== |
|||
===Take Everything=== |
|||
<pre></pre> |
|||
===Take Everything Quick=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
PatientWounds: |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
send take %1 everything |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
exit</pre> |
|||
===Take Most Quick=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
PatientWounds: |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
send take %1 quick all internals |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
send take %1 quick all scars |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
exit</pre> |
|||
===Take Scars Quick=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
PatientWounds: |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
send take %1 quick all scars |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
exit</pre> |
|||
===Instant Patient Healing (Unity Link)=== |
|||
<pre>put #window close Familiar |
|||
var LOOP 0 |
|||
var poison 1 |
|||
var disease 1 |
|||
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison |
|||
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease |
|||
put #var patient %1 |
|||
PatientWounds: |
|||
send touch %1 |
|||
waitforre /^%1.+ vitality/i |
|||
if %poison = 1 then |
|||
{ |
|||
send take %1 quick poison |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
if %disease = 1 then |
|||
{ |
|||
send take %1 quick disease |
|||
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1 |
|||
} |
|||
send link %1 unity |
|||
pause |
|||
put #play ScriptEnd |
|||
put #parse PATIENT HEALED |
|||
exit</pre> |
|||
Latest revision as of 21:03, 16 May 2017
| Patient Healing Suite (script) | |
|---|---|
| Category | utility,Empath |
| Front-end | Genie |
| Author | Isharon |
Description
This script is a script for advanced Empaths that is designed to safely transfer wounds without over-healing. I began writing this script several months ago, but hidden wounds posed the risk of death until the PERCEIVE HEALTH SELF command was released. Since then, the script has not let me die.
This script should not be used by Empaths who are incapable of using TAKE QUICK and TAKE HALF. If you lose control while trying to take half of a wound, you may die. If you are not using worn cambrinth, you will have to make some modifications to the magic subroutines.
For self-healing, see Empath Self-Healing Suite (script).
Process
First, it checks whether Refresh is in effect by checking the Refresh variable (triggered by either the power perceive messaging or the spell messaging).
If Refresh is not in effect, it casts Refresh before proceeding. Then it checks your vitality. If it's less than 60%, it will cast Vitality Healing.
Then it sets variables between 0 and 13 for all of the patient's injuries (using the TOUCH output) and the Empath's injuries to critical parts (using the PERCEIVE HEALTH SELF output).
- insignificant
- negligible
- minor
- more than minor
- harmful
- very harmful
- damaging
- very damaging
- severe
- very severe
- devastating
- very devastating
- useless
After it sets the wound variables for patient and Empath, it adds the values for critical parts. If the value is greater than 11, an anti-over-healing mechanism is triggered. (Technically, a value of 12 should be survivable, but I erred on the side of caution by setting it to 11.)
Each wound can be handled in one of the following ways:
- non-critical part <14 -> take quick
- non-critical part >13 -> heal self -> take quick
- combined wound <12 -> take quick
- combined wound >11 & patient's wound <12 -> heal self -> take quick
- patient's wound >11 & my wound <5 -> take half
- patient's wound >11 & my wound >4 -> heal self -> take half
When the script decides to heal the Empath's head wound or scar, it harnesses instead of using cambrinth. (If the head wound is damaging or worse, it's impossible to focus on cambrinth.)
At the end of the script, it checks whether you need to tend any wounds, pauses for 10 seconds (to let the wound transfers run their course) and then restarts. (Do not shorten this pause. If the wound variables reset before the wounds have completely transferred, you might over-heal.) The script will loop until the patient is fully healed.
Instructions
Syntax
.TAKE [PATIENT]: The script is case-sensitive. (In other words, if your patient's name is Isharon, you must type Isharon, not ish or isharon. However, you don't have to type the entire name, so Isha would work. (In Genie, you can quickly copy your patient's name to the clipboard by double-clicking it.)
Required Genie Settings
This script relies on triggers to set spell variables and to handle certain issues, such as being knocked over from healing.
#trigger {^Closing the (WIZARD|STORMFRONT) front end|^Your death cry echoes in your brain|^You feel the surge of energy within you ebb away\.$} {#var REFRESH OFF} {buff}
#trigger {^You sense the Refresh spell upon you, which will last for|^Soft waves of a gentle, warm peach color flicker around you\.$|^A surge of renewed strength runs through you, replacing the previous sensation\.$|^You are already being bolstered by a more powerful cast of the refresh spell\.$} {#var REFRESH ON} {buff}
#trigger {^You are unable to take any more wounds from the (.+)\.} {#echo >log #FF0000 You can't transfer more wounds to your $1.}
#trigger {^You can't do that while (kneeling|lying|sitting)|^You must be standing to do that|^You must stand first|^You'll need to stand up} {#send stand;#send $lastcommand}
#trigger {^You can't heal while lying down on the job|^You fall screaming to the ground} {#send sit}
#trigger {^You have no empathic link with .+ and cannot transfer (his|her) wounds} {#send touch $1}
#trigger {you cannot manage to stand} {#send sit;send stand}
The script sometimes uses cambrinth (worn or held). You need to open your character's variables file and add a variable for cambrinth:
#var {cambrinth} {your cambrinth}
Healing Aliases
#alias {brka} {break all}
#alias {etaq} {.takequick_all2 $1}
#alias {eta} {.takequick_all $1}
#alias {eti} {.takequick_most $1}
#alias {etl} {#window close Familiar;.takel $1}
#alias {etm} {#window close Familiar;.takemost $1}
#alias {ets} {.takequick_scars $1}
#alias {etu} {.takequick_unity $1}
#alias {healed} {whisper $patient You are fully healed.}
#alias {healf} {whisper $1 Do you want to be fully healed, or would you rather keep tending your bleeders?}
#alias {holdl} {language Common;'/smugly $patient will hold life.}
#alias {hq} {whisper $1 Do you want to be healed?}
#alias {ph} {#window close Familiar;perceive health self}
#alias {tabp} {#window close Familiar;take $patient abdomen part quick}
#alias {tdis} {#window close Familiar;take $patient quick disease}
#alias {tphc} {#window close Familiar;link all hodierna cancel}
#alias {tph} {#window close Familiar;link $patient hodierna}
#alias {tpl} {#window close Familiar;touch $patient;link $patient persistent}
#alias {tpoi} {#window close Familiar;take $patient quick poison}
#alias {tp} {#window close Familiar;#var patient $1;touch $patient}
#alias {tvit} {#window close Familiar;touch $patient;take $patient vitality quick}
#alias {whole} {language Common;'/smugly The body of $patient is whole.}
#alias {wrdc} {redirect cancel}
#alias {wrd} {redirect all to $0}
Caveats
- This script will not always prevent you from bleeding to death. If you are going to have a lot of bleeders that you can't tend, I recommend casting Blood Staunching first.
- If you are not using worn cambrinth, you may want to avoid allowing both your right and left arm or hand to become so injured that you can't hold items. Because the healing subroutines won't end until you get the "appears completely healed" messaging, I don't think that this mistake would be lethal, but it could significantly slow the script. (It would cause you to cast spells without charging cambrinth or harnessing.)
Changelog
- 6/25/2016: Fixed some hangups due to variations in the touch messaging; added #parse PATIENT HEALED to the end of each script so that they can be more easily run by other scripts.
- 9/16/2015: Added additional script versions
- 11/15/2013: Fixed hangup at end of performance; Added sound alert to end of script.
- 4/7/2013: Fixed potentially lethal error that sometimes ended self-healing prematurely.
- 2/22/2013: More Empaths 3.0 tweaks/fixes.
- 2/9/2013: Updated for Empaths 3.0.
- 1/29/2012: Fixed bug that prevented "massive stream" bleeders from being tended.
- 1/4/2012: Changed "takehalf" subroutine to use quick mode.
- 6/5/2011: Updated the Refresh triggers to work with the Geniehunter buffing add-on.
- 4/12/2011: Typing the patient's whole name is no longer required. (The script is still case-sensitive.) If you are using the $patient variable, it's best to type the whole name.
- 4/3/2011: Fixed bug that prevented "massive" bleeders from being tended.
- 3/14/2011: This script will now heal your useless-level wounds to non-vital areas. (Previously, the script looped infinitely if you couldn't transfer additional wounds to one of these areas.)
- 2/26/2011: I added an action that will immediately end the script if the person has no injuries, even if the script is not at the part where it checks whether you're done.
- 2/11/2011: The script will now only attempt to tend wounds that need to be tended.
- 2/10/2011: The script will now tell you how many times it has looped. I also removed some unnecessary variable setting.
- 2/4/2011: The script no longer checks your scars before healing your wounds. (This is not necessary; you can't die from scars unless you are transferring scars from a patient.) The script also uses harness instead of cambrinth, which saves a few seconds of roundtime.
Safe Scripts
Living Patient: Take All
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action send touch %1 when ^You have no empathic link
action goto done when ^\.\.\. no injuries to speak of
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
refreshcheck:
if $REFRESH = OFF && $Courage = OFF then
{
gosub refresh
}
vhcheck:
if $health < 60 then
{
gosub vh
}
start:
var head.bleed 0
var neck.bleed 0
var chest.bleed 0
var abdo.bleed 0
var back.bleed 0
var tail.bleed 0
var rarm.bleed 0
var larm.bleed 0
var rhnd.bleed 0
var lhnd.bleed 0
var rleg.bleed 0
var lleg.bleed 0
var reye.bleed 0
var leye.bleed 0
var HEAD_MYEW 0
var HEAD_MYIW 0
var HEAD_MYES 0
var HEAD_MYIS 0
var NECK_MYEW 0
var NECK_MYIW 0
var NECK_MYES 0
var NECK_MYIS 0
var CHEST_MYEW 0
var CHEST_MYIW 0
var CHEST_MYES 0
var CHEST_MYIS 0
var ABDOMEN_MYEW 0
var ABDOMEN_MYIW 0
var ABDOMEN_MYES 0
var ABDOMEN_MYIS 0
var BACK_MYEW 0
var BACK_MYIW 0
var BACK_MYES 0
var BACK_MYIS 0
var TAIL_MYEW 0
var TAIL_MYIW 0
var TAIL_MYES 0
var TAIL_MYIS 0
var RIGHT_EYE_MYEW 0
var RIGHT_EYE_MYIW 0
var RIGHT_EYE_MYES 0
var RIGHT_EYE_MYIS 0
var LEFT_EYE_MYEW 0
var LEFT_EYE_MYIW 0
var LEFT_EYE_MYES 0
var LEFT_EYE_MYIS 0
var RIGHT_ARM_MYEW 0
var RIGHT_ARM_MYIW 0
var RIGHT_ARM_MYES 0
var RIGHT_ARM_MYIS 0
var LEFT_ARM_MYEW 0
var LEFT_ARM_MYIW 0
var LEFT_ARM_MYES 0
var LEFT_ARM_MYIS 0
var RIGHT_HAND_MYEW 0
var RIGHT_HAND_MYIW 0
var RIGHT_HAND_MYES 0
var RIGHT_HAND_MYIS 0
var LEFT_HAND_MYEW 0
var LEFT_HAND_MYIW 0
var LEFT_HAND_MYES 0
var LEFT_HAND_MYIS 0
var RIGHT_LEG_MYEW 0
var RIGHT_LEG_MYIW 0
var RIGHT_LEG_MYES 0
var RIGHT_LEG_MYIS 0
var LEFT_LEG_MYEW 0
var LEFT_LEG_MYIW 0
var LEFT_LEG_MYES 0
var LEFT_LEG_MYIS 0
var SKIN_MYEW 0
var SKIN_MYIW 0
var SKIN_MYES 0
var SKIN_MYIS 0
var HEAD_EW 0
var HEAD_IW 0
var HEAD_ES 0
var HEAD_IS 0
var NECK_EW 0
var NECK_IW 0
var NECK_ES 0
var NECK_IS 0
var CHEST_EW 0
var CHEST_IW 0
var CHEST_ES 0
var CHEST_IS 0
var ABDOMEN_EW 0
var ABDOMEN_IW 0
var ABDOMEN_ES 0
var ABDOMEN_IS 0
var BACK_EW 0
var BACK_IW 0
var BACK_ES 0
var BACK_IS 0
var TAIL_EW 0
var TAIL_IW 0
var TAIL_ES 0
var TAIL_IS 0
var RIGHT_EYE_EW 0
var RIGHT_EYE_IW 0
var RIGHT_EYE_ES 0
var RIGHT_EYE_IS 0
var LEFT_EYE_EW 0
var LEFT_EYE_IW 0
var LEFT_EYE_ES 0
var LEFT_EYE_IS 0
var RIGHT_ARM_EW 0
var RIGHT_ARM_IW 0
var RIGHT_ARM_ES 0
var RIGHT_ARM_IS 0
var LEFT_ARM_EW 0
var LEFT_ARM_IW 0
var LEFT_ARM_ES 0
var LEFT_ARM_IS 0
var RIGHT_HAND_EW 0
var RIGHT_HAND_IW 0
var RIGHT_HAND_ES 0
var RIGHT_HAND_IS 0
var LEFT_HAND_EW 0
var LEFT_HAND_IW 0
var LEFT_HAND_ES 0
var LEFT_HAND_IS 0
var RIGHT_LEG_EW 0
var RIGHT_LEG_IW 0
var RIGHT_LEG_ES 0
var RIGHT_LEG_IS 0
var LEFT_LEG_EW 0
var LEFT_LEG_IW 0
var LEFT_LEG_ES 0
var LEFT_LEG_IS 0
var SKIN_EW 0
var SKIN_IW 0
var SKIN_ES 0
var SKIN_IS 0
pause
EmpathWounds:
send perceive health self
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$
waitforre ^You .+ vitality
wait
pause
PatientWounds:
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$
action setvariable poison 1 when ^(He|She).+poison
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
CombinedWounds:
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS
pause
math LOOP add 1
echo ***** Wound variables set! Starting round %LOOP. *****
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW < 13 then
{
gosub takequick right eye
}
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW < 13 then
{
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES < 13 then
{
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS < 13 then
{
gosub takequick internal right eye scar
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW < 13 then
{
gosub takequick left eye
}
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW < 13 then
{
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES < 13 then
{
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS < 13 then
{
gosub takequick internal left eye scar
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW < 13 then
{
gosub takequick right arm
}
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW < 13 then
{
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES < 13 then
{
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS < 13 then
{
gosub takequick internal right arm scar
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW < 13 then
{
gosub takequick left arm
}
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW < 13 then
{
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES < 13 then
{
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS < 13 then
{
gosub takequick internal left arm scar
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW < 13 then
{
gosub takequick right hand
}
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW < 13 then
{
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES < 13 then
{
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS < 13 then
{
gosub takequick internal right hand scar
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW < 13 then
{
gosub takequick left hand
}
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW < 13 then
{
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES < 13 then
{
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS < 13 then
{
gosub takequick internal left hand scar
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW < 13 then
{
gosub takequick right leg
}
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW < 13 then
{
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES < 13 then
{
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS < 13 then
{
gosub takequick internal right leg scar
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW < 13 then
{
gosub takequick left leg
}
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW < 13 then
{
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES < 13 then
{
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS < 13 then
{
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 && %SKIN_MYEW < 13 then
{
gosub takequick skin
}
if %SKIN_IW > 0 && %SKIN_MYIW < 13 then
{
gosub takequick internal skin
}
if %SKIN_ES > 0 && %SKIN_MYES < 13 then
{
gosub takequick skin scar
}
if %SKIN_IS > 0 && %SKIN_MYIS < 13 then
{
gosub takequick internal skin scar
}
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW > 12 then
{
var location external
var part right eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right eye
}
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW > 12 then
{
var location internal
var part right eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES > 12 then
{
var location external
var part right eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS > 12 then
{
var location internal
var part right eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right eye scar
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW > 12 then
{
var location external
var part left eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left eye
}
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW > 12 then
{
var location internal
var part left eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES > 12 then
{
var location external
var part left eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS > 12 then
{
var location internal
var part left eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left eye scar
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW > 12 then
{
var location external
var part right arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right arm
}
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW > 12 then
{
var location internal
var part right arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES > 12 then
{
var location external
var part right arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS > 12 then
{
var location internal
var part right arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right arm scar
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW > 12 then
{
var location external
var part left arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left arm
}
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW > 12 then
{
var location internal
var part left arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES > 12 then
{
var location external
var part left arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS > 12 then
{
var location internal
var part left arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left arm scar
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW > 12 then
{
var location external
var part right hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right hand
}
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW > 12 then
{
var location internal
var part right hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES > 12 then
{
var location external
var part right hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS > 12 then
{
var location internal
var part right hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right hand scar
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW > 12 then
{
var location external
var part left hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left hand
}
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW > 12 then
{
var location internal
var part left hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES > 12 then
{
var location external
var part left hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS > 12 then
{
var location internal
var part left hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left hand scar
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW > 12 then
{
var location external
var part right leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right leg
}
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW > 12 then
{
var location internal
var part right leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES > 12 then
{
var location external
var part right leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS > 12 then
{
var location internal
var part right leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right leg scar
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW > 12 then
{
var location external
var part left leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left leg
}
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW > 12 then
{
var location internal
var part left leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES > 12 then
{
var location external
var part left leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS > 12 then
{
var location internal
var part left leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 && %SKIN_MYEW > 12 then
{
var location external
var part skin
echo ***** You need to heal your skin wound before you can transfer more of %1's skin wound. Now healing your skin wound. *****
gosub HW2
send touch %1
gosub takequick skin
}
if %SKIN_IW > 0 && %SKIN_MYIW > 12 then
{
var location internal
var part skin
echo ***** You need to heal your nerve wound before you can transfer more of %1's skin wound. Now healing your skin wound. *****
gosub HW
send touch %1
gosub takequick internal skin
}
if %SKIN_ES > 0 && %SKIN_MYES > 12 then
{
var location external
var part skin
echo ***** You need to heal your skin scar before you can transfer more of %1's skin scar. Now healing your skin scar. *****
gosub HS2
send touch %1
gosub takequick skin scar
}
if %SKIN_IS > 0 && %SKIN_MYIS > 12 then
{
var location internal
var part skin
echo ***** You need to heal your nerve scar before you can transfer more of %1's skin scar. Now healing your skin scar. *****
gosub HS
send touch %1
gosub takequick internal skin scar
}
if %COMBHEAD_EW> 0 && %COMBHEAD_EW< 12 && %HEAD_EW> 0 then
{
gosub takequick head
}
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then
{
gosub takequick internal head
}
if %COMBHEAD_ES> 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then
{
gosub takequick head scar
}
if %COMBHEAD_IS> 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then
{
gosub takequick internal head scar
}
if %COMBNECK_EW> 0 && %COMBNECK_EW< 12 && %NECK_EW> 0 then
{
gosub takequick neck
}
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then
{
gosub takequick internal neck
}
if %COMBNECK_ES> 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then
{
gosub takequick neck scar
}
if %COMBNECK_IS> 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then
{
gosub takequick internal neck scar
}
if %COMBCHEST_EW> 0 && %COMBCHEST_EW< 12 && %CHEST_EW> 0 then
{
gosub takequick chest
}
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then
{
gosub takequick internal chest
}
if %COMBCHEST_ES> 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then
{
gosub takequick chest scar
}
if %COMBCHEST_IS> 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then
{
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW> 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW> 0 then
{
gosub takequick abdomen
}
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then
{
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then
{
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then
{
gosub takequick internal abdomen scar
}
if %COMBBACK_EW> 0 && %COMBBACK_EW< 12 && %BACK_EW> 0 then
{
gosub takequick back
}
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then
{
gosub takequick internal back
}
if %COMBBACK_ES> 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then
{
gosub takequick back scar
}
if %COMBBACK_IS> 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then
{
gosub takequick internal back scar
}
if %COMBTAIL_EW> 0 && %COMBTAIL_EW< 12 && %TAIL_EW> 0 then
{
gosub takequick tail
}
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then
{
gosub takequick internal tail
}
if %COMBTAIL_ES> 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then
{
gosub takequick tail scar
}
if %COMBTAIL_IS> 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then
{
gosub takequick internal tail scar
}
if %COMBHEAD_EW> 11 && %HEAD_EW< 12 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick head
}
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal head
}
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick head scar
}
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal head scar
}
if %COMBNECK_EW> 11 && %NECK_EW< 12 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick neck
}
if %COMBNECK_IW> 11 && %NECK_IW< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal neck
}
if %COMBNECK_ES> 11 && %NECK_ES< 12 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick neck scar
}
if %COMBNECK_IS> 11 && %NECK_IS< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal neck scar
}
if %COMBCHEST_EW> 11 && %CHEST_EW< 12 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick chest
}
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal chest
}
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick chest scar
}
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW< 12 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick abdomen
}
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal abdomen scar
}
if %COMBBACK_EW> 11 && %BACK_EW< 12 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick back
}
if %COMBBACK_IW> 11 && %BACK_IW< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal back
}
if %COMBBACK_ES> 11 && %BACK_ES< 12 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick back scar
}
if %COMBBACK_IS> 11 && %BACK_IS< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal back scar
}
if %COMBTAIL_EW> 11 && %TAIL_EW< 12 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick tail
}
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal tail
}
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick tail scar
}
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal tail scar
}
if %HEAD_MYEW< 5 && %HEAD_EW> 11 then
{
gosub takehalf head
}
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then
{
gosub takehalf internal head
}
if %HEAD_MYES< 5 && %HEAD_ES> 11 then
{
gosub takehalf head scar
}
if %HEAD_MYIS< 5 && %HEAD_IS> 11 then
{
gosub takehalf internal head scar
}
if %NECK_MYEW< 5 && %NECK_EW> 11 then
{
gosub takehalf neck
}
if %NECK_MYIW< 5 && %NECK_IW> 11 then
{
gosub takehalf internal neck
}
if %NECK_MYES< 5 && %NECK_ES> 11 then
{
gosub takehalf neck scar
}
if %NECK_MYIS< 5 && %NECK_IS> 11 then
{
gosub takehalf internal neck scar
}
if %CHEST_MYEW< 5 && %CHEST_EW> 11 then
{
gosub takehalf chest
}
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then
{
gosub takehalf internal chest
}
if %CHEST_MYES< 5 && %CHEST_ES> 11 then
{
gosub takehalf chest scar
}
if %CHEST_MYIS< 5 && %CHEST_IS> 11 then
{
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW< 5 && %ABDOMEN_EW> 11 then
{
gosub takehalf abdomen
}
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then
{
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES< 5 && %ABDOMEN_ES> 11 then
{
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS< 5 && %ABDOMEN_IS> 11 then
{
gosub takehalf internal abdomen scar
}
if %BACK_MYEW< 5 && %BACK_EW> 11 then
{
gosub takehalf back
}
if %BACK_MYIW< 5 && %BACK_IW> 11 then
{
gosub takehalf internal back
}
if %BACK_MYES< 5 && %BACK_ES> 11 then
{
gosub takehalf back scar
}
if %BACK_MYIS< 5 && %BACK_IS> 11 then
{
gosub takehalf internal back scar
}
if %TAIL_MYEW< 5 && %TAIL_EW> 11 then
{
gosub takehalf tail
}
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then
{
gosub takehalf internal tail
}
if %TAIL_MYES< 5 && %TAIL_ES> 11 then
{
gosub takehalf tail scar
}
if %TAIL_MYIS< 5 && %TAIL_IS> 11 then
{
gosub takehalf internal tail scar
}
if %HEAD_MYEW> 4 && %HEAD_EW> 11 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf head
}
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal head
}
if %HEAD_MYES> 4 && %HEAD_ES> 11 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf head scar
}
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal head scar
}
if %NECK_MYEW> 4 && %NECK_EW> 11 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf neck
}
if %NECK_MYIW> 4 && %NECK_IW> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal neck
}
if %NECK_MYES> 4 && %NECK_ES> 11 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf neck scar
}
if %NECK_MYIS> 4 && %NECK_IS> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal neck scar
}
if %CHEST_MYEW> 4 && %CHEST_EW> 11 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf chest
}
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal chest
}
if %CHEST_MYES> 4 && %CHEST_ES> 11 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf chest scar
}
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW> 4 && %ABDOMEN_EW> 11 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf abdomen
}
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal abdomen scar
}
if %BACK_MYEW> 4 && %BACK_EW> 11 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf back
}
if %BACK_MYIW> 4 && %BACK_IW> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal back
}
if %BACK_MYES> 4 && %BACK_ES> 11 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf back scar
}
if %BACK_MYIS> 4 && %BACK_IS> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal back scar
}
if %TAIL_MYEW> 4 && %TAIL_EW> 11 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf tail
}
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal tail
}
if %TAIL_MYES> 4 && %TAIL_ES> 11 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf tail scar
}
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal tail scar
}
goto loop
takequick:
send take %1 $0 quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
takehalf:
send take %1 $0 half quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
HW:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW
HW2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW2
HS:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS
HS2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS2
return:
return
loop:
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. *****
pause 5
if $bleeding = 1 then
{
gosub tendstart
}
send touch %1
waitforre /^%1.+ vitality/i
goto start
refresh:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep Refresh
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
VH:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
evalmath HARNESS round((100-$health) / 5)
send prep VH
pause 2
send charge my $cambrinth %HARNESS
wait
pause
send charge my $cambrinth %HARNESS
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
tendstart:
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
return
tend:
send tend my $0
waitforre ^You work|^That area|^Look again|^Your .+ too injured
return
done:
put '}%1 /smugly Good as new!
put #play ScriptEnd
put #parse PATIENT HEALED
Dead Patient: Take All
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action send touch %1 when ^You have no empathic link
action goto done when ^\.\.\. no injuries to speak of
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
refreshcheck:
if $REFRESH = OFF && $Courage = OFF then
{
gosub refresh
}
vhcheck:
if $health < 60 then
{
gosub vh
}
start:
var head.bleed 0
var neck.bleed 0
var chest.bleed 0
var abdo.bleed 0
var back.bleed 0
var tail.bleed 0
var rarm.bleed 0
var larm.bleed 0
var rhnd.bleed 0
var lhnd.bleed 0
var rleg.bleed 0
var lleg.bleed 0
var reye.bleed 0
var leye.bleed 0
var HEAD_MYEW 0
var HEAD_MYIW 0
var HEAD_MYES 0
var HEAD_MYIS 0
var NECK_MYEW 0
var NECK_MYIW 0
var NECK_MYES 0
var NECK_MYIS 0
var CHEST_MYEW 0
var CHEST_MYIW 0
var CHEST_MYES 0
var CHEST_MYIS 0
var ABDOMEN_MYEW 0
var ABDOMEN_MYIW 0
var ABDOMEN_MYES 0
var ABDOMEN_MYIS 0
var BACK_MYEW 0
var BACK_MYIW 0
var BACK_MYES 0
var BACK_MYIS 0
var TAIL_MYEW 0
var TAIL_MYIW 0
var TAIL_MYES 0
var TAIL_MYIS 0
var RIGHT_EYE_MYEW 0
var RIGHT_EYE_MYIW 0
var RIGHT_EYE_MYES 0
var RIGHT_EYE_MYIS 0
var LEFT_EYE_MYEW 0
var LEFT_EYE_MYIW 0
var LEFT_EYE_MYES 0
var LEFT_EYE_MYIS 0
var RIGHT_ARM_MYEW 0
var RIGHT_ARM_MYIW 0
var RIGHT_ARM_MYES 0
var RIGHT_ARM_MYIS 0
var LEFT_ARM_MYEW 0
var LEFT_ARM_MYIW 0
var LEFT_ARM_MYES 0
var LEFT_ARM_MYIS 0
var RIGHT_HAND_MYEW 0
var RIGHT_HAND_MYIW 0
var RIGHT_HAND_MYES 0
var RIGHT_HAND_MYIS 0
var LEFT_HAND_MYEW 0
var LEFT_HAND_MYIW 0
var LEFT_HAND_MYES 0
var LEFT_HAND_MYIS 0
var RIGHT_LEG_MYEW 0
var RIGHT_LEG_MYIW 0
var RIGHT_LEG_MYES 0
var RIGHT_LEG_MYIS 0
var LEFT_LEG_MYEW 0
var LEFT_LEG_MYIW 0
var LEFT_LEG_MYES 0
var LEFT_LEG_MYIS 0
var SKIN_MYEW 0
var SKIN_MYIW 0
var SKIN_MYES 0
var SKIN_MYIS 0
var HEAD_EW 0
var HEAD_IW 0
var HEAD_ES 0
var HEAD_IS 0
var NECK_EW 0
var NECK_IW 0
var NECK_ES 0
var NECK_IS 0
var CHEST_EW 0
var CHEST_IW 0
var CHEST_ES 0
var CHEST_IS 0
var ABDOMEN_EW 0
var ABDOMEN_IW 0
var ABDOMEN_ES 0
var ABDOMEN_IS 0
var BACK_EW 0
var BACK_IW 0
var BACK_ES 0
var BACK_IS 0
var TAIL_EW 0
var TAIL_IW 0
var TAIL_ES 0
var TAIL_IS 0
var RIGHT_EYE_EW 0
var RIGHT_EYE_IW 0
var RIGHT_EYE_ES 0
var RIGHT_EYE_IS 0
var LEFT_EYE_EW 0
var LEFT_EYE_IW 0
var LEFT_EYE_ES 0
var LEFT_EYE_IS 0
var RIGHT_ARM_EW 0
var RIGHT_ARM_IW 0
var RIGHT_ARM_ES 0
var RIGHT_ARM_IS 0
var LEFT_ARM_EW 0
var LEFT_ARM_IW 0
var LEFT_ARM_ES 0
var LEFT_ARM_IS 0
var RIGHT_HAND_EW 0
var RIGHT_HAND_IW 0
var RIGHT_HAND_ES 0
var RIGHT_HAND_IS 0
var LEFT_HAND_EW 0
var LEFT_HAND_IW 0
var LEFT_HAND_ES 0
var LEFT_HAND_IS 0
var RIGHT_LEG_EW 0
var RIGHT_LEG_IW 0
var RIGHT_LEG_ES 0
var RIGHT_LEG_IS 0
var LEFT_LEG_EW 0
var LEFT_LEG_IW 0
var LEFT_LEG_ES 0
var LEFT_LEG_IS 0
var SKIN_EW 0
var SKIN_IW 0
var SKIN_ES 0
var SKIN_IS 0
pause
EmpathWounds:
send perceive health self
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$
waitforre ^You .+ vitality
wait
pause
PatientWounds:
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
CombinedWounds:
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS
pause
math LOOP add 1
echo ***** Wound variables set! Starting round %LOOP. *****
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW < 13 then
{
gosub takequick right eye
}
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW < 13 then
{
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES < 13 then
{
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS < 13 then
{
gosub takequick internal right eye scar
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW < 13 then
{
gosub takequick left eye
}
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW < 13 then
{
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES < 13 then
{
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS < 13 then
{
gosub takequick internal left eye scar
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW < 13 then
{
gosub takequick right arm
}
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW < 13 then
{
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES < 13 then
{
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS < 13 then
{
gosub takequick internal right arm scar
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW < 13 then
{
gosub takequick left arm
}
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW < 13 then
{
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES < 13 then
{
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS < 13 then
{
gosub takequick internal left arm scar
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW < 13 then
{
gosub takequick right hand
}
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW < 13 then
{
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES < 13 then
{
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS < 13 then
{
gosub takequick internal right hand scar
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW < 13 then
{
gosub takequick left hand
}
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW < 13 then
{
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES < 13 then
{
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS < 13 then
{
gosub takequick internal left hand scar
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW < 13 then
{
gosub takequick right leg
}
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW < 13 then
{
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES < 13 then
{
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS < 13 then
{
gosub takequick internal right leg scar
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW < 13 then
{
gosub takequick left leg
}
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW < 13 then
{
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES < 13 then
{
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS < 13 then
{
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 && %SKIN_MYEW < 13 then
{
gosub takequick skin
}
if %SKIN_IW > 0 && %SKIN_MYIW < 13 then
{
gosub takequick internal skin
}
if %SKIN_ES > 0 && %SKIN_MYES < 13 then
{
gosub takequick skin scar
}
if %SKIN_IS > 0 && %SKIN_MYIS < 13 then
{
gosub takequick internal skin scar
}
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW > 12 then
{
var location external
var part right eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right eye
}
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW > 12 then
{
var location internal
var part right eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES > 12 then
{
var location external
var part right eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS > 12 then
{
var location internal
var part right eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right eye scar
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW > 12 then
{
var location external
var part left eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left eye
}
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW > 12 then
{
var location internal
var part left eye
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES > 12 then
{
var location external
var part left eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS > 12 then
{
var location internal
var part left eye
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left eye scar
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW > 12 then
{
var location external
var part right arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right arm
}
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW > 12 then
{
var location internal
var part right arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES > 12 then
{
var location external
var part right arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS > 12 then
{
var location internal
var part right arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right arm scar
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW > 12 then
{
var location external
var part left arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left arm
}
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW > 12 then
{
var location internal
var part left arm
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES > 12 then
{
var location external
var part left arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS > 12 then
{
var location internal
var part left arm
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left arm scar
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW > 12 then
{
var location external
var part right hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right hand
}
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW > 12 then
{
var location internal
var part right hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES > 12 then
{
var location external
var part right hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS > 12 then
{
var location internal
var part right hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right hand scar
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW > 12 then
{
var location external
var part left hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left hand
}
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW > 12 then
{
var location internal
var part left hand
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES > 12 then
{
var location external
var part left hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS > 12 then
{
var location internal
var part left hand
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left hand scar
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW > 12 then
{
var location external
var part right leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick right leg
}
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW > 12 then
{
var location internal
var part right leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES > 12 then
{
var location external
var part right leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS > 12 then
{
var location internal
var part right leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal right leg scar
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW > 12 then
{
var location external
var part left leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick left leg
}
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW > 12 then
{
var location internal
var part left leg
echo ***** You need to heal your %location %part wound before you can transfer more of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES > 12 then
{
var location external
var part left leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS > 12 then
{
var location internal
var part left leg
echo ***** You need to heal your %location %part scar before you can transfer more of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 && %SKIN_MYEW > 12 then
{
var location external
var part skin
echo ***** You need to heal your skin wound before you can transfer more of %1's skin wound. Now healing your skin wound. *****
gosub HW2
send touch %1
gosub takequick skin
}
if %SKIN_IW > 0 && %SKIN_MYIW > 12 then
{
var location internal
var part skin
echo ***** You need to heal your nerve wound before you can transfer more of %1's skin wound. Now healing your skin wound. *****
gosub HW
send touch %1
gosub takequick internal skin
}
if %SKIN_ES > 0 && %SKIN_MYES > 12 then
{
var location external
var part skin
echo ***** You need to heal your skin scar before you can transfer more of %1's skin scar. Now healing your skin scar. *****
gosub HS2
send touch %1
gosub takequick skin scar
}
if %SKIN_IS > 0 && %SKIN_MYIS > 12 then
{
var location internal
var part skin
echo ***** You need to heal your nerve scar before you can transfer more of %1's skin scar. Now healing your skin scar. *****
gosub HS
send touch %1
gosub takequick internal skin scar
}
if %COMBHEAD_EW> 0 && %COMBHEAD_EW< 12 && %HEAD_EW> 0 then
{
gosub takequick head
}
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then
{
gosub takequick internal head
}
if %COMBHEAD_ES> 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then
{
gosub takequick head scar
}
if %COMBHEAD_IS> 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then
{
gosub takequick internal head scar
}
if %COMBNECK_EW> 0 && %COMBNECK_EW< 12 && %NECK_EW> 0 then
{
gosub takequick neck
}
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then
{
gosub takequick internal neck
}
if %COMBNECK_ES> 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then
{
gosub takequick neck scar
}
if %COMBNECK_IS> 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then
{
gosub takequick internal neck scar
}
if %COMBCHEST_EW> 0 && %COMBCHEST_EW< 12 && %CHEST_EW> 0 then
{
gosub takequick chest
}
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then
{
gosub takequick internal chest
}
if %COMBCHEST_ES> 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then
{
gosub takequick chest scar
}
if %COMBCHEST_IS> 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then
{
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW> 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW> 0 then
{
gosub takequick abdomen
}
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then
{
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then
{
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then
{
gosub takequick internal abdomen scar
}
if %COMBBACK_EW> 0 && %COMBBACK_EW< 12 && %BACK_EW> 0 then
{
gosub takequick back
}
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then
{
gosub takequick internal back
}
if %COMBBACK_ES> 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then
{
gosub takequick back scar
}
if %COMBBACK_IS> 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then
{
gosub takequick internal back scar
}
if %COMBTAIL_EW> 0 && %COMBTAIL_EW< 12 && %TAIL_EW> 0 then
{
gosub takequick tail
}
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then
{
gosub takequick internal tail
}
if %COMBTAIL_ES> 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then
{
gosub takequick tail scar
}
if %COMBTAIL_IS> 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then
{
gosub takequick internal tail scar
}
if %COMBHEAD_EW> 11 && %HEAD_EW< 12 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick head
}
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal head
}
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick head scar
}
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal head scar
}
if %COMBNECK_EW> 11 && %NECK_EW< 12 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick neck
}
if %COMBNECK_IW> 11 && %NECK_IW< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal neck
}
if %COMBNECK_ES> 11 && %NECK_ES< 12 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick neck scar
}
if %COMBNECK_IS> 11 && %NECK_IS< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal neck scar
}
if %COMBCHEST_EW> 11 && %CHEST_EW< 12 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick chest
}
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal chest
}
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick chest scar
}
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW< 12 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick abdomen
}
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal abdomen scar
}
if %COMBBACK_EW> 11 && %BACK_EW< 12 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick back
}
if %COMBBACK_IW> 11 && %BACK_IW< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal back
}
if %COMBBACK_ES> 11 && %BACK_ES< 12 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick back scar
}
if %COMBBACK_IS> 11 && %BACK_IS< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal back scar
}
if %COMBTAIL_EW> 11 && %TAIL_EW< 12 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick tail
}
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal tail
}
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick tail scar
}
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal tail scar
}
if %HEAD_MYEW< 5 && %HEAD_EW> 11 then
{
gosub takehalf head
}
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then
{
gosub takehalf internal head
}
if %HEAD_MYES< 5 && %HEAD_ES> 11 then
{
gosub takehalf head scar
}
if %HEAD_MYIS< 5 && %HEAD_IS> 11 then
{
gosub takehalf internal head scar
}
if %NECK_MYEW< 5 && %NECK_EW> 11 then
{
gosub takehalf neck
}
if %NECK_MYIW< 5 && %NECK_IW> 11 then
{
gosub takehalf internal neck
}
if %NECK_MYES< 5 && %NECK_ES> 11 then
{
gosub takehalf neck scar
}
if %NECK_MYIS< 5 && %NECK_IS> 11 then
{
gosub takehalf internal neck scar
}
if %CHEST_MYEW< 5 && %CHEST_EW> 11 then
{
gosub takehalf chest
}
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then
{
gosub takehalf internal chest
}
if %CHEST_MYES< 5 && %CHEST_ES> 11 then
{
gosub takehalf chest scar
}
if %CHEST_MYIS< 5 && %CHEST_IS> 11 then
{
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW< 5 && %ABDOMEN_EW> 11 then
{
gosub takehalf abdomen
}
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then
{
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES< 5 && %ABDOMEN_ES> 11 then
{
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS< 5 && %ABDOMEN_IS> 11 then
{
gosub takehalf internal abdomen scar
}
if %BACK_MYEW< 5 && %BACK_EW> 11 then
{
gosub takehalf back
}
if %BACK_MYIW< 5 && %BACK_IW> 11 then
{
gosub takehalf internal back
}
if %BACK_MYES< 5 && %BACK_ES> 11 then
{
gosub takehalf back scar
}
if %BACK_MYIS< 5 && %BACK_IS> 11 then
{
gosub takehalf internal back scar
}
if %TAIL_MYEW< 5 && %TAIL_EW> 11 then
{
gosub takehalf tail
}
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then
{
gosub takehalf internal tail
}
if %TAIL_MYES< 5 && %TAIL_ES> 11 then
{
gosub takehalf tail scar
}
if %TAIL_MYIS< 5 && %TAIL_IS> 11 then
{
gosub takehalf internal tail scar
}
if %HEAD_MYEW> 4 && %HEAD_EW> 11 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf head
}
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal head
}
if %HEAD_MYES> 4 && %HEAD_ES> 11 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf head scar
}
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal head scar
}
if %NECK_MYEW> 4 && %NECK_EW> 11 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf neck
}
if %NECK_MYIW> 4 && %NECK_IW> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal neck
}
if %NECK_MYES> 4 && %NECK_ES> 11 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf neck scar
}
if %NECK_MYIS> 4 && %NECK_IS> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal neck scar
}
if %CHEST_MYEW> 4 && %CHEST_EW> 11 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf chest
}
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal chest
}
if %CHEST_MYES> 4 && %CHEST_ES> 11 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf chest scar
}
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW> 4 && %ABDOMEN_EW> 11 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf abdomen
}
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal abdomen scar
}
if %BACK_MYEW> 4 && %BACK_EW> 11 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf back
}
if %BACK_MYIW> 4 && %BACK_IW> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal back
}
if %BACK_MYES> 4 && %BACK_ES> 11 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf back scar
}
if %BACK_MYIS> 4 && %BACK_IS> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal back scar
}
if %TAIL_MYEW> 4 && %TAIL_EW> 11 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf tail
}
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal tail
}
if %TAIL_MYES> 4 && %TAIL_ES> 11 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf tail scar
}
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal tail scar
}
goto loop
takequick:
send take %1 $0 quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
takehalf:
send take %1 $0 half quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
HW:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW
HW2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW2
HS:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS
HS2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS2
return:
return
loop:
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. *****
pause 5
if $bleeding = 1 then
{
gosub tendstart
}
send touch %1
waitforre /^%1.+ vitality/i
goto start
refresh:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep Refresh
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
VH:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
evalmath HARNESS round((100-$health) / 5)
send prep VH
pause 2
send charge my $cambrinth %HARNESS
wait
pause
send charge my $cambrinth %HARNESS
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
tendstart:
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
return
tend:
send tend my $0
waitforre ^You work|^That area|^Look again|^Your .+ too injured
return
done:
put language Common
waitforre ^You switch|^But you are already|^You are already
put '/smugly The body of %1 is whole.
put #play ScriptEnd
put #parse PATIENT HEALED
Dead Patient: Hold Life
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action send touch %1 when ^You have no empathic link
action goto done when ^\.\.\. no injuries to speak of
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
refreshcheck:
if $REFRESH = OFF && $Courage = OFF then
{
gosub refresh
}
vhcheck:
if $health < 60 then
{
gosub vh
}
start:
var head.bleed 0
var neck.bleed 0
var chest.bleed 0
var abdo.bleed 0
var back.bleed 0
var tail.bleed 0
var rarm.bleed 0
var larm.bleed 0
var rhnd.bleed 0
var lhnd.bleed 0
var rleg.bleed 0
var lleg.bleed 0
var reye.bleed 0
var leye.bleed 0
var HEAD_MYEW 0
var HEAD_MYIW 0
var HEAD_MYES 0
var HEAD_MYIS 0
var NECK_MYEW 0
var NECK_MYIW 0
var NECK_MYES 0
var NECK_MYIS 0
var CHEST_MYEW 0
var CHEST_MYIW 0
var CHEST_MYES 0
var CHEST_MYIS 0
var ABDOMEN_MYEW 0
var ABDOMEN_MYIW 0
var ABDOMEN_MYES 0
var ABDOMEN_MYIS 0
var BACK_MYEW 0
var BACK_MYIW 0
var BACK_MYES 0
var BACK_MYIS 0
var TAIL_MYEW 0
var TAIL_MYIW 0
var TAIL_MYES 0
var TAIL_MYIS 0
var RIGHT_EYE_MYEW 0
var RIGHT_EYE_MYIW 0
var RIGHT_EYE_MYES 0
var RIGHT_EYE_MYIS 0
var LEFT_EYE_MYEW 0
var LEFT_EYE_MYIW 0
var LEFT_EYE_MYES 0
var LEFT_EYE_MYIS 0
var RIGHT_ARM_MYEW 0
var RIGHT_ARM_MYIW 0
var RIGHT_ARM_MYES 0
var RIGHT_ARM_MYIS 0
var LEFT_ARM_MYEW 0
var LEFT_ARM_MYIW 0
var LEFT_ARM_MYES 0
var LEFT_ARM_MYIS 0
var RIGHT_HAND_MYEW 0
var RIGHT_HAND_MYIW 0
var RIGHT_HAND_MYES 0
var RIGHT_HAND_MYIS 0
var LEFT_HAND_MYEW 0
var LEFT_HAND_MYIW 0
var LEFT_HAND_MYES 0
var LEFT_HAND_MYIS 0
var RIGHT_LEG_MYEW 0
var RIGHT_LEG_MYIW 0
var RIGHT_LEG_MYES 0
var RIGHT_LEG_MYIS 0
var LEFT_LEG_MYEW 0
var LEFT_LEG_MYIW 0
var LEFT_LEG_MYES 0
var LEFT_LEG_MYIS 0
var SKIN_MYEW 0
var SKIN_MYIW 0
var SKIN_MYES 0
var SKIN_MYIS 0
var HEAD_EW 0
var HEAD_IW 0
var HEAD_ES 0
var HEAD_IS 0
var NECK_EW 0
var NECK_IW 0
var NECK_ES 0
var NECK_IS 0
var CHEST_EW 0
var CHEST_IW 0
var CHEST_ES 0
var CHEST_IS 0
var ABDOMEN_EW 0
var ABDOMEN_IW 0
var ABDOMEN_ES 0
var ABDOMEN_IS 0
var BACK_EW 0
var BACK_IW 0
var BACK_ES 0
var BACK_IS 0
var TAIL_EW 0
var TAIL_IW 0
var TAIL_ES 0
var TAIL_IS 0
var RIGHT_EYE_EW 0
var RIGHT_EYE_IW 0
var RIGHT_EYE_ES 0
var RIGHT_EYE_IS 0
var LEFT_EYE_EW 0
var LEFT_EYE_IW 0
var LEFT_EYE_ES 0
var LEFT_EYE_IS 0
var RIGHT_ARM_EW 0
var RIGHT_ARM_IW 0
var RIGHT_ARM_ES 0
var RIGHT_ARM_IS 0
var LEFT_ARM_EW 0
var LEFT_ARM_IW 0
var LEFT_ARM_ES 0
var LEFT_ARM_IS 0
var RIGHT_HAND_EW 0
var RIGHT_HAND_IW 0
var RIGHT_HAND_ES 0
var RIGHT_HAND_IS 0
var LEFT_HAND_EW 0
var LEFT_HAND_IW 0
var LEFT_HAND_ES 0
var LEFT_HAND_IS 0
var RIGHT_LEG_EW 0
var RIGHT_LEG_IW 0
var RIGHT_LEG_ES 0
var RIGHT_LEG_IS 0
var LEFT_LEG_EW 0
var LEFT_LEG_IW 0
var LEFT_LEG_ES 0
var LEFT_LEG_IS 0
var SKIN_EW 0
var SKIN_IW 0
var SKIN_ES 0
var SKIN_IS 0
pause
EmpathWounds:
send perceive health self
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$
waitforre ^You .+ vitality
wait
pause
PatientWounds:
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
CombinedWounds:
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS
pause
math LOOP add 1
echo ***** Wound variables set! Starting round %LOOP. *****
if %RIGHT_EYE_EW > 4 then
{
gosub takehalf right eye
}
if %RIGHT_EYE_IW > 4 then
{
gosub takehalf internal right eye
}
if %LEFT_EYE_EW > 4 then
{
gosub takehalf left eye
}
if %LEFT_EYE_IW > 4 then
{
gosub takehalf internal left eye
}
if %RIGHT_ARM_EW > 4 then
{
gosub takehalf right arm
}
if %RIGHT_ARM_IW > 4 then
{
gosub takehalf internal right arm
}
if %LEFT_ARM_EW > 4 then
{
gosub takehalf left arm
}
if %LEFT_ARM_IW > 4 then
{
gosub takehalf internal left arm
}
if %RIGHT_HAND_EW > 4 then
{
gosub takehalf right hand
}
if %RIGHT_HAND_IW > 4 then
{
gosub takehalf internal right hand
}
if %LEFT_HAND_EW > 4 then
{
gosub takehalf left hand
}
if %LEFT_HAND_IW > 4 then
{
gosub takehalf internal left hand
}
if %RIGHT_LEG_EW > 4 then
{
gosub takehalf right leg
}
if %RIGHT_LEG_IW > 4 then
{
gosub takehalf internal right leg
}
if %LEFT_LEG_EW > 4 then
{
gosub takehalf left leg
}
if %LEFT_LEG_IW > 4 then
{
gosub takehalf internal left leg
}
if %COMBHEAD_EW> 0 && %COMBHEAD_EW< 12 && %HEAD_EW> 4 then
{
gosub takehalf head
}
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 4 then
{
gosub takehalf internal head
}
if %COMBNECK_EW> 0 && %COMBNECK_EW< 12 && %NECK_EW> 4 then
{
gosub takehalf neck
}
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 4 then
{
gosub takehalf internal neck
}
if %COMBCHEST_EW> 0 && %COMBCHEST_EW< 12 && %CHEST_EW> 4 then
{
gosub takehalf chest
}
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 4 then
{
gosub takehalf internal chest
}
if %COMBABDOMEN_EW> 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW> 4 then
{
gosub takehalf abdomen
}
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 4 then
{
gosub takehalf internal abdomen
}
if %COMBBACK_EW> 0 && %COMBBACK_EW< 12 && %BACK_EW> 4 then
{
gosub takehalf back
}
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 4 then
{
gosub takehalf internal back
}
if %COMBTAIL_EW> 0 && %COMBTAIL_EW< 12 && %TAIL_EW> 4 then
{
gosub takehalf tail
}
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 4 then
{
gosub takehalf internal tail
}
if %COMBHEAD_EW> 11 && %HEAD_EW< 12 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf head
}
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal head
}
if %COMBNECK_EW> 11 && %NECK_EW< 12 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf neck
}
if %COMBNECK_IW> 11 && %NECK_IW< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal neck
}
if %COMBCHEST_EW> 11 && %CHEST_EW< 12 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf chest
}
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal chest
}
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW< 12 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf abdomen
}
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal abdomen
}
if %COMBBACK_EW> 11 && %BACK_EW< 12 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf back
}
if %COMBBACK_IW> 11 && %BACK_IW< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal back
}
if %COMBTAIL_EW> 11 && %TAIL_EW< 12 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf tail
}
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal tail
}
if %HEAD_MYEW< 5 && %HEAD_EW> 11 then
{
gosub takehalf head
}
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then
{
gosub takehalf internal head
}
if %NECK_MYEW< 5 && %NECK_EW> 11 then
{
gosub takehalf neck
}
if %NECK_MYIW< 5 && %NECK_IW> 11 then
{
gosub takehalf internal neck
}
if %CHEST_MYEW< 5 && %CHEST_EW> 11 then
{
gosub takehalf chest
}
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then
{
gosub takehalf internal chest
}
if %ABDOMEN_MYEW< 5 && %ABDOMEN_EW> 11 then
{
gosub takehalf abdomen
}
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then
{
gosub takehalf internal abdomen
}
if %BACK_MYEW< 5 && %BACK_EW> 11 then
{
gosub takehalf back
}
if %BACK_MYIW< 5 && %BACK_IW> 11 then
{
gosub takehalf internal back
}
if %TAIL_MYEW< 5 && %TAIL_EW> 11 then
{
gosub takehalf tail
}
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then
{
gosub takehalf internal tail
}
if %HEAD_MYEW> 4 && %HEAD_EW> 11 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf head
}
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal head
}
if %NECK_MYEW> 4 && %NECK_EW> 11 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf neck
}
if %NECK_MYIW> 4 && %NECK_IW> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal neck
}
if %CHEST_MYEW> 4 && %CHEST_EW> 11 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf chest
}
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal chest
}
if %ABDOMEN_MYEW> 4 && %ABDOMEN_EW> 11 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf abdomen
}
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal abdomen
}
if %BACK_MYEW> 4 && %BACK_EW> 11 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf back
}
if %BACK_MYIW> 4 && %BACK_IW> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal back
}
if %TAIL_MYEW> 4 && %TAIL_EW> 11 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf tail
}
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal tail
}
goto loop
takequick:
send take %1 $0 quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
takehalf:
send take %1 $0 half quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
HW:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW
HW2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW2
HS:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS
HS2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS2
return:
return
loop:
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. *****
pause 5
if $bleeding = 1 then
{
gosub tendstart
}
if %LOOP < 3 then
{
goto start
}
if %LOOP > 2 then
{
goto done
}
refresh:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep Refresh
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
VH:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
evalmath HARNESS round((100-$health) / 5)
send prep VH
pause 2
send charge my $cambrinth %HARNESS
wait
pause
send charge my $cambrinth %HARNESS
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
tendstart:
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
return
tend:
send tend my $0
waitforre ^You work|^That area|^Look again|^Your .+ too injured
return
done:
put language Common
waitforre ^You switch|^But you are already|^You are already
put '/smugly %1 will hold life.
put #play ScriptEnd
put #parse PATIENT HEALED
Living Patient: Save Bleeders
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action send touch %1 when ^You have no empathic link
action goto done when ^\.\.\. no injuries to speak of
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
refreshcheck:
if $REFRESH = OFF && $Courage = OFF then
{
gosub refresh
}
vhcheck:
if $health < 60 then
{
gosub vh
}
start:
var head.bleed 0
var neck.bleed 0
var chest.bleed 0
var abdo.bleed 0
var back.bleed 0
var tail.bleed 0
var rarm.bleed 0
var larm.bleed 0
var rhnd.bleed 0
var lhnd.bleed 0
var rleg.bleed 0
var lleg.bleed 0
var reye.bleed 0
var leye.bleed 0
var HEAD_MYEW 0
var HEAD_MYIW 0
var HEAD_MYES 0
var HEAD_MYIS 0
var NECK_MYEW 0
var NECK_MYIW 0
var NECK_MYES 0
var NECK_MYIS 0
var CHEST_MYEW 0
var CHEST_MYIW 0
var CHEST_MYES 0
var CHEST_MYIS 0
var ABDOMEN_MYEW 0
var ABDOMEN_MYIW 0
var ABDOMEN_MYES 0
var ABDOMEN_MYIS 0
var BACK_MYEW 0
var BACK_MYIW 0
var BACK_MYES 0
var BACK_MYIS 0
var TAIL_MYEW 0
var TAIL_MYIW 0
var TAIL_MYES 0
var TAIL_MYIS 0
var RIGHT_EYE_MYEW 0
var RIGHT_EYE_MYIW 0
var RIGHT_EYE_MYES 0
var RIGHT_EYE_MYIS 0
var LEFT_EYE_MYEW 0
var LEFT_EYE_MYIW 0
var LEFT_EYE_MYES 0
var LEFT_EYE_MYIS 0
var RIGHT_ARM_MYEW 0
var RIGHT_ARM_MYIW 0
var RIGHT_ARM_MYES 0
var RIGHT_ARM_MYIS 0
var LEFT_ARM_MYEW 0
var LEFT_ARM_MYIW 0
var LEFT_ARM_MYES 0
var LEFT_ARM_MYIS 0
var RIGHT_HAND_MYEW 0
var RIGHT_HAND_MYIW 0
var RIGHT_HAND_MYES 0
var RIGHT_HAND_MYIS 0
var LEFT_HAND_MYEW 0
var LEFT_HAND_MYIW 0
var LEFT_HAND_MYES 0
var LEFT_HAND_MYIS 0
var RIGHT_LEG_MYEW 0
var RIGHT_LEG_MYIW 0
var RIGHT_LEG_MYES 0
var RIGHT_LEG_MYIS 0
var LEFT_LEG_MYEW 0
var LEFT_LEG_MYIW 0
var LEFT_LEG_MYES 0
var LEFT_LEG_MYIS 0
var SKIN_MYEW 0
var SKIN_MYIW 0
var SKIN_MYES 0
var SKIN_MYIS 0
var HEAD_EW 0
var HEAD_IW 0
var HEAD_ES 0
var HEAD_IS 0
var NECK_EW 0
var NECK_IW 0
var NECK_ES 0
var NECK_IS 0
var CHEST_EW 0
var CHEST_IW 0
var CHEST_ES 0
var CHEST_IS 0
var ABDOMEN_EW 0
var ABDOMEN_IW 0
var ABDOMEN_ES 0
var ABDOMEN_IS 0
var BACK_EW 0
var BACK_IW 0
var BACK_ES 0
var BACK_IS 0
var TAIL_EW 0
var TAIL_IW 0
var TAIL_ES 0
var TAIL_IS 0
var RIGHT_EYE_EW 0
var RIGHT_EYE_IW 0
var RIGHT_EYE_ES 0
var RIGHT_EYE_IS 0
var LEFT_EYE_EW 0
var LEFT_EYE_IW 0
var LEFT_EYE_ES 0
var LEFT_EYE_IS 0
var RIGHT_ARM_EW 0
var RIGHT_ARM_IW 0
var RIGHT_ARM_ES 0
var RIGHT_ARM_IS 0
var LEFT_ARM_EW 0
var LEFT_ARM_IW 0
var LEFT_ARM_ES 0
var LEFT_ARM_IS 0
var RIGHT_HAND_EW 0
var RIGHT_HAND_IW 0
var RIGHT_HAND_ES 0
var RIGHT_HAND_IS 0
var LEFT_HAND_EW 0
var LEFT_HAND_IW 0
var LEFT_HAND_ES 0
var LEFT_HAND_IS 0
var RIGHT_LEG_EW 0
var RIGHT_LEG_IW 0
var RIGHT_LEG_ES 0
var RIGHT_LEG_IS 0
var LEFT_LEG_EW 0
var LEFT_LEG_IW 0
var LEFT_LEG_ES 0
var LEFT_LEG_IS 0
var SKIN_EW 0
var SKIN_IW 0
var SKIN_ES 0
var SKIN_IS 0
pause
EmpathWounds:
send perceive health self
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$
waitforre ^You .+ vitality
wait
pause
PatientWounds:
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
CombinedWounds:
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS
pause
math LOOP add 1
echo ***** Wound variables set! Starting round %LOOP. *****
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_EW < 5 then
{
gosub takequick right eye
}
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_EW > 8 then
{
gosub takepart2 right eye
}
if %RIGHT_EYE_IW > 0 then
{
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 then
{
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 then
{
gosub takequick internal right eye scar
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_EW < 5 then
{
gosub takequick left eye
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_EW > 8 then
{
gosub takepart2 left eye
}
if %LEFT_EYE_IW > 0 then
{
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 then
{
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 then
{
gosub takequick internal left eye scar
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_EW < 5 then
{
gosub takequick right arm
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_EW > 8 then
{
gosub takepart right arm
}
if %RIGHT_ARM_IW > 0 then
{
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 then
{
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 then
{
gosub takequick internal right arm scar
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_EW < 5 then
{
gosub takequick left arm
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_EW > 8 then
{
gosub takepart left arm
}
if %LEFT_ARM_IW > 0 then
{
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 then
{
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 then
{
gosub takequick internal left arm scar
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_EW < 5 then
{
gosub takequick right hand
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_EW > 8 then
{
gosub takepart right hand
}
if %RIGHT_HAND_IW > 0 then
{
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 then
{
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 then
{
gosub takequick internal right hand scar
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_EW < 5 then
{
gosub takequick left hand
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_EW > 8 then
{
gosub takepart left hand
}
if %LEFT_HAND_IW > 0 then
{
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 then
{
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 then
{
gosub takequick internal left hand scar
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_EW < 5 then
{
gosub takequick right leg
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_EW > 8 then
{
gosub takepart right leg
}
if %RIGHT_LEG_IW > 0 then
{
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 then
{
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 then
{
gosub takequick internal right leg scar
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_EW < 5 then
{
gosub takequick left leg
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_EW > 8 then
{
gosub takepart left leg
}
if %LEFT_LEG_IW > 0 then
{
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 then
{
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 then
{
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 then
{
gosub takequick skin
}
if %SKIN_IW > 0 then
{
gosub takequick internal skin
}
if %SKIN_ES > 0 then
{
gosub takequick skin scar
}
if %SKIN_IS > 0 then
{
gosub takequick internal skin scar
}
if %COMBHEAD_EW > 0 && %COMBHEAD_EW< 12 && %HEAD_EW > 0 && %HEAD_EW < 5 then
{
gosub takequick head
}
if %COMBHEAD_IW > 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then
{
gosub takequick internal head
}
if %COMBHEAD_ES > 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then
{
gosub takequick head scar
}
if %COMBHEAD_IS > 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then
{
gosub takequick internal head scar
}
if %COMBNECK_EW > 0 && %COMBNECK_EW< 12 && %NECK_EW > 0 && %NECK_EW < 5 then
{
gosub takequick neck
}
if %COMBNECK_IW > 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then
{
gosub takequick internal neck
}
if %COMBNECK_ES > 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then
{
gosub takequick neck scar
}
if %COMBNECK_IS > 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then
{
gosub takequick internal neck scar
}
if %COMBCHEST_EW > 0 && %COMBCHEST_EW< 12 && %CHEST_EW > 0 && %CHEST_EW < 5 then
{
gosub takequick chest
}
if %COMBCHEST_IW > 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then
{
gosub takequick internal chest
}
if %COMBCHEST_ES > 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then
{
gosub takequick chest scar
}
if %COMBCHEST_IS > 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then
{
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW > 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW > 0 && %ABDOMEN_EW < 5 then
{
gosub takequick abdomen
}
if %COMBABDOMEN_IW > 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then
{
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES > 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then
{
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS > 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then
{
gosub takequick internal abdomen scar
}
if %COMBBACK_EW > 0 && %COMBBACK_EW< 12 && %BACK_EW > 0 && %BACK_EW < 5 then
{
gosub takequick back
}
if %COMBBACK_IW > 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then
{
gosub takequick internal back
}
if %COMBBACK_ES > 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then
{
gosub takequick back scar
}
if %COMBBACK_IS > 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then
{
gosub takequick internal back scar
}
if %COMBTAIL_EW > 0 && %COMBTAIL_EW< 12 && %TAIL_EW > 0 && %TAIL_EW < 5 then
{
gosub takequick tail
}
if %COMBTAIL_IW > 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then
{
gosub takequick internal tail
}
if %COMBTAIL_ES > 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then
{
gosub takequick tail scar
}
if %COMBTAIL_IS > 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then
{
gosub takequick internal tail scar
}
if %COMBHEAD_EW> 11 && %HEAD_EW < 5 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick head
}
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal head
}
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick head scar
}
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal head scar
}
if %COMBNECK_EW> 11 && %NECK_EW < 5 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick neck
}
if %COMBNECK_IW> 11 && %NECK_IW< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal neck
}
if %COMBNECK_ES> 11 && %NECK_ES< 12 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick neck scar
}
if %COMBNECK_IS> 11 && %NECK_IS< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal neck scar
}
if %COMBCHEST_EW> 11 && %CHEST_EW < 5 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick chest
}
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal chest
}
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick chest scar
}
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW < 5 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick abdomen
}
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal abdomen scar
}
if %COMBBACK_EW> 11 && %BACK_EW < 5 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick back
}
if %COMBBACK_IW> 11 && %BACK_IW< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal back
}
if %COMBBACK_ES> 11 && %BACK_ES< 12 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick back scar
}
if %COMBBACK_IS> 11 && %BACK_IS< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal back scar
}
if %COMBTAIL_EW> 11 && %TAIL_EW < 5 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick tail
}
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal tail
}
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick tail scar
}
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal tail scar
}
if %HEAD_MYEW< 8 && %HEAD_EW> 8 then
{
gosub takepart2 head
}
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then
{
gosub takehalf internal head
}
if %HEAD_MYES< 5 && %HEAD_ES> 11 then
{
gosub takehalf head scar
}
if %HEAD_MYIS< 5 && %HEAD_IS> 11 then
{
gosub takehalf internal head scar
}
if %NECK_MYEW< 8 && %NECK_EW> 8 then
{
gosub takepart2 neck
}
if %NECK_MYIW< 5 && %NECK_IW> 11 then
{
gosub takehalf internal neck
}
if %NECK_MYES< 5 && %NECK_ES> 11 then
{
gosub takehalf neck scar
}
if %NECK_MYIS< 5 && %NECK_IS> 11 then
{
gosub takehalf internal neck scar
}
if %CHEST_MYEW< 8 && %CHEST_EW> 8 then
{
gosub takepart2 chest
}
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then
{
gosub takehalf internal chest
}
if %CHEST_MYES< 5 && %CHEST_ES> 11 then
{
gosub takehalf chest scar
}
if %CHEST_MYIS< 5 && %CHEST_IS> 11 then
{
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW< 8 && %ABDOMEN_EW> 8 then
{
gosub takepart2 abdomen
}
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then
{
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES< 5 && %ABDOMEN_ES> 11 then
{
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS< 5 && %ABDOMEN_IS> 11 then
{
gosub takehalf internal abdomen scar
}
if %BACK_MYEW< 8 && %BACK_EW> 8 then
{
gosub takepart2 back
}
if %BACK_MYIW< 5 && %BACK_IW> 11 then
{
gosub takehalf internal back
}
if %BACK_MYES< 5 && %BACK_ES> 11 then
{
gosub takehalf back scar
}
if %BACK_MYIS< 5 && %BACK_IS> 11 then
{
gosub takehalf internal back scar
}
if %TAIL_MYEW< 8 && %TAIL_EW> 8 then
{
gosub takepart2 tail
}
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then
{
gosub takehalf internal tail
}
if %TAIL_MYES< 5 && %TAIL_ES> 11 then
{
gosub takehalf tail scar
}
if %TAIL_MYIS< 5 && %TAIL_IS> 11 then
{
gosub takehalf internal tail scar
}
if %HEAD_MYEW> 7 && %HEAD_EW> 8 then
{
var location external
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takepart2 head
}
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal head
}
if %HEAD_MYES> 4 && %HEAD_ES> 11 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf head scar
}
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal head scar
}
if %NECK_MYEW> 7 && %NECK_EW> 8 then
{
var location external
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takepart2 neck
}
if %NECK_MYIW> 4 && %NECK_IW> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal neck
}
if %NECK_MYES> 4 && %NECK_ES> 11 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf neck scar
}
if %NECK_MYIS> 4 && %NECK_IS> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal neck scar
}
if %CHEST_MYEW> 7 && %CHEST_EW> 8 then
{
var location external
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takepart2 chest
}
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal chest
}
if %CHEST_MYES> 4 && %CHEST_ES> 11 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf chest scar
}
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW> 7 && %ABDOMEN_EW> 8 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takepart2 abdomen
}
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal abdomen scar
}
if %BACK_MYEW> 7 && %BACK_EW> 8 then
{
var location external
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takepart2 back
}
if %BACK_MYIW> 4 && %BACK_IW> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal back
}
if %BACK_MYES> 4 && %BACK_ES> 11 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf back scar
}
if %BACK_MYIS> 4 && %BACK_IS> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal back scar
}
if %TAIL_MYEW> 7 && %TAIL_EW> 8 then
{
var location external
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer part of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takepart2 tail
}
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal tail
}
if %TAIL_MYES> 4 && %TAIL_ES> 11 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf tail scar
}
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal tail scar
}
goto loop
takequick:
send take %1 $0 quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
takehalf:
send take %1 $0 half quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
takepart:
send take %1 $0 part quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
takepart2:
echo take %1 $0 part quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
HW:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW
HW2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW2
HS:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS
HS2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS2
return:
return
loop:
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. *****
pause 5
if $bleeding = 1 then
{
gosub tendstart
}
if %LOOP < 3 then
{
goto start
}
if %LOOP > 2 then
{
goto done
}
refresh:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep Refresh
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
VH:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
evalmath HARNESS round((100-$health) / 5)
send prep VH
pause 2
send charge my $cambrinth %HARNESS
wait
pause
send charge my $cambrinth %HARNESS
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
tendstart:
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
return
tend:
send tend my $0
waitforre ^You work|^That area|^Look again|^Your .+ too injured
return
done:
send touch %1
waitforre /^%1.+ vitality/i
put '}%1 /smugly You are competely healed except for your bleeding wounds.
put #play ScriptEnd
put #parse PATIENT HEALED
Living Patient: Save External Wounds
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action send touch %1 when ^You have no empathic link
action goto done when ^\.\.\. no injuries to speak of
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
refreshcheck:
if $REFRESH = OFF && $Courage = OFF then
{
gosub refresh
}
vhcheck:
if $health < 60 then
{
gosub vh
}
start:
var head.bleed 0
var neck.bleed 0
var chest.bleed 0
var abdo.bleed 0
var back.bleed 0
var tail.bleed 0
var rarm.bleed 0
var larm.bleed 0
var rhnd.bleed 0
var lhnd.bleed 0
var rleg.bleed 0
var lleg.bleed 0
var reye.bleed 0
var leye.bleed 0
var HEAD_MYEW 0
var HEAD_MYIW 0
var HEAD_MYES 0
var HEAD_MYIS 0
var NECK_MYEW 0
var NECK_MYIW 0
var NECK_MYES 0
var NECK_MYIS 0
var CHEST_MYEW 0
var CHEST_MYIW 0
var CHEST_MYES 0
var CHEST_MYIS 0
var ABDOMEN_MYEW 0
var ABDOMEN_MYIW 0
var ABDOMEN_MYES 0
var ABDOMEN_MYIS 0
var BACK_MYEW 0
var BACK_MYIW 0
var BACK_MYES 0
var BACK_MYIS 0
var TAIL_MYEW 0
var TAIL_MYIW 0
var TAIL_MYES 0
var TAIL_MYIS 0
var RIGHT_EYE_MYEW 0
var RIGHT_EYE_MYIW 0
var RIGHT_EYE_MYES 0
var RIGHT_EYE_MYIS 0
var LEFT_EYE_MYEW 0
var LEFT_EYE_MYIW 0
var LEFT_EYE_MYES 0
var LEFT_EYE_MYIS 0
var RIGHT_ARM_MYEW 0
var RIGHT_ARM_MYIW 0
var RIGHT_ARM_MYES 0
var RIGHT_ARM_MYIS 0
var LEFT_ARM_MYEW 0
var LEFT_ARM_MYIW 0
var LEFT_ARM_MYES 0
var LEFT_ARM_MYIS 0
var RIGHT_HAND_MYEW 0
var RIGHT_HAND_MYIW 0
var RIGHT_HAND_MYES 0
var RIGHT_HAND_MYIS 0
var LEFT_HAND_MYEW 0
var LEFT_HAND_MYIW 0
var LEFT_HAND_MYES 0
var LEFT_HAND_MYIS 0
var RIGHT_LEG_MYEW 0
var RIGHT_LEG_MYIW 0
var RIGHT_LEG_MYES 0
var RIGHT_LEG_MYIS 0
var LEFT_LEG_MYEW 0
var LEFT_LEG_MYIW 0
var LEFT_LEG_MYES 0
var LEFT_LEG_MYIS 0
var SKIN_MYEW 0
var SKIN_MYIW 0
var SKIN_MYES 0
var SKIN_MYIS 0
var HEAD_EW 0
var HEAD_IW 0
var HEAD_ES 0
var HEAD_IS 0
var NECK_EW 0
var NECK_IW 0
var NECK_ES 0
var NECK_IS 0
var CHEST_EW 0
var CHEST_IW 0
var CHEST_ES 0
var CHEST_IS 0
var ABDOMEN_EW 0
var ABDOMEN_IW 0
var ABDOMEN_ES 0
var ABDOMEN_IS 0
var BACK_EW 0
var BACK_IW 0
var BACK_ES 0
var BACK_IS 0
var TAIL_EW 0
var TAIL_IW 0
var TAIL_ES 0
var TAIL_IS 0
var RIGHT_EYE_EW 0
var RIGHT_EYE_IW 0
var RIGHT_EYE_ES 0
var RIGHT_EYE_IS 0
var LEFT_EYE_EW 0
var LEFT_EYE_IW 0
var LEFT_EYE_ES 0
var LEFT_EYE_IS 0
var RIGHT_ARM_EW 0
var RIGHT_ARM_IW 0
var RIGHT_ARM_ES 0
var RIGHT_ARM_IS 0
var LEFT_ARM_EW 0
var LEFT_ARM_IW 0
var LEFT_ARM_ES 0
var LEFT_ARM_IS 0
var RIGHT_HAND_EW 0
var RIGHT_HAND_IW 0
var RIGHT_HAND_ES 0
var RIGHT_HAND_IS 0
var LEFT_HAND_EW 0
var LEFT_HAND_IW 0
var LEFT_HAND_ES 0
var LEFT_HAND_IS 0
var RIGHT_LEG_EW 0
var RIGHT_LEG_IW 0
var RIGHT_LEG_ES 0
var RIGHT_LEG_IS 0
var LEFT_LEG_EW 0
var LEFT_LEG_IW 0
var LEFT_LEG_ES 0
var LEFT_LEG_IS 0
var SKIN_EW 0
var SKIN_IW 0
var SKIN_ES 0
var SKIN_IS 0
pause
EmpathWounds:
send perceive health self
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$
waitforre ^You .+ vitality
wait
pause
PatientWounds:
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
CombinedWounds:
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS
pause
math LOOP add 1
echo ***** Wound variables set! Starting round %LOOP. *****
if %RIGHT_EYE_IW > 0 then
{
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 then
{
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 then
{
gosub takequick internal right eye scar
}
if %LEFT_EYE_IW > 0 then
{
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 then
{
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 then
{
gosub takequick internal left eye scar
}
if %RIGHT_ARM_IW > 0 then
{
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 then
{
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 then
{
gosub takequick internal right arm scar
}
if %LEFT_ARM_IW > 0 then
{
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 then
{
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 then
{
gosub takequick internal left arm scar
}
if %RIGHT_HAND_IW > 0 then
{
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 then
{
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 then
{
gosub takequick internal right hand scar
}
if %LEFT_HAND_IW > 0 then
{
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 then
{
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 then
{
gosub takequick internal left hand scar
}
if %RIGHT_LEG_IW > 0 then
{
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 then
{
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 then
{
gosub takequick internal right leg scar
}
if %LEFT_LEG_IW > 0 then
{
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 then
{
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 then
{
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 then
{
gosub takequick skin
}
if %SKIN_IW > 0 then
{
gosub takequick internal skin
}
if %SKIN_ES > 0 then
{
gosub takequick skin scar
}
if %SKIN_IS > 0 then
{
gosub takequick internal skin scar
}
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then
{
gosub takequick internal head
}
if %COMBHEAD_ES> 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then
{
gosub takequick head scar
}
if %COMBHEAD_IS> 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then
{
gosub takequick internal head scar
}
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then
{
gosub takequick internal neck
}
if %COMBNECK_ES> 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then
{
gosub takequick neck scar
}
if %COMBNECK_IS> 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then
{
gosub takequick internal neck scar
}
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then
{
gosub takequick internal chest
}
if %COMBCHEST_ES> 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then
{
gosub takequick chest scar
}
if %COMBCHEST_IS> 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then
{
gosub takequick internal chest scar
}
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then
{
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then
{
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then
{
gosub takequick internal abdomen scar
}
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then
{
gosub takequick internal back
}
if %COMBBACK_ES> 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then
{
gosub takequick back scar
}
if %COMBBACK_IS> 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then
{
gosub takequick internal back scar
}
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then
{
gosub takequick internal tail
}
if %COMBTAIL_ES> 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then
{
gosub takequick tail scar
}
if %COMBTAIL_IS> 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then
{
gosub takequick internal tail scar
}
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal head
}
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick head scar
}
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal head scar
}
if %COMBNECK_IW> 11 && %NECK_IW< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal neck
}
if %COMBNECK_ES> 11 && %NECK_ES< 12 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick neck scar
}
if %COMBNECK_IS> 11 && %NECK_IS< 12 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal neck scar
}
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal chest
}
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick chest scar
}
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal chest scar
}
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal abdomen scar
}
if %COMBBACK_IW> 11 && %BACK_IW< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal back
}
if %COMBBACK_ES> 11 && %BACK_ES< 12 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick back scar
}
if %COMBBACK_IS> 11 && %BACK_IS< 12 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal back scar
}
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takequick internal tail
}
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick tail scar
}
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takequick internal tail scar
}
if %HEAD_MYIW < 5 && %HEAD_IW> 11 then
{
gosub takehalf internal head
}
if %HEAD_MYES < 5 && %HEAD_ES> 11 then
{
gosub takehalf head scar
}
if %HEAD_MYIS < 5 && %HEAD_IS> 11 then
{
gosub takehalf internal head scar
}
if %NECK_MYIW < 5 && %NECK_IW> 11 then
{
gosub takehalf internal neck
}
if %NECK_MYES < 5 && %NECK_ES> 11 then
{
gosub takehalf neck scar
}
if %NECK_MYIS < 5 && %NECK_IS> 11 then
{
gosub takehalf internal neck scar
}
if %CHEST_MYIW < 5 && %CHEST_IW> 11 then
{
gosub takehalf internal chest
}
if %CHEST_MYES < 5 && %CHEST_ES> 11 then
{
gosub takehalf chest scar
}
if %CHEST_MYIS < 5 && %CHEST_IS> 11 then
{
gosub takehalf internal chest scar
}
if %ABDOMEN_MYIW < 5 && %ABDOMEN_IW> 11 then
{
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES < 5 && %ABDOMEN_ES> 11 then
{
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS < 5 && %ABDOMEN_IS> 11 then
{
gosub takehalf internal abdomen scar
}
if %BACK_MYIW < 5 && %BACK_IW> 11 then
{
gosub takehalf internal back
}
if %BACK_MYES < 5 && %BACK_ES> 11 then
{
gosub takehalf back scar
}
if %BACK_MYIS < 5 && %BACK_IS> 11 then
{
gosub takehalf internal back scar
}
if %TAIL_MYIW < 5 && %TAIL_IW> 11 then
{
gosub takehalf internal tail
}
if %TAIL_MYES < 5 && %TAIL_ES> 11 then
{
gosub takehalf tail scar
}
if %TAIL_MYIS < 5 && %TAIL_IS> 11 then
{
gosub takehalf internal tail scar
}
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal head
}
if %HEAD_MYES> 4 && %HEAD_ES> 11 then
{
var location external
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf head scar
}
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then
{
var location internal
var part head
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal head scar
}
if %NECK_MYIW> 4 && %NECK_IW> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal neck
}
if %NECK_MYES> 4 && %NECK_ES> 11 then
{
var location external
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf neck scar
}
if %NECK_MYIS> 4 && %NECK_IS> 11 then
{
var location internal
var part neck
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal neck scar
}
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal chest
}
if %CHEST_MYES> 4 && %CHEST_ES> 11 then
{
var location external
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf chest scar
}
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then
{
var location internal
var part chest
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal chest scar
}
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then
{
var location external
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then
{
var location internal
var part abdomen
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal abdomen scar
}
if %BACK_MYIW> 4 && %BACK_IW> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal back
}
if %BACK_MYES> 4 && %BACK_ES> 11 then
{
var location external
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf back scar
}
if %BACK_MYIS> 4 && %BACK_IS> 11 then
{
var location internal
var part back
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal back scar
}
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part wound before you can safely transfer half of %1's %location %part wound. Now healing your %location %part wound. *****
gosub HW2
send touch %1
gosub takehalf internal tail
}
if %TAIL_MYES> 4 && %TAIL_ES> 11 then
{
var location external
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf tail scar
}
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then
{
var location internal
var part tail
echo ***** You need to heal your %location %part scar before you can safely transfer half of %1's %location %part scar. Now healing your %location %part scar. *****
gosub HS2
send touch %1
gosub takehalf internal tail scar
}
goto loop
takequick:
send take %1 $0 quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
takehalf:
send take %1 $0 half quick
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
return
HW:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW
HW2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HW
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HW2
HS:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS
HS2:
if $mana < 80 then waiteval $mana >= 80
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep HS
pause 2
send harness 7
wait
pause
send harness 7
wait
pause
send cast %part reverse
matchre return %location.+appears? completely healed\.$
match return but it cannot heal what is not injured
matchwait 1
goto HS2
return:
return
loop:
echo ***** End of round %LOOP. Now pausing for 5 seconds to allow %1's wounds to be completely transferred to you. *****
pause 5
if $bleeding = 1 then
{
gosub tendstart
}
if %LOOP < 3 then
{
goto start
}
if %LOOP > 2 then
{
goto done
}
refresh:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
send prep Refresh
pause 2
send charge my $cambrinth 7
wait
pause
send charge my $cambrinth 7
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
VH:
send stop play
waitforre ^You stop playing your song|^In the name of love|^But you're not performing anything
evalmath HARNESS round((100-$health) / 5)
send prep VH
pause 2
send charge my $cambrinth %HARNESS
wait
pause
send charge my $cambrinth %HARNESS
wait
pause
send invoke my $cambrinth
wait
pause
send cast
waitforre ^You gesture
return
tendstart:
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
return
tend:
send tend my $0
waitforre ^You work|^That area|^Look again|^Your .+ too injured
return
done:
put '}%1 /smugly You are free of scars and internal wounds.
put #play ScriptEnd
put #parse PATIENT HEALED
Diagnostic Mode
put #window close Familiar
var LOOP 0
action send touch %1 when ^You have no empathic link
action goto done when ^\.\.\. no injuries to speak of
action var poison 0 when ^Your patient does not have any poison in their body
action var disease 0 when ^Your patient does not have any disease
put #var patient %1
start:
var head.bleed 0
var neck.bleed 0
var chest.bleed 0
var abdo.bleed 0
var back.bleed 0
var tail.bleed 0
var rarm.bleed 0
var larm.bleed 0
var rhnd.bleed 0
var lhnd.bleed 0
var rleg.bleed 0
var lleg.bleed 0
var reye.bleed 0
var leye.bleed 0
var HEAD_MYEW 0
var HEAD_MYIW 0
var HEAD_MYES 0
var HEAD_MYIS 0
var NECK_MYEW 0
var NECK_MYIW 0
var NECK_MYES 0
var NECK_MYIS 0
var CHEST_MYEW 0
var CHEST_MYIW 0
var CHEST_MYES 0
var CHEST_MYIS 0
var ABDOMEN_MYEW 0
var ABDOMEN_MYIW 0
var ABDOMEN_MYES 0
var ABDOMEN_MYIS 0
var BACK_MYEW 0
var BACK_MYIW 0
var BACK_MYES 0
var BACK_MYIS 0
var TAIL_MYEW 0
var TAIL_MYIW 0
var TAIL_MYES 0
var TAIL_MYIS 0
var RIGHT_EYE_MYEW 0
var RIGHT_EYE_MYIW 0
var RIGHT_EYE_MYES 0
var RIGHT_EYE_MYIS 0
var LEFT_EYE_MYEW 0
var LEFT_EYE_MYIW 0
var LEFT_EYE_MYES 0
var LEFT_EYE_MYIS 0
var RIGHT_ARM_MYEW 0
var RIGHT_ARM_MYIW 0
var RIGHT_ARM_MYES 0
var RIGHT_ARM_MYIS 0
var LEFT_ARM_MYEW 0
var LEFT_ARM_MYIW 0
var LEFT_ARM_MYES 0
var LEFT_ARM_MYIS 0
var RIGHT_HAND_MYEW 0
var RIGHT_HAND_MYIW 0
var RIGHT_HAND_MYES 0
var RIGHT_HAND_MYIS 0
var LEFT_HAND_MYEW 0
var LEFT_HAND_MYIW 0
var LEFT_HAND_MYES 0
var LEFT_HAND_MYIS 0
var RIGHT_LEG_MYEW 0
var RIGHT_LEG_MYIW 0
var RIGHT_LEG_MYES 0
var RIGHT_LEG_MYIS 0
var LEFT_LEG_MYEW 0
var LEFT_LEG_MYIW 0
var LEFT_LEG_MYES 0
var LEFT_LEG_MYIS 0
var SKIN_MYEW 0
var SKIN_MYIW 0
var SKIN_MYES 0
var SKIN_MYIS 0
var HEAD_EW 0
var HEAD_IW 0
var HEAD_ES 0
var HEAD_IS 0
var NECK_EW 0
var NECK_IW 0
var NECK_ES 0
var NECK_IS 0
var CHEST_EW 0
var CHEST_IW 0
var CHEST_ES 0
var CHEST_IS 0
var ABDOMEN_EW 0
var ABDOMEN_IW 0
var ABDOMEN_ES 0
var ABDOMEN_IS 0
var BACK_EW 0
var BACK_IW 0
var BACK_ES 0
var BACK_IS 0
var TAIL_EW 0
var TAIL_IW 0
var TAIL_ES 0
var TAIL_IS 0
var RIGHT_EYE_EW 0
var RIGHT_EYE_IW 0
var RIGHT_EYE_ES 0
var RIGHT_EYE_IS 0
var LEFT_EYE_EW 0
var LEFT_EYE_IW 0
var LEFT_EYE_ES 0
var LEFT_EYE_IS 0
var RIGHT_ARM_EW 0
var RIGHT_ARM_IW 0
var RIGHT_ARM_ES 0
var RIGHT_ARM_IS 0
var LEFT_ARM_EW 0
var LEFT_ARM_IW 0
var LEFT_ARM_ES 0
var LEFT_ARM_IS 0
var RIGHT_HAND_EW 0
var RIGHT_HAND_IW 0
var RIGHT_HAND_ES 0
var RIGHT_HAND_IS 0
var LEFT_HAND_EW 0
var LEFT_HAND_IW 0
var LEFT_HAND_ES 0
var LEFT_HAND_IS 0
var RIGHT_LEG_EW 0
var RIGHT_LEG_IW 0
var RIGHT_LEG_ES 0
var RIGHT_LEG_IS 0
var LEFT_LEG_EW 0
var LEFT_LEG_IW 0
var LEFT_LEG_ES 0
var LEFT_LEG_IS 0
var SKIN_EW 0
var SKIN_IW 0
var SKIN_ES 0
var SKIN_IS 0
pause
EmpathWounds:
send perceive health self
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_MYEW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYIS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_MYEW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_MYIS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_MYEW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_MYIS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_MYEW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYIS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_MYEW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_MYIS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_MYEW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYIS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_MYEW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_MYIS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_MYEW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYIS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_MYEW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_MYIS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_MYEW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_MYIS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_MYEW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_MYIS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_MYEW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYIS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_MYEW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_MYES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_MYIS 13 when Scars Internal:.*?\-\-\s+useless$
waitforre ^You .+ vitality
wait
pause
PatientWounds:
action setvariable TEMP $1_$2 when ^Wounds to the (LEFT|RIGHT) (\w+):$
action setvariable TEMP $1 when ^Wounds to the (\w+):$
action setvariable %TEMP_EW 1 when Fresh External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IW 1 when Fresh Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_ES 1 when Scars External:.*?\-\-\s+insignificant$
action setvariable %TEMP_IS 1 when Scars Internal:.*?\-\-\s+insignificant$
action setvariable %TEMP_EW 2 when Fresh External:.*?\-\-\s+negligible$
action setvariable %TEMP_IW 2 when Fresh Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_ES 2 when Scars External:.*?\-\-\s+negligible$
action setvariable %TEMP_IS 2 when Scars Internal:.*?\-\-\s+negligible$
action setvariable %TEMP_EW 3 when Fresh External:.*?\-\-\s+minor$
action setvariable %TEMP_IW 3 when Fresh Internal:.*?\-\-\s+minor$
action setvariable %TEMP_ES 3 when Scars External:.*?\-\-\s+minor$
action setvariable %TEMP_IS 3 when Scars Internal:.*?\-\-\s+minor$
action setvariable %TEMP_EW 4 when Fresh External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IW 4 when Fresh Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_ES 4 when Scars External:.*?\-\-\s+more than minor$
action setvariable %TEMP_IS 4 when Scars Internal:.*?\-\-\s+more than minor$
action setvariable %TEMP_EW 5 when Fresh External:.*?\-\-\s+harmful$
action setvariable %TEMP_IW 5 when Fresh Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_ES 5 when Scars External:.*?\-\-\s+harmful$
action setvariable %TEMP_IS 5 when Scars Internal:.*?\-\-\s+harmful$
action setvariable %TEMP_EW 6 when Fresh External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IW 6 when Fresh Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_ES 6 when Scars External:.*?\-\-\s+very harmful$
action setvariable %TEMP_IS 6 when Scars Internal:.*?\-\-\s+very harmful$
action setvariable %TEMP_EW 7 when Fresh External:.*?\-\-\s+damaging$
action setvariable %TEMP_IW 7 when Fresh Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_ES 7 when Scars External:.*?\-\-\s+damaging$
action setvariable %TEMP_IS 7 when Scars Internal:.*?\-\-\s+damaging$
action setvariable %TEMP_EW 8 when Fresh External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IW 8 when Fresh Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_ES 8 when Scars External:.*?\-\-\s+very damaging$
action setvariable %TEMP_IS 8 when Scars Internal:.*?\-\-\s+very damaging$
action setvariable %TEMP_EW 9 when Fresh External:.*?\-\-\s+severe$
action setvariable %TEMP_IW 9 when Fresh Internal:.*?\-\-\s+severe$
action setvariable %TEMP_ES 9 when Scars External:.*?\-\-\s+severe$
action setvariable %TEMP_IS 9 when Scars Internal:.*?\-\-\s+severe$
action setvariable %TEMP_EW 10 when Fresh External:.*?\-\-\s+very severe$
action setvariable %TEMP_IW 10 when Fresh Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_ES 10 when Scars External:.*?\-\-\s+very severe$
action setvariable %TEMP_IS 10 when Scars Internal:.*?\-\-\s+very severe$
action setvariable %TEMP_EW 11 when Fresh External:.*?\-\-\s+devastating$
action setvariable %TEMP_IW 11 when Fresh Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_ES 11 when Scars External:.*?\-\-\s+devastating$
action setvariable %TEMP_IS 11 when Scars Internal:.*?\-\-\s+devastating$
action setvariable %TEMP_EW 12 when Fresh External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IW 12 when Fresh Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_ES 12 when Scars External:.*?\-\-\s+very devastating$
action setvariable %TEMP_IS 12 when Scars Internal:.*?\-\-\s+very devastating$
action setvariable %TEMP_EW 13 when Fresh External:.*?\-\-\s+useless$
action setvariable %TEMP_IW 13 when Fresh Internal:.*?\-\-\s+useless$
action setvariable %TEMP_ES 13 when Scars External:.*?\-\-\s+useless$
action setvariable %TEMP_IS 13 when Scars Internal:.*?\-\-\s+useless$
action setvariable poison 1 when ^(He|She).+poison
send touch %1
waitforre /^%1.+ vitality/i
CombinedWounds:
evalmath COMBHEAD_EW %HEAD_MYEW+%HEAD_EW
evalmath COMBHEAD_IW %HEAD_MYIW+%HEAD_IW
evalmath COMBHEAD_ES %HEAD_MYES+%HEAD_ES
evalmath COMBHEAD_IS %HEAD_MYIS+%HEAD_IS
evalmath COMBNECK_EW %NECK_MYEW+%NECK_EW
evalmath COMBNECK_IW %NECK_MYIW+%NECK_IW
evalmath COMBNECK_ES %NECK_MYES+%NECK_ES
evalmath COMBNECK_IS %NECK_MYIS+%NECK_IS
evalmath COMBCHEST_EW %CHEST_MYEW+%CHEST_EW
evalmath COMBCHEST_IW %CHEST_MYIW+%CHEST_IW
evalmath COMBCHEST_ES %CHEST_MYES+%CHEST_ES
evalmath COMBCHEST_IS %CHEST_MYIS+%CHEST_IS
evalmath COMBABDOMEN_EW %ABDOMEN_MYEW+%ABDOMEN_EW
evalmath COMBABDOMEN_IW %ABDOMEN_MYIW+%ABDOMEN_IW
evalmath COMBABDOMEN_ES %ABDOMEN_MYES+%ABDOMEN_ES
evalmath COMBABDOMEN_IS %ABDOMEN_MYIS+%ABDOMEN_IS
evalmath COMBBACK_EW %BACK_MYEW+%BACK_EW
evalmath COMBBACK_IW %BACK_MYIW+%BACK_IW
evalmath COMBBACK_ES %BACK_MYES+%BACK_ES
evalmath COMBBACK_IS %BACK_MYIS+%BACK_IS
evalmath COMBTAIL_EW %TAIL_MYEW+%TAIL_EW
evalmath COMBTAIL_IW %TAIL_MYIW+%TAIL_IW
evalmath COMBTAIL_ES %TAIL_MYES+%TAIL_ES
evalmath COMBTAIL_IS %TAIL_MYIS+%TAIL_IS
evalmath CHKSCRHEAD_MYE %HEAD_MYEW+%HEAD_MYES
evalmath CHKSCRHEAD_MYI %HEAD_MYIW+%HEAD_MYIS
evalmath CHKSCRNECK_MYE %NECK_MYEW+%NECK_MYES
evalmath CHKSCRNECK_MYI %NECK_MYIW+%NECK_MYIS
evalmath CHKSCRCHEST_MYE %CHEST_MYEW+%CHEST_MYES
evalmath CHKSCRCHEST_MYI %CHEST_MYIW+%CHEST_MYIS
evalmath CHKSCRABDOMEN_MYE %ABDOMEN_MYEW+%ABDOMEN_MYES
evalmath CHKSCRABDOMEN_MYI %ABDOMEN_MYIW+%ABDOMEN_MYIS
evalmath CHKSCRBACK_MYE %BACK_MYEW+%BACK_MYES
evalmath CHKSCRBACK_MYI %BACK_MYIW+%BACK_MYIS
evalmath CHKSCRTAIL_MYE %TAIL_MYEW+%TAIL_MYES
evalmath CHKSCRTAIL_MYI %TAIL_MYIW+%TAIL_MYIS
pause
math LOOP add 1
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW < 13 then
{
gosub takequick right eye
}
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW < 13 then
{
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES < 13 then
{
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS < 13 then
{
gosub takequick internal right eye scar
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW < 13 then
{
gosub takequick left eye
}
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW < 13 then
{
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES < 13 then
{
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS < 13 then
{
gosub takequick internal left eye scar
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW < 13 then
{
gosub takequick right arm
}
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW < 13 then
{
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES < 13 then
{
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS < 13 then
{
gosub takequick internal right arm scar
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW < 13 then
{
gosub takequick left arm
}
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW < 13 then
{
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES < 13 then
{
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS < 13 then
{
gosub takequick internal left arm scar
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW < 13 then
{
gosub takequick right hand
}
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW < 13 then
{
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES < 13 then
{
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS < 13 then
{
gosub takequick internal right hand scar
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW < 13 then
{
gosub takequick left hand
}
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW < 13 then
{
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES < 13 then
{
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS < 13 then
{
gosub takequick internal left hand scar
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW < 13 then
{
gosub takequick right leg
}
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW < 13 then
{
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES < 13 then
{
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS < 13 then
{
gosub takequick internal right leg scar
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW < 13 then
{
gosub takequick left leg
}
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW < 13 then
{
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES < 13 then
{
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS < 13 then
{
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 && %SKIN_MYEW < 13 then
{
gosub takequick skin
}
if %SKIN_IW > 0 && %SKIN_MYIW < 13 then
{
gosub takequick internal skin
}
if %SKIN_ES > 0 && %SKIN_MYES < 13 then
{
gosub takequick skin scar
}
if %SKIN_IS > 0 && %SKIN_MYIS < 13 then
{
gosub takequick internal skin scar
}
if %RIGHT_EYE_EW > 0 && %RIGHT_EYE_MYEW > 12 then
{
var location external
var part right eye
gosub HW2
gosub takequick right eye
}
if %RIGHT_EYE_IW > 0 && %RIGHT_EYE_MYIW > 12 then
{
var location internal
var part right eye
gosub HW2
gosub takequick internal right eye
}
if %RIGHT_EYE_ES > 0 && %RIGHT_EYE_MYES > 12 then
{
var location external
var part right eye
gosub HS2
gosub takequick right eye scar
}
if %RIGHT_EYE_IS > 0 && %RIGHT_EYE_MYIS > 12 then
{
var location internal
var part right eye
gosub HS2
gosub takequick internal right eye scar
}
if %LEFT_EYE_EW > 0 && %LEFT_EYE_MYEW > 12 then
{
var location external
var part left eye
gosub HW2
gosub takequick left eye
}
if %LEFT_EYE_IW > 0 && %LEFT_EYE_MYIW > 12 then
{
var location internal
var part left eye
gosub HW2
gosub takequick internal left eye
}
if %LEFT_EYE_ES > 0 && %LEFT_EYE_MYES > 12 then
{
var location external
var part left eye
gosub HS2
gosub takequick left eye scar
}
if %LEFT_EYE_IS > 0 && %LEFT_EYE_MYIS > 12 then
{
var location internal
var part left eye
gosub HS2
gosub takequick internal left eye scar
}
if %RIGHT_ARM_EW > 0 && %RIGHT_ARM_MYEW > 12 then
{
var location external
var part right arm
gosub HW2
gosub takequick right arm
}
if %RIGHT_ARM_IW > 0 && %RIGHT_ARM_MYIW > 12 then
{
var location internal
var part right arm
gosub HW2
gosub takequick internal right arm
}
if %RIGHT_ARM_ES > 0 && %RIGHT_ARM_MYES > 12 then
{
var location external
var part right arm
gosub HS2
gosub takequick right arm scar
}
if %RIGHT_ARM_IS > 0 && %RIGHT_ARM_MYIS > 12 then
{
var location internal
var part right arm
gosub HS2
gosub takequick internal right arm scar
}
if %LEFT_ARM_EW > 0 && %LEFT_ARM_MYEW > 12 then
{
var location external
var part left arm
gosub HW2
gosub takequick left arm
}
if %LEFT_ARM_IW > 0 && %LEFT_ARM_MYIW > 12 then
{
var location internal
var part left arm
gosub HW2
gosub takequick internal left arm
}
if %LEFT_ARM_ES > 0 && %LEFT_ARM_MYES > 12 then
{
var location external
var part left arm
gosub HS2
gosub takequick left arm scar
}
if %LEFT_ARM_IS > 0 && %LEFT_ARM_MYIS > 12 then
{
var location internal
var part left arm
gosub HS2
gosub takequick internal left arm scar
}
if %RIGHT_HAND_EW > 0 && %RIGHT_HAND_MYEW > 12 then
{
var location external
var part right hand
gosub HW2
gosub takequick right hand
}
if %RIGHT_HAND_IW > 0 && %RIGHT_HAND_MYIW > 12 then
{
var location internal
var part right hand
gosub HW2
gosub takequick internal right hand
}
if %RIGHT_HAND_ES > 0 && %RIGHT_HAND_MYES > 12 then
{
var location external
var part right hand
gosub HS2
gosub takequick right hand scar
}
if %RIGHT_HAND_IS > 0 && %RIGHT_HAND_MYIS > 12 then
{
var location internal
var part right hand
gosub HS2
gosub takequick internal right hand scar
}
if %LEFT_HAND_EW > 0 && %LEFT_HAND_MYEW > 12 then
{
var location external
var part left hand
gosub HW2
gosub takequick left hand
}
if %LEFT_HAND_IW > 0 && %LEFT_HAND_MYIW > 12 then
{
var location internal
var part left hand
gosub HW2
gosub takequick internal left hand
}
if %LEFT_HAND_ES > 0 && %LEFT_HAND_MYES > 12 then
{
var location external
var part left hand
gosub HS2
gosub takequick left hand scar
}
if %LEFT_HAND_IS > 0 && %LEFT_HAND_MYIS > 12 then
{
var location internal
var part left hand
gosub HS2
gosub takequick internal left hand scar
}
if %RIGHT_LEG_EW > 0 && %RIGHT_LEG_MYEW > 12 then
{
var location external
var part right leg
gosub HW2
gosub takequick right leg
}
if %RIGHT_LEG_IW > 0 && %RIGHT_LEG_MYIW > 12 then
{
var location internal
var part right leg
gosub HW2
gosub takequick internal right leg
}
if %RIGHT_LEG_ES > 0 && %RIGHT_LEG_MYES > 12 then
{
var location external
var part right leg
gosub HS2
gosub takequick right leg scar
}
if %RIGHT_LEG_IS > 0 && %RIGHT_LEG_MYIS > 12 then
{
var location internal
var part right leg
gosub HS2
gosub takequick internal right leg scar
}
if %LEFT_LEG_EW > 0 && %LEFT_LEG_MYEW > 12 then
{
var location external
var part left leg
gosub HW2
gosub takequick left leg
}
if %LEFT_LEG_IW > 0 && %LEFT_LEG_MYIW > 12 then
{
var location internal
var part left leg
gosub HW2
gosub takequick internal left leg
}
if %LEFT_LEG_ES > 0 && %LEFT_LEG_MYES > 12 then
{
var location external
var part left leg
gosub HS2
gosub takequick left leg scar
}
if %LEFT_LEG_IS > 0 && %LEFT_LEG_MYIS > 12 then
{
var location internal
var part left leg
gosub HS2
gosub takequick internal left leg scar
}
if %SKIN_EW > 0 && %SKIN_MYEW > 12 then
{
var location external
var part skin
gosub HW2
gosub takequick skin
}
if %SKIN_IW > 0 && %SKIN_MYIW > 12 then
{
var location internal
var part skin
gosub HW
gosub takequick internal skin
}
if %SKIN_ES > 0 && %SKIN_MYES > 12 then
{
var location external
var part skin
gosub HS2
gosub takequick skin scar
}
if %SKIN_IS > 0 && %SKIN_MYIS > 12 then
{
var location internal
var part skin
gosub HS
gosub takequick internal skin scar
}
if %COMBHEAD_EW> 0 && %COMBHEAD_EW< 12 && %HEAD_EW> 0 then
{
gosub takequick head
}
if %COMBHEAD_IW> 0 && %COMBHEAD_IW< 12 && %HEAD_IW> 0 then
{
gosub takequick internal head
}
if %COMBHEAD_ES> 0 && %COMBHEAD_ES< 12 && %HEAD_ES> 0 then
{
gosub takequick head scar
}
if %COMBHEAD_IS> 0 && %COMBHEAD_IS< 12 && %HEAD_IS> 0 then
{
gosub takequick internal head scar
}
if %COMBNECK_EW> 0 && %COMBNECK_EW< 12 && %NECK_EW> 0 then
{
gosub takequick neck
}
if %COMBNECK_IW> 0 && %COMBNECK_IW< 12 && %NECK_IW> 0 then
{
gosub takequick internal neck
}
if %COMBNECK_ES> 0 && %COMBNECK_ES< 12 && %NECK_ES> 0 then
{
gosub takequick neck scar
}
if %COMBNECK_IS> 0 && %COMBNECK_IS< 12 && %NECK_IS> 0 then
{
gosub takequick internal neck scar
}
if %COMBCHEST_EW> 0 && %COMBCHEST_EW< 12 && %CHEST_EW> 0 then
{
gosub takequick chest
}
if %COMBCHEST_IW> 0 && %COMBCHEST_IW< 12 && %CHEST_IW> 0 then
{
gosub takequick internal chest
}
if %COMBCHEST_ES> 0 && %COMBCHEST_ES< 12 && %CHEST_ES> 0 then
{
gosub takequick chest scar
}
if %COMBCHEST_IS> 0 && %COMBCHEST_IS< 12 && %CHEST_IS> 0 then
{
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW> 0 && %COMBABDOMEN_EW< 12 && %ABDOMEN_EW> 0 then
{
gosub takequick abdomen
}
if %COMBABDOMEN_IW> 0 && %COMBABDOMEN_IW< 12 && %ABDOMEN_IW> 0 then
{
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 0 && %COMBABDOMEN_ES< 12 && %ABDOMEN_ES> 0 then
{
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 0 && %COMBABDOMEN_IS< 12 && %ABDOMEN_IS> 0 then
{
gosub takequick internal abdomen scar
}
if %COMBBACK_EW> 0 && %COMBBACK_EW< 12 && %BACK_EW> 0 then
{
gosub takequick back
}
if %COMBBACK_IW> 0 && %COMBBACK_IW< 12 && %BACK_IW> 0 then
{
gosub takequick internal back
}
if %COMBBACK_ES> 0 && %COMBBACK_ES< 12 && %BACK_ES> 0 then
{
gosub takequick back scar
}
if %COMBBACK_IS> 0 && %COMBBACK_IS< 12 && %BACK_IS> 0 then
{
gosub takequick internal back scar
}
if %COMBTAIL_EW> 0 && %COMBTAIL_EW< 12 && %TAIL_EW> 0 then
{
gosub takequick tail
}
if %COMBTAIL_IW> 0 && %COMBTAIL_IW< 12 && %TAIL_IW> 0 then
{
gosub takequick internal tail
}
if %COMBTAIL_ES> 0 && %COMBTAIL_ES< 12 && %TAIL_ES> 0 then
{
gosub takequick tail scar
}
if %COMBTAIL_IS> 0 && %COMBTAIL_IS< 12 && %TAIL_IS> 0 then
{
gosub takequick internal tail scar
}
if %COMBHEAD_EW> 11 && %HEAD_EW< 12 then
{
var location external
var part head
gosub HW2
gosub takequick head
}
if %COMBHEAD_IW> 11 && %HEAD_IW< 12 then
{
var location internal
var part head
gosub HW2
gosub takequick internal head
}
if %COMBHEAD_ES> 11 && %HEAD_ES< 12 then
{
var location external
var part head
gosub HS2
gosub takequick head scar
}
if %COMBHEAD_IS> 11 && %HEAD_IS< 12 then
{
var location internal
var part head
gosub HS2
gosub takequick internal head scar
}
if %COMBNECK_EW> 11 && %NECK_EW< 12 then
{
var location external
var part neck
gosub HW2
gosub takequick neck
}
if %COMBNECK_IW> 11 && %NECK_IW< 12 then
{
var location internal
var part neck
gosub HW2
gosub takequick internal neck
}
if %COMBNECK_ES> 11 && %NECK_ES< 12 then
{
var location external
var part neck
gosub HS2
gosub takequick neck scar
}
if %COMBNECK_IS> 11 && %NECK_IS< 12 then
{
var location internal
var part neck
gosub HS2
gosub takequick internal neck scar
}
if %COMBCHEST_EW> 11 && %CHEST_EW< 12 then
{
var location external
var part chest
gosub HW2
gosub takequick chest
}
if %COMBCHEST_IW> 11 && %CHEST_IW< 12 then
{
var location internal
var part chest
gosub HW2
gosub takequick internal chest
}
if %COMBCHEST_ES> 11 && %CHEST_ES< 12 then
{
var location external
var part chest
gosub HS2
gosub takequick chest scar
}
if %COMBCHEST_IS> 11 && %CHEST_IS< 12 then
{
var location internal
var part chest
gosub HS2
gosub takequick internal chest scar
}
if %COMBABDOMEN_EW> 11 && %ABDOMEN_EW< 12 then
{
var location external
var part abdomen
gosub HW2
gosub takequick abdomen
}
if %COMBABDOMEN_IW> 11 && %ABDOMEN_IW< 12 then
{
var location internal
var part abdomen
gosub HW2
gosub takequick internal abdomen
}
if %COMBABDOMEN_ES> 11 && %ABDOMEN_ES< 12 then
{
var location external
var part abdomen
gosub HS2
gosub takequick abdomen scar
}
if %COMBABDOMEN_IS> 11 && %ABDOMEN_IS< 12 then
{
var location internal
var part abdomen
gosub HS2
gosub takequick internal abdomen scar
}
if %COMBBACK_EW> 11 && %BACK_EW< 12 then
{
var location external
var part back
gosub HW2
gosub takequick back
}
if %COMBBACK_IW> 11 && %BACK_IW< 12 then
{
var location internal
var part back
gosub HW2
gosub takequick internal back
}
if %COMBBACK_ES> 11 && %BACK_ES< 12 then
{
var location external
var part back
gosub HS2
gosub takequick back scar
}
if %COMBBACK_IS> 11 && %BACK_IS< 12 then
{
var location internal
var part back
gosub HS2
gosub takequick internal back scar
}
if %COMBTAIL_EW> 11 && %TAIL_EW< 12 then
{
var location external
var part tail
gosub HW2
gosub takequick tail
}
if %COMBTAIL_IW> 11 && %TAIL_IW< 12 then
{
var location internal
var part tail
gosub HW2
gosub takequick internal tail
}
if %COMBTAIL_ES> 11 && %TAIL_ES< 12 then
{
var location external
var part tail
gosub HS2
gosub takequick tail scar
}
if %COMBTAIL_IS> 11 && %TAIL_IS< 12 then
{
var location internal
var part tail
gosub HS2
gosub takequick internal tail scar
}
if %HEAD_MYEW< 5 && %HEAD_EW> 11 then
{
gosub takehalf head
}
if %HEAD_MYIW< 5 && %HEAD_IW> 11 then
{
gosub takehalf internal head
}
if %HEAD_MYES< 5 && %HEAD_ES> 11 then
{
gosub takehalf head scar
}
if %HEAD_MYIS< 5 && %HEAD_IS> 11 then
{
gosub takehalf internal head scar
}
if %NECK_MYEW< 5 && %NECK_EW> 11 then
{
gosub takehalf neck
}
if %NECK_MYIW< 5 && %NECK_IW> 11 then
{
gosub takehalf internal neck
}
if %NECK_MYES< 5 && %NECK_ES> 11 then
{
gosub takehalf neck scar
}
if %NECK_MYIS< 5 && %NECK_IS> 11 then
{
gosub takehalf internal neck scar
}
if %CHEST_MYEW< 5 && %CHEST_EW> 11 then
{
gosub takehalf chest
}
if %CHEST_MYIW< 5 && %CHEST_IW> 11 then
{
gosub takehalf internal chest
}
if %CHEST_MYES< 5 && %CHEST_ES> 11 then
{
gosub takehalf chest scar
}
if %CHEST_MYIS< 5 && %CHEST_IS> 11 then
{
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW< 5 && %ABDOMEN_EW> 11 then
{
gosub takehalf abdomen
}
if %ABDOMEN_MYIW< 5 && %ABDOMEN_IW> 11 then
{
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES< 5 && %ABDOMEN_ES> 11 then
{
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS< 5 && %ABDOMEN_IS> 11 then
{
gosub takehalf internal abdomen scar
}
if %BACK_MYEW< 5 && %BACK_EW> 11 then
{
gosub takehalf back
}
if %BACK_MYIW< 5 && %BACK_IW> 11 then
{
gosub takehalf internal back
}
if %BACK_MYES< 5 && %BACK_ES> 11 then
{
gosub takehalf back scar
}
if %BACK_MYIS< 5 && %BACK_IS> 11 then
{
gosub takehalf internal back scar
}
if %TAIL_MYEW< 5 && %TAIL_EW> 11 then
{
gosub takehalf tail
}
if %TAIL_MYIW< 5 && %TAIL_IW> 11 then
{
gosub takehalf internal tail
}
if %TAIL_MYES< 5 && %TAIL_ES> 11 then
{
gosub takehalf tail scar
}
if %TAIL_MYIS< 5 && %TAIL_IS> 11 then
{
gosub takehalf internal tail scar
}
if %HEAD_MYEW> 4 && %HEAD_EW> 11 then
{
var location external
var part head
gosub HW2
gosub takehalf head
}
if %HEAD_MYIW> 4 && %HEAD_IW> 11 then
{
var location internal
var part head
gosub HW2
gosub takehalf internal head
}
if %HEAD_MYES> 4 && %HEAD_ES> 11 then
{
var location external
var part head
gosub HS2
gosub takehalf head scar
}
if %HEAD_MYIS> 4 && %HEAD_IS> 11 then
{
var location internal
var part head
gosub HS2
gosub takehalf internal head scar
}
if %NECK_MYEW> 4 && %NECK_EW> 11 then
{
var location external
var part neck
gosub HW2
gosub takehalf neck
}
if %NECK_MYIW> 4 && %NECK_IW> 11 then
{
var location internal
var part neck
gosub HW2
gosub takehalf internal neck
}
if %NECK_MYES> 4 && %NECK_ES> 11 then
{
var location external
var part neck
gosub HS2
gosub takehalf neck scar
}
if %NECK_MYIS> 4 && %NECK_IS> 11 then
{
var location internal
var part neck
gosub HS2
gosub takehalf internal neck scar
}
if %CHEST_MYEW> 4 && %CHEST_EW> 11 then
{
var location external
var part chest
gosub HW2
gosub takehalf chest
}
if %CHEST_MYIW> 4 && %CHEST_IW> 11 then
{
var location internal
var part chest
gosub HW2
gosub takehalf internal chest
}
if %CHEST_MYES> 4 && %CHEST_ES> 11 then
{
var location external
var part chest
gosub HS2
gosub takehalf chest scar
}
if %CHEST_MYIS> 4 && %CHEST_IS> 11 then
{
var location internal
var part chest
gosub HS2
gosub takehalf internal chest scar
}
if %ABDOMEN_MYEW> 4 && %ABDOMEN_EW> 11 then
{
var location external
var part abdomen
gosub HW2
gosub takehalf abdomen
}
if %ABDOMEN_MYIW> 4 && %ABDOMEN_IW> 11 then
{
var location internal
var part abdomen
gosub HW2
gosub takehalf internal abdomen
}
if %ABDOMEN_MYES> 4 && %ABDOMEN_ES> 11 then
{
var location external
var part abdomen
gosub HS2
gosub takehalf abdomen scar
}
if %ABDOMEN_MYIS> 4 && %ABDOMEN_IS> 11 then
{
var location internal
var part abdomen
gosub HS2
gosub takehalf internal abdomen scar
}
if %BACK_MYEW> 4 && %BACK_EW> 11 then
{
var location external
var part back
gosub HW2
gosub takehalf back
}
if %BACK_MYIW> 4 && %BACK_IW> 11 then
{
var location internal
var part back
gosub HW2
gosub takehalf internal back
}
if %BACK_MYES> 4 && %BACK_ES> 11 then
{
var location external
var part back
gosub HS2
gosub takehalf back scar
}
if %BACK_MYIS> 4 && %BACK_IS> 11 then
{
var location internal
var part back
gosub HS2
gosub takehalf internal back scar
}
if %TAIL_MYEW> 4 && %TAIL_EW> 11 then
{
var location external
var part tail
gosub HW2
gosub takehalf tail
}
if %TAIL_MYIW> 4 && %TAIL_IW> 11 then
{
var location internal
var part tail
gosub HW2
gosub takehalf internal tail
}
if %TAIL_MYES> 4 && %TAIL_ES> 11 then
{
var location external
var part tail
gosub HS2
gosub takehalf tail scar
}
if %TAIL_MYIS> 4 && %TAIL_IS> 11 then
{
var location internal
var part tail
gosub HS2
gosub takehalf internal tail scar
}
goto loop
takequick:
return
takehalf:
return
HW:
echo ***** You need to heal your %location %part wound. *****
return
HW2:
echo ***** You need to heal your %location %part wound. *****
return
HS:
echo ***** You need to heal your %location %part scar. *****
return
HS2:
echo ***** You need to heal your %location %part scar. *****
return
return:
return
loop:
if $bleeding = 1 then
{
gosub tendstart
}
goto done
tendstart:
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
return
tend:
send tend my $0
waitforre ^You work|^That area|^Look again|^Your .+ too injured
return
done:
put #play ScriptEnd
put #parse PATIENT HEALED
Fast Scripts (Caution!)
Take Everything
Take Everything Quick
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
PatientWounds:
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
send take %1 everything
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
exit
Take Most Quick
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
PatientWounds:
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
send take %1 quick all internals
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
send take %1 quick all scars
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
exit
Take Scars Quick
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
PatientWounds:
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
send take %1 quick all scars
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
exit
Instant Patient Healing (Unity Link)
put #window close Familiar
var LOOP 0
var poison 1
var disease 1
action var poison 0 when ^Your patient does not have any poison in their body|^%1 does not have any poison
action var disease 0 when ^Your patient does not have any disease|^%1 does not have any disease
put #var patient %1
PatientWounds:
send touch %1
waitforre /^%1.+ vitality/i
if %poison = 1 then
{
send take %1 quick poison
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
if %disease = 1 then
{
send take %1 quick disease
waitforre ^You touch %1|^You \S+ touch %1|^You lay your hand on %1
}
send link %1 unity
pause
put #play ScriptEnd
put #parse PATIENT HEALED
exit