alias same_text_flood {
  var %text = $1-
  if (!$hget(sametext)) {
    hmake sametext 500
  }
  var %junk = $regsub(%text, /([\\])/g, \\\1, %text)
  %text = $replace(%text, $chr(32), $chr(92))
  if ($len(%text) > 182) {
    %text = $mid(%text, 0, 182);
  }
  hinc -u10 sametext %text
  if ($hget(sametext, %text) >= 2) {
    return $true
  }
 
  return $false
}
 
on *:TEXT:*:#: {
  if ($same_text_flood($1-)) {
    kick $chan $nick Lütfen Tekrar Yapmayın
  }
}

on @*:text:*:#: {
  if $len($1-) > 6 && $nick isreg $chan { 
    var %t $+(mf.,$chan,.,$hash($strip($1-),32))
    hadd -mu10 %t $nick 
    if ($hget(%t,0).item >= 2) {
      var %m = $ifmatch
      while %m { 
      mode # +b $hget(%t,%m).item
      kick # $hget(%t,%m).item Flood
      var %' = $addtok(%',$hget(%t,%m).item,32) | dec %m 
}
      echo $color(info) -ta (Bilgi) Multiflood-> (Kanal:) $chan (Nickler:) %' (Yazi:) $1- 
      .hfree %t

    }
  }
}

 
on @*:text:*:#: {
  if $len($1-) > 6 && $nick isreg $chan && !istok(#oyun #oper,$chan,32) { 
    var %t $+(mf.,$chan,.,$hash($strip($1-),32))
    hadd -mu10 %t $nick 
    if ($hget(%t,0).item >= 2) {
      var %m = $ifmatch
      while %m { 
      mode # +b $hget(%t,%m).item
      kick # $hget(%t,%m).item Flood
      var %' = $addtok(%',$hget(%t,%m).item,32) | dec %m 
}
      echo $color(info) -ta (Bilgi) Multiflood-> (Kanal:) $chan (Nickler:) %' (Yazi:) $1- 
      .hfree %t

    }
  }
}