Free Banjir Socket by at2deX Inc.

;.......................................................................................................................................................
on *:sockopen:kickass-fl:{ if ($sockerr) { .signal -n recon-fl | halt } | sockwrite -n $sockname nick $+(kickass,$r(1,999)) | sockwrite -n $sockname user $+(at2deX,$r(1,999)) . . KickAss by at2deX Inc. | set %logo-fl $r(1,7) }
on *:sockclose:kickass-fl:.signal -n recon-fl
;.......................................................................................................................................................
on *:sockread:kickass-fl:{
  if ($sockerr) { .signal -n recon-fl | halt }
  var %v | sockread %v | tokenize 32 %v
  if ($istok(ERROR 474,$2,32)) { .signal -n recon-fl }
  if ($1 == PING) { sockwrite -n $sockname PONG $2 }
  if ($2 == 441) { inc %xmiss | xdebug $color(normal) Miss: $4 is already kicked }
  if ($2 == MODE) && ($left($3,1) == $chr(35)) { xdebug $color(mode) $gettok($remove($1,$chr(58)),1,33) sets mode: $4- }
  if ($2 == QUIT) { xdebug $color(quit) Quits: $gettok($remove($1,$chr(58)),1,33) ( $+ $gettok($1,2,33) $+ ) ( $+ $mid($3-,2) $+ ) }
  if ($2 == NICK) && ($gettok($remove($1,$chr(58)),1,33) == $sock($sockname).mark) { sockmark $sockname $remove($3,:) }
  if ($2 == 001) { echos -d $color(normal) FL socket connected | sockmark $sockname $3 | sockwrite -n $sockname nick %nick2 | sockwrite -n $sockname ns identify %pass2 | sockwrite -n $sockname join #flood | sockwrite -n $sockname away Powered by at2deX Inc. $chr(91) http://at2deX.blogspot.com/ $chr(93) }
  if ($2 == PRIVMSG) && ($3 == #flood) && (!$regex($1,mine.nu)) { xdebug $color(normal) $+(<,$gettok($remove($1,$chr(58)),1,33),>) $remove($mid($4-,2),
ACTION,
) | if (:bot-birc* iswm $1) && (*Commencing* iswm $strip($mid($4-,2))) && ($hget(flood,0).item) { .signal -n recon-fl } }
  if ($2 == JOIN) && ($gettok($remove($1,$chr(58)),1,33) == $sock($sockname).mark) { echos -d $color(info) Socket joined #Flood | sockwrite -n $sockname privmsg bIRC op #flood 123456 }
  if ($2 == KICK) {
    var %kicker = $gettok($remove($1,$chr(58)),1,33)
    if (%kicker == $sock($sockname).mark) { inc %xkicks } | if ($hfind(flood,$4)) { hdel flood $4 } | if ($4 == $sock($sockname).mark) { .signal -n recon-fl }
    xdebug 10 4 $+ $4 10was kicked by4 %kicker (4 $+ $iif(kickass isin $strip($mid($5-,2)) || %kicker == $sock($sockname).mark,$mid($5-,2),$strip($mid($5-,2))) $+ )
  }
  if ($regex($1,mine.nu)) && ($regex($2,PRIVMSG|NOTICE)) {
    var %m = $mid($4-,2), %n = $gettok($remove($1,$chr(58)),1,33)
    if ($left(%m,1) == $chr(1)) && ($right(%m,1) == $chr(1)) && ($gettok($remove(%m,$chr(1)),1,32) != ACTION) { fkick %n Ctcp | halt }
    var %txt = $remove(%m,
ACTION,$chr(1))
    if ($regex(%txt,/[[:cntrl:]]/g) >= 50) { fkick %n Codes | halt }
    if ($regex($strip(%txt),/[[:upper:]]/g) >= 50) { fkick %n Caps | halt }
    if ($regex($strip(%txt),/[[:digit:]]/g) >= 50) { fkick %n Digits | halt }
    if ($regex($strip(%txt),/[[:punct:]]/g) >= 50) { fkick %n Symbols | halt }
    if ($regex($strip(%txt),/[[:alnum:]]/g) >= 200) { fkick %n Chars | halt }
    if ($regex($remove(%txt,$chr(160),$chr(32)),/[ $+($chr(131),-,$chr(255)) ]/g) >= 50) { fkick %n Asciis | halt }
    if ($regex($strip(%txt),/[ $+ $chr(160) $+ ]/g) >= 50) { fkick %n Blanks | halt }
    if ($regex($strip(%txt),/(#|tp:/)/g)) { fkick %n Spam | halt }
    if ($regex($strip(%txt),/(fuck|suck|kimak|puki)/g)) { fkick %n Swear | halt }
  }
}
;.......................................................................................................................................................
alias fkick {
  inc %fl
  if (%fl isnum %isnum-fl) { sockwrite -n kickass-fl kick #flood $1 $logofl($2) | halt }
  if (%fl isnum $calc($gettok(%isnum-fl,2,45) + 1)) { .timer-delayfl -mo 1 1999 .signal -n delaykick-fl }
  hadd -m flood $1 $2
}
;.......................................................................................................................................................
on *:signal:delaykick-fl:{
  if (!$hget(flood,0).item) { .signal -n recon-fl | halt }
  var %c = $hget(flood,$r(1,$hget(flood,0).item)).item, %r = $hget(flood,%c)
  sockwrite -n kickass-fl kick #flood %c $logofl(%r)
  hdel flood %c
  .timer-delayfl -mo 1 999 .signal -n delaykick-fl
}
;.......................................................................................................................................................
on *:signal:recon-fl:{
  .timer-delayfl off
  if (%xkicks) || (%xmiss) { echos -d $color(info) FL Kicks: $iif(%xkicks,%xkicks,0) $+ / $+ $iif(%xmiss,%xmiss,0) }
  unset %fl %xmiss %xkicks
  hfree -w flood *
  sockclose kickass-fl
  .timer-reconfl 1 1 sockopen kickass-fl zildjan.mine.nu 7000
  echos -d $color(normal) FL socket reconnect..
}
;.......................................................................................................................................................
alias -l xdebug { if (!%debug) { set %debug on } | if (%debug == on) { if (!$window(@debug-FL)) { window -e @debug-FL } | echo $1 @debug-FL $timestamp $2- } }
alias -l echos { echo $2 -s $timestamp $3- | if ($1 == -d) { xdebug $2- } }
on *:input:@debug-FL:{ if ($left($1,1) != /) && ($sock(kickass-fl).status == active) { sockwrite -n kickass-fl privmsg #flood $1- | echo $color(normal) @debug-FL < $+ $sock(kickass-fl).mark $+ > $1- | halt } }
;.......................................................................................................................................................
alias logofl {
  goto $iif(%logo-fl,%logo-fl,$r(1,7))
  :1 | return 14--15--0----7»4 $1 Flood Removal 14x3 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :2 | return 14--15--0----7»4 $1 Flood Removal 14x4 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :3 | return 14--15--0----7»4 $1 Flood Removal 14x7 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :4 | return 14--15--0----7»4 $1 Flood Removal 14x11 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :5 | return 14--15--0----7»4 $1 Flood Removal 14x12 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :6 | return 14--15--0----7»4 $1 Flood Removal 14x13 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :7 | return 14--15--0----7»4 $1 Flood Removal 14x8 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
}
;.......................................................................................................................................................
menu * {
  -x[ kickass fl ]x-
  .$iif(%nick2,nick %nick2,set nick):set %nick2 $?"Enter your bot's nickname"
  .$iif(%pass2,pass %pass2,set pass):set %pass2 $?"Enter your bot's password"
  .-
  .$iif(%isnum-fl,isnum %isnum-fl,set isnum):set %isnum-fl $?"Enter isnum (23 clones). E.g.: 1-23"
  .-
  .load sock:.signal -n recon-fl
  .kill sock:sockclose kickass-fl | unset %xmiss %xkicks %fl | hfree -w flood * | .timer-delayfl off | .timer-reconfl off | echos -d $color(info) FL socket successfully killed.
  .-
  .$iif(%debug == on,$style(1)) debug:set %debug $iif(%debug == on,off,on)
}
;.......................................................................................................................................................