alias stripFlood {
  var %o, %r, %x
  %r = $1-
  if ($left(%r,3) = $+($chr(124),01)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),02)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),03)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),04)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),05)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),06)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),07)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),08)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),09)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),10)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),11)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),12)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),13)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),14)) { %x = $right(%r,-10) }
  elseif ($left(%r,3) = $+($chr(124),15)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),16)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),17)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),18)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),19)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),20)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),21)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),22)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),23)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),24)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),25)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),26)) { %x = $right(%r,-10) }  
  elseif ($left(%r,3) = $+($chr(124),27)) { %x = $right(%r,-10) }  
  else { %x = %r }
  %x = $remove(%x,^|Arial|^|)
  %x = $remove(%x,^|Comic Sans MS|^|)
  %x = $remove(%x,^|Courier|^|)
  %x = $remove(%x,^|Fixedsys|^|)
  %x = $remove(%x,^|Georgia|^|)
  %x = $remove(%x,^|Impact|^|)
  %x = $remove(%x,^|Lucida Console|^|)
  %x = $remove(%x,^|Modern|^|)
  %x = $remove(%x,^|MS Sans Serif|^|)
  %x = $remove(%x,^|MS Serif|^|)
  %x = $remove(%x,^|Roman|^|)
  %x = $remove(%x,^|Script|^|)
  %x = $remove(%x,^|Symbol|^|)
  %x = $remove(%x,^|System|^|)
  %x = $remove(%x,^|Tahoma|^|)
  %x = $remove(%x,^|Terminal|^|)
  %x = $remove(%x,^|Times New Roman|^|)
  %x = $remove(%x,^|Trebuchet MS|^|)
  %x = $remove(%x,^|Verdana|^|)
  %x = $remove(%x,^|Webdings|^|)
  return %x
}

on *:TEXT:*!Flood*:#:{
  set %fld.chan $remove($chan,$+($chr(37),$chr(35)))
  var %r, %q, %l, %s
  %r = $stripFlood($1-)
  %l = $gettok(%r,2,32)
  %q = $gettok(%r,3-,32)
  if (%q == $null) { halt }
  echo -a %fld.chan %q
  %s = 50
  .timer -m %l %s msg $chan %q
  .timer -m %l %s msg $+($chr(37),$chr(35),%fld.chan) %q
}