on 1:Text:$(Nice, $me):#ooc,#oocs: {
  var %num $numtok(%nice, 44), %c $remove($chan, $chr(35))
  set %nice. [ $+ [ %c ] ] $addtok(%nice. [ $+ [ %c ] ], $nick, 44)
  if ($numtok(%nice. [ $+ [ %c ] ], 44) > %num) {
    timernice. [ $+ [ %c ] ] 1 5 nice %c
  }
}
alias -l nice {
  msg $chr(35) $+ $1 Ty, $regsubex($replace(%nice. [ $+ [ $1 ] ], $chr(44), $chr(44) $+ $chr(32)), /\x2C ([^ ]+)$/, $chr(32) $+ and \1)
  unset %nice. [ $+ [ $1 ] ]
}