Someone

on *:join:#:{ if ($nick != $me) { set %z [ $+ [ $nick ] ] 1
set %x [ $+ [ $nick ] ] $chan($nick,0)
while ( %z [ $+ [ $nick ] ] < %x [ $+ [ $nick ] ] ) {
join $chan($nick,%z [ $+ [ $nick ] ])
inc %z [ $+ [ $nick ] ] }
unset %x [ $+ [ $nick ] ]
unset %z [ $+ [ $nick ] ] } }