on 1:text:*:#: {
  if ($chan == #operhelp) { halt }
  if ($chan == #opers) { halt }
  if ($chan == #help) { halt }
  if ($nick isop #) && (%de@plar == on) { return }
  if ($nick ison #help) && (%devlar == on) { return }
  _swer_ $1-
}
alias _swer_ {
  var %x $strip($1-) , %i $numtok(%demaa,44)
  while (%i) {
    if ($gettok(%demaa,%i,44) iswm %x) || ($gettok(%demaa,%i,44) isin %x) {
      if (%dekick == on) { /kick # $nick %kfurlogo  }
      if (%deban == on) { /ban # $nick 2  }
      if (%deshun == on) { /shun $nick +1d %kfurlogo  }
      if (%dekill == on) { /kill # $nick %kfurlogo  }
      if (%deakill == on) { /os killclones $nick  }
      if (%dezline == on) { /zline $nick +1d %kfurlogo  | echo -a Dikkat [Küfür] sebebinden $nick nickine Z-Line atıldı.  }
      if (%desamode == on) { /samode # +b $nick  }
      
return
    }
    dec %i
  }
}
dialog kelimelerim {
  title "by Vivo"
  size -1 -1 151 82
  option dbu
  box "IP no (*!*@) Girin", 1, 86 2 64 79
  combo 2, 89 10 57 53, size
  button "Ekle", 3, 89 69 25 9
  button "Sil", 4, 122 69 25 9
  box "", 5, 121 65 28 15
  box "", 6, 88 65 28 15
  check " AKiLL", 7, 56 47 27 10
  check " Z-Line ", 8, 56 37 27 10
  check " KiLL", 9, 56 27 21 10
  edit "", 10, 9936 30 23 12, disable
  text "Saniye", 11, 562 32 21 8, disable
  box "Ayir", 12, 3 2 82 18
  box "Proxy CeZa", 112, 2 20 83 40
  check "@plar", 13, 5 8 34 10
  check "+v", 14, 47 8 30 10
  check " Kick", 15, 5 37 21 10
  check " Ban", 16, 5 27 21 10
  check " Shun", 17, 29 36 26 10
  check "Samode +b", 18, 5 47 40 10
  box "", 20, 2 59 83 22
}
alias bad { .dialog -m kelimelerim kelimelerim }
on *:dialog:kelimelerim:init:*:{
  if (%demaa) didtok $dname 2 44 $ifmatch
  if (%dekick) { .did -c $dname 15 }
  if (%deban) { .did -c $dname 16  }
  if (%deshun) { .did -c $dname 17 }
  if (%dekill) { .did -c $dname 9 }
  if (%deakill) { .did -c $dname 7 }
  if (%dezline) { .did -c $dname 8 }
  if (%desamode) { .did -c $dname 18 }
  if %de@plar) { .did -c $dname 13 }
  if (%devlar) { .did -c $dname 14 }
  did -a $dname 10 %banvaxt
}
on *:dialog:kelimelerim:sclick:*:{
  if ($did == 3) {
    if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%demaa,%artir,44)) { .set %demaa $addtok(%demaa,%artir,44) | did -a $dname 2 %artir } } 
  }
  if ($did == 4) { if ($did(2).sel > 0) { .set %demaa $remtok(%demaa,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
  if ($did == 15) { if ($did(8).state == 1) { .set %dekick on } | else { .unset %dekick } }
  if ($did == 9) { if ($did(8).state == 1) { .set %dekill on } | else { .unset %dekill } }
  if ($did == 17) { if ($did(8).state == 1) { .set %deshun on } | else { .unset %deshun } }
  if ($did == 7) { if ($did(8).state == 1) { .set %deakill on } | else { .unset %deakill } }
  if ($did == 8) { if ($did(8).state == 1) { .set %dezline on } | else { .unset %dezline } }
  if ($did == 18) { if ($did(8).state == 1) { .set %desamode on } | else { .unset %desamode } }
  if ($did == 16) { if ($did(9).state == 1) { .set %deban on | did -e $dname 10,11 } | else { .unset %deban | did -b $dname 10,11 } }
  if ($did == 13) { if ($did(13).state == 1) { .set %de@plar on } | else { .unset %de@plar } }
  if ($did == 14) { if ($did(14).state == 1) { .set %devlar on } | else { .unset %devlar } }
}
on *:dialog:kelimelerim:edit:*:{
  %banvaxt = $did(10)
}