Kick specific user on word

starpossen · Post by **starpossen** » Sat Dec 09, 2006 10:36 pm

What im asking is, if a user says a word specified in the script or a txt file, it will kick him or her, like so:

Nick says noob
Bot then kicks the user
But only the user with the specified nick in the script or txt file.

Is this difficult to do, or am I requesting something stupid?

rosc2112 · Post by **rosc2112** » Sat Dec 09, 2006 11:00 pm

Not necessarily hard to do.. You'd just have 2 different lists, and do a test to AND them together.. Maybe I'll cobble something together for you (unless someone else wants to do it

starpossen · Post by **starpossen** » Sun Dec 10, 2006 12:09 am

Much appriciated.

Post by **Sir_Fz** » Sun Dec 10, 2006 9:20 am

So if I understand right, there should be a nick-list and a word-list. If someone whose nick is in the nick-list says a word from the word-list he should get kicked?

starpossen · Post by **starpossen** » Sun Dec 10, 2006 12:32 pm

Exactly, sorry if I messed up my explanation.
Maybe a predefined reason could be added to the kick?

rosc2112 · Post by **rosc2112** » Sun Dec 10, 2006 2:29 pm

Put in an option to add/remove nicks and words from within the script too and save em in a file.

starpossen · Post by **starpossen** » Mon Dec 11, 2006 7:23 pm

I like the ideas alot, but im still to n00bish but im reading alot thus no fan of reading, I do however takes notes of everything I can, so im looking forward to see the result of this one.

starpossen · Post by **starpossen** » Sat Dec 16, 2006 8:08 am

Sorry for being eager, just wanted to hear if the script is being worked on

rosc2112 · Post by **rosc2112** » Sat Dec 16, 2006 4:23 pm

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.

Post by **Sir_Fz** » Sun Dec 17, 2006 9:13 am

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

Code: Select all

# wordlist location
set wlloc scripts/wordlist.txt

# nicklist location
set nlloc scripts/nicklist.txt

bind pubm - * kickifnick
bind 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* savelists

if {[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.

starpossen · Post by **starpossen** » Sun Dec 17, 2006 1:56 pm

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.

metroid · Post by **metroid** » Sun Dec 17, 2006 3:19 pm

"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.

starpossen · Post by **starpossen** » Sun Dec 17, 2006 5:54 pm

metroid wrote:"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: Select all

bind pubm - * kickifnick
bind 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: Select all

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.

Post by **Sir_Fz** » Sun Dec 17, 2006 6:28 pm

PUB
bind pub <flags> <command> <proc>
procname <nick> <user@host> <handle> <channel> <text>

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

starpossen · Post by **starpossen** » Sun Dec 17, 2006 7:12 pm

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