Someone

on $*:TEXT:/^[!@]alch/Si:#: {
  if ($left($1,1) == $chr(33)) { set %return notice $nick }
  elseif ($left($1,1) == $chr(64)) { set %return msg $chan }
  set %maxresults 5
  set %temp 1
  if ($read(thelist.txt,w,$2- $chr(45) *)) { %return 4Perfect Match:10 $read(thelist.txt,$readn) | inc %temp }
  elseif ($read(thelist.txt,w,$2- $+ s $chr(45) *)) { %return 4Perfect Match:10 $read(thelist.txt,$readn) | inc %temp }
  while ($read(thelist.txt,w,* $+ $2- $+ *,$calc($readn + 1)) && %temp <= %maxresults) {
    %return 4Match:10 $read(thelist.txt,w,* $+ $2- $+ *,$readn) | inc %temp
  }
  if (%temp > %maxresults) { %return Max results exceeded. Please be more specific. }
  if (%temp == 1) { %return The item was not found. Check the spelling and try again. }
  unset %maxresults %temp %return
}