Drones Attacked =(

[TakaShi^^]

In Galaxynet Channel, There are many drones....how do i kick+ban them...

-enwzrnv:#mugaming- idler- Really Elite Arse Licking Idiot Serving Time In Cservice !!!
-enwzrnv:#mugaming- ^_____^idler- and Company, don't term yourselves (Hackers) cause you arent qualified to be one ^__^
* enwzrnv idler- Really Elite Arse Licking Idiot Serving Time In Cservice
* enwzrnv has left #mugaming (JOIN #singapore_indians idler- and Company, don't term yourselves (Hackers) cause you arent qualified to be one )



i cant find any tcl script tat can ban proxy ip =(

[Dizzle]

awyeah made this script earlier

its too kick drones and that sort of bots ans annoying ppl

Code: Select all

Set channels to activate drone-nick kick on. 
set dronechans "#channel" 

#Set the time to ban the drone for. 
set dronebantime "15" 

bind join - * drone:nick 

proc drone:nick {nick uhost hand chan} { 
 global botnick dronechans dronebantime 
  if {([lsearch -exact [split [string tolower $dronechans]] [string tolower $chan]] != -1)} { 
  if {([string length [string trimleft [string tolower [lindex [split $uhost "@"] 0]] "~"]] >= 4) && ([string length $nick] >= 6) && ([string length $nick] <= 12) && (![regexp -nocase "a" $nick] && ![regexp -nocase "e" $nick] && ![regexp -nocase "i" $nick] && ![regexp -nocase "o" $nick] && ![regexp -nocase "u" $nick] && ![regexp -nocase "mrs" $nick] && ![regexp -nocase "mr" $nick] && ![regexp -nocase "xyz" $nick] && ![regexp -nocase "dj" $nick] && ![regexp -nocase "chr" $nick] && ![regexp -nocase "fr" $nick] && ![regexp -nocase "msn" $nick] && ![regexp -nocase "dr" $nick]) && (([regexp {^[^aeiou_^-`]+$} $nick] && [regexp {[^0-9]?$} $nick]) || [regexp {^[A-z][0-9]{1,}$} $nick] || [regexp {^(\w){3}(\d){2}\w(\d){3}$} $nick] || [regexp "_\[0-9\]\[0-9\]$" $nick] || [regexp "^\[a-z\]\[a-z\]-" $nick] || [regexp "\[0-9\]\[0-9\]\[0-9\]$" $nick] || [regexp -nocase "gv" $nick] || [regexp -nocase "gz" $nick] || [regexp -nocase "qb" $nick] || [regexp -nocase "qc" $nick] || [regexp -nocase "qd" $nick] || [regexp -nocase "qf" $nick] || [regexp -nocase "qg" $nick] || [regexp -nocase "qh" $nick] || [regexp -nocase "qk" $nick] || [regexp -nocase "qm" $nick] || [regexp -nocase "qn" $nick] || [regexp -nocase "qp" $nick] || [regexp -nocase "qj" $nick] || [regexp -nocase "qr" $nick] || [regexp -nocase "qs" $nick] || [regexp -nocase "qt" $nick] || [regexp -nocase "qw" $nick] || [regexp -nocase "qv" $nick] || [regexp -nocase "qx" $nick] || [regexp -nocase "qz" $nick] || [regexp -nocase "xd" $nick] || [regexp -nocase "xf" $nick] || [regexp -nocase "xg" $nick] || [regexp -nocase "xh" $nick] || [regexp -nocase "xk" $nick] || [regexp -nocase "xm" $nick] || [regexp -nocase "xn" $nick] || [regexp -nocase "xq" $nick] || [regexp -nocase "xr" $nick] || [regexp -nocase "xt" $nick] || [regexp -nocase "xv" $nick] || [regexp -nocase "xz" $nick] || [regexp -nocase "zb" $nick] || [regexp -nocase "zc" $nick] || [regexp -nocase "zd" $nick] || [regexp -nocase "zf" $nick] || [regexp -nocase "zh" $nick] || [regexp -nocase "zm" $nick] || [regexp -nocase "zq" $nick] || [regexp -nocase "zr" $nick] || [regexp -nocase "zt" $nick] || [regexp -nocase "zv" $nick] || [regexp -nocase "zx" $nick] || [regexp -nocase "kz" $nick] || [regexp -nocase "lx" $nick] || [regexp -nocase "vb" $nick] || [regexp -nocase "vf" $nick] || [regexp -nocase "vg" $nick] || [regexp -nocase "vh" $nick] || [regexp -nocase "vk" $nick] || [regexp -nocase "vm" $nick] || [regexp -nocase "vn" $nick] || [regexp -nocase "vq" $nick] || [regexp -nocase "vx" $nick] || [regexp -nocase "vw" $nick] || [regexp -nocase "wj" $nick] || [regexp -nocase "jwm" $nick] || [regexp -nocase "ql" $nick] || [regexp -nocase "qy" $nick] || [regexp -nocase "xb" $nick] || [regexp -nocase "xc" $nick] || [regexp -nocase "xj" $nick] || [regexp -nocase "xl" $nick] || [regexp -nocase "xp" $nick] || [regexp -nocase "xs" $nick] || [regexp -nocase "xw" $nick] || [regexp -nocase "zg" $nick] || [regexp -nocase "zj" $nick] || [regexp -nocase "zk" $nick] || [regexp -nocase "zl" $nick] || [regexp -nocase "zn" $nick] || [regexp -nocase "zp" $nick] || [regexp -nocase "zs" $nick] || [regexp -nocase "zw" $nick] || [regexp -nocase "zx" $nick] || [regexp -nocase "zy" $nick] || [regexp -nocase "vc" $nick] || [regexp -nocase "vd" $nick] || [regexp -nocase "wx" $nick] || [regexp -nocase "vp" $nick] || [regexp -nocase "vs" $nick] || [regexp -nocase "vt" $nick] || [regexp -nocase "vp" $nick] || [regexp -nocase "vy" $nick] || [regexp -nocase "vz" $nick] || [regexp -nocase "wq" $nick] || [regexp -nocase "wx" $nick] || [regexp -nocase "wz" $nick]) > 0} { 
    if {[botisop $chan] && (![isbotnick $nick]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand mnof|mnof $chan])} { 
      putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" -next 
      putquick "KICK $chan $nick : Random/Drone Nick Kicker - Possibile Spam/Trojan/Virus/Worm infected drone or a Botnet/Spambot/Floodbot/Clonebot detected." 
      timer $dronebantime "pushmode $chan -b *!*@[lindex [split $uhost @] 1]" 
      } 
    } 
  } 
} 

putlog "Drone kicker loaded - Active on $dronechans"

Hope this works out your problem