Code:

setudef flag repeat set repeat-kick 3set redura 40set rekick "4Repeating Is Forbidden!!"bind pubm - * repeat_pubmproc repeat_pubm {nick uhost hand chan text} {if [matchattr $hand f] {return 0}global repeat_last repeat_num repeat-kick banm5 channel botnickglobal remask rekick reduraset remask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1] 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)] >= ${repeat-kick}} {if {[isop $nick $chan] == "0"} {putserv "MODE $chan +mib $remask"putserv "KICK $chan $nick :$rekick" utimer $redura "putserv {MODE $chan -mi}"unset repeat_last($n)unset repeat_num($n)}}return}}set repeat_num($n) 1set repeat_last($n) $text}bind nick - * repeat_nickproc repeat_nick {nick uhost hand chan newnick} {if [matchattr $hand f] {return 0}global repeat_last repeat_numcatch {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_lastcatch {unset repeat_last}catch {unset repeat_num}timer 1 repeat_timr}if ![regexp repeat_timr [timers]] {     # tkotimer 1 repeat_timr}