Anonymous

alias skill {
  tokenize 32 $iif(!$regex($1,[!@.#]),!) $+ $1
  if ($command((st|(skill)?total|overall),$1)) return 0
  elseif ($command(at(t|k|tack),$1)) return 1
  elseif ($command(Def(en[cs]e)?,$1)) return 2
  elseif ($command(str(ength)?,$1)) return 3
  elseif ($command(hp|hit(s|points?)?,$1)) return 4
  elseif ($command(range(r|d|ing)?,$1)) return 5
  elseif ($command((Pray(er)?|[prayer]{1,6}),$1)) return 6
  elseif ($command(mag(e|ic),$1)) return 7
  elseif ($command(cook(ing)?,$1)) return 8
  elseif ($command(wc|wood(cut(ting)?)?,$1)) return 9
  elseif ($command(fletch(ing)?,$1)) return 10
  elseif ($command(fish(ing)?,$1)) return 11
  elseif ($command((fire|fm)(make?(ing)?|ing)?,$1)) return 12
  elseif ($command(craft(ing)?,$1)) return 13
  elseif ($command((smith|smelt)(ing)?,$1)) return 14
  elseif ($command(min(e|e?ing)?,$1)) return 15
  elseif ($command(herb(law|lore)?,$1)) return 16
  elseif ($command(agil(ity)?,$1)) return 17
  elseif ($command((th(ei|ie)[fv](e|ing)?),$1)) return 18 
  elseif ($command(slay(er|ing)?,$1)) return 19
  elseif ($command(farm(er|ing)?,$1)) return 20
  elseif ($command((rc|runecraft)(er|ing)?,$1)) return 21
  elseif ($command(co?mb(at)?,$1)) return 25
  elseif ($command(stats,$1)) return 50
  else { return 100 }
}
alias StatNames { 
  if ($1 == 25) return Combat
  elseif ($1 == 50) Return Stats
  elseif ($1 > $lines(Data/Statnames.txt)) { return Invalid }
  return $read(Data/statnames.txt,$calc($1 + 1)) 
}