egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-03-21T18:15:51-04:00 https://forum.eggheads.org/app.php/feed/topic/3954 2003-03-21T18:15:51-04:00 2003-03-21T18:15:51-04:00 https://forum.eggheads.org/viewtopic.php?p=18095#p18095 <![CDATA[Almost a good script --> Badnick]]>
that works PERFECT :lol:

manny tnx again for your help

that's what i call a little effective badnick.tcl
tnx mate :wink:

Statistics: Posted by Mackenzie — Fri Mar 21, 2003 6:15 pm

]]> 2003-03-21T13:03:50-04:00 2003-03-21T13:03:50-04:00 https://forum.eggheads.org/viewtopic.php?p=18088#p18088 <![CDATA[Almost a good script --> Badnick]]>

Code: 

bind nick - * Detected_changebad bind join - * Detected_changebadproc Detected_changebad {nick uhost hand chan {newnick ""}} { global badnicks botnick if {$newnick == ""} { set newnick $nick }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 $newnick"     putserv "KICK $chan $newnick :Ongepaste nick !!!"     return 0     }    } } }
This should react on the "badnicks" entering the channel

Statistics: Posted by Papillon — Fri Mar 21, 2003 1:03 pm

]]> 2003-03-21T11:52:09-04:00 2003-03-21T11:52:09-04:00 https://forum.eggheads.org/viewtopic.php?p=18083#p18083 <![CDATA[Almost a good script --> Badnick]]>
tip: read the tcl-commands.doc about binds
JOIN (stackable)
bind join <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel>

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.
Module: irc

tha'ts all sounds like Chinese :cry:
I was lookin' these the tcl commands from eggdrop1.6.13...but i don't know how to start :-?

is there no possibility to put a code also at the above nickchange.tcl then?

and with that code who reconise and react on join with the same badnicklist?

i know i'm stupid in tcl writing :cry:

Statistics: Posted by Mackenzie — Fri Mar 21, 2003 11:52 am

]]> 2003-03-21T10:51:07-04:00 2003-03-21T10:51:07-04:00 https://forum.eggheads.org/viewtopic.php?p=18080#p18080 <![CDATA[Almost a good script --> Badnick]]>
JOIN (stackable)
bind join <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel>

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.
Module: irc

Statistics: Posted by Papillon — Fri Mar 21, 2003 10:51 am

]]> 2003-03-21T10:38:12-04:00 2003-03-21T10:38:12-04:00 https://forum.eggheads.org/viewtopic.php?p=18079#p18079 <![CDATA[Re: Almost a good script --> Badnick]]>

Code: 

## Badnick scansset badnicks { "****" "*****"}
perhaps you should add some nicks here ^^ :D

Statistics: Posted by arcane — Fri Mar 21, 2003 10:38 am

]]> 2003-03-21T10:02:06-04:00 2003-03-21T10:02:06-04:00 https://forum.eggheads.org/viewtopic.php?p=18075#p18075 <![CDATA[Almost a good script --> Badnick]]>

Code: 

## -----------------------------------------------------------------------##                        Change Badnick.TCL ver 1.0                                ## -----------------------------------------------------------------------## Badnick scansset badnicks { "[censored]" "[censored]*"}## ----------------------------------------------------------------## --- Don't change anything below here if you don't know how ! ---## ----------------------------------------------------------------        set arg.v "Change Badnick protection"bind nick - * Detected_changebadproc 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 $newnick"    putserv "KICK $chan $newnick :Ongepaste nick !!!"    return 0    }    } }}## -----------------------------------------------------------------------putlog "-=-=   PROTECTION  PROSES   =-=-=-=-=-"putlog "Protections change badnick Ver 1.0:"putlog "${arg.v} loaded Successfuly..."##------------------------------------------------------------------------##                      ***    E N D   OF  ChangeBadnick1.0.TCL ***## -----------------------------------------------------------------------

this script works fine on a nick change...
but when somebody joins with a badnick it does nothing...

what code must be entered here to act also on a badnick join?
and ban the used badnick?

[/code]

Statistics: Posted by Mackenzie — Fri Mar 21, 2003 10:02 am

]]>