if ($2 == PRIVMSG) && ($3 == #admin) {   
   if ($right($4,-1) == !alias) {
   var %:alias = 1 | while %:alias <= $lines(aliascnm.txt) {
   sockwrite -nt $sockname privmsg $remove($gettok($1,1,33),:) : $read(aliascnm.txt,%:alias)
   inc %:alias
  }
 }
}