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

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