egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-07-10T03:47:02-04:00 https://forum.eggheads.org/app.php/feed/topic/4937 2003-07-10T03:47:02-04:00 2003-07-10T03:47:02-04:00 https://forum.eggheads.org/viewtopic.php?p=23248#p23248 <![CDATA[auto-voice flood protection]]>

Code: 

# Channels you want to auto-voice Nicks on. # Multiple channels seperated by spaces. # set av_chans "#TCLhelp #TCLlovers" set av(chans) "#cGameTesting #dGameTesting" # Set the max number of joins during the number of seconds hereset av(stuff) 3:13:7foreach chan [strlwr $av(chans)] {  if {![info exists av_ctr([strlwr $chan])] && [botonchan $chan]} {    set av_ctr([strlwr $chan]) 0  }}bind join - * auto:voice proc auto:voice {nick uhost handle chan} { global av_ctr  set chan [strlwr $chan]   if {![botisop $chan]} {    return  }  if {![info exists av_ctr($chan)]} {    set av_ctr($chan) 0  }   incr av_ctr($chan)  set limit [lindex [split $::av(stuff) ":"] 0]  set insec [lindex [split $::av(stuff) ":"] 1]  set offset [lindex [split $::av(stuff) ":"] 2]  # trying to see what is happening   putserv "PRIVMSG $chan :av_ctr($chan) is $av_ctr($chan)"   utimer $insec [list av:dec $chan]   if {$av_ctr($chan) >= $limit} {     return     } else {     utimer $offset [list av:voice $nick $chan]     return   } }proc av:dec {chan} {   global av_ctr  incr av_ctr($chan) -1   # trying to see what is happening   putserv "PRIVMSG $chan :av_ctr is $av_ctr($chan)" }proc av:voice {vnick vchan} {   if {[onchan $vnick $vchan] && ![isvoice $vnick $vchan]} {     pushmode $vchan +v $vnick   } }

Statistics: Posted by caesar — Thu Jul 10, 2003 3:47 am

]]> 2003-07-10T01:58:02-04:00 2003-07-10T01:58:02-04:00 https://forum.eggheads.org/viewtopic.php?p=23243#p23243 <![CDATA[auto-voice flood protection]]> waits to see if there is a join flood or if
the nick has already been +voiced or left
the channel before it tries to +voice him.

Tcl error [auto:voice]:
syntax error in expression "$av_ctr.($chan) >= $av_limit"

This script gives various errors,
I have made many changes without success.
Thank you for any help given.

Dedan

Code: 

# Channels you want to auto-voice Nicks on. # Multiple channels seperated by spaces.# set av_chans "#TCLhelp #TCLlovers"set av_chans "#cGameTesting #dGameTesting"# Set the Max Number of Joins hereset av_limit 3# During the Number of Seconds hereset av_sec 13# Set the Number of Seconds to wait before Voicing the Nick hereset av_offset 7bind join - * auto:voiceproc auto:voice {nick uhost handle chan} {  global botnick av_chans av_limit av_sec av_offset  set chan [string tolower $chan]  if {[botisop $chan]} {    foreach c [string tolower $av_chans] {      if {$c == $chan} {         if {![info exists av_ctr.($chan)]} { set av_ctr.($chan) 0 }        incr av_ctr.($chan) 1        # trying to see what is happening        putserv "PRIVMSG $chan :av_ctr.($chan) is $av_ctr.($chan)"        utimer $av_sec [list av:dec av_ctr.($chan)]        if {$av_ctr.($chan) >= $av_limit} {           return        } else {          utimer $av_offset [list av:voice $nick $chan]          return        }      }    }  }}proc av:dec {ctr} {   incr ctr -1   # trying to see what is happening  putserv "PRIVMSG $chan :ctr is $ctr"}proc av:voice {vnick vchan} {  if {[onchan $vnick $vchan] && ![isvoice $vnick $vchan]} {    pushmode $vchan +v $vnick  }}

Statistics: Posted by Dedan — Thu Jul 10, 2003 1:58 am

]]>