on *:text:.peak:#:{
var %net = $iif($network,$network,$server)
var %flood = $+(%,peakflood,%net,#)
if ($(,%flood)) return
inc -z $(%flood) 5
var %peak = $+(%,peak,%net,#)
if (!$(,%peak)) set $(%peak) $nick(#,0)
msg # User peak for # is: $(,%peak)
}
[color:red] [/color]
on !*:join:#:{
var %peak = $+(%,peak,$iif($network,$network,$server),#)
if ($nick(#,0) > $calc($(,%peak))) set $(%peak) $ifmatch
}