dialog Tekrarceza {
  title "Tekrar Ceza Ayarları"
  size -1 -1 210 150
  box "Ceza Seçenekleri" 1, 5 5 200 135
  radio "Tekrar'da Banla" 2, 20 25 100 20,flat
  radio "Tekrar'da Kill" 3, 20 45 100 20,flat
  radio "Tekrar'da kline" 4, 20 65 100 20,flat
  button "Tamam" 5, 20 90 100 20,flat
  button "Kapat\Aç" 6, 140 20 50 90,flat
  list 7,20 115 170 30
}
on *:dialog:Tekrarceza:sclick:2:set %Tekrarceza ban
on *:dialog:Tekrarceza:sclick:3:set %Tekrarceza kill
on *:dialog:Tekrarceza:sclick:4:set %Tekrarceza kline
on *:dialog:Tekrarceza:sclick:5:dialog -c $dname $dname
on *:dialog:Tekrarceza:sclick:6:{
  if ($group(#Tekrarceza).status == on) { did -r $dname 7 |  did -a $dname  7 Tekrar Koruması Kapalı | .disable #Tekrarceza }
  else { did -r $dname 7 | did -a $dname 7 Tekrar Koruması Açık | .enable #Tekrarceza }
}
on *:dialog:Tekrarceza:init:*:{
  did -a $dname 7 Tekrar Koruması Kapalı 
  if (%Tekrarceza == ban) did -c $dname 2 
  if (%Tekrarceza == kill) did -c $dname 3
  if (%Tekrarceza == kline) did -c $dname 4
  if ($group(#Tekrarceza).status == on) { did -r $dname 7 |  did -a $dname  7 Tekrar Koruması Açık }
}
#Tekrarceza off
on 1:text:*:#:{
  if ($regex($address($nick,2),/(helper|admin|ircop|services|tech|global)/i)) { halt }
  if ($nick isop #) { halt }
  if ($nick ison #Admin) { halt }
  if ($nick ison #yönetim) { halt }
  if ($nick ison #KontroL) { halt }
  if ($chan == #helpops) { halt }
  if ($chan == #operhelp) { halt }
  if ($chan == #dj) { halt }
  if ($chan == #ops) { halt }
  if ($chan == #irc) { halt }
  if ($chan == #HeLp) { halt }
  if $nick == Radyobot { halt }
  if $nick == Sorubot { halt }
  if $nick == Yarima { halt }
  if $nick == EmRaH { halt }
  if $nick == KeLime { halt }
  if $nick == Oyuncu { halt }
  if $nick == Fantasy { halt }
  if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
  if (%>reps_ [ $+ [ $nick ] ] == $null)  { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
  if (%>repsa_ [ $+ [ $nick ] ] == 3) {
    if (%tekrarceza == ban) { .samode $chan +b $wildsite | .samode $chan +b $nick 2IRC Sunucu Uzerinde 4Tekrar Repeat YaptIgInIz 2IcIn BanLandInIz. Sizi BanLayan 1By: $me %logo }
    elseif (%tekrarceza == kline) { kline  $nick 2IRC Sunucu Uzerinde 4Tekrar Repeat YaptIgInIz 2IcIn BanLandInIz. Sizi BanLayan 1By: $me %logo }
    else { kill $nick 2IRC Sunucu Uzerinde 4Tekrar Repeat YaptIgInIz 2IcIn BagLantInIz KesILmIstIr 4! 1By: $me %logo }
    { Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »2 4Suç : 2Tekrar / Repeat 4Nick : 2 $nick 4Kanal 2 $chan }
    unset %*_ [ $+ [ $nick ] ] | 
  }
}
#Tekrarceza end