on *:text:!alch *:#: { 
  $readn = $read(alch.txt,w,$+(*,$2-,*)) 
  %readalch = $readn 
  if %readalch != 0 goto one 
  else goto two 
  :one 
  set %alch $read(alch.txt,w,$+(*,$2-,*)) 
  msg $chan [Burton's Alch Guide]: %alch 
  halt    
  :two 
  msg $chan [Burton's Alch Guide]: Unable To Find Match For " $+ $2- $+ ". 
  halt    
}