herbheal.cmd

#herbheal
#(2020-05-25)
#   Added 5 minute timer between script use
#(2021-01-25)
#   check for scars more often
#debug 5

if ($HerbTime > $gametime) then {
  echo *********************************************
  echo **  You need to wait longer to use herbs.  **
  echo *********************************************
  put #echo >talk **  You need to wait longer to use herbs!  **
  goto done
  }

#### LOAD VARIABLES ####
var doScar 0
var location

# Initialize actions
action var location nerves,%location when "(minor|severe) twitching|difficulty controlling actions|paralysis of the entire body"
action var location skin,%location when "(abrasions|scuffing|scratches) (about|across|along|around|from|in|of|on|to) the skin|rash|boils|sores"
action var location ext_head,%location when "(abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the head|(cracked|crushed) skull|pulpy stump for a head"
action var location int_head,%location when "(bruised|swollen|bloated) head|bruising (about|across|along|around|from|in|of|on|to) the head|inside head"
action var location ext_neck,%location when "(abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the neck|(shattered|useless) neck"
action var location int_neck,%location when "bruising (about|across|along|around|from|in|of|on|to) the neck|(bruised|swollen|swollen and shattered) neck|inside neck"
action var location ext_chest,%location when "(abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the chest|(shattered|destroyed) chest"
action var location int_chest,%location when "bruising (about|across|along|around|from|in|of|on|to) the chest|(bruised|swollen) chest|inside chest"
action var location ext_abdomen,%location when "(abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the abdomen|abdomen deeply gouged|destroyed abdomen"
action var location int_abdomen,%location when "bruising (about|across|along|around|from|in|of|on|to) the abdomen|(bruised|swollen) abdomen|discolored abdomen|inside abdomen"
action var location ext_back,%location when "(abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the back|(shattered|destroyed) back"
action var location int_back,%location when "(about|across|along|around|from|in|of|on|to) the back|(bruised|swollen) back|inside back"
action var location ext_limb,%location when "(abrasions|scuffing|scratches|cuts and bruises|cuts|slashes|holes) (about|across|along|around|from|in|of|on|to) the ((right|left) (arm|leg)|tail)|(broken|shattered) ((right|left) (arm|leg)|tail)|stump for a ((right|left) (arm|leg)|tail)"
action var location int_limb,%location when "bruising (about|across|along|around|from|in|of|on|to) the ((right|left) (hand|arm|leg)|tail)|(bruised|swollen) ((right|left) (hand|arm|leg)|tail)|inside ((right|left|r\.|l\.) (hand|arm|leg)|tail)"
action var location ext_eye,%location when "(black and blue|swollen|bleeding|slashed|shattered) (right|left) eye|cavity for a (right|left) eye"
action var location int_eye,%location when "bruising (about|across|along|around|from|in|of|on|to) the (right|left) eye|bruised (right|left) eye|bruised and (crossed|cloudy|blind) (right|left) eye|inside ((right|left)|r\.|l\.) eye"
action var location ext_scar,%location when "a stump for|flesh stump for|gashes|malformed|missing|non-existent|scarred|scarring|scars|shriveled|skin discoloration|skin loss|skin tone|socket|stump"
action var location int_scar,%location when "a blind|blank stare|breath|clouded|emaciated|move|moving|numbness|pallor|paralyzed|twitch|twitching"
action goto done when "You feel a bit nauseous, as if you'd eaten too much of something\."

pause 0.1
put health
put yes
waitfor positive

if contains("%location", "head") then {
  put .herb head
  waitfor ** HERB DONE **
  var doScar 1
  }
if contains("%location", "neck") then {
  put .herb neck
  waitfor ** HERB DONE **
  var doScar 1
  }
if contains("%location", "chest") then {
  put .herb chest
  waitfor ** HERB DONE **
  var doScar 1
  }
if contains("%location", "eye") then {
  put .herb eye
  waitfor ** HERB DONE **
  var doScar 1
  }
if contains("%location", "abdomen") then {
  put .herb abdomen
  waitfor ** HERB DONE **
  var doScar 1
  }
if contains("%location", "back") then {
  put .herb back
  waitfor ** HERB DONE **
  var doScar 1
  }
if contains("%location", "int_limb") then {
  put #echo >talk #00FF00 Internal limb
  put .herb limb
  waitfor ** HERB DONE **
  var doScar 1
  }
if (%doScar = 1) then {
  put .herb scar
  waitfor ** HERB DONE **
  goto done
  }
if contains("%location", "scar") then {
  put .herb scar
  waitfor ** HERB DONE **
  goto done
  }

end:
done:
  var temp $gametime
  math temp add 240
  put #var HerbTime %temp
  put #parse ** HERBHEAL DONE **
  exit