on part ban

ReaLz · Post by **ReaLz** » Sun Apr 13, 2003 5:04 pm

how could I make a script that checks the part msgs of the people that part and if it sees an msg like "[censored]" for example to perm ban it?

spock · Post by **spock** » Sun Apr 13, 2003 5:57 pm

should be somewhat obvious after reading doc/tcl-commands.doc
cut&paste skills:

bind part <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel> <msg>

Post by **caesar** » Mon Apr 14, 2003 2:42 am

Code: Select all

bind part - * part:ban

proc part:ban {nick uhost handle channel reason} {
  if {$nick == $::botnick || ![string match "*bla*" $reason]} { return }
  set mask "*!*@[lindex [split $uhost @] 1]"
  newchanban $channel $mask PartBan "due your last part reason" 0
}

Replace the "*bla*" and "due your last part reason" with what suits you better.

ReaLz · Post by **ReaLz** » Mon Apr 14, 2003 3:43 pm

thanx man

ReaLz · Post by **ReaLz** » Mon Apr 14, 2003 3:50 pm

uhm... I want something else if you can..
a script like the last one for channel notices... if the bot sees the word in the channel notice i want it to perm ban it..

Post by **caesar** » Mon Apr 14, 2003 4:22 pm

Code: Select all

bind notc - * bad:notice

proc bad:notice {nick uhost hand text dest} {
  if {[lindex [split $dest "@"] 0] == $::botnick || [lindex [split $dest "@"] 1] != "" || ![string match "*bla*" $text]} { return }
  set mask "*!*@[lindex [split $uhost @] 1]"
  newchanban $dest $mask BadNotice "bad notice" 0
}

As usualy replace the messages as suit you better.