Fixing this repeat script to work on a channel

2005-06-24T22:23:40-04:00

Thank you I love you.

Statistics: Posted by stevegarbz — Fri Jun 24, 2005 10:23 pm

Fixing this repeat script to work on a channel

2005-06-24T12:44:42-04:00

add

Code:

setudef flag repeats

in the script, perhaps under the "bind nick" line.
then replace

Code:

if {[matchattr $nick mo|mo $chan] || [isop $nick $chan] || [isvoice $nick $chan] || [matchattr $nick o|o $chan]} {return 0}

with

Code:

if {[matchattr $nick mo|mo $chan] || [isop $nick $chan] || [isvoice $nick $chan] || [matchattr $nick o|o $chan] || ![channel get $chan repeats]} {return 0}

now all you have to do is .chanset #channel +repeats in order to enable this script on a channel.

btw, you should've posted this in the Script Support & Releases forum.

Statistics: Posted by Sir_Fz — Fri Jun 24, 2005 12:44 pm

Fixing this repeat script to work on a channel

2005-06-24T11:37:13-04:00

Code:

# Number of repeats before kickingset repeatkick 3# In how many secondsset repeattime 15# Kick msgset repeatmsg "You have gotten banned for repeating more than 3 lines in 15 seconds. 20 Minute Ban"# Also ban?set repeatban 1# How long the ban should last (in minutes)set repeatbantime 20# Don't edit below unless you know what you're doingbind pubm - * repeat_pubmbind ctcp - ACTION repeat_actionbind nick - * repeat_nickproc repeat_pubm {nick uhost hand chan text} {  if {[matchattr $nick mo|mo $chan] || [isop $nick $chan] || [isvoice $nick $chan] || [matchattr $nick o|o $chan]} {return 0}  global repeat_last repeat_num repeatkick repeatmsg repeatban repeatbantime  if [info exists repeat_last([set n [string tolower $nick]])] {    if {[string compare [string tolower $repeat_last($n)] \        [string tolower $text]] == 0} {      if {[incr repeat_num($n)] >= ${repeatkick}} {        if {$repeatban} {          set banmask "*!*[string range $uhost [string first "@" $uhost] end]"          newchanban $chan $banmask repeat $repeatmsg $repeatbantime        }        putserv "KICK $chan $nick :$repeatmsg"        unset repeat_last($n)        unset repeat_num($n)      }      return    }  }  set repeat_num($n) 1  set repeat_last($n) $text}proc repeat_action {nick uhost hand dest keyword text} {  if {[matchattr $nick mo|mo $dest] || [isop $nick $dest] || [isvoice $nick $dest] || [matchattr $nick o|o $dest]} {return 0}   global botnick altnick repeat_last repeat_num repeatkick repeatmsg repeatban repeatbantime  if [info exists repeat_last([set n [string tolower $nick]])] {    if {[string compare [string tolower $repeat_last($n)] \        [string tolower $text]] == 0} {      if {[incr repeat_num($n)] >= ${repeatkick}} {        if {$repeatban} {          set banmask "*!*[string range $uhost [string first "@" $uhost] end]"          newchanban $dest $banmask repeat $repeatmsg $repeatbantime        }        putserv "KICK $dest $nick :$repeatmsg"        unset repeat_last($n)        unset repeat_num($n)      }      return    }  }  set repeat_num($n) 1  set repeat_last($n) $text}proc repeat_nick {nick uhost hand chan newnick} {  if {[matchattr $nick mo|mo $chan] || [isop $nick $chan] || [isvoice $nick $chan] || [matchattr $nick o|o $chan]} {return 0}  global repeat_last repeat_num  catch {set repeat_last([set nn [string tolower $newnick]]) \         $repeat_last([set on [string tolower $nick]])}  catch {unset repeat_last($on)}  catch {set repeat_num($nn) $repeat_num($on)}  catch {unset repeat_num($on)}}proc repeat_timr {} {  global repeat_last repeattime  catch {unset repeat_last}  catch {unset repeat_num}  utimer $repeattime repeat_timr}if ![regexp repeat_timr [utimers]] {     # thanks to jaym  utimer $repeattime repeat_timr}putlog "Repeat flood by es loaded."

How would I define certain channels for this script to load on?

Statistics: Posted by stevegarbz — Fri Jun 24, 2005 11:37 am

egghelp/eggheads community

Fixing this repeat script to work on a channel

Fixing this repeat script to work on a channel

Fixing this repeat script to work on a channel