alias slap {
  if ($active ischan) && ($nick($active,0) > 1) {
    get.nicks
    if (%nicks) {
      var %nicks = $remove(%nicks,$me $+ $chr(44))
      .timer -m 1 100 describe # slaps %nicks around with a nachos. 
    }
  }
}

alias get.nicks {
  var %a = 1
  while %a <= $nick($active,0) {
    set %nicks $addtok(%nicks,$nick($chan,%a) $+ $chr(44),32)
    inc %a
    .timer -m 1 1 unset %nicks
  }
}

Does just what U want, Erma.