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