Special anti Advertising Script

[caesar]

This line:

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

It should be:

Code: Select all

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

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

Code: Select all

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 
    } 
  } 
}

[kurt_nirvana]

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

[kurt_nirvana]

someone out there

[caesar]

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*..

[kurt_nirvana]

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

[Sir_Fz]

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.

[kurt_nirvana]

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

[caesar]

first replace the:

Code: Select all

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

with:

Code: Select all

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

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

[kurt_nirvana]

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?

[caesar]

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

[kurt_nirvana]

can you make that on the tcl pleaaaase
thx

[Sir_Fz]

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