egghelp/eggheads community

i don't think that without any examples i can do it. even with your help. I don't want leatn tcl i just want to create one small script.... maybe something like this is already created... then show me plz.

i want script to ban user which said *http://www.netwars.ru/go.php?login=*
But i want to be able to change the forbidden word, bantime, banmask and reason.
help.

you didn't understand... i want *!*user@host.domain banmask... So i must to put "set ident blahblahblah" before ban, and then ban will be something like this newchanban $chan *!*$ident.[string tolower [string range $uhost [string first @ $uhost] end]] quitban $qb_reason $qb_bantime or i'm ...

i'm using quitban.tcl 1.1 by slennox. I just want bot to ban people with this banmask: *!ident@host.com, but not *!*@host.com
Here is ban code:

+dynamicbans is already set. Maybe you didn't understand me....

1. About modification. i don't know how to to it. only thats why i have posted here my problem.

2. In russian language many users use "#" symbol like one of the letter of this Language.

So i have a good idea. Anti Channel Spam script. The Script must analize any line containing "#" symbol. Then he must see to Server's Channel List (/list) and if there is such channel, as line contain, only then he must ban user. Example: nick!ident@host.com: #huj - best channel /list #huj...

newchanban $chan *!$banident[string tolower [string range $uhost [string first @ $uhost] end]] quitban $qb_reason $qb_bantime it's my quitban script. So, bot sets ban to channel, and to bot (perm) But i want to set ONLY to partyline, to bot, but not to channel. So when banned user will join the cha...

i want to ban ALL users, but if the user's ident is longer than 7 symbols, bot should set banmask to *!7_last_ident_symbols@host.com.
And usual banmask should be *!ident@host.com.

Simply if the ident is long bot should remove first symbols and ban on *!7_last_ident_symbols@host.com

This is script's code: # quitban.tcl v1.1 (25 November 1999) # copyright © 1999 by slennox <slennox@egghelp.org> # This script bans people who quit with a specified quit message (except # for +f and +o users). Requested by Ahmed. # # v1.0 - Initial release. # v1.1 - Fixed 'stl' error for users witho...

(15:36:57) (repus) [15:36] Tcl error in file 'eggdrop.conf': (15:36:57) (repus) [15:36] invalid command name "}" (15:36:57) (repus) while executing (15:36:57) (repus) "}" (15:36:57) (repus) (file "scripts/quit.tcl" line 57) (15:36:57) (repus) invoked from within (15:36:...

CODE: if {[string match $quitmsg $reason]} { putlog "host: '$uhost'" set ident [string trimleft [lindex [split $uhost "@"] 0] "~"] if {[string len $ident]>7} { set ident [string trimleft [string trimright [string range $ident 7 end]] "~"] } newchanban $chan *!...

i only past in my ban awyeah's code may be he was mestaken

and by the way, will this work too? proc ban_host {nick uhost hand chan args} { set ident [string trimleft [lindex [split $uhost "@"] 0] "~"] if {([expr $ident] > 7)} { set ident [string trimleft [string trimright [string range $ident 7 end]] "~"] } set bhost *!$ident[s...

i had edited my ban script to this: set ident [string trimleft [lindex [split $uhost "@"] 0] "~"] if {([expr $ident] > 7)} { set ident [string trimleft [string trimright [string range $ident 7 end]] "~"] } newchanban $chan *!$ident[string tolower [string range $uhost [s...