on $*:TEXT:/^[!@]alch/Si:#: {
  if ($me != iscape) &&  (iscape ison $chan) { halt }
  if (!$2) { $iif(@ isin $1,msg $chan,notice $nick) $c1(Give Me Summit To Search For..?) | halt }
  var %y = 1  
  var %x = 1
  while (%x <= $lines(alch.txt)) {
    set %alchemyinfo $+(%alchemyinfo,$read(alch.txt,w,* $+ $2- $+ *,%y)) 
    while (%y <= $lines(alch.txt)) {
      if (* %alchemyinfo * iswm $read(alch.txt,%y)) { set %carryline $read(alch.txt,%y) }
    inc %y 1 }
  inc %x 1 }
  $iif(@ isin $1,msg $chan,notice $nick) %alchemyinfo
  unset %alchemyinfo
}