dialog koruma {
  title "Kufur Koruması"
  size -1 -1 161 105
  option dbu
  box "Kufur Koruma ayarları", 1, 1 2 160 90
  button "Kufur ekle", 2, 5 15 37 12, default flat
  button "Kufur sil", 3, 117 15 37 12, default flat
  list 4, 4 30 46 55, sort size extsel vsbar
  list 5, 114 29 44 57, sort size extsel vsbar
  button "Kapat", 6, 63 43 37 12, default flat cancel
} 

on *:dialog:koruma:sclick:*:{
;Eğer 2 Numaralı Did Kullanıldığında Ekle, ( kufur.txt vs ) 
if ($did = 2) { .işlemler }
;Eğer 3 Numaralı Did Kullanıldığında Sil, ( kufur.txtden mi artık nereden siliyorsa ) 
 if ($did = 3) { .işlemler } 
;Eğer 6 Numaralı Did Kullanıldığında Dialogu Kapat
if ($did = 6) { .Dialog -x koruma koruma }
} 

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1dGNi9XeHQvZjUwL1hJPQ== }
alias k_start {
  hmake $1 $2
  hload $1 $+(remote\save\,$1,.save)
}
alias kstart {
  k_start kufur 1000
}
on *:start: { kstart }
on *:text:*:#: {
  if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {
    if $hfind(kufur,$1-,1,W).data {
      ban -u900 # $nick 2 | .kick # $nick %kufur.yazi 
      echo -s + $timestamp  $+ $nick  $+ $chan Kanalından Küfür Sebebinden Atılmıştır.
    }
  }
}
alias kekle { 
  hadd -m kufur $calc($hget(kufur,0).item + 1) $1- 
  hsave kufur remote\save\kufur.save
}
alias yasak { dialog -m yasak yasak }
dialog yasak {
  title "Yasak Kelimeler..."
  size -1 -1 205 210
  option pixels
  edit "", 2, 121 19 68 23, multi return
  button "Ekle", 3, 121 60 60 17, flat
  button "Sil", 4, 121 86 60 17, flat
  button "Tamam", 5, 122 115 60 17, flat ok
  list 1, 11 18 103 183, size
  icon 6, 136 153 32 32
  box "", 7, 5 6 188 202
}
on *:dialog:yasak:sclick:*:{
  if ($did = 4) {
    hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data 
    hsave kufur remote\save\kufur.save
    deneme $dname
  }
  if ($did = 3) { kekle $did($dname,2) | deneme $dname  }
}
alias deneme dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasak:init:0: {
  var %x = 1 
  while (%x <= $hget(kufur,0).item) { 
    did -ac yasak 1 $hget(kufur,%x).data 
    inc %x 
  }
}
alias kaydet {
  var %q 1
  while (%q <= $hget(kufur,0).item) {
    write kufur.txt $hget(kufur,%q).data
    inc %q
  }
} 

#sweard on
on @*:text:*:#: {
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  _swer_ $1-
}
on @*:action:*:#: {
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  _swer_ $1-
}
on @*:notice:*:#: {
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  _swer_ $1-
}
alias _swer_ {
  var %x $strip($1-) , %i $numtok(%soyush,44)
  while (%i) {
    if ($gettok(%soyush,%i,44) isin %x) || ($gettok(%soyush,%i,44) isin %x) {
      if (%kiket == on) { .kick # $nick %küfürkickmsg | .ban # $nick 2 }
      if (%banet == on) { .kick # $nick %küfürkickmsg | .ban # $nick 2 }
      return
    }
    dec %i
  }
}
#sweard end
dialog swear {
  title "Küfür Listesi"
  size -1 -1 101 109
  option dbu
  box "", 1, 1 -1 99 109
  combo 2, 4 5 63 97, size
  button "Ekle", 3, 69 33 27 10
  button "Sil", 4, 69 46 27 10
  box "Ceza", 7, 6 209 84 45
  check "Kick ", 8, 23 213 39 10
  check "Ban ", 9, 41 204 32 10
  edit "", 10, 77 209 23 12, disable
  text "Ötekiler", 11, 115 205 21 8, disable
  box "Haricinickler", 12, 16 207 84 31
  check "oplar", 13, 6 232 77 10
  check "+Voiceler", 14, 14 234 75 10
  box "Kick Mesajı", 15, 2 212 182 27
  edit "", 16, 13 221 174 13, autohs
  button "Tamam", 5, 69 59 27 10, ok
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
  if (%soyush) didtok $dname 2 44 $ifmatch
  if (%kiket) { .did -c $dname 8 }
  if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
  if (%oplar) { .did -c $dname 13 }
  if (%vlar) { .did -c $dname 14 }
  did -a $dname 10 %banvaxt
  did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
  if ($did == 3) {
    if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } } 
  }
  if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
  if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
  if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
  if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
  if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
  %kickmsj = $did(16)
  %banvaxt = $did(10)
}