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- $+ ) } }

on *:load:{
  /set %notesname general+general2+general3+general4+general5
}
alias addwarnotes {
  set %_ %notesname
  while ($numtok(%_,43) > 0) {
    puthelp cs note # $gettok(%_,1,43) 8,4chaddy runs th1s sh0w..

    set -u0 %_ $gettok(%_,2-,43)
  }
}

alias addbanzor {
  set %_ $replace($snicks,$chr(44),$chr(32))
  while ($numtok(%_,32) > 0) {
    /cs addban # $gettok(%_,1,32) 8,4chaddy runs th1s sh0w..

    set -u0 %_ $gettok(%_,2-,32)
  }
}

alias thekicker {
  set %_ %kickbans
  while ($numtok(%_,43) > 0) {
    puthelp cs addban # $gettok(%_,1,43) 8,4chaddy runs th1s sh0w..
    set -u0 %_ $gettok(%_,2-,43)
  }
}

alias kickops {
  var %tocount $nick(#,0,o)
  var %i 1
  while (%i <= %tocount ) {
    if ( $nick(#,%i,o) != $me ) {
      /cs addban # $nick(#,%i,o) 8,4chaddy runs th1s sh0w..

    }
    inc %i    
  }
}


alias kickvoice {
  var %tocount $nick(#,0,v)
  var %i 1
  while (%i <= %tocount ) {
    if ( $nick(#,%i,v) != $me ) {
      /cs addban # $nick(#,%i,v) 8,4chaddy runs th1s sh0w..

    }
    inc %i
  }
}

alias kickall {
  var %tocount $nick(#,0,a)
  var %i 1
  while (%i <= %tocount ) {
    if ( $nick(#,%i,a) != $me ) {
      /cs addban # $nick(#,%i,a) 8,4Schaddy runs th1s sh0w..

    }
    inc %i
  }
}

alias kickallo {
  var %tocount $nick(#,0,a,o)
  var %i 1
  while (%i <= %tocount ) {
    if ( $nick(#,%i,a,o) != $me ) {
      /cs addban # $nick(#,%i,a,o) 8,4chaddy runs th1s sh0w..

    } 
    inc %i
  }
}
menu nicklist,channel {
  .Take Over
  ..Addban:addbanzor 
  ..Usual addbans:/thekicker 
  ..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

  ..Info Spam:/addwarnotes
  ..Addbans
  ...Addban Everyone From #:/kickall
  ...Addban @Ps From #:/kickops
  ...Addban Peons(+v) From #:/kickvoice
  ...Addban Everyone(No @ps) From #:/kickallo

}
alias puthelp {
  if ($hget(queue) == $null) hmake queue
  hinc queue max
  var %x = a $+ $hget(queue,max)
  hadd queue %x $1-
  if ($timer(queue) == $null) { .timerqueue -m 0 1000 sendqueue }
}
alias hinc { if ($hget($1)) { hadd $1 $2 $calc($hget($1,$2) + $iif($3 isnum,$3,1)) } }
alias hdec { if ($hget($1)) { hadd $1 $2 $calc($hget($1,$2) - $iif($3 isnum,$3,1)) } }
alias sendqueue {
  if ($hget(queue,a1) == $null) || ($hget(queue,max) <= 0) { .timerqueue off | return }
  var %comm = $hget(queue,a1)
  if ($left(%comm,2) == //) {
    .timer 1 0 %comm
  }
  if ($left(%comm,2) != //) {
    %comm
  }
  var %start = 2
  var %end = $hget(queue,max)
  while (%start <= %end) {
    var %cur = a $+ $calc(%start - 1)
    var %las = a $+ %start
    if ($hget(queue,%las)) hadd queue %cur $hget(queue,%las)
    inc %start
  }
  var %las = a $+ $hget(queue,max)
  hdel queue %las
  hadd queue max $calc($hget(queue,max) - 1)
}