on ^*:quit:if ($0 = 2) $a(*?.*?*.?*,$1-,$nick)
alias a { if ($1 $1 iswm $2) { var %c = $comchan($3,0) | while (%c) { var %m = $comchan($3,%c) | set % $+ %m $addtok($(% $+ %m,2),$3,44) | if ($len($(% $+ %m,2)) > 799) c %m | dec %c } | .timer£ 1 3 b $2 | halt } }
alias b { var %c $chan(0) | while (%c) { var %m $chan(%c) | if ($(% $+ %m,2)) c %m | if ($(% $+ %m $+ :,2)) write £ echo -t %m Netsplit: $($+(%,%m,:),2) User(s) $replace($1-,$chr(32),/) | unset $(% $+ %m $+ :,1) | dec %c } | .play -cs £ 0 | .remove £ }
alias c { write £ echo -t $1 Netsplit: $(% $+ $1,2) | inc $+(%,$1,:) $numtok($(% $+ $1,2),44) | unset % $+ $1 }