Code
alias OP1 {
  var %n 1,%r
  while ($nick($chan,%n,@%)) {
    %r = $addtok(%r,$v1,44)
    if ($numtok(%r,44) == 5) {
      privmsg %r 00,14 $1- 
      unset %r
    }
    inc %i 1
  }
  if (%r) privmsg %r 00,14 $1- 
}

#mircscripting @ irc.swiftirc.net == the best mIRC help channel