on *:join:#: {
if ($+(%,peak.,$chan,.,$network) == $null) { /set $+(%,peak.,$chan,.,$network) $nick(#,0) $ctime }
if ($nick(#,0) >= $+(%,peak.,$chan,.,$network)) {
/set $+(%,peak.,$chan,.,$network) $nick(#,0) $ctime
var %value = $($+(%,peak.,$chan,.,$network),2)
if (%value) {
/echo $chan $+($date($gettok(%value,2,32),mmmm dd yyyy)), ( $+ $duration($calc($ctime - $gettok(%value,2,32)),2) ago), there is a channel record of $gettok(%value,1,32) users!
}
}
}