egghelp/eggheads community

Kick specific user on word

2007-01-12T19:15:55-04:00

I know bumping is annoying, but I was just hoping for someone to reply to my above post.

Statistics: Posted by starpossen — Fri Jan 12, 2007 7:15 pm

Kick specific user on word

2006-12-22T04:10:30-04:00

Okay, I think I have been looking for too long at the wwrong script, but finally im getting it, and I tested it and it works perfectly, thank you so much for putting up with my n00bness.

Now, is there anyway of making it react on the added word no matter what place it has in a line?
Like:
Badword: test
User type: this is a test

Cause now it works only if the badword is the first word.
Hope this is not to much to ask.

Statistics: Posted by starpossen — Fri Dec 22, 2006 4:10 am

Kick specific user on word

2006-12-21T20:36:07-04:00

Example

Code:

bind pub n .addnick [list addtolist nicklist]proc addtolist {t nick uhost hand chan arg} { upvar $t list if {[lsearch -exact $list [string tolower $arg]] == -1} {  lappend list [string tolower $arg]  puthelp "notice $nick :Successfully added $arg to $t." } {  puthelp "notice $nick :$arg already exists in $t." }}

Statistics: Posted by Sir_Fz — Thu Dec 21, 2006 8:36 pm

Kick specific user on word

2006-12-21T19:37:06-04:00

There's enough info to figure this out on your own. All you'd be doing is adding the above example of checking the channels from the lists, to your pub and msg proc's from the examples shown by sir_fz.

Statistics: Posted by rosc2112 — Thu Dec 21, 2006 7:37 pm

Kick specific user on word

2006-12-21T00:09:52-04:00

I appriciate the help, but I am so lost here, would it be possible that you would make the complete script or is that to much to ask?
If so then im sorry for not being able to read me out of this.

Statistics: Posted by starpossen — Thu Dec 21, 2006 12:09 am

Kick specific user on word

2006-12-18T07:00:14-04:00

Code:

# channels we allow public use in:set dreamchans "#mychan #chan2 #etc"# out of the above channels, these will only respond by PRIVMSG:set dreamquiet "#chan2 #etc"bind pub - .dream dreamprocbind msg - .dream dreammsgproc dreammsg {nick uhost hand text} {        if {![onchan $nick]} {return}        dreamproc $nick $uhost $hand privmsg $text        return}proc dreamproc {nick uhost hand chan text} {        if {([lsearch -exact $::dreamchans $chan] == -1) && ($chan != "privmsg")} {return}        if {([lsearch -exact $::dreamquiet $chan] != -1) || ($chan == "privmsg")} {set chan $nick}

partial example

Statistics: Posted by rosc2112 — Mon Dec 18, 2006 7:00 am

Kick specific user on word

2006-12-18T04:03:27-04:00

Does this look somewhat correct?

Code:

bind pub n .addnick pub:addnick proc pub:addnick {nick uhost hand chan arg} {set chan [string tolower $chan]}

Just a part of the script.

Statistics: Posted by starpossen — Mon Dec 18, 2006 4:03 am

Kick specific user on word

2006-12-17T20:06:57-04:00

Maybe look at other scripts to see how pub binds are done. And as far as channels, look at how other scripts add channel support (you can make a list of channels in the script, and the use lsearch to see if the current channel matches, or you can use the channel udef flags).. And as far as the warning stuff, take a look at the badchan script by mc_8 that's in the archive.

Statistics: Posted by rosc2112 — Sun Dec 17, 2006 8:06 pm

Kick specific user on word

2006-12-17T19:12:34-04:00

Yeah I read that, but I am so lost now, still reading though.

Statistics: Posted by starpossen — Sun Dec 17, 2006 7:12 pm

Kick specific user on word

2006-12-17T18:28:40-04:00

PUB
bind pub
procname

Description: used for commands given on a channel. The first word
becomes the command and everything else is the text argument.
Module: irc

Statistics: Posted by Sir_Fz — Sun Dec 17, 2006 6:28 pm

Kick specific user on word

2006-12-17T17:54:39-04:00

"Do it yourself"

It wouldn't hurt people to try something once in awhile. You can almost exactly copy the DCC code and change some things so it is MSG related.

