Anonymous

alias barrowsitem {
  ; - Dharok Items -
  if ($regex($1-,(dh(arok(s)?)?)(.?)((great)?axe))) return Dhaxe
  elseif ($regex($1-,((dh(arok(s)?)?)(.?)(pl(8|ate))))) return Dhplate
  elseif ($regex($1-,((dh(arok(s)?)?)(.?)(legs)))) return Dhlegs
  elseif ($regex($1-,((dh(arok(s)?)?)(.?)(helm(et)?)))) return Dhhelm
  ; - Torag Items -
  elseif ($regex($1-,((t(orag(s)?)?)(.?)(hams|hammers)))) return thammers
  elseif ($regex($1-,((t(orags(s)?)?)(.?)(pl(8|ate))))) return tplate
  elseif ($regex($1-,((t(orags(s)?)?)(.?)(legs)))) return tlegs
  elseif ($regex($1-,((t(orags(s)?)?)(.?)(helm(et)?)))) return thelm
  ; - Verac Items -
  elseif ($regex($1-,((v(erac(s)?)?(.?)(flail)|(flail))))) return vflail
  elseif ($regex($1-,((v(erac(s)?)?(.?)(brass(y|ard)))))) return vbrass
  elseif ($regex($1-,((v(erac(s)?)?(.?)(skirt|legs))))) return vskirt
  elseif ($regex($1-,((v(erac(s)?)?(.?)(helm(et)?))))) return vhelm
  ; - Guthan Items
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)(helm(et)?))))) return ghelm
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)((war)?spear))))) return gspear
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)((chain)?skirt))))) return gskirt
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)(pl(8|ate)))))) return gplate
  ; - Ahrim Items -
  elseif ($regex($1-,((ah(rim(s)?)?(.?)(helm|hood))))) return ahhood
  elseif ($regex($1-,((ah(rim(s)?)?(.?)(battle)?(staff|stave))))) return ahstaff
  elseif ($regex($1-,((ah(rim(s)?)?(.?)((robe)?skirt))))) return ahskirt
  elseif ($regex($1-,((ah(rim(s)?)?(.?)((robe)?top))))) return ahtop
  ; - Karil Items -
  elseif ($regex($1-,((k(aril(s)?)?(.?)((leather)?coif))))) return kcoif
  elseif ($regex($1-,((k(aril(s)?)?(.?)((leather)?top))))) return ktop
  elseif ($regex($1-,((k(aril(s)?)?(.?)((leather)?skirt))))) return kskirt
  elseif ($regex($1-,((k(aril(s)?)?(.?)((cross|x)?bow))))) return kbow
  ; - Invalid -
  else return Invalid Item!
}