egghelp/eggheads community

Anti Racism

2007-06-24T07:19:18-04:00

Actually you can use stripcodes in eggdrop v1.6.17 or higher, and remove that strip codes proc.

Code:

set args [stripcodes bcruag $args]

Statistics: Posted by awyeah — Sun Jun 24, 2007 7:19 am

Anti Racism

2007-06-22T18:38:12-04:00

You probably used some editor which added a \n after 'if' or something like that causing it to become erroneous. Use a proper editor (such as notepad on windows) while pasting/editing code.

Statistics: Posted by Sir_Fz — Fri Jun 22, 2007 6:38 pm

Anti Racism

2007-06-22T11:27:48-04:00

Yeah, I fixed that, and then it showed me that error.

Statistics: Posted by irate — Fri Jun 22, 2007 11:27 am

Anti Racism

2007-06-22T10:41:05-04:00

I made a typo error (-nocaase) in the second if statement of the forward loop, i've updated the code in the post above. It should work now.

Statistics: Posted by r0t3n — Fri Jun 22, 2007 10:41 am

Anti Racism

2007-06-22T04:07:10-04:00

Does anyone know what's causing that error?

The conditional statement is incorrect.

Have a closer look.

This might help also: if manual page

Statistics: Posted by Alchera — Fri Jun 22, 2007 4:07 am

Anti Racism

2007-06-22T01:19:45-04:00

Does anyone know what's causing that error?

Statistics: Posted by irate — Fri Jun 22, 2007 1:19 am

Anti Racism

2007-06-21T17:11:43-04:00

There's an error still

Tcl error [filter_racism]: wrong # args: no expression after "if" argument

Thank you.

Statistics: Posted by irate — Thu Jun 21, 2007 5:11 pm

Anti Racism

2007-06-22T10:41:34-04:00

It would be easier to check if the word is protected/excempt before.

Try:

Code:

proc filter_advertisement {nick uhost handle channel text} {  global advwords advreason banmask botnick advduration advexemptwords  set text [ccodes:filter $text]  set racist 0  foreach word [split $text " "] {    if {![string match -nocase "*$word*" "$advexemptwords"]} {      if {[string match -nocase "*$word*" "$advwords"]} {        set racist 1        break      }    }  }  if {[matchattr $handle o|o $channel] && $racist} {    putserv "PRIVMSG #iratest :An admin $nick used a racist word ($text)."  } elseif {$racist} {    putserv "KICK $channel $nick :noob"  }}

Statistics: Posted by r0t3n — Thu Jun 21, 2007 2:04 pm

Anti Racism

2007-06-21T11:56:35-04:00

Code:

set advwords { "offensive word"}  ### Set Advertising Words that you want the Bot to EXEMPT (Dont count as spam)set advexemptwords { "night"}### Borrowed from awyeahs tcl scripts (www.awyeah.org) ###proc ccodes:filter {str} {  regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}## Binding all Public Messages to our Processbind pubm - * filter_advertisement## Starting Processproc filter_advertisement {nick uhost handle channel args} {  global advwords advreason banmask botnick advduration advexemptwords  set args [ccodes:filter $args]  set handle [nick2hand $nick]  foreach advword [string tolower $advwords] {    if {[string match *$advword* [string tolower $args]]}  {      foreach advexemptword [string tolower $advexemptwords] {             if {![string match *$advexemptword* [string tolower $args]]}  {          if {[matchattr $handle Kooky15]} {            } elseif {[matchattr $handle +o]} {            putserv "PRIVMSG #iratest :The admin $nick used a racist word ($args)."            } else {            putquick "KICK $channel $nick :noob"          }        }      }    }  }}

It halts after the second if, if someone could help me fix it, it would be great. Thanks!

Statistics: Posted by irate — Thu Jun 21, 2007 11:56 am