Tend Wounds (script)

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

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

Changelog

4/3/2011

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

03/21/2011

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

Trigger

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

Aliases

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

Script

action exit when ^Your .+ too injured

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

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

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

return:
pause
return

end:
exit