egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

need help with code - spam checker

 
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    egghelp.org community Forum Index -> Archive
View previous topic :: View next topic  
Author Message
z_one
Master


Joined: 14 Jan 2002
Posts: 269
Location: Canada

PostPosted: Sun May 12, 2002 4:26 pm    Post subject: Reply with quote

ok I have 2 bots. One is opped and the other is not.
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:
Quote:

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:
Quote:

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
}


[ This Message was edited by: z_one on 2002-05-13 04:32 ]
Back to top
View user's profile Send private message
Display posts from previous:   
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    egghelp.org community Forum Index -> Archive All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber