#kufuruniq on
Dialog kufur {
  Title Küfür Koruması [ Coder ßy ZaiL]
  Size -1 -1 138 186
  Option dbu
  Edit , 1, 7 10 61 10
  List 2, 7 22 60 50, size
  Button Ekle, 3, 7 74 27 12, flat
  Button Sil, 4, 39 74 27 12, flat
  Check Opları (@), 5, 85 21 41 10, flat
  Check Voiceler (@), 6, 85 10 42 10, flat
  Combo 7, 7 102 52 51, size
  Button Ekle, 8, 7 154 24 9, flat
  Button Sil, 9, 35 154 23 9, flat
  Box Küfür listesi, 13, 3 2 71 88
  Box Ayrılan Nickler, 14, 3 92 63 76
  Box Ayrılan Kanallar, 15, 73 92 62 76
  Box Ayır, 16, 78 2 56 33
  Button Sil, 10, 106 154 23 9, flat
  Button Ekle, 11, 78 154 24 9, flat
  Combo 12, 78 102 52 51, size
  Box İşlemler, 17, 78 37 56 53
  Radio Opersem Kline, 18, 83 47 47 10, flat
  Radio Opersem Kill, 19, 83 57 47 10, flat
  Radio Opsam Kick, 20, 83 67 47 10, flat
  Check Banla, 21, 83 77 27 10, flat
  Button Kapat, 22, 97 171 37 12, flat ok
}
Alias kufur { /alias kufur /dialog -m kufur kufur }
On *:dialog:kufur:init:*: {
  If ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
  If (%knickler) .didtok $dname 7 32 $ifmatch
  If (%kufkanal) .didtok $dname 12 32 $ifmatch
  If (%klineat) { .did -c $dname 18 }
  If (%killat) { .did -c $dname 19 }
  If (%kickat) { .did -c $dname 20 }
  If (%banla) { .did -c $dname 21 }
  If (%oplar) { .did -c $dname 5 }
  If (%vlar) { .did -c $dname 6 }
}
On *:dialog:kufur:sclick:*: {
  If ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
  If ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
  If ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
  If ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
  If ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
  If ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
  If ($did == 8 ) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
  If ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
  If ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
  If ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
  If ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
  If ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
On *:text:*:#: {
  If $istok(%kufkanal,#,32) == $true { halt }
  If $istok(%knickler,$nick,32) == $true { halt }
  If ($nick isop #) && (%oplar == on) { return }
  If ($nick isvo #) && (%vlar == on) { return }
  Korukufurden $1-
}
Alias korukufurden {
  Var %HR $strip($1-) , %_: $lines(kufur.txt)
  While (%_:) {
    If $read(kufur.txt,%_:) iswm %HR iswm %HR {
      If (%banla == on) { .mode $chan +b $wildsite }
      If (%klineat == on) { .gline $nick 5h :  $nick Sunucu Sizi LAMER olarak algıladı. [ $server ]  | .echo -a  $chan Kanalından $nick atıldı..  $1- }
      If (%killat == on) { .kill $nick Lutfen kufur etmeyin }
      If (%kickat == on) { .kick $chan $nick Kanal genelinde uygunsuz hareket }
      Return
    }
    Dec %_:
  }
}
#kufuruniq end