Nice way to post to a newb, and I wouldnt be posting in a request section if I knew the stuff mtself, now would I?

Anyways, after been made fun of, I tried this:

Code:

bind pubm - * kickifnickbind pub n .addnick [list addtolist nicklist]bind pub n .addword [list addtolist wordlist]bind pub n .delnick [list delfromlist nicklist]bind pub n .delword [list delfromlist wordlist]

Ofcourse it didn't work, hence why I asked for help making it, the errors I got is:

Code:

Tcl error [addtolist t hand idx arg]: wrong # args: should be "addtolist t hand idx arg"

And yes errors codes are to most, often selfexplaining, but im getting confused now, so if someone would help me out I would appriciate a good answer.

Statistics: Posted by starpossen — Sun Dec 17, 2006 5:54 pm

Kick specific user on word

2006-12-17T15:19:27-04:00

"Do it yourself"

It wouldn't hurt people to try something once in awhile. You can almost exactly copy the DCC code and change some things so it is MSG related.

Statistics: Posted by metroid — Sun Dec 17, 2006 3:19 pm

Kick specific user on word

2006-12-17T13:56:32-04:00

I just tested it, and it works exactly as I wanted it to, now I have a few requests to add to the script if possible:

Public command for adding word and nick (ofcourse keep the dcc ones)
Define channel in which the action should be taken in (via dcc or public command)
Maybe a warning before kick, and a second warning, then ban.

I don't know if this is too much to ask, but I hope it would be possible.
Once again, thanks for helping out.

Statistics: Posted by starpossen — Sun Dec 17, 2006 1:56 pm

Kick specific user on word

2006-12-17T09:13:02-04:00

I didn't promise to do it but oh well...

Code:

# wordlist locationset wlloc scripts/wordlist.txt# nicklist locationset nlloc scripts/nicklist.txtbind pubm - * kickifnickbind DCC n addnick [list addtolist nicklist]bind DCC n addword [list addtolist wordlist]bind DCC n delnick [list delfromlist nicklist]bind DCC n delword [list delfromlist wordlist]bind time ?0* savelistsif {[file exists $wlloc]} { set wordlist [split [read [set fwl [open $wlloc]]] \n][close $fwl]} { set wordlist [list] }if {[file exists $nlloc]} { set nicklist [split [read [set fwl [open $wlloc]]] \n][close $fwl]} { set nicklist [list] }proc kickifnick {nick uhost hand chan arg} { global wordlist nicklist if {[lsearch -exact $nicklist [string tolower $nick]] != -1} {  set f 0  foreach w $wordlist {   if {[string match -nocase $w [string tolower $arg]]} {    set f 1    break   }  }  if {$f} {   putserv "kick $chan $nick :Bad word detected..."   putserv "mode $chan +b *!*@[lindex [split $uhost @] 1]"  } }}proc addtolist {t hand idx arg} { upvar $t list if {[lsearch -exact $list [string tolower $arg]] == -1} {  lappend list [string tolower $arg]  putdcc $idx "Successfully added $arg to $t." } {  putdcc $idx "$arg already exists in $t." }}proc delfromlist {t hand idx arg} { upvar $t list if {[set i [lsearch -exact $list [string tolower $arg]]] != -1} {  set list [lreplace $list $i $i]  putdcc $idx "Successfully deleted $arg from $t." } {  putdcc $idx "$arg does not exists in $t." }}proc savelists args { global nicklist wordlist nlloc wlloc set f1 [open $nlloc w] set f2 [open $wlloc w] foreach n $nicklist w $wordlist {  if {$n != ""} { puts $f1 $n }  if {$w != ""} { puts $f2 $n } } close $f1 close $f2}

To add words/nick use DCC command .addword and .addnick. To remove, use .delword and .delnick.

Not tested.

Statistics: Posted by Sir_Fz — Sun Dec 17, 2006 9:13 am

Kick specific user on word

2006-12-16T16:23:28-04:00

I assumed sir_fz was gonna make it. If he says he's not, I'll throw one together for you in a few days.

Statistics: Posted by rosc2112 — Sat Dec 16, 2006 4:23 pm