fork download 
  1.  ;**************************************************************************************
  2. ;PremaNhybrid (November 27, 2010)
  3. ;mIRC Clone War Revenge Kick with Single and/or Shifting Socket
  4. ;
  5. ;Main features:
  6. ;  + mIRC v6.21 or later is required
  7. ;  + Double hash table, separate enemy list, auto-reopen on died socket, one clone join
  8. ;  + Anti-deop, anti-ban, auto-revenge, fishing mode
  9. ;  + Multi server, multi port, multi spoof (designed to run on AllNetwork IRC Servers)
  10. ;
  11. ;Notes:
  12. ;  > Combo kick is activated while master nick is on war channel
  13. ;  > Clone's anti-ban is activated while master nick is on base channel
  14. ;  > Recommended to change shift/single.nick, iden, serv, port, pass, base, chan
  15. ;
  16. ;irc.allnetwork.org 6667, #war
  17. ;Right to copy by PremaN
  18. ;**************************************************************************************
  19.  
  20. alias -l shift.nick { return Pr3maNshift Prem4Nshift PremaN5hift PremaNsh1ft Pr3m4Nshift Pr3maN5hift Pr3maNsh1ft Prem4N5hift Prem4Nsh1ft PremaN5h1ft }
  21. alias -l shift.iden { return 01 02 03 04 05 06 07 08 09 10 }
  22. alias -l shift.serv { return irc.velo.net.id irc.velo.net.id irc.velo.net.id irc.velo.net.id irc.velo.net.id irc.velo.net.id irc.velo.net.id irc.velo.net.id irc.velo.net.id irc.velo.net.id }
  23. alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 }
  24. alias -l shift.pass { return amboy08 amboy08 amboy08 amboy08 amboy08 amboy08 amboy08 amboy08 amboy08 amboy08 }
  25. alias -l shift.base { return #viruses }
  26. alias -l shift.chan { return #gowar }
  27.  
  28. alias -l single.nick { return PremaNsingle }
  29. alias -l single.iden { return lagi }
  30. alias -l single.serv { return irc.indowebster.com }
  31. alias -l single.port { return 6667 }
  32. alias -l single.pass { return idws52 }
  33. alias -l single.base { return #shift }
  34. alias -l single.chan { return #war }
  35.  
  36. on *:start:{
  37.   .fullname  $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  38.   hfree -w enemy.*
  39.   unset %shift.* %single.* %activemode
  40. }
  41.  
  42. on *:connect:{ raw -q join $shift.base }
  43.  
  44. on *:exit:{
  45.   hfree -w enemy.*
  46.   unset %shift.* %single.* %activemode
  47. }
  48.  
  49. ctcp *:version:*:{
  50.   ctcpreply $nick version  $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  14http://15www.hawkee.com14/snippet/4404/  $+ $chr(32) $+ 
  51. }
  52.  
  53. on !*:deop:#:{
  54.   if ($opnick == $me) {
  55.     ChanServ op $chan $opnick
  56.     if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
  57.       if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
  58.         if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
  59.           set %shift.r $nick
  60.           if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
  61.           if (!$sock($gettok($shift.nick,%shift.d,32))) {
  62.             var %shift.q = 1
  63.             while (%shift.q <= $numtok($shift.nick,32)) {
  64.               if ($sock($gettok($shift.nick,%shift.q,32))) {
  65.                 sockwrite -nt $gettok($shift.nick,%shift.q,32) join $shift.chan
  66.                 sockwrite -nt $gettok($shift.nick,%shift.q,32) mode $shift.chan +o $opnick
  67.                 set %shift.d %shift.q
  68.                 break
  69.               }
  70.               inc %shift.q
  71.             }
  72.           }
  73.           else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  74.         }
  75.       }
  76.     }
  77.     if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
  78.       if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
  79.         if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
  80.           set %single.f $nick
  81.           if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
  82.           if (!$sock(%single.a)) {
  83.             sockwrite -nt $single.nick join $single.chan
  84.             sockwrite -nt $single.nick mode $single.chan +o $opnick
  85.             set %single.a $single.nick
  86.           }
  87.           else { sockwrite -nt $single.nick kick $single.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  88.         }
  89.       }
  90.     }
  91.   }
  92. }
  93.  
  94. on !*:ban:#:{
  95.   if ($banmask iswm $address($me,5)) {
  96.     if ($me !isop $chan) { ChanServ op $chan $me }
  97.     raw -q mode $chan -b $banmask
  98.     if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
  99.       if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
  100.         if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
  101.           set %shift.r $nick
  102.           if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
  103.           if (!$sock($gettok($shift.nick,%shift.d,32))) {
  104.             var %shift.p = 1
  105.             while (%shift.p <= $numtok($shift.nick,32)) {
  106.               if ($sock($gettok($shift.nick,%shift.p,32))) {
  107.                 sockwrite -nt $gettok($shift.nick,%shift.p,32) join $shift.chan
  108.                 sockwrite -nt $gettok($shift.nick,%shift.p,32) mode $shift.chan -b $banmask
  109.                 set %shift.d %shift.p
  110.                 break
  111.               }
  112.               inc %shift.p
  113.             }
  114.           }
  115.           else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  116.         }
  117.       }
  118.     }
  119.     if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
  120.       if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
  121.         if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
  122.           set %single.f $nick
  123.           if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
  124.           if (!$sock(%single.a)) {
  125.             sockwrite -nt $single.nick join $single.chan
  126.             sockwrite -nt $single.nick mode $single.chan -b $banmask
  127.             set %single.a $single.nick
  128.           }
  129.           else { sockwrite -nt $single.nick kick $single.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  130.         }
  131.       }
  132.     }
  133.   }
  134.   else {
  135.     if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
  136.       if (($findtok($shift.nick,$ial($banmask).nick,32))) {
  137.         if ($me !isop $chan) { ChanServ op $chan $me }
  138.         raw -q mode $chan -b $banmask
  139.         if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
  140.           if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
  141.             set %shift.r $nick
  142.             if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
  143.             if (!$sock($gettok($shift.nick,%shift.d,32))) {
  144.               var %shift.o = 1
  145.               while (%shift.o <= $numtok($shift.nick,32)) {
  146.                 if ($sock($gettok($shift.nick,%shift.o,32))) {
  147.                   sockwrite -nt $gettok($shift.nick,%shift.o,32) join $shift.chan
  148.                   sockwrite -nt $gettok($shift.nick,%shift.o,32) mode $shift.chan -b $banmask
  149.                   set %shift.d %shift.o
  150.                   break
  151.                 }
  152.                 inc %shift.o
  153.               }
  154.             }
  155.             else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  156.           }
  157.         }
  158.       }
  159.     }
  160.     if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
  161.       if ($banmask iswm $address($single.nick,5)) {
  162.         if ($me !isop $chan) { ChanServ op $chan $me }
  163.         raw -q mode $chan -b $banmask
  164.         if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
  165.           if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
  166.             set %single.f $nick
  167.             if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
  168.             if (!$sock(%single.a)) {
  169.               sockwrite -nt $single.nick join $single.chan
  170.               sockwrite -nt $single.nick mode $single.chan -b $banmask
  171.               set %single.a $single.nick
  172.             }
  173.             else { sockwrite -nt $single.nick kick $single.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  174.           }
  175.         }
  176.       }
  177.     }
  178.   }
  179. }
  180.  
  181. on !*:kick:#:{
  182.   if ($knick == $me) {
  183.     if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
  184.       if ($chan == $shift.chan) {
  185.         raw -q join $shift.chan
  186.         if (($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
  187.           if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
  188.             set %shift.r $nick
  189.             if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
  190.             if (!$sock($gettok($shift.nick,%shift.d,32))) {
  191.               var %shift.n = 1
  192.               while (%shift.n <= $numtok($shift.nick,32)) {
  193.                 if ($sock($gettok($shift.nick,%shift.n,32))) {
  194.                   sockwrite -nt $gettok($shift.nick,%shift.n,32) join $shift.chan
  195.                   set %shift.d %shift.n
  196.                   break
  197.                 }
  198.                 inc %shift.n
  199.               }
  200.             }
  201.             else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  202.           }
  203.         }
  204.       }
  205.     }
  206.     if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
  207.       if ($chan == $single.chan) {
  208.         raw -q join $single.chan
  209.         if (($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
  210.           if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
  211.             set %single.f $nick
  212.             if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
  213.             if (!$sock(%single.a)) {
  214.               sockwrite -nt $single.nick join $single.chan
  215.               set %single.a $single.nick
  216.             }
  217.             else { sockwrite -nt $single.nick kick $single.chan $nick : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  218.           }
  219.         }
  220.       }
  221.     }
  222.   }
  223. }
  224.  
  225. on *:quit:{
  226.   if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
  227.     if (($findtok($shift.nick,$nick,32)) && (timeout isin $1-)) {
  228.       sockclose $nick
  229.       unset %shift.m [ $+ [ $findtok($shift.nick,$nick,32) ] ]
  230.       echo -s $chr(35) $+ $findtok($shift.nick,$nick,32) disconnected
  231.       var %shift.k = $findtok($shift.nick,$nick,32)
  232.       .timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $gettok($shift.serv,%shift.k,32) $gettok($shift.port,%shift.k,32)
  233.       if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  234.       while (%shift.d <= $numtok($shift.nick,32)) {
  235.         if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  236.         if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  237.           sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
  238.           set %shift.d $calc(%shift.d + 1)
  239.           break
  240.         }
  241.         inc %shift.d
  242.       }
  243.     }
  244.   }
  245.   if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
  246.     if (($nick == $single.nick) && (timeout isin $1-)) {
  247.       sockclose $nick
  248.       echo -s socket disconnected
  249.       .timersingleopen 1 5 sockopen $single.nick $single.serv $single.port
  250.     }
  251.   }
  252. }
  253.  
  254. on *:sockopen:*:{
  255.   if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
  256.     set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname
  257.     if ($sockerr > 0) {
  258.       sockclose $sockname
  259.       unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
  260.       return
  261.     }
  262.     echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
  263.     sockwrite -nt $sockname $1- nick $sockname
  264.     sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :0,1 Pr4e0maNhybrid 
  265.     sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
  266.   }
  267.   if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
  268.     if ($sockerr > 0) {
  269.       sockclose $sockname
  270.       return
  271.     }
  272.     echo -s socket connected: $sockname
  273.     sockwrite -nt $sockname $1- nick $sockname
  274.     sockwrite -nt $sockname user $single.iden x x :0,1 Pr4e0maNhybrid 
  275.     sockwrite -nt $sockname pass $single.pass
  276.   }
  277. }
  278.  
  279. on *:sockclose:*:{
  280.   if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
  281.     unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
  282.     echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
  283.     var %shift.l = $findtok($shift.nick,$sockname,32)
  284.     .timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $gettok($shift.serv,%shift.l,32) $gettok($shift.port,%shift.l,32)
  285.     if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  286.     while (%shift.d <= $numtok($shift.nick,32)) {
  287.       if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  288.       if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  289.         sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
  290.         set %shift.d $calc(%shift.d + 1)
  291.         break
  292.       }
  293.       inc %shift.d
  294.     }
  295.   }
  296.   if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
  297.     echo -s socket disconnected
  298.     .timersingleopen 1 5 sockopen $single.nick $single.serv $single.port
  299.   }
  300. }
  301.  
  302. on *:sockread:*:{
  303.   if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
  304.     if ($sockerr > 0) {
  305.       sockclose $sockname
  306.       unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
  307.       return
  308.     }
  309.     :shift
  310.     sockread -f %shift.i
  311.     if ($sockbr == 0) { return }
  312.     tokenize 32 %shift.i
  313.     if (($2 == mode) && ($3 == $shift.chan)) {
  314.       if (+o isin $4) {
  315.         if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
  316.           if ($me ison $shift.chan) {
  317.             unset %shift.r
  318.             var %shift.j = $nick($shift.chan,0)
  319.             while %shift.j {
  320.               if ((!$findtok($shift.nick,$nick($shift.chan,%shift.j),32)) && ($nick($shift.chan,%shift.j) != $single.nick) && ($hfind(enemy.nick.shift,$nick($shift.chan,%shift.j),0,W))) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%shift.j) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  321.               dec %shift.j
  322.             }
  323.           }
  324.           else {
  325.             if ((!$findtok($shift.nick,%shift.r,32)) && (%shift.r != $single.nick)) { sockwrite -nt $sockname kick $shift.chan %shift.r : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  326.             unset %shift.r
  327.           }
  328.         }
  329.       }
  330.       elseif (-o isin $4) {
  331.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
  332.           if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
  333.             sockwrite -nt $sockname ChanServ op $shift.chan $sockname
  334.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  335.               if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
  336.               if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
  337.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  338.               sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  339.             }
  340.           }
  341.           if (($5 == $me) || ($6 == $me) || ($7 == $me) || ($8 == $me)) {
  342.             sockwrite -nt $sockname ChanServ op $shift.chan $me
  343.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  344.               if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
  345.               if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
  346.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  347.               sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  348.             }
  349.           }
  350.         }
  351.       }
  352.       elseif (+b isin $4) {
  353.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
  354.           if (($findtok($shift.nick,$ial($5).nick,32)) || ($findtok($shift.nick,$ial($6).nick,32)) || ($findtok($shift.nick,$ial($7).nick,32)) || ($findtok($shift.nick,$ial($8).nick,32))) {
  355.             if ($findtok($shift.nick,$ial($5).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $5 }
  356.             if ($findtok($shift.nick,$ial($6).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $6 }
  357.             if ($findtok($shift.nick,$ial($7).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $7 }
  358.             if ($findtok($shift.nick,$ial($8).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $8 }
  359.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  360.               if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
  361.               if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
  362.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  363.               sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  364.             }
  365.           }
  366.           if (($5 iswm $address($me,5)) || ($6 iswm $address($me,5)) || ($7 iswm $address($me,5)) || ($8 iswm $address($me,5))) {
  367.             if ($5 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $5 }
  368.             if ($6 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $6 }
  369.             if ($7 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $7 }
  370.             if ($8 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $8 }
  371.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  372.               if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
  373.               if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
  374.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  375.               sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  376.             }
  377.           }
  378.         }
  379.       }
  380.     }
  381.     elseif (($2 == join) && ($shift.chan isin $3)) {
  382.       if (($hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) || ($hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) {
  383.         if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  384.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  385.       }    
  386.     }
  387.     elseif (($2 == kick) && ($3 == $shift.chan)) {
  388.       if (($4 == $sockname) || ($4 == $me)) {
  389.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($gettok($mid($1,2,$len($1)),1,33) != ChanServ)) {
  390.           if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
  391.           if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
  392.           if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  393.           if ($4 == $me) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  394.         }
  395.         if ($4 == $sockname) {
  396.           if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  397.           while (%shift.d <= $numtok($shift.nick,32)) {
  398.             if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  399.             if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  400.               sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
  401.               set %shift.d $calc(%shift.d + 1)
  402.               break
  403.             }
  404.             inc %shift.d
  405.           }
  406.         }
  407.       }
  408.     }
  409.     elseif ($2 == 001) {
  410.       sockwrite -nt $sockname join $shift.base
  411.       if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  412.       while (%shift.d <= $numtok($shift.nick,32)) {
  413.         if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  414.         if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  415.           sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
  416.           set %shift.d $calc(%shift.d + 1)
  417.           break
  418.         }
  419.         inc %shift.d
  420.       }
  421.     }
  422.     elseif ($2 == 451) {
  423.       sockwrite -nt $sockname $1- nick $sockname
  424.       sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  425.       sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
  426.     }
  427.     elseif ($2 == 474) {
  428.       if ($sock($gettok($shift.nick,%shift.d,32))) {
  429.         sockwrite -nt $gettok($shift.nick,%shift.d,32) ChanServ unban $shift.chan
  430.         sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  431.       }
  432.       while (%shift.d <= $numtok($shift.nick,32)) {
  433.         if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  434.         if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  435.           sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
  436.           set %shift.d $calc(%shift.d + 1)
  437.           break
  438.         }
  439.         inc %shift.d
  440.       }
  441.     }
  442.     if (version isin $1-) { sockwrite -nt $sockname notice $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/  $+ $chr(32) $+  }
  443.     if ($1 == PING) { sockwrite -nt $sockname PONG $2- }
  444.     goto shift
  445.   }
  446.   if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
  447.     if ($sockerr > 0) {
  448.       sockclose $sockname
  449.       return
  450.     }
  451.     :single
  452.     sockread -f %single.g
  453.     if ($sockbr == 0) { return }
  454.     tokenize 32 %single.g
  455.     if (($2 == mode) && ($3 == $single.chan)) {
  456.       if (+o isin $4) {
  457.         if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
  458.           if ($me ison $single.chan) {
  459.             unset %single.f
  460.             var %single.h = $nick($single.chan,0)
  461.             while %single.h {
  462.               if (($nick($single.chan,%single.h) != $single.nick) && (!$findtok($shift.nick,$nick($single.chan,%single.h),32)) && ($hfind(enemy.nick.single,$nick($single.chan,%single.h),0,W))) { sockwrite -nt $sockname kick $single.chan $nick($single.chan,%single.h) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  463.               dec %single.h
  464.             }
  465.           }
  466.           else {
  467.             if ((%single.f != $single.nick) && (!$findtok($shift.nick,%single.f,32))) { sockwrite -nt $sockname kick $single.chan %single.f : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  468.             unset %single.f
  469.           }
  470.         }
  471.       }
  472.       elseif (-o isin $4) {
  473.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
  474.           if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
  475.             sockwrite -nt $sockname ChanServ op $single.chan $sockname
  476.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  477.               if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
  478.               if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
  479.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  480.               sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  481.             }
  482.           }
  483.           if (($5 == $me) || ($6 == $me) || ($7 == $me) || ($8 == $me)) {
  484.             sockwrite -nt $sockname ChanServ op $single.chan $me
  485.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  486.               if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
  487.               if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
  488.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  489.               sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  490.             }
  491.           }
  492.         }
  493.       }
  494.       elseif (+b isin $4) {
  495.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
  496.           if (($findtok($single.nick,$ial($5).nick,32)) || ($findtok($single.nick,$ial($6).nick,32)) || ($findtok($single.nick,$ial($7).nick,32)) || ($findtok($single.nick,$ial($8).nick,32))) {
  497.             if ($findtok($single.nick,$ial($5).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $5 }
  498.             if ($findtok($single.nick,$ial($6).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $6 }
  499.             if ($findtok($single.nick,$ial($7).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $7 }
  500.             if ($findtok($single.nick,$ial($8).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $8 }
  501.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  502.               if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
  503.               if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
  504.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  505.               sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  506.             }
  507.           }
  508.           if (($5 iswm $address($me,5)) || ($6 iswm $address($me,5)) || ($7 iswm $address($me,5)) || ($8 iswm $address($me,5))) {
  509.             if ($5 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $5 }
  510.             if ($6 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $6 }
  511.             if ($7 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $7 }
  512.             if ($8 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $8 }
  513.             if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
  514.               if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
  515.               if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
  516.               if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  517.               sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  518.             }
  519.           }
  520.         }
  521.       }
  522.     }
  523.     elseif (($2 == join) && ($single.chan isin $3)) {
  524.       if (($hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) || ($hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) {
  525.         if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  526.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  527.       }    
  528.     }
  529.     elseif (($2 == kick) && ($3 == $single.chan)) {
  530.       if (($4 == $sockname) || ($4 == $me)) {
  531.         if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($gettok($mid($1,2,$len($1)),1,33) != ChanServ)) {
  532.           if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
  533.           if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
  534.           if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
  535.           if ($4 == $me) { sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  536.         }
  537.         if ($4 == $sockname) { .timersinglejoin 1 8 sockwrite -nt $sockname join $single.chan }
  538.       }
  539.     }
  540.     elseif ($2 == 001) {
  541.       sockwrite -nt $sockname join $single.base
  542.       if (%single.a) { sockwrite -nt $sockname join $single.chan }
  543.     }
  544.     elseif ($2 == 451) {
  545.       sockwrite -nt $sockname $1- nick $sockname
  546.       sockwrite -nt $sockname user $single.iden x x : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  547.       sockwrite -nt $sockname pass $single.pass
  548.     }
  549.     elseif ($2 == 474) {
  550.       sockwrite -nt $sockname ChanServ unban $single.chan
  551.       sockwrite -nt $sockname join $single.chan
  552.     }
  553.     if (version isin $1-) { sockwrite -nt $sockname notice $gettok($mid($1,2,$len($1)),1,33) : $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/  $+ $chr(32) $+  }
  554.     if ($1 == PING) { sockwrite -nt $sockname PONG $2- }
  555.     goto single
  556.   }
  557. }
  558.  
  559. raw 474:*:{
  560.   ChanServ unban $2
  561.   raw -q join $2
  562. }
  563.  
  564. raw 403:*:{ haltdef }
  565. raw 404:*:{ haltdef }
  566. raw 441:*:{ haltdef }
  567. raw 442:*:{ haltdef }
  568. raw 482:*:{ haltdef }
  569.  
  570. menu status,channel,nicklist,query {
  571.   PremaNhybrid
  572.   .Shift
  573.   ..Socket
  574.   ...Open:{
  575.     var %shift.a = 1
  576.     while (%shift.a <= $numtok($shift.nick,32)) {
  577.       if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) }
  578.       inc %shift.a
  579.     }
  580.     if (%activemode == single) { set %activemode hybrid }
  581.     elseif (%activemode != hybrid) { set %activemode shift }
  582.   }
  583.   ...Close:{
  584.     var %shift.b = 1
  585.     while (%shift.b <= $numtok($shift.nick,32)) {
  586.       if ($sock($gettok($shift.nick,%shift.b,32))) {
  587.         sockclose $gettok($shift.nick,%shift.b,32)
  588.         echo -s $chr(35) $+ %shift.b disconnected
  589.       }
  590.       inc %shift.b
  591.     }
  592.     if (%activemode == hybrid) { set %activemode single }
  593.     elseif (%activemode == shift) { unset %activemode }
  594.     .timershift* off
  595.     unset %shift.d %shift.r %shift.m*
  596.   }
  597.   ..Robot
  598.   ... $+ $iif(((!$var(%shift.m*,0)) || (%shift.d)),$style(2)) Join:{
  599.     var %shift.c = 1
  600.     while (%shift.c <= $numtok($shift.nick,32)) {
  601.       if ($sock($gettok($shift.nick,%shift.c,32))) {
  602.         sockwrite -nt $gettok($shift.nick,%shift.c,32) join $shift.chan
  603.         set %shift.d %shift.c
  604.         break
  605.       }
  606.       inc %shift.c
  607.     }
  608.   }
  609.   ... $+ $iif((!%shift.d),$style(2)) Part:{
  610.     sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  611.     unset %shift.d %shift.r
  612.   }
  613.   ... $+ $iif((!%shift.d),$style(2)) Cycle:{
  614.     if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  615.     while (%shift.d <= $numtok($shift.nick,32)) {
  616.       if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  617.       if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  618.         sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
  619.         set %shift.d $calc(%shift.d + 1)
  620.         break
  621.       }
  622.       inc %shift.d
  623.     }
  624.   }
  625.   ..Enemy
  626.   ... $+ $iif(((!%shift.d) || ($me !ison $shift.chan)),$style(2)) Kick:{
  627.     if ($menu == nicklist) {
  628.       if (($$1 != $gettok($shift.nick,%shift.d,32)) && ($$1 != $single.nick) && ($$1 != $me)) {
  629.         if (!$hfind(enemy.nick.shift,$$1,0,W)) { hadd -m enemy.nick.shift $$1 }
  630.         if (($ial($$1).host) && (!$hfind(enemy.host.shift,$ial($$1).host,0,W))) { hadd -m enemy.host.shift $ial($$1).host }
  631.         sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $$1 : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  632.       }
  633.     }
  634.     else {
  635.       var %shift.t = $?="Enter plain or wildcard nick:"
  636.       if ((%shift.t) && (%shift.t !iswm $gettok($shift.nick,%shift.d,32)) && (%shift.t !iswm $single.nick) && (%shift.t !iswm $me)) {
  637.         if (!$hfind(enemy.nick.shift,%shift.t,0,W)) { hadd -m enemy.nick.shift %shift.t }
  638.         if (($ial(%shift.t).host) && (!$hfind(enemy.host.shift,$ial(%shift.t).host,0,W))) { hadd -m enemy.host.shift $ial(%shift.t).host }
  639.         var %shift.e = $nick($shift.chan,0)
  640.         while %shift.e {
  641.           if ($hfind(enemy.nick.shift,$nick($shift.chan,%shift.e),0,W)) { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick($shift.chan,%shift.e) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  642.           dec %shift.e
  643.         }
  644.       }
  645.     }
  646.   }
  647.   ... $+ $iif(((!$hget(enemy.nick.shift)) && (!$hget(enemy.host.shift))),$style(2)) Clear:{
  648.     hfree -w *.shift
  649.     unset %shift.r
  650.     echo -s  $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared  $+ $chr(32) $+ 
  651.     if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) privmsg $shift.chan : $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared  $+ $chr(32) $+  }
  652.     else {
  653.       var %shift.f = 1
  654.       while (%shift.f <= $numtok($shift.nick,32)) {
  655.         if ($sock($gettok($shift.nick,%shift.f,32))) {
  656.           sockwrite -nt $gettok($shift.nick,%shift.f,32) privmsg $shift.base : $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared  $+ $chr(32) $+ 
  657.           break
  658.         }
  659.         inc %shift.f
  660.       }
  661.     }
  662.   }
  663.   ... $+ $iif(((!$hget(enemy.nick.shift)) && (!$hget(enemy.host.shift))),$style(2)) List:{
  664.     if ($hget(enemy.nick.shift)) {
  665.       echo -s  $+ $chr(32) $+ 0,1 Shift Enemy Nick  $+ $chr(32) $+ 
  666.       var %shift.g = $hget(enemy.nick.shift,0).item
  667.       while (%shift.g) {
  668.         echo -s $hget(enemy.nick.shift,%shift.g).item
  669.         dec %shift.g
  670.       }
  671.     }
  672.     if ($hget(enemy.host.shift)) {
  673.       echo -s  $+ $chr(32) $+ 0,1 Shift Enemy Host  $+ $chr(32) $+ 
  674.       var %shift.h = $hget(enemy.host.shift,0).item
  675.       while (%shift.h) {
  676.         echo -s $hget(enemy.host.shift,%shift.h).item
  677.         dec %shift.h
  678.       }
  679.     }
  680.   }
  681.   .Single
  682.   ..Socket
  683.   ...Open:{
  684.     if (!$sock($single.nick)) { .timersingleopen 1 5 sockopen $single.nick $single.serv $single.port }
  685.     if (%activemode == shift) { set %activemode hybrid }
  686.     elseif (%activemode != hybrid) { set %activemode single }
  687.   }
  688.   ...Close:{
  689.     if ($sock($single.nick)) {
  690.       sockclose $single.nick
  691.       echo -s socket disconnected
  692.     }
  693.     if (%activemode == hybrid) { set %activemode shift }
  694.     elseif (%activemode == single) { unset %activemode }
  695.     .timersingle* off
  696.     unset %single.a %single.f
  697.   }
  698.   ..Robot
  699.   ... $+ $iif(((!$sock($single.nick)) || (%single.a)),$style(2)) Join:{
  700.     if ($sock($single.nick)) {
  701.       sockwrite -nt $single.nick join $single.chan
  702.       set %single.a $single.nick
  703.     }
  704.   }
  705.   ... $+ $iif((!%single.a),$style(2)) Part:{
  706.     .timersinglejoin off
  707.     sockwrite -nt $single.nick part $single.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  708.     unset %single.a %single.f
  709.   }
  710.   ... $+ $iif((!%single.a),$style(2)) Cycle:{
  711.     if ($sock($single.nick)) {
  712.       sockwrite -nt $single.nick part $single.chan : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  713.       sockwrite -nt $single.nick join $single.chan
  714.     }
  715.   }
  716.   ..Enemy
  717.   ... $+ $iif(((!%single.a) || ($me !ison $single.chan)),$style(2)) Kick:{
  718.     if ($menu == nicklist) {
  719.       if (($$1 != $single.nick) && ($$1 != $gettok($shift.nick,%shift.d,32)) && ($$1 != $me)) {
  720.         if (!$hfind(enemy.nick.single,$$1,0,W)) { hadd -m enemy.nick.single $$1 }
  721.         if (($ial($$1).host) && (!$hfind(enemy.host.single,$ial($$1).host,0,W))) { hadd -m enemy.host.single $ial($$1).host }
  722.         sockwrite -nt $single.nick kick $single.chan $$1 : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+ 
  723.       }
  724.     }
  725.     else {
  726.       var %single.b = $?="Enter plain or wildcard nick:"
  727.       if ((%single.b) && (%single.b !iswm $single.nick) && (%single.b !iswm $gettok($shift.nick,%shift.d,32)) && (%single.b !iswm $me)) {
  728.         if (!$hfind(enemy.nick.single,%single.b,0,W)) { hadd -m enemy.nick.single %single.b }
  729.         if (($ial(%single.b).host) && (!$hfind(enemy.host.single,$ial(%single.b).host,0,W))) { hadd -m enemy.host.single $ial(%single.b).host }
  730.         var %single.c = $nick($single.chan,0)
  731.         while %single.c {
  732.           if ($hfind(enemy.nick.single,$nick($single.chan,%single.c),0,W)) { sockwrite -nt $single.nick kick $single.chan $nick($single.chan,%single.c) : $+ $chr(32) $+ 4,1 «®¤0[PLANETWORK]4¤®»  $+ $chr(32) $+  }
  733.           dec %single.c
  734.         }
  735.       }
  736.     }
  737.   }
  738.   ... $+ $iif(((!$hget(enemy.nick.single)) && (!$hget(enemy.host.single))),$style(2)) Clear:{
  739.     hfree -w *.single
  740.     unset %single.f
  741.     echo -s  $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared  $+ $chr(32) $+ 
  742.     if ($sock(%single.a)) { sockwrite -nt %single.a privmsg $single.chan : $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared  $+ $chr(32) $+  }
  743.     elseif ($sock($single.nick)) { sockwrite -nt $single.nick privmsg $single.base : $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared  $+ $chr(32) $+  }
  744.   }
  745.   ... $+ $iif(((!$hget(enemy.nick.single)) && (!$hget(enemy.host.single))),$style(2)) List:{
  746.     if ($hget(enemy.nick.single)) {
  747.       echo -s  $+ $chr(32) $+ 0,1 Single Enemy Nick  $+ $chr(32) $+ 
  748.       var %single.d = $hget(enemy.nick.single,0).item
  749.       while (%single.d) {
  750.         echo -s $hget(enemy.nick.single,%single.d).item
  751.         dec %single.d
  752.       }
  753.     }
  754.     if ($hget(enemy.host.single)) {
  755.       echo -s  $+ $chr(32) $+ 0,1 Single Enemy Host  $+ $chr(32) $+ 
  756.       var %single.e = $hget(enemy.host.single,0).item
  757.       while (%single.e) {
  758.         echo -s $hget(enemy.host.single,%single.e).item
  759.         dec %single.e
  760.       }
  761.     }
  762.   }
  763. }
Runtime error #stdin #stdout 0.02s 5312KB
comments (?)
stdin 
1
2
10
42
11
stdout 
Standard output is empty
https://ideone.com/h39QF
language:
Bash (bash 5.0.3)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!