mIRC 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
}