Unnamed

alch {
  if ($read(thelist.txt,w,$+(*,$2-,*))) { /set %alch 6[Alch]:7 $ifmatch
  }
  else {
    /set %alch 6Cannot find a match for7 $+(",$2-,")
  } 
  /return %alch
}





on $*:text:/^[.!@]alch */si:#: {if (! isin $1 || . isin $1) { 
  /set %details /notice $nick
}
if (@ isin $1 && $nick isvoice $chan) {
  /set %details /notice $nick 
}
if (@ isin $1 && $nick isreg $chan) {
  /set %details /notice $nick 
}
if (@ isin $1 && $nick ishop $chan) {
  /set %details /msg $chan
}
if (@ isin $1 && $nick isop $chan) {
  /set %details /msg $chan
}
{ %details $alch( $+ $2- $+ ) }
}