Devoice on repeats

[Lucifer]

hey can anybody help me with script to devoice ppl on repeats msg/actions ???

[TCL_no_TK]

Please use Sir_Fz's code below thnx

[Lucifer]

Thanks mate, but got an error can u fix it please...
Tcl error [pubm:repeat_devoice]: expected boolean value but got ""

[Sir_Fz]

Try

Code: Select all

# repeats:seconds
set nrepeats 3:2

bind pubm - * devoice:repeats
bind ctcp - ACTION devoice:repeats

proc devoice:repeats {nick uhost hand chan arg {arg2 ""}} {
 global nrepeats
 if {![validchan $chan] || ![isvoice $nick $chan]} {return}
 if {$arg2 != ""} {
  set arg $arg2
 }
 foreach {o s} [split $nrepeats :] {break}
 set arg [md5 $nick:$uhost:$chan:[stripcodes bcruag $arg]]
 if {[flooded $arg $s $o]} {
  pushmode $chan -v $nick
 }
}

proc flooded {id s o} {
 global flooded
 if {![info exists flooded($id)]} {
  set flooded($id) 0
  utimer $s [list unset flooded($id)]
 }
 expr {[incr flooded($id)] >= $o}
}

[TCL_no_TK]

thnx Fz
@Lucifer will take a while before i can test the script, but ive already loaded it up and got the same error message, so it'll fix it over the weekend if i get the time.