Unnamed

alias c1 { return $+($chr(3),02,$1-) } 
alias c2 { return $+($chr(3),10,$1-) } 
alias c3 { return $+($chr(3),04,$1-) } 
alias c4 { return $+($chr(3),07,$1-) } 

on $*:text:/^[!@]alch(emy)? /Si:#: {  
  if ($2 == $null) { notice $nick $c4 Please specify an item !alch <item> | halt } 
  else {
    set %display $iif($left($1,1) == @,msg $chan,.notice $nick)   
    if ($read(alch.txt,w,$+(*,$2-,*))) { %display $c1 Alch for $c2 $ifmatch }
    else { .notice $nick $c4 No price found for $c3 $2 }
    unset %display
  }
}