Kick specific user on word

[rosc2112]

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.

[starpossen]

Does this look somewhat correct?

Code: Select all

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.

[rosc2112]

Code: Select all

# 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 dreamproc
bind msg - .dream dreammsg

proc 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

[starpossen]

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.

[rosc2112]

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.

[Sir_Fz]

Example

Code: Select all

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

[starpossen]

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.

[starpossen]

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