egghelp/eggheads community

notice protection

2003-06-25T11:32:47-04:00

Well why don't u download tsunami.tcl 0.3 from here and use it, it works for both notice and longline tsunami floods and it has no buggs , just fix the mask u want it to ban. (posted earlier by caesar)

Statistics: Posted by Sir_Fz — Wed Jun 25, 2003 11:32 am

notice protection

2003-06-25T10:31:43-04:00

can't read "val(#channel)": no such element in array

now i get this , auch and how to make this to not kick ops?

and

16:34:11] *** bot sets mode: -o+b Doom
[16:34:11] *** You were kicked by bot (banned:No Channel Notice!! 5 min ban)
[16:34:11] *** Attempting to rejoin...
[16:34:13] *** ChanServ (service@dal.net) invites you to join #channel
[16:34:15] *** Rejoined channel #channel
[16:34:16] *** ChanServ sets mode: +o Doom
[16:34:17] *** ChanServ sets mode: +o Doom
[16:35:32] *** Doom sets mode: +o bot
[16:35:32] *** Bot sets mode: -o+b Doom
[16:35:32] *** ChanServ sets mode: +o Doom
[16:35:33] *** You were kicked by Sandzak (banned:No Channel Notice!! 5 min ban)
[16:35:33] *** Attempting to rejoin...

how to make bot to not ban me again when he get op and dont ban Ops..?

Statistics: Posted by Doom — Wed Jun 25, 2003 10:31 am

notice protection

2003-06-25T10:17:45-04:00

Aghhh.. damn.. replace from:

Code:

if {[matchattr $hand f|f $chan]} {

to:

Code:

if {[matchattr $hand f|f $dest]} {

sorry..

Statistics: Posted by caesar — Wed Jun 25, 2003 10:17 am

notice protection

2003-06-25T10:09:27-04:00

i got one more error

when someone notices the chan i get " Tcl error [chan:notice]: can't read "chan": no such variable" in the dcc party line

Statistics: Posted by Doom — Wed Jun 25, 2003 10:09 am

notice protection

2003-06-24T02:24:36-04:00

Oups, yes, that should do fine, forgot one ] ..

Statistics: Posted by caesar — Tue Jun 24, 2003 2:24 am

notice protection

2003-06-23T23:29:40-04:00

Quote ceasar..

set mask [maskhost [getchanhost $luser [strlwr $dest]]

chage it to..

Code:

set mask [maskhost [getchanhost $luser [strlwr $dest]]]

Hope the helps.
-----------
ThePope

Statistics: Posted by spyda — Mon Jun 23, 2003 11:29 pm

notice protection

2003-06-23T19:47:18-04:00

i got some error in it...

Tcl error [chan:notice]: missing close-bracket?

Statistics: Posted by Doom — Mon Jun 23, 2003 7:47 pm

notice protection

2003-06-20T10:44:23-04:00

I've made it for Sir_Fz in this topic. It is designed to lock the channel on x notices in y seconds with z channel modes. Anyway, it needs some changes.. I'll start doing them and make it public or something..

As for your questions:
1. add NickServ and Chanserv as a friend to your bot, then add:

Code:

if {[matchattr $hand f|f $chan]} {return}

before the "set cm [getchanmode [strlwr $dest]]"
2. for the banmask replace:

Code:

set mask "*!*@[lindex [split [getchanhost $luser [strlwr $dest]] @] 1]"

with:

Code:

set mask [maskhost [getchanhost $luser [strlwr $dest]]

Statistics: Posted by caesar — Fri Jun 20, 2003 10:44 am

notice protection

2003-06-20T09:55:48-04:00

##
# "x" notices sent to channel in "y" seconds will lock the channel for "z" minutes"
set ntl 1:1:60

##
# What channel modes do you want to be used when locking the channel?
set modes "MR"

##
# How the ban reason should sound like?
set ntcbreas "No Channel Notice!! 5 min ban"

##
# For how many minutes the flooder should be banned?
set ntctime 5

#
###
#### Done with configurations, do not edit past here unless you know TCL!
###
#

# binds #
bind notc - * chan:notice
bind part - * notice:part

# stuff #
set blist ""

# array fix #
foreach dest [channels] {
set ntc([strlwr $dest]) 0
}

# notice? #
proc chan:notice {nick uhost hand text dest} {
global ntc blist
if {[lindex [split $dest "@"] 0] == $::botnick || [lindex [split $dest "@"] 1] != ""} {
return
}
set cm [getchanmode [strlwr $dest]]
if {(([string match {+*[$::modes]*[::modes]*} $cm]) && ([llength [split $::modes]] == 1)) || (([string match {+*[::modes]*[::modes]* *} $cm]) && ([length [split $cm]] > 1))} { return }

if {![info exists ntc([strlwr $dest])]} { set ntc([strlwr $dest]) 0 }

lappend blist [strlwr $nick]
set nonotc [lindex [split $::ntl ":"] 0]
set insec [lindex [split $::ntl ":"] 1]
set unlockin [lindex [split $::ntl ":"] 2]
incr ntc([strlwr $dest])
utimer $insec [list reset [strlwr $dest]]
utimer $insec [list remove [strlwr $uhost]]
if {$ntc([strlwr $dest]) >= $nonotc} {
putquick "MODE [strlwr $dest] +$::modes" -next
foreach luser $blist {
set mask "*!*@[lindex [split [getchanhost $luser [strlwr $dest]] @] 1]"
newchanban [strlwr $dest] $mask $::botnick $::ntcbreas $::ntctime
}
utimer $unlockin [list unlock [strlwr $dest]]
}
}

# reset #
proc reset {dest} {
global ntc
incr ntc([strlwr $dest]) -1
return
}

# remove #
proc remove {nick} {
global blist
set index [lsearch -exact $blist [strlwr $nick]]
set blist [lreplace $blist $index $index]
return
}

# unlock #
proc unlock {dest} {
putquick "MODE [strlwr $dest] -$::modes"
return
}

# array remove #
proc notice:part {nick uhost hand chan msg} {
global ntc
if {$nick != $::botnick} {
return
}
foreach arr_part [array names ntc] {
if {[string match [strlwr $chan] $arr_part]} {
array unset ntc [strlwr $chan]
}
}
}

-
i found this script somewhere on this forum (dont remember what topic it was) so i want to change so scripts ban user on identd@host and it dont react on Chanserv/nickserv.?

Statistics: Posted by Doom — Fri Jun 20, 2003 9:55 am