alias funny {
  var %funny $nick($chan,$rand(1,$nick($chan,0)))
  if (%funny != $me) {
    if (%funny isowner #) || (%funny isop #) {
      msg $active $timestamp <@ $+ %funny $+ > $1-
      halt
    }
    if (%funny ishop #) {
      msg $active$timestamp <% $+ %funny $+ > $1-
      halt
    }
    if (%funny isvoice #) {
      msg $active $timestamp <+ $+ %funny $+ > $1-
      halt
    }
    if (%funny isreg #) {
      msg $active $timestamp < $+ %funny $+ > $1-
      halt
    }
  }
}