#protection on
on @^!*:text:*:#:MirCd.Craft $1-
on @^!*:notice:*:#:MirCd.Craft $1-
on @^!*:action:*:#:MirCd.Craft $1-
alias MirCd.Craft {
  if ($nick !isreg $chan) || ($nick ishop $chan)  || ($nick isop $chan) || ($nick isvo $chan) || (staff isin $wildsite) || ($nick == $me) { goto end }
  hinc -u1m x [ $+ [ # ] ] $nick 1
  $iif($regex($1-,/(burit|babi|puki|cibai|lancau|kote|cipap|suck|kimak|fuck|pukimak|butuh|dick)/g) > 0,$MirCdCraft.Kickers( Swearing ))
  $iif($regex($1-,/[[:cntrl:]]/g) > 59,$MirCdCraft.Kickers( Codes Over Limit ))
  $iif($regex($strip($1-),/[ $chr(44) ]/g) > 59,$MirCdCraft.Kickers(Aphostrophe))
  $iif($regex($strip($1-),/[[:digit:]]/g) > 59,$MirCdCraft.Kickers( Numerics Over Limit ))
  $iif($regex($strip($1-),/[[:upper:]]/g) > 59,$MirCdCraft.Kickers( CapsLock Over Limit ))
  $iif($regex($strip($1-),/[[:punct:]]/g) > 79,$MirCdCraft.Kickers( Punctuations ))
  $iif($regex($strip($1-),/[ $chr(174) ]/g) > 59,$MirCdCraft.Kickers( Ascii ))
  $iif($regex($strip($1-),/[ $chr(160) ]/g) > 59,$MirCdCraft.Kickers( Blanks ))
  $iif($regex($strip($1-),/[[:lower:]]/g) > 249,$MirCdCraft.Kickers( Characters Over Limit ))
  $iif($regex($strip($1-),/(http)/g) > 0,$MirCdCraft.Kickers( Spamming ))
  $iif($hget(x [ $+ [ # ] ],$nick) > 4,$MirCdCraft.Kickers(Line))
  var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 3) { $MirCdCraft.Kickers( Repeating ) }
  var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u4 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 4) { $MirCdCraft.Kickers( Special Repeats ) }
  :end
}
alias -l MirCdCraft.Kickers {
  inc -u40 %Cd.Table
  .set %nick $nick | set %reason $1- | .write clone.txt %nick | .timerclear -o 1 100 write -c clone.txt
  if (%Cd.Table isnum 1-23) && (%nick ison #) { .ban -ku300 # %nick %reason $dvdX | .return }
  if (%Cd.Table == 25) { .timerdelay1 -hmc 1 1000 MirCdCraft.Delay1 }
  if (%Cd.Table == 35) { .timerdelay1 off }
  if (%Cd.Table == 38) { .timerdelay2 -hmc 1 1020 MirCdCraft.Delay2 }
  if (%Cd.Table == 48) { .timerdelay2 off }
  if (%Cd.Table == 51) { .timerdelay3 -hmc 1 1040 MirCdCraft.Delay3 }
  if (%Cd.Table == 61) { .timerdelay3 off }
  if (%Cd.Table == 64) { .timerdelay4 -hmc 1 1060 MirCdCraft.Delay4 }
  if (%Cd.Table == 74) { .timerdelay4 off | .timerdelay3 off | .timerdelay2 off | .timerdelay1 off }
  return
}
alias MirCdCraft.Delay1 {
  .set %nick $read(clone.txt)
  if (%nick ison #) { .ban -ku300 # %nick %reason $dvdX | .timerk -h 1 1001 MirCdCraft.Delay1 }
  if (%nick !ison #) { .write -ds %nick clone.txt | .timerloop1 1 0 MirCdCraft.Delay1 }
}
alias MirCdCraft.Delay2 {
  .set %nick $read(clone.txt)
  if (%nick ison #) { .ban -ku300 # %nick %reason $dvdX | .timerk -h 1 1021 MirCdCraft.Delay2 }
  if (%nick !ison #) { .write -ds %nick clone.txt | .timerloop2 1 0 MirCdCraft.Delay2 }
}
alias MirCdCraft.Delay3 {
  .set %nick $read(clone.txt)
  if (%nick ison #) { .ban -ku300 # %nick %reason $dvdX | .timerk -h 1 1041 MirCdCraft.Delay3 }
  if (%nick !ison #) { .write -ds %nick clone.txt | .timerloop3 1 0 MirCdCraft.Delay3 }
}
alias MirCdCraft.Delay4 {
  .set %nick $read(clone.txt)
  if (%nick ison #) { .ban -ku300 # %nick %reason $dvdX | .timerk -h 1 1061 MirCdCraft.Delay4 }
  if (%nick !ison #) { .write -ds %nick clone.txt | .timerloop4 1 0 MirCdCraft.Delay4 }
}
on ^*:kick:#: {
  if ($nick == $me) {
    window -e @kick | echo @kick ::14,1- You Kick Nick - $knick - $1- ::
  }
}
alias dvdX {
  goto $r(1,6) | halt
  :1 | Return 2× 2,1»12»0»14MïrCdCräft®0«12«2« 2×
  :2 | Return 3× 3,1»9»0»14MïrCdCräft®0«9«3« 3×
  :3 | Return 4× 4,1»5»0»14MïrCdCräft®0«5«4« 4×
  :4 | Return 6× 13,1»6»0»14MïrCdCräft®0«6«13« 6×
  :5 | Return 7× 8,1»7»0»14MïrCdCräft®0«7«8« 7×
  :6 | Return 10× 11,1»10»0»14MïrCdCräft®0«10«11« 10×
}
#protection end