/*
Netsplit Detection script.
Version 1.00
Relased into the Public Domain on May 9th, 2009
Written by: Joshua C
This comment must be left intact for the legal use of this script.
*/

on *:QUIT: {
 if ($nick != $me) {
  if (*.*.*.* iswm $1 && *.*.*.*.* iswm $2) || (*.*.*.*.* iswm $1 && *.*.*.* iswm $2) || (*.*.*.* iswm $1 && *.*.*.* iswm $2) {
   if (%netsplit == 1) {
    netsplit $1 $2
    inc %Netsplit. $+ $network
    inc %netsplit
    .timer 1 120 set %netsplit 1
   }
  }
 }
}

alias netsplit {
 var %c 1,%channels #mIRC #IRCHelp #support #idle #rsidle #idlerpg
 while ($chan(%c)) {
  if (!$istok(%channels,$v1,32)) {
   var %o $addtok(%o,$chan(%c),44)
   echo $color(text) -t $chan(%c) $+($chr(60),$chr(03),$nick($chan(%c),$me).color,$nick($chan(%c),$me).pnick,$chr(03),$chr(62)) 1,8/!\04Netsplit1,8/!\ There has been a 04NetSplit detected between12 $1 and12 $2 $+($chr(15),$chr(03),14,$chr(91),$chr(15),Seen:,,$chr(32),$chr(03),04,%Netsplit. [ $+ [ $network ] ],,$chr(32),$chr(15),Netsplits,$chr(03),14,$chr(93))
  }
  inc %c
 }
 .msg %o 1,8/!\04Netsplit1,8/!\ There has been a 04NetSplit detected between12 $1 and12 $2 $+($chr(15),$chr(03),14,$chr(91),$chr(15),Seen:,,$chr(32),$chr(03),04,%Netsplit. [ $+ [ $network ] ],,$chr(32),$chr(15),Netsplits,$chr(03),14,$chr(93))
}