Code:

####################################################################                                                                 ## Coded by: Opposing (Fz@nexushells.net) - #nexushells @ DALnet   ## Version: 1.0                                                    ###                                                                ## Description: Bankicks nicks who are suspicious of being         ##              infected with w32.aplore@mm Trojan/Virus/Worm.     ##              Translated from the Oz mirc addon.                 ##                                                                 ## Report bugs/suggestions to Fz at nexushells.net                 #################################################################################################### Configurations start here: ## __________________________ ### Set the channels you want this script to work on.## example: set aplore(chans) "#chan1 #chan2" (in lowercase)set aplore(chans) ""## Set the kick message.set aplore(kmsg) "w32.aplore@mm Trojan/Virus/Worm Infected."## Set, in minutes, ban time for this offence.set aplore(btime) "30"# Configurations end here. ##################################################################################################### Code starts here, please do not edit anything unless you know TCL: ## __________________________________________________________________ #bind join - * aplore:kickproc aplore:kick {nick uhost hand chan} { global aplore set aplorenick 0 if {([string is alpha $nick]) || ([string match *\[-^`_\]* $nick]) || ([lsearch -exact $aplore(chans) [string tolower $chan]] == -1)} { return 0 } scan $uhost %\[^@\]@%s ident host if {([string match -nocase "*[set sident [string trimleft $ident ~]]*" $nick]) && ([string is alpha [string range $nick 0 3]]) && ([string is integer [string range $nick end-1 end]]) && ([string is integer [string index $sident end]]) && ([string index $ident 0] == "~")} {  putquick "KICK $chan $nick :$aplore(kmsg)"  putquick "MODE $chan +b *!*@$host"  putlog "\002$nick\002!\002$ident\002 is infected with w32.aplore@mm." }}putlog "w32.aplore@mm bankick v1.0 by Opposing Loaded..."