healhan

#heal hanryu of everything but his pet hand bleeders
#debug 10

#### LOAD ACTIONS ####
action goto restart when Hanryu avoids your touch\.$
action var wounds %wounds|$1 when Wounds to the ([\w\s]+):
action send touch hanryu when ^You have no empathic link

#### LOAD VARIABLES ####
var wounds
var woundcount
var temp

send touch hanryu
waitfor vitality
send link hanryu persistent
wait

var temp vitality
gosub taker
var temp poison
gosub taker
var temp disease
gosub taker

eval woundcount count("%wounds", "|")
math woundcount subtract 1

nohands:
  if (%woundcount < 0) then goto done
  var temp %wounds(%woundcount) all
  if matchre(%temp, HAND) then var temp %wounds(%woundcount) all internal
  gosub taker
  math woundcount subtract 1
  goto nohands

restart:
  pause 1
  put .healhan
  exit

taker:
  matchre taker \.\.\.wait|Sorry,
  matchre return ^Hanryu is not wounded in that location\.|You feel the transfer beginning|^You touch Hanryu|^You \S+ touch Hanryu|^You lay your hand on Hanryu|^You rest your hand on Hanryu
  put take hanryu %temp quick
  matchwait

return:
  return

end:
done:
  pause
  var temp scar all
  gosub taker
  put #parse ** HEALHAN DONE **
  exit