egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-05-12T16:26:00-04:00 https://forum.eggheads.org/app.php/feed/topic/1702 2002-05-12T16:26:00-04:00 2002-05-12T16:26:00-04:00 https://forum.eggheads.org/viewtopic.php?p=6874#p6874 <![CDATA[need help with code - spam checker]]> I want the deopped bot to send spam info to the one that is opped so it can kick.
I wrote 2 files. One for the opped bot and one for the deopped. Can anyone tell me why the code is not working. Thanks guys

Opped Bot File:
bind bot * "report" nospamz

proc nospamz {frombotz commandz argz} {
set spnick [string tolower [lindex $argz 0]]
set spip [string tolower [lindex $argz 1]]
set sptype [string tolower [lindex $argz 2]]
set spreason [lrange $argz 3 end]

switch -exact $sptype {
inviting {
putquick "MODE #mychan +b $spip"
putkick #mychan $spnick $sptype $spreason
}
advertising {
putquick "MODE #mychan +b $spip"
putkick #mychan $spnick $sptype $spreason
}
default { return }
}
}

Deopped Bot File:
bind msgm - *#* nospamiz
bind msgm - */server* nospamiz
bind msgm - *http://* nospamaz
bind msgm - *www.* nospamaz
bind msgm - *.com* nospamaz
bind msgm - *.net* nospamaz
bind msgm - *.org* nospamaz

proc nospamiz { nick uhost hand text } {
global botnick

if {[string compare $nick $botnick] == 0 } { return 0 }

set ipban "*!*[string range $uhost [string first @ $uhost] e]"

foreach channel [channels] {
if {![validchan $channel]} { continue }
putallbots "report $nick $ipban inviting Inviting detected"
}

return 1
}


proc nospamaz { nick uhost hand text } {
global botnick

if {[string compare $nick $botnick] == 0 } { return 0 }

set ipban "*!*[string range $uhost [string first @ $uhost] e]"

foreach channel [channels] {
if {![validchan $channel]} { continue }
putallbots "report $nick $ipban advertising Advertising detected"
}

return 1
}
<font size=-1>[ This Message was edited by: z_one on 2002-05-13 04:32 ]</font>

Statistics: Posted by z_one — Sun May 12, 2002 4:26 pm

]]>