alias argo { dialog -m argo argo }
menu status,channel {
  -
  Argo List:/.argo
  -
}
dialog argo {
  title "Küfür Ekle Kaldır"
  size -1 -1 113 170
  option dbu
  list 1, 4 37 104 96, size
  button "Ekle", 2, 4 134 37 12
  button "Sil", 3, 70 134 37 12
  check "Korumayı Aç", 4, 5 6 50 10
  text "Kick Sebebi", 5, 5 23 31 8
  edit "", 6, 40 22 69 10, autohs
  button "Kapat !", 7, 38 155 37 12, flat ok
}
on *:dialog:argo:*:*:{
  if ($devent == init) {
    if ($group(#argo).status == on) { did -c argo 4 }    
    did -a argo 6 %argo.kelime
    var %i 1
    while (%i <= $lines(argo.txt)) {
      did -a argo 1 $read(argo.txt,%i)
      inc %i
    }
  }
  if ($devent == sclick) {
    if ($did == 2) {
      var %i $?"Argo Kelimeyi Ekleyin"
      write argo.txt %i
      did -a argo 1 %i
    }
    if ($did == 3) {
      if ($did(1).sel != $null) {
        write $+(-ds,$did(1).seltext) argo.txt
        did -d $dname 1 $did(1).sel
      }
    }
    if ($did == 4) {
      if ($did(4).state == 1) { enable #argo }
      else { disable #argo }
    }
  }
  if ($devent == edit) {
    set %argo.kelime $did(6)
  }
}

#argo on
on *:TEXT:*:#: {
  var %i 1
  while (%i <= $lines(argo.txt)) {
Burada Ne Olması Gerekiyor Çözemedim Ve Burada Olacak şeyin Yanına 1. kez sölerse uyarı 2  kez argo listen bişiyi sölerse kick ban atacak
      }
    }
  }
  #argo end

on *:TEXT:*:#: {
  var %i 1
  while (%i <= $lines(argo.txt)) {
    if ($read(argo.txt,%i) iswm $1-) { 
      hinc -m argo $nick 1
      if $hget(argo,$nick) == 1 {  msg $chan Argo Konusmak yasaktir $nick }
      if $hget(argo,$nick) == 2 {  kick $chan $nick  Argo İcerikli sözler kullanmayin. }
      if $hget(argo,$nick) == 3 {  ban -ku600 $chan $nick 2 Argo İcerikli sözler kullanmamaniz konusunda uyarilmistiniz. | hdel argo $nick }
    }
    inc %i
  }
}