Someone

Syntax for $timemute. $timemute(<chan>,<time>,<person>)

alias timemute { return mode $1 +b ~q: $+ $address($3,2) | timer 0 $2 /mode $1 -b ~q: $+ $address($3,2) }

on *:text:@*:#:{ 
  if ($nick !isreg $chan) { halt }
$timemute($chan,<time>,$nick)
 }

on *:TEXT:*#*:#:{
  if ($nick !isreg $chan) { halt }
  elseif (*#* iswm $remove($1-,#pc,#general,,#rsmarket,#irchelp,#mirc,#rshelp,#swiftswitch,#help)) {
    inc %kbcount 1
  $timemute($chan,<time>,$nick) 
}
}

on *:TEXT:*:#: {
  inc %floodkick
  if ($nick !isreg $chan) { halt }
  if ($regex($1-,/(.+?)\1{5}/)) $timemute($chan,<time>,$nick) 
}