Random message to random nick

on *:TEXT:*:#DNA:{
  if (!%r) { set %r $rand(50,100) }
  if (!%m) { set %m 0 }
  inc %m
  if (%m == %r) {
    msg # $+($nick(#,$rand(1,$nick(#,0))),:) Test ( $+ %r $+ ).
    unset %m | unset %r
  }
  halt
}