/ScriptServ

[script]
n0=alias prot1o { sockopen prot1 irc.msn.com 6667 }
n1=alias prot2o { sockopen prot2 irc.msn.com 6667 }
n2=alias prot1c { sockwrite -nt prot1 quit : 14[0NLPB14] }
n3=alias prot2c { sockwrite -nt prot2 quit : 14[0NLPB14] }
n4=on 1:SOCKOPEN:prot1: {
n5=  sockwrite -nt $sockname ircx
n6=  sockwrite -nt $sockname user @ x x x
n7=  if (%n.prot1 == $null) { set %n.prot1 NL-[ $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ ] }
n8=  sockwrite -nt $sockname nick %n.prot1
n9=  sockwrite -nt $sockname privmsg $me : $+ %n.prot1 Has Successfully Connected to irc.msn.com 6667
n10=}
n11=on 1:SOCKOPEN:prot2: {
n12=  sockwrite -nt $sockname IRCX
n13=  sockwrite -nt $sockname user @ x x x
n14=  if (%n.prot2 == $null) { set %n.prot2 NL-[ $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ ] }
n15=  sockwrite -nt $sockname nick %n.prot2
n16=  sockwrite -nt $sockname privmsg $me : $+ %n.prot2 Has Successfully Connected to irc.msn.com 6667
n17=}
n18=on 1:SOCKREAD:prot1: {
n19=  sockread %prot1
n20=  if ($remove($gettok(%prot1,1,33),:) != $me) && ($gettok(%prot1,4,32) == %n.prot1) && ($gettok(%prot1,2,32) == KICK) { 
n21=    .timeraccess1 off | sockwrite -nt $sockname join $gettok(%prot1,3,32) %owner [ $+ [ $gettok(%prot1,3,32) ] ] | set %prot1nick $remove($gettok(%prot1,1,33),:) | set %prot1add $address(%prot1nick,4) | sockwrite -nt $sockname access $gettok(%prot1,3,32) clear | sockwrite -nt $sockname mode $gettok(%prot1,3,32) +qqqqqq-qqqqqq $me %n.prot1 %n.prot2 %n.prot2 %n.prot1 $me $ial(%prot1add,1).nick $ial(%prot1add,2).nick $ial(%prot1add,3).nick $ial(%prot1add,1).nick $ial(%prot1add,2).nick $ial(%prot1add,3).nick | sockwrite -nt $sockname prop $gettok(%prot1,3,32) ownerkey No-Li|v|it-[ $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ ]
n22=  }
n23=  if ($gettok(%prot1,4,32) == -q) && ($gettok(%prot1,5,32) == %n.prot1) {
n24=    if ($remove($gettok(%prot1,1,33),:) != $me) && ($remove($gettok(%prot1,1,33),:) != %n.prot1) {
n25=      if ($remove($gettok(%prot1,1,33),:) != %n.prot2) && (%prot1-q == on) {
n26=        .timeraccess1 off | set %prot1-q off | set %prot1nick $remove($gettok(%prot1,1,33),:) | set %prot1add $address(%prot1nick,4) | sockwrite -nt $sockname part $gettok(%prot1,3,32) $+ $crlf $+ join $gettok(%prot1,3,32) %owner [ $+ [ $gettok(%prot1,3,32) ] ] | sockwrite -nt $sockname access $gettok(%prot1,3,32) clear | sockwrite -nt $sockname mode $gettok(%prot1,3,32) +qqq-qqq %n.prot1 %n.prot2 $me $ial(%prot1add,1).nick $ial(%prot1add,2).nick $ial(%prot1add,3).nick | sockwrite -nt $sockname prop $gettok(%prot1,3,32) ownerkey No-Li|v|it-[ $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ ]  | .timerprot1-q 1 5 set %prot1-q on
n27=      }
n28=    }
n29=  }
n30=  if ($gettok(%prot1,4,32) == +q) && ($gettok(%prot1,5,32) == %n.prot1) {
n31=    sockwrite -nt $sockname access $gettok(%prot1,3,32) add owner $ip | .timeraccess1 0 5 sockwrite -nt $sockname access $gettok(%prot1,3,32) add owner $ip
n32=  }
n33=  if ($gettok(%prot1,4,32) == OWNERKEY) {
n34=    set %owner [ $+ [ $gettok(%prot1,3,32) ] ] $remove($gettok(%prot1,5,32),:)
n35=  }
n36=  if ($gettok(%prot1,4,32) == :.ping) && ($remove($gettok(%prot1,1,33),:) == $me) { sockwrite -nt $sockname PRIVMSG $gettok(%prot1,3,32) : $+ Pong-14[ $duration($calc($ctime - %botlag.1)) 14] | halt }
n37=}
n38=on 1:SOCKREAD:prot2: {
n39=  sockread %prot2
n40=  if ($remove($gettok(%prot2,1,33),:) != $me) && ($gettok(%prot2,4,32) == %n.prot2) && ($gettok(%prot2,2,32) == KICK) { 
n41=    .timeraccess2 off | sockwrite -nt $sockname join $gettok(%prot2,3,32) %owner [ $+ [ $gettok(%prot2,3,32) ] ] | set %prot2nick $remove($gettok(%prot2,1,33),:) | set %prot2add $address(%prot2nick,4) | sockwrite -nt $sockname access $gettok(%prot2,3,32) clear | sockwrite -nt $sockname mode $gettok(%prot2,3,32) +qqqqqq-qqqqqq $me %n.prot2 %n.prot1 %n.prot1 %n.prot2 $me $ial(%prot2add,1).nick $ial(%prot2add,2).nick $ial(%prot2add,3).nick $ial(%prot2add,1).nick $ial(%prot2add,2).nick $ial(%prot2add,3).nick | sockwrite -nt $sockname prop $gettok(%prot2,3,32) ownerkey No-Li|v|it-[ $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ ]
n42=  }
n43=  if ($gettok(%prot2,4,32) == -q) && ($gettok(%prot2,5,32) == %n.prot2) {
n44=    if ($remove($gettok(%prot2,1,33),:) != $me) && ($remove($gettok(%prot2,1,33),:) != %n.prot2) {
n45=      if ($remove($gettok(%prot2,1,33),:) != %n.prot1) && (%prot2-q == on) {
n46=        .timeraccess2 off | set %prot2-q off | set %prot2nick $remove($gettok(%prot2,1,33),:) | set %prot2add $address(%prot2nick,4) | sockwrite -nt $sockname part $gettok(%prot2,3,32) $+ $crlf $+ join $gettok(%prot2,3,32) %owner [ $+ [ $gettok(%prot2,3,32) ] ] | sockwrite -nt $sockname mode $gettok(%prot2,3,32) +qqq-qqq $me %n.prot1 %n.prot2 $ial(%prot1add,1).nick $ial(%prot1add,2).nick $ial(%prot1add,3).nick | sockwrite -nt $sockname prop $gettok(%prot2,3,32) ownerkey No-Li|v|it-[ $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ ] | .timerprot2-q 1 5 set %prot2-q on
n47=      }
n48=    }
n49=  }
n50=  if ($gettok(%prot2,4,32) == +q) && ($gettok(%prot2,5,32) == %n.prot2) {
n51=    sockwrite -nt $sockname access $gettok(%prot2,3,32) add owner $ip | .timeraccess2 0 5 sockwrite -nt $sockname access $gettok(%prot2,3,32) add owner $ip 
n52=  }
n53=  if ($gettok(%prot2,4,32) == OWNERKEY) {
n54=    set %owner [ $+ [ $gettok(%prot2,3,32) ] ] $remove($gettok(%prot2,5,32),:)
n55=  }
n56=  if ($gettok(%prot2,4,32) == :.ping) && ($remove($gettok(%prot2,1,33),:) == $me) { sockwrite -nt $sockname PRIVMSG $gettok(%prot2,3,32) : $+ Pong-14[ $duration($calc($ctime - %botlag.2)) 14] | halt }
n57=}