Drone/Spam nick kicker (FIXED)

[anmlhckr]

on @!*:JOIN:#:{ 
  if ($regex($nick,/^[^aeiou]+$)) && (!$hget(letin,$nick)) && ($me isop $chan) {
    hadd -mu60 $+(kicked,$chan) $nick $rcode(5)
    ban # $nick 2 | Kick # $nick Possible spam bot.
    notice $nick To be unbaned PLEASE type this: /msg $me !unban # $hget($+(kicked,#),$nick)
  }
  elseif ($regex($Nick,/^[A-Z][a-z]+[0-9]{2}$/) && (Guest* !iswm $nick) && (!$hget(letin,$nick))) && ($me isop $chan) {
    hadd -mu60 $+(kicked,$chan) $nick $rcode(5) 
    ban # $nick 2 | Kick # $nick Your nickname is similar to an infected user, join #nohack for further help. 
    notice $nick To be unbaned PLEASE type this: /msg $me !unban # $hget($+(kicked,$chan),$nick)
  }
  elseif ($hget(latin,$nick)) { hdel letin $nick | halt }
}  
alias -l kbz { 
  if ($me isop $1) && ($2 ison $1) {
    var %a = address($1,2), $calc($mid($3-,2,$calc($len($3-) - 1)) * 60)
    ban $iif(+* iswm $3-,-ku $+ %t,-k) $1 $2 $iif(!$3,$read(kicks.txt),$iif(+* iswm $3,$addtok($iif(!$4,time'd /kb,$4-),$+([,$dur(%t) $iif($4,temp ban),]),32),$3-))
  }
}
alias -l kbq { 
  if ($me isop $1) && ($2 ison $1) {
    var %a = address($1,2), $calc($mid($3-,2,$calc($len($3-) - 1)) * 60)
    ban $iif(+* iswm $3-,-ku $+ %t,-k) $1 $2 $iif(!$3,$read(kicks.txt),$iif(+* iswm $3,$addtok($iif(!$4,time'd /kb,$4-),$+([,$dur(%t) $iif($4,temp ban),]),32),$3-))
  }
}

on *:TEXT:!unban *:?:{
  if (#* iswm $2) && ($hget($+(kicked,$2),$nick) == $3) && ($me isop $2) { mode $2 -b $wildsite | hadd -m letin $nick $2 | .notice $nick YOu can join again }
  elseif ($3 != $hget($+(kicked,$2),$Nick)) && ($hget($+(kicked,$2),$Nick)) { .notice $Nick SOrry but your access code is wrong | halt }
  elseif (!$2) || (#* !iswm $2) { .notice $nick You must specify a channel and code | halt }
  elseif ($me !isop $2) { .notice $Nick Sorry, but I i don't have the power to unban u in $2 | halt }
}

alias rcode {
  var %letters = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789, %x = $1
  while (%x) { var %code = %code $+ $mid(%letters,$r(1,62),1) | dec %x }
  return %code
}

[Cult]

nice one bro, and it`s faster than any other spam drone bot kickers.
i don`t think that many scripters used $regex in such protection.
first time to see it.

[anmlhckr]

Thanks dude, $regex are much better then anything and hash tables too, thanks for the comment.
Many ppl have asked me, WHY I MADE THIS CODE, Umm .. many OPS use a drone kicker, but they dont have a solution to unban the user and let him join without setting the REMOTES OFF. This code is gonna send the $knick a pass, which will let him be unbanned, and add him to a hash table, and never be banned as a DRONE.
While the next part of the kick which is the "elseif" part is gonna kick the users which their nicknames match "Eza19" "Melody10" Just read the $regex part and you will know, and it does the same thing that it do it in the drone part.. Thanks Cult.. Thanks for everone who is using it. .

[Cult]

thjanx for the explanation

[anmlhckr]

Ur welcome

[Cult]

Fixed

#Spamigh on
on @!*:JOIN:#:{ 
  if ( a !isin $nick ) && ( e !isin $nick ) && ( i !isin $nick ) && ( o !isin $nick ) && ( u !isin $nick ) && ( $asc($left($nick,3)) !isnum 65-97 ) && ( _ !isin $nick ) && ( ^ !isin $nick ) && ( - !isin $nick ) && ( 200 !isin $nick ) && ( ` !isin $nick ) && ($len($nick) > 3) && ( $mid($nick,1,1) != $mid($nick,2,1) ) && ( $mid($nick,1,1) != $mid($nick,3,1) ) && ( $right($nick,1) !isnum 0-9 ) && ( $asc($left($nick,1)) != 123 ) && (!$hget(letin,$nick)) && ($me isop $chan) {
    hadd -mu60 $+(kicked,$chan) $nick $rcode(5)
    ban # $nick 2 
    Kick # $nick Possible Spam Bot 4C14ult 
    .notice $nick To be unbaned PLEASE type this: /msg $me !unban # $hget($+(kicked,#),$nick)
  }
  elseif ($regex($Nick,/^[A-Z][a-z]+[0-9]{2}$/) && (Guest* !iswm $nick) && (!$hget(letin,$nick))) && ($me isop $chan) && ($chan != #HDtest) {
    hadd -mu60 $+(kicked,$chan) $nick $rcode(5) 
    ban # $nick 2  
    Kick # $nick Infected, Please Join #nohack 4C14ult
    .notice $nick To be unbaned PLEASE type this: /msg $me !unban # $hget($+(kicked,$chan),$nick)
  }
  elseif ($hget(latin,$nick)) { hdel letin $nick | halt }
}  
alias -l kbz { 
  if ($me isop $1) && ($2 ison $1) {
    var %a = address($1,2), $calc($mid($3-,2,$calc($len($3-) - 1)) * 60)
    ban $iif(+* iswm $3-,-ku $+ %t,-k) $1 $2 $iif(!$3,$read(kicks.txt),$iif(+* iswm $3,$addtok($iif(!$4,time'd /kb,$4-),$+([,$dur(%t) $iif($4,temp ban),]),32),$3-))
  }
}
alias -l kbq { 
  if ($me isop $1) && ($2 ison $1) {
    var %a = address($1,2), $calc($mid($3-,2,$calc($len($3-) - 1)) * 60)
    ban $iif(+* iswm $3-,-ku $+ %t,-k) $1 $2 $iif(!$3,$read(kicks.txt),$iif(+* iswm $3,$addtok($iif(!$4,time'd /kb,$4-),$+([,$dur(%t) $iif($4,temp ban),]),32),$3-))
  }
}
on *:TEXT:!unban *:?:{
  if (#* iswm $2) && ($hget($+(kicked,$2),$nick) == $3) && ($me isop $2) { mode $2 -b $wildsite | hadd -m letin $nick $2 | .notice $nick YOu can join again | ruser spammer $nick }
  elseif ($3 != $hget($+(kicked,$2),$Nick)) && ($hget($+(kicked,$2),$Nick)) { 
    .notice $Nick SOrry but your access code is wrong 
    halt 
  }
  elseif (!$2) || (#* !iswm $2) { 
.notice $nick You must specify a channel and code 
    halt 
  }
  elseif ($me !isop $2) { 
    .notice $Nick Sorry, but I i don't have the power to unban u in $2 
    halt
  }
}
alias rcode {
  var %letters = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX  YZ0123456789, %x = $1
  while (%x) { var %code = %code $+ $mid(%letters,$r(1,62),1) 
    dec %x 
  }
  return %code
}
#Spamigh end
menu status,menubar,channel {
  Drone Kick [[ %Spamigh ]] {
    if (%Spamigh == ON) { 
      .disable #Spamigh 
      set %Spamigh OFF 
      .echo 12 Drone Kick 4Off 
    } 
    else { 
      .enable #Spamigh 
      set %Spamigh ON 
      .echo 12 Drone kick 11ON 
    }
  }
}

[Cult]

needs some changes.
bug detected

[EmotiveCobra]

works great
butsome times when the no spammers send the code in the privt the script does not reply or do not responds properly !!!

[Cult]

Originally Posted by EmotiveCobra

works great
butsome times when the no spammers send the code in the privt the script does not reply or do not responds properly !!!

please can u show me some nicks that the script is not to.
this code should act on the spammers join.
i can manage it to make it kick spammers on message/notice/action also in the same code.

[anmlhckr]

Good one cult, but this may cause some problems.
First of all, it will cause lag, cause you added too many %vars, and on each join even occurs, the script wanna check if the nick is a drone from the VARIABLES, which will check more then 6 times, this may cause lag. Then, for the nicks, I guess EmotiveCobra is right, I am not sure, cause I didnt test the code yet, but I just read it, because not all the drone nicks are found in your code, so it wont work on few nicks, thanks.
Have a nice vacation, and Merry X-mas, happy new year.

[Cult]

Originally Posted by anmlhckr

Good one cult, but this may cause some problems.
First of all, it will cause lag, cause you added too many %vars, and on each join even occurs, the script wanna check if the nick is a drone from the VARIABLES, which will check more then 6 times, this may cause lag. Then, for the nicks, I guess EmotiveCobra is right, I am not sure, cause I didnt test the code yet, but I just read it, because not all the drone nicks are found in your code, so it wont work on few nicks, thanks.
Have a nice vacation, and Merry X-mas, happy new year.

first of all, good to have u back in here.
2`nd, u`r right bro. but thats what i tried to do, and i have said up there, i haven`t tested it, coz am not joining irc, so anyone see something wrong, plz let me know inorder to be fixed.

merry X-mass to u too bro. and wish that all u`r dreams come true this new year (K)

[anmlhckr]

Thanks bro, am glad that am back again .. Anyway .. Take care bro .. And we'll keep in touch ..

[Cult]

ok... i think there`s no more bugs in it now.
it won`t kick the nicks that were kicked and unbanned automatically any more.

#Spamigh on
on @!*:JOIN:#:{ 
  if ( a !isin $nick ) && ( e !isin $nick ) && ( i !isin $nick ) && ( o !isin $nick ) && ( u !isin $nick ) && ( $asc($left($nick,3)) !isnum 65-97 ) && ( _ !isin $nick ) && ( ^ !isin $nick ) && ( - !isin $nick ) && ( 200 !isin $nick ) && ( ` !isin $nick ) && ($len($nick) > 3) && ( $mid($nick,1,1) != $mid($nick,2,1) ) && ( $mid($nick,1,1) != $mid($nick,3,1) ) && ( $right($nick,1) !isnum 0-9 ) && ( $asc($left($nick,1)) != 123 ) && (!$hget(letin,$nick)) && ($me isop $chan) && ($ulevel != friend) {
    hadd -mu60 $+(kicked,$chan) $nick $rcode(5)
    ban # $nick 2 
    Kick # $nick Possible Spam Bot Detected. 4C14ult™ 
    .notice $nick To be unbaned PLEASE type this: /msg $me !unban # $hget($+(kicked,#),$nick) [AUTOMATED MSG] 4C14ult 4S14cript
  }
  elseif ($regex($Nick,/^[A-Z][a-z]+[0-9]{2}$/) && (Guest* !iswm $nick) && (!$hget(letin,$nick))) && ($me isop $chan) && ($ulevel != friend) {
    hadd -mu60 $+(kicked,$chan) $nick $rcode(5) 
    ban # $nick 2  
    Kick # $nick Infected, Please Join #nohack 4C14ult™
    .notice $nick To be unbaned PLEASE type this: /msg $me !unban # $hget($+(kicked,$chan),$nick) [AUTOMATED MSG] 4C14ult 4S14cript
  }
  elseif ($hget(latin,$nick)) { hdel letin $nick | halt }
}  
alias -l kbz { 
  if ($me isop $1) && ($2 ison $1) {
    var %a = address($1,2), $calc($mid($3-,2,$calc($len($3-) - 1)) * 60)
    ban $iif(+* iswm $3-,-ku $+ %t,-k) $1 $2 $iif(!$3,$read(kicks.txt),$iif(+* iswm $3,$addtok($iif(!$4,time'd /kb,$4-),$+([,$dur(%t) $iif($4,temp ban),]),32),$3-))
  }
}
alias -l kbq { 
  if ($me isop $1) && ($2 ison $1) {
    var %a = address($1,2), $calc($mid($3-,2,$calc($len($3-) - 1)) * 60)
    ban $iif(+* iswm $3-,-ku $+ %t,-k) $1 $2 $iif(!$3,$read(kicks.txt),$iif(+* iswm $3,$addtok($iif(!$4,time'd /kb,$4-),$+([,$dur(%t) $iif($4,temp ban),]),32),$3-))
  }
}
on *:TEXT:!unban *:?:{
  if (#* iswm $2) && ($hget($+(kicked,$2),$nick) == $3) && ($me isop $2) { 
    mode $2 -b $wildsite 
    hadd -m letin $nick $2 
    .notice $nick YOu can join again 
    auser friend $nick
  }
  elseif ($3 != $hget($+(kicked,$2),$Nick)) && ($hget($+(kicked,$2),$Nick)) { 
    .notice $Nick Sorry $nick Your Access Is Wrong. [AUTOMATED MSG] 4C14ult 4S14cript 
    halt 
  }
  elseif (!$2) || (#* !iswm $2) { 
    .notice $nick You Must Specify A Channel And Code. [AUTOMATED MSG] 4C14ult 4S14cript 
    halt 
  }
  elseif ($me !isop $2) { 
    .notice $Nick Sorry $nick But Am Not Oped In $2 [AUTOMATED MSG] 4C14ult 4S14cript 
    halt
  }
}
alias rcode {
  var %letters = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX  YZ0123456789, %x = $1
  while (%x) { var %code = %code $+ $mid(%letters,$r(1,62),1) 
    dec %x 
  }
  return %code
}
#Spamigh end
menu status,menubar,channel {
  Drone Kick [[ %Spamigh ]] {
    if (%Spamigh == ON) { 
      .disable #Spamigh 
      set %Spamigh OFF 
      .echo 4C14ult 4D14rone 4P14rotection 4I14s 4N14ow 4O14ff 
    } 
    else { 
      .enable #Spamigh 
      set %Spamigh ON 
      .echo 4C14ult 4D14rone 4P14rotection 4I14s 4N14ow 4O14n
    }
  }
}

[AYEHAN]

Can you please set access codes to notice besides private, coz its conflicting with my query blocker :/

Edit : Drone kicks isnt working with new code, only infected user kicks are working :/

[Cult]

Originally Posted by AYEHAN

Can you please set access codes to notice besides private, coz its conflicting with my query blocker :/

Edit : Drone kicks isnt working with new code, only infected user kicks are working :/

about access codes, didn`t get what u meant or needed, plz expain more.
Drone was working with me, i`l try it anyway.

[AYEHAN]

on *:TEXT:!unban *:?:{

i want this part as Notice, i mean user send me access codes via message is it possible i can replace msg with Notice

actually when they message me, script will unban them but also my query blocker sent them a notice too.

and yes sorry drone kicker is working too, but its like.... if it kicks 10 pplz before but now it kick only 1 ppl ... Kick Ratio is down and when i put attention on main i saw lots of drone nicks but no kicks :/ infected user kicks kick ratio is higher then before

[Cult]

Originally Posted by AYEHAN

on *:TEXT:!unban *:?:{

i want this part as Notice, i mean user send me access codes via message is it possible i can replace msg with Notice

actually when they message me, script will unban them but also my query blocker sent them a notice too.

and yes sorry drone kicker is working too, but its like.... if it kicks 10 pplz before but now it kick only 1 ppl ... Kick Ratio is down and when i put attention on main i saw lots of drone nicks but no kicks :/ infected user kicks kick ratio is higher then before

sure...



replace this:

/msg $me !unban # $hget($+(kicked,$chan),$nick)

with:

/notice $me !unban # $hget($+(kicked,$chan),$nick)

and:

on *:TEXT:!unban *:?:{

with

on *:NOTICE:!unban *:?:{

[AYEHAN]

Done Kicker needed a lil change found a bug

if u join channel with nick i.e Cult26 u will be kicked as infected person

first caps with digits in end makes ya Infected user