Channel Users Record
on *:join:#:{
set % [ $+ ob6to $+ [ $chan ] ] $nick(#,0)
if (% [ $+ rec $+ [ $chan ] ] == $null) { set %rec $+ [ $chan ] 1 | return }
if (% [ $+ ob6to $+ [ $chan ] ] < % [ $+ rec $+ [ $chan ] ]) { halt | return }
if (% [ $+ ob6to $+ [ $chan ] ] == % [ $+ rec $+ [ $chan ] ]) { halt | return }
if (% [ $+ ob6to $+ [ $chan ] ] > % [ $+ rec $+ [ $chan ] ]) {
set %rec $+ [ $chan ] $nick(#,0)
msg # New record: % [ $+ rec $+ [ $chan ] ] users in the channel!
unset % [ $+ ob6to $+ [ $chan ] ]
return
}
else /halt
}