swproc error in tcl script

[Nucleus]

Code: Select all

bind pubm - "*badword1*" swproc
bind pubm - "*badword2*" swproc
bind pubm - "*badword3*" swproc
bind pubm - "*badword4*" swproc
 

set swdura 600
set swkick "Swearing"

######## CODE - DO NOT TOUCH ########


bind ctcp - ACTION ctcp:badword 

proc ctcp:badword {nick uhost hand chan keyword text} { 
 if {[string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text]} { 
  swproc $nick $uhost $hand $chan $text 
 } 
}

putlog "=====>> Swearing Protection Loaded"

This script gives me this error in the partyline.

Code: Select all

[22:16] Tcl error [swproc]: invalid command name "swproc"
[22:23] Tcl error [swproc]: invalid command name "swproc"
[22:24] Tcl error [swproc]: invalid command name "swproc"

Whats wrong with it? How do i fix it?

[r0t3n]

the proc 'swproc' does not exist maybe . And why so many string match -nocase's .

[Nucleus]

i have no idea. Any suggestions on fixing it?

[r0t3n]

Code: Select all

set badwords { 
"badword"
"badword1"
"badword2"
"badword3"
"etc"
}

 
bind pub - * pub:badword

proc pub:badword {nick host hand chan text} {
  if {![matchattr $hand nmo|nmof]} {
    if {[string match "*$badwords*" $text]} {
      set badword $text
      putserv "KICK $chan $nick $badword is a badword"
    }
  }
}

Try that. Set badwords to the badwords you want. If a badword is detected, the person is kicked from the channel.

Tell me what you want in it, kick and then ban the user. Just ask me .

[Nucleus]

ban (channel ban) and then kick. Thanks

[Merk0r]

That's all wrong.

Code: Select all

set badwords {
"badword"
"badword1"
"badword2"
"badword3"
"etc"
}

 
bind pubm - * pub:badword

proc pub:badword {nick host hand chan text} {
  global badwords
  if {![matchattr $hand nmo|nmof]} {
     foreach badword $badwords {
       if {[string match *$badword* $text]} {
         putserv "KICK $chan $nick :You are not allowed to say $badword"
         break
       }
     }
   }
 } 

[Dizzle]

Code: Select all

set banreason "Used a badword"

set badwords { 
"badword" 
"badword1" 
"badword2" 
"badword3" 
"etc" 
} 

  
bind pubm - * pub:badword 

proc pub:badword {nick host hand chan text} { 
  global badwords banreason
  if {![matchattr $hand nmo|nmof]} { 
     foreach badword $badwords { 
       if {[string match *$badword* $text]} { 
         putserv "KICK $chan $nick :You are not allowed to say $badword"
         set ban *!*[string tolower [string range $uhost [string first @ $uhost] end]] 
         newchanban $chan $ban BadWord $banreason 15 
       } 
     } 
   } 
 } 

That with a channelban, its ban like *!*@user.domain.com

[Merk0r]

Code: Select all

set banreason "Badword was detected in your text"
set bantime "15"

set badwords {
"badword"
"badword1"
"badword2"
"badword3"
"etc"
}

 
bind pubm - * pub:badword

proc pub:badword {nick host hand chan text} {
  global badwords banreason bantime
  if {![matchattr $hand nmo|nmof]} {
     foreach badword $badwords {
       if {[string match *$badword* $text]} {
         putserv "KICK $chan $nick :You are not allowed to say $badword"
         newchanban $chan *![string map ~ * $host] BadWord $banreason $bantime none
       }
     }
   }
 }