Something

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 Perfect Match: $read(thelist.txt,$readn) | inc %temp } 
  elseif ($read(thelist.txt,w,$2- $+ s $chr(45) *)) { %return Perfect Match: $read(thelist.txt,$readn) | inc %temp } 
  while ($read(thelist.txt,w,* $+ $2- $+ *,$calc($readn + 1)) && %temp <= %maxresults) { 
    %return Match: $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 
}