Can Someone can give it a time and change it to mirc script.

Bingooss · Post by **Bingooss** » Tue Feb 08, 2005 8:42 pm

Hello everyone:-

I use a script which kicks and ban the chatter if someone while staying in the channel ,changes his nick to some bad nick. LIke if somene change his nick while he is present in the channel he get kicked..

the script is..

###############################################
#Badnick scans
set badnicks {
"asswipe"
"cock"
"sexy"
}

set arg.v "Change Badnick protection"

bind nick - * Detected_changebad

proc Detected_changebad {nick uhost hand chan newnick} {
global badnicks botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach badchange [string tolower $badnicks] {
if {[string match *$badchange* [string tolower $newnick]]} {
set banmask "*!*[string range $uhost [string first "@" $uhost] end]"
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $newnick :(Bad Nick)"
return 0
}
}
}
}

###############################################

If anyone of you have time can he change this script for me so that i can load this scirpt in my mirc as an addon. Advanced thanks if someone can give some time to it..

With REgards..

Bingooss....

^DooM^ · Post by **^DooM^** » Wed Feb 09, 2005 7:05 am

If you bothered to check the tcl archive you would of found the scripts you needed.

Click Me

Alchera · Post by **Alchera** » Wed Feb 09, 2005 7:18 am

^DooM^ wrote:If you bothered to check the tcl archive you would of found the scripts you needed.

Click Me

Bingooss wrote:change this script for me so that i can load this scirpt in my mirc

This site is for eggdrop and TCL help not for converting TCL scripts to a "language" no one here knows (or cares to know).

I suggest you visit the mIRC Message Board

^DooM^ · Post by **^DooM^** » Wed Feb 09, 2005 7:24 am

oops Bad me for not reading his post properly. i just saw the word mirc and got annoyed instantly

Ofloo · Post by **Ofloo** » Wed Feb 09, 2005 9:13 am