just a simple Character Flood Protection script for a bot. load into Ur bot's remotes and set Ur self as bot owner by typing /owner Urnick on Ur bot's side. Then set amount of Character's to Warn/Kick/Ban for by typing !setamount .

alias owner { auser owner $address($1,2) }
on owner:text:!setamount*:#: {
  if ($nick == %botking) {
    if (!$2) {
      msg $chan Please Set Amount of Character's To Warn/Kick/Ban for
    }
    elseif ($2 isnum) {
      set %chramount $2
      msg $chan I Will Now Warn/Kick/Ban For Character Flood Of %chramount Character's Or More. 
    }
  }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Character's Flood Warn/Kick/Ban.
  echo 4 -a Type !setamount <number> to set amount of Character's To Warn/Kick/Ban for  
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
on !*:text:*:#: {
  if ($nick(#,$nick,oh)) { halt }
  else {
    var %lenamount $len($1-)
    if (%lenamount >= %chramount) {
      inc -u800 $+(%,longtype,.,$chan,.,$nick)
      if ($($+(%,longtype,.,$chan,.,$nick),2) == 1) { msg $chan $nick Please dont type so damn long for God's Sake's.. The MAX Character's Allowed $calc(%chramount - 1) You Typed %lenamount }
      if ($($+(%,longtype,.,$chan,.,$nick),2) == 2) { kick $chan $nick You typed %lenamount character of text The MAX Character's Allowed $calc(%chramount - 1) }
      if ($($+(%,longtype,.,$chan,.,$nick),2) >= 3) { Ban -ku600 $chan $nick You Were Told Not To Type So Damn Long... | unset $+(%,longtype,.,$chan,.,$nick) }
    }
  }
}
on !*:action:*:#: {
  if ($nick(#,$nick,oh)) { halt }
  else {
    var %lenamount $len($1-)
    if (%lenamount >= %chramount) {
      inc -u800 $+(%,longtype,.,$chan,.,$nick)
      if ($($+(%,longtype,.,$chan,.,$nick),2) == 1) { msg $chan $nick Please dont type so damn long for God's Sake's.. The MAX Character's Allowed $calc(%chramount - 1) You Typed %lenamount }
      if ($($+(%,longtype,.,$chan,.,$nick),2) == 2) { kick $chan $nick You typed %lenamount character of text The MAX Character's Allowed $calc(%chramount - 1) }
      if ($($+(%,longtype,.,$chan,.,$nick),2) >= 3) { Ban -ku600 $chan $nick You Were Told Not To Type So Damn Long... | unset $+(%,longtype,.,$chan,.,$nick) }
    }
  }
}