egghelp/eggheads community

Special anti Advertising Script

2003-07-10T06:34:07-04:00

read doc/tcl-commands.doc
on how to bind.
u need to bind mode. its not so hard if u try it.

Statistics: Posted by Sir_Fz — Thu Jul 10, 2003 6:34 am

...

2003-07-10T06:28:37-04:00

can you make that on the tcl pleaaaase
thx

Statistics: Posted by kurt_nirvana — Thu Jul 10, 2003 6:28 am

Special anti Advertising Script

2003-07-10T06:25:44-04:00

Make a bind for mode +b and check if nick is chanserv then killchanban $ban..

Statistics: Posted by caesar — Thu Jul 10, 2003 6:25 am

ops

2003-07-10T05:49:05-04:00

one more thing.
when the registered ops in chanserv are banned for pub, the chanserv unbans them and when they enter again to the channel the bot bans them again. How to make this stop?

Statistics: Posted by kurt_nirvana — Thu Jul 10, 2003 5:49 am

Special anti Advertising Script

2003-07-08T13:05:09-04:00

first replace the:

Code:

timer 20 "putserv \"INVITE $nick $chan\""

with:

Code:

timer 20 [list putserv "INVITE $nick $chan"]

move the *invite* thing before the "break" and it should work.

Statistics: Posted by caesar — Tue Jul 08, 2003 1:05 pm

hmm

2003-07-08T08:49:50-04:00

bind pubm - {* *#*} my:spam

proc my:spam {nick uhost hand chan text} {
if {![botisop $chan] || [isop $nick $chan]} { return }
foreach bla [split $text] {
if {[string match "#" $bla]} { continue }
if {[string match "#*" $bla]} {
if {[validchan $bla]} {
continue
}
set mask "*!*@[lindex [split $uhost @] 1]"
newban $mask Spam "\002 pela \002Pub\002 no \002$chan\002 " 20
timer 20 "putserv \"INVITE $nick $chan\""
break
}
}
}

IT WORKS thx

Statistics: Posted by kurt_nirvana — Tue Jul 08, 2003 8:49 am

Special anti Advertising Script

2003-07-08T04:59:56-04:00

try adding this after the ban line.
timer 20 "putserv \"INVITE $chan $nick\""

but I'm not sure if there is a command like INVITE in tcl.

Statistics: Posted by Sir_Fz — Tue Jul 08, 2003 4:59 am

:)

2003-07-07T16:25:44-04:00

thx, but that on a tcl will be like what??

Statistics: Posted by kurt_nirvana — Mon Jul 07, 2003 4:25 pm

Special anti Advertising Script

2003-07-07T14:47:50-04:00

You can do this in two way (or many, right now I have only two in my mind):
1. after a spammer is banned make a timer equal with the ban time wich will do the invite.
2. store in an array the mask and the nick of the spammer and upon a ban expire match the mask of the ban and invite the *nick*..

Statistics: Posted by caesar — Mon Jul 07, 2003 2:47 pm

...

2003-07-07T12:54:12-04:00

someone out there

Statistics: Posted by kurt_nirvana — Mon Jul 07, 2003 12:54 pm

invite after pub ban

2003-07-06T06:01:38-04:00

Hi. can u help me? how to make the bot invite the ppl who was ban by the bot when the ban time is over?
Thx

Statistics: Posted by kurt_nirvana — Sun Jul 06, 2003 6:01 am

Special anti Advertising Script

2003-06-25T00:49:36-04:00

This line:

} || [isop $nick $chan]} { return }

It should be:

Code:

if {[isop $nick $chan]} { return }

Anyway, here is the how the code should look like:

Code:

bind pubm - {* *#*} my:spam proc my:spam {nick uhost hand chan text} {   if {[isop $nick $chan]} { return }   foreach bla [split $text] {     if {[string match "#" $bla]} { continue }     if {[string match "#*" $bla]} {       if {[validchan $bla]} {         continue       }       set mask "*!*@[lindex [split $uhost @] 1]"       newban $mask Spam "\00220 minutes\002 ban for \002Spaming\002 within \002$chan\002 " 20       if {[string match "*@*.users.undernet.org" $uhost]} {         putserv "PRIVMSG X :ban $chan $mask 336 100 spaming"       }      break     }   } }

Statistics: Posted by caesar — Wed Jun 25, 2003 12:49 am

Special anti Advertising Script

2003-06-24T18:43:29-04:00

[17:40] Tcl error in file 'bot4.con':
[17:40] wrong # args: should be "proc name args body"
while executing
"proc my:spam {nick uhost hand chan text} {
if {[string match "*@*.users.undernet.org" $uhost]} {
putserv "PRIVMSG X :ban $chan $mask 336 100 spami..."
(file "scripts/spam.tcl" line 3)
invoked from within
"source scripts/spam.tcl"
(file "bot4.con" line 1100)

This is what the tcl looks like ? Can see what i did wrong?

bind pubm - {* *#*} my:spam

proc my:spam {nick uhost hand chan text} {
if {[string match "*@*.users.undernet.org" $uhost]} {
putserv "PRIVMSG X :ban $chan $mask 336 100 spaming"
} || [isop $nick $chan]} { return }
foreach bla [split $text] {
if {[string match "#" $bla]} { continue }
if {[string match "#*" $bla]} {
if {[validchan $bla]} {
continue
}
set mask "*!*@[lindex [split $uhost @] 1]"
newban $mask Spam "\00220 minutes\002 ban for \002Spaming\002 within \002$chan\002 " 20
break
}
}
}

Statistics: Posted by rileyvrh — Tue Jun 24, 2003 6:43 pm

Special anti Advertising Script

2003-06-24T18:34:28-04:00

ceasar if this works i'll shave my head with your name in it.

Statistics: Posted by rileyvrh — Tue Jun 24, 2003 6:34 pm

Special anti Advertising Script

2003-06-24T16:46:05-04:00

In this case drop the "![botisop $chan]" and add before the "break" this lines:

Code:

if {[string match "*@*.users.undernet.org" $uhost]} {putserv "PRIVMSG X :ban $chan $mask 336 100 add a reason here.."}

Statistics: Posted by caesar — Tue Jun 24, 2003 4:46 pm