Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- on *:sockopen:kcXtreme-fl:{ if ($sockerr) { .signal -n recon-fl | halt } | sockwrite -n $sockname nick $+(kc,$r(1,10)) | sockwrite -n $sockname user $+(kcXtreme,$r(1,50)) . . 5,1«4«14kc4X14treme4»5» | set %logo-fl $r(1,5) }
- on *:sockclose:kcXtreme-fl:.signal -n recon-fl
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- on *:sockread:kcXtreme-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 3,1«9«14kc9X14treme9»3» 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 2m4IR8C10 Banjir Socket Owned By cd }
- 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) && (*Rehash* iswm $strip($mid($4-,2))) && ($hget(flood,0).item) { .signal -n recon-fl } | if (*Joining* iswm $strip($mid($4-,2))) { .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 | .inc -60 %kis } | 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(kcXtreme 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 Code | halt }
- if ($regex($strip(%txt),/[[:upper:]]/g) >= 50) { fkick %n Caps | halt }
- if ($regex($strip(%txt),/[[:digit:]]/g) >= 50) { fkick %n Numeric | halt }
- if ($regex($strip(%txt),/[[:punct:]]/g) >= 50) { fkick %n Punct | halt }
- if ($regex($strip(%txt),/[[:alnum:]]/g) >= 200) { fkick %n Length | halt }
- if ($regex($remove(%txt,$chr(160),$chr(32)),/[ $+($chr(131),-,$chr(255)) ]/g) >= 50) { fkick %n Ascii | halt }
- if ($regex($strip(%txt),/[ $+ $chr(160) $+ ]/g) >= 50) { fkick %n Blank | halt }
- if ($regex($strip(%txt),/(#|tp:/)/g)) { fkick %n Advertise | halt }
- if ($regex($strip(%txt),/(fuck|suck|kimak|puki)/g)) { fkick %n Rude | halt }
- }
- }
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- alias fkick {
- inc %fl
- if (%fl isnum %isnum-fl) { sockwrite -n kcXtreme-fl kick #flood $1 $logofl($2) | halt }
- if (%fl isnum $calc($gettok(%isnum-fl,2,45) + 1)) { .timer-delayfl -mo 1 999 .signal -n delaykick-fl }
- hadd -m flood $1 $2
- }
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- 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 kcXtreme-fl kick #flood %c $logofl(%r)
- hdel flood %c
- .timer-delayfl -mo 1 981 .signal -n delaykick-fl
- }
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- on *:signal:recon-fl:{
- .timer-delayfl off
- if (%xkicks) || (%xmiss) { echos -d 6,1«13«14kc13X14treme13»6» FL Total Kicks/Miss: $iif(%xkicks,%xkicks,0) $+ / $+ $iif(%xmiss,%xmiss,0) }
- unset %fl %xmiss %xkicks %kis
- hfree -w flood *
- sockclose kcXtreme-fl
- .timer-reconfl 1 1 sockopen kcXtreme-fl zildjan.mine.nu 7000
- echos -d 2,1«12«14kc12X14treme12»2» FL socket reconnect..
- }
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- 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(kcXtreme-fl).status == active) { sockwrite -n kcXtreme-fl privmsg #flood $1- | echo $color(normal) @debug-FL < $+ $sock(kcXtreme-fl).mark $+ > $1- | halt } }
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- alias logofl {
- goto $iif(%logo-fl,%logo-fl,$r(1,5))
- :1 | Return 3,1«9«14kc9X14treme3(9 $+ $1 $+ 3)14Overload9»3» 9 %kis
- :2 | Return 5,1«4«14kc4X14treme5(4 $+ $1 $+ 5)14Overload4»5» 4 %kis
- :3 | Return 7,1«8«14kc8X14treme7(8 $+ $1 $+ 7)14Overload8»7» 8 %kis
- :4 | Return 12,1«2«14kc12X14treme2(12 $+ $1 $+ 2)14Overload2»12» 12 %kis
- :5 | Return 6,1«13«14kc13X14treme6(13 $+ $1 $+ 6)14Overload13»6» 13 %kis
- }
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
- menu * {
- -= kcXtreme sOcket Banjir =-
- .$iif(%nick2,nick %nick2,set nick):set %nick2 $?"Nama Bot"
- .$iif(%pass2,pass %pass2,set pass):set %pass2 $?"Password Bot"
- .-
- .$iif(%isnum-fl,isnum %isnum-fl,set isnum):set %isnum-fl $?"Isnum bot (beza 23 clones max). cth.: 31-53"
- .-
- .load sock:.signal -n recon-fl
- .kill sock:sockclose kcXtreme-fl | unset %xmiss %xkicks %fl | hfree -w flood * | .timer-delayfl off | .timer-reconfl off | echos -d 5,1«4«14kc4X14treme4»5» FL socket successfully killed.
- .-
- .$iif(%debug == on,$style(1)) debug:set %debug $iif(%debug == on,off,on)
- }
- ;-----------------------------------------------------------------------------------------------------------------------«««««kcXtremë@banjir»»»»»----------------------------------------------------------------------------------------------------------------------;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement