1.
      on ^*:KICK:#: { haltdef | if ($knick != $me) { echo -st $chan $chr(3) $+ $color(kick) * $knick ( $+ $address($knick,2) $+ ) was kicked from $chan by $nick ( $+ $address($nick,2) $+ ) ( $+ $1- $+ ) } | else { echo -ts $chr(3) $+ $color(kick) $+ * You were kicked from $chan by $nick ( $+ $address($nick,2) $+ ) ( $+ $1- $+ ) } }
   2.
       
   3.
      on *:load:{
   4.
        /set %notesname general+general2+general3+general4+general5
   5.
      }
   6.
      alias addwarnotes {
   7.
        set %_ %notesname
   8.
        while ($numtok(%_,43) > 0) {
   9.
          puthelp cs note # $gettok(%_,1,43) 8,4rogle runs th1s sh0w..
  10.
       
  11.
          set -u0 %_ $gettok(%_,2-,43)
  12.
        }
  13.
      }
  14.
       
  15.
      alias addbanzor {
  16.
        set %_ $replace($snicks,$chr(44),$chr(32))
  17.
        while ($numtok(%_,32) > 0) {
  18.
          /cs addban # $gettok(%_,1,32) 8,4rogle runs th1s sh0w..
  19.
       
  20.
          set -u0 %_ $gettok(%_,2-,32)
  21.
        }
  22.
      }
  23.
       
  24.
      alias thekicker {
  25.
        set %_ %kickbans
  26.
        while ($numtok(%_,43) > 0) {
  27.
          puthelp cs addban # $gettok(%_,1,43) 8,4rogle runs th1s sh0w..
  28.
          set -u0 %_ $gettok(%_,2-,43)
  29.
        }
  30.
      }
  31.
       
  32.
      alias kickops {
  33.
        var %tocount $nick(#,0,o)
  34.
        var %i 1
  35.
        while (%i <= %tocount ) {
  36.
          if ( $nick(#,%i,o) != $me ) {
  37.
            /cs addban # $nick(#,%i,o) 8,4rogle runs th1s sh0w..
  38.
       
  39.
          }
  40.
          inc %i   
  41.
        }
  42.
      }
  43.
       
  44.
       
  45.
      alias kickvoice {
  46.
        var %tocount $nick(#,0,v)
  47.
        var %i 1
  48.
        while (%i <= %tocount ) {
  49.
          if ( $nick(#,%i,v) != $me ) {
  50.
            /cs addban # $nick(#,%i,v) 8,4rogle runs th1s sh0w..
  51.
       
  52.
          }
  53.
          inc %i
  54.
        }
  55.
      }
  56.
       
  57.
      alias kickall {
  58.
        var %tocount $nick(#,0,a)
  59.
        var %i 1
  60.
        while (%i <= %tocount ) {
  61.
          if ( $nick(#,%i,a) != $me ) {
  62.
            /cs addban # $nick(#,%i,a) 8,4Srogle runs th1s sh0w..
  63.
       
  64.
          }
  65.
          inc %i
  66.
        }
  67.
      }
  68.
       
  69.
      alias kickallo {
  70.
        var %tocount $nick(#,0,a,o)
  71.
        var %i 1
  72.
        while (%i <= %tocount ) {
  73.
          if ( $nick(#,%i,a,o) != $me ) {
  74.
            /cs addban # $nick(#,%i,a,o) 8,4rogle runs th1s sh0w..
  75.
       
  76.
          }
  77.
          inc %i
  78.
        }
  79.
      }
  80.
      menu nicklist,channel {
  81.
        .Take Over
  82.
        ..Addban:addbanzor
  83.
        ..Usual addbans:/thekicker
  84.
        ..Lock Channel:/mode # +intsmlk 1 $rand(1,45461321) | /topic # 8,4w4r -- w4r c0rpz run this show. | /cs topic # 8,4 w4r runs this show. -> xxx
  85.
       
  86.
        ..Info Spam:/addwarnotes
  87.
        ..Addbans
  88.
        ...Addban Everyone From #:/kickall
  89.
        ...Addban @Ps From #:/kickops
  90.
        ...Addban Peons(+v) From #:/kickvoice
  91.
        ...Addban Everyone(No @ps) From #:/kickallo
  92.
       
  93.
      }
  94.
      alias puthelp {
  95.
        if ($hget(queue) == $null) hmake queue
  96.
        hinc queue max
  97.
        var %x = a $+ $hget(queue,max)
  98.
        hadd queue %x $1-
  99.
        if ($timer(queue) == $null) { .timerqueue -m 0 1000 sendqueue }
 100.
      }
 101.
      alias hinc { if ($hget($1)) { hadd $1 $2 $calc($hget($1,$2) + $iif($3 isnum,$3,1)) } }
 102.
      alias hdec { if ($hget($1)) { hadd $1 $2 $calc($hget($1,$2) - $iif($3 isnum,$3,1)) } }
 103.
      alias sendqueue {
 104.
        if ($hget(queue,a1) == $null) || ($hget(queue,max) <= 0) { .timerqueue off | return }
 105.
        var %comm = $hget(queue,a1)
 106.
        if ($left(%comm,2) == //) {
 107.
          .timer 1 0 %comm
 108.
        }
 109.
        if ($left(%comm,2) != //) {
 110.
          %comm
 111.
        }
 112.
        var %start = 2
 113.
        var %end = $hget(queue,max)
 114.
        while (%start <= %end) {
 115.
          var %cur = a $+ $calc(%start - 1)
 116.
          var %las = a $+ %start
 117.
          if ($hget(queue,%las)) hadd queue %cur $hget(queue,%las)
 118.
          inc %start
 119.
        }
 120.
        var %las = a $+ $hget(queue,max)
 121.
        hdel queue %las
 122.
        hadd queue max $calc($hget(queue,max) - 1)
 123.
      }