Miscellany

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 ] ]

}