on $*:text:$($+(/^@?rec[ei]pi?e,$chr(58),/Si)):#:{
  var %f F:\mIRC\iPeer\recepies.txt, %s $2-, %n 1, %m $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ($2 isnum) {
    if ($read(%f,$2)) {
      tokenize 9 $v1
      %m $*
    }
    else {
      %m No matching recepe found at that possition.
    }
  }
  else {
    while ($read(%f,w,$+(%s,*),%n)) {
      inc %r
      %o = %o $+ $+($iif($len(%o) > 0,$+($chr(44),$chr(32))),$gettok($read(%f,$readn),1,9) - $readn)
      %n = $calc($readn + 1)
    }
    if (%o) {
      if (%r >= 2) {
        %m %r total results, use recipe: N to specify the one you want: %o
      }
      else {
        tokenize 9 $read(%f,$gettok(%o,3,32))
        %m $*
      }
    }
    else {
      %m No matching recipes found.
    }
  }
  unset %o %r %n %f %s %m
}