on @*:text:*:#: {
  if $regex($strip($1-),/[[:print:]]/g) > 15 {
    set -eu5 % [ $+ [ $chan $+ [ $nick ] ] ] $md5($strip($1-))
    var %s = 1,%q = $var($chan $+ * $+ ,0) | while (%s <= %q) { if $var($chan $+ * ,%s).value == $md5($strip($1-)) { 
    if $var($chan $+ * ,%s) != $+(%,$chan,$nick) { .zline $nick 2 Tekrar yasak $+($nick,!) } | inc %s } | break }
  }
}