alias alch {
  if ($read(thelist.txt,w,$+(*,$1-,*))) {
    var %alch = 06[Alch]: $+(07,$ifmatch,)
  }
  else {
    var %alch = 06Cannot find a match for $+(07,",$1-,",)
  }
  $iif($isid,return,say) %alch
}

on *:text:?alch*:#:{
  if ($left($1,1) isin @!.) {
    if ($left($1,1) == ! || $left($1,1) == .) { 
      var %details = .notice $nick
    }
    else {
      if ($nick isreg # || $nick isvoice #) {
        var %details = .notice $nick
      }
      elseif ($nick ishop # || $nick isop #) {
        var %details = msg #
      }
    }
    %details $alch($2-)
  }
}