on *:Input:#:{
  if (/* iswm $1) || ($inpaste) || ($ctrlenter) return
  else {
    var %list = 4± 7☆ 6± 7± 10± 15± 8± 6☆ 7☆ 10☆ 15☆ 8☆, %rand = $gettok(%list, $r(1, $numtok(%list, 32)), 32)
    var %list1 = 2$nick 4$nick 10$nick 12$nick %rand1 = $gettok(%list, $r(1, $numtok(%list1, 32)), 32)
    if ($nick == %rand1) {
      if ($1 ison $chan) && ($1 != $me) { msg $chan %rand $+($nick($chan,$1).pnick) %rand $iif($2- != $null,$v1) | haltdef }
} } }