dialog otog {
  title "Grup Giriş Menusu"
  size -1 -1 132 112
  option dbu

  button "Bulusma", 9, 109 31 22 8
  button "Şehirler", 10, 1 31 22 8
  button "Yaş", 11, 37 31 22 8
  button "iliski", 12, 73 31 22 8
  button "Oyun", 13, 2 66 22 8
  button "Team", 14, 35 66 22 8
  button "Muzik", 15, 72 66 22 8
  button "Gundem", 16, 109 66 22 8
  button "Odalarım", 17, 35 79 58 12
  button "Tamam", 18, 46 94 37 12, ok cancel
  button "Ayarlar", 19, 105 101 25 8
}

on 1:dialog:otog:sclick:*: {
  if ($did == 9) || ($did == 10) || ($did == 11) || ($did == 12) || ($did == 13) || ($did == 14) || ($did == 15) || ($did == 16) || ($did == 17) {
    var %temp 1
    while %temp <= $ini(gruplar.ini,$did($did),0) {
      sajoin $readini(gruplar.ini,$did($did),$ini(gruplar.ini,$did($did),%temp)) $me
      inc %temp
    }
  }
  if ($did == 19) { .dialog -c otog otog | .dialog -m otogirisayar otogirisayar }
}


dialog otogirisayar {
  title "Oto Giris Ayar Tablosu"
  size -1 -1 93 98
  option dbu
  combo 1, 2 8 48 89, size
  button "Ekle", 2, 57 56 25 12
  button "Sil", 3, 57 70 25 12
  button "Tamam", 4, 57 84 25 12, cancel
  combo 5, 50 8 40 48, size
  text "           Opers Script", 6, 2 0 89 8
}

on *:dialog:otogirisayar:sclick:*: {
  if ($did == 3) {
    if ($did(5) != $null) && ($did(1) != $null) { .did -d otogirisayar 1 $did(otogirisayar,1) | .did -d otogirisayar 1 $did(otogirisayar,1).sel | .remini gruplar.ini $did(5) | düzenle | did -a $dname 6 Silme İşlemi Yapılmıştır! }
    else { did -a $dname 6 Silinecek Grup/İsim Belirtmediniz }
  }
  if ($did == 5) { .otogirislist | did -a $dname 6            Opers Abc Script V1.0 }
  if ($did == 2) { 
    if ($did(5) != $null) && ($did(1) != $null) { .writeini gruplar.ini $did(5) n $+ $ini(gruplar.ini,$did(5),0) $did(1) | .otogirislist | did -a $dname 6 Kanal Ekleme İşlemi Yapılmıştır! }
    else { did -a $dname 6 Eklenecek Grup/İsim Belirtmediniz! }
  } 
}

on *:dialog:otogirisayar:init:*: {
  did -a $dname 5 Bulusma | did -a $dname 5 Şehirler | did -a $dname 5 Yaş | did -a $dname 5 iliski | did -a $dname 5 Oyun
  did -a $dname 5 Team | did -a $dname 5 Muzik | did -a $dname 5 Gundem | did -a $dname 5 Odalarım
}

alias otogirislist {
  did -r otogirisayar 1
  var %temp 1
  while %temp <= $ini(gruplar.ini,$did(5),0) {
    did -a otogirisayar 1 $readini(gruplar.ini,$did(5),$ini(gruplar.ini,$did(5),%temp))
    inc %temp
  }
}

alias düzenle {
  var %temp 1, %temps 0
  while %temp <= $did(otogirisayar,1).lines {
    .writeini -n gruplar.ini $did(5) n $+ %temps $did(otogirisayar,1,%temp).text
    inc %temp | inc %temps
  }
}

on me:*:join:#:$iif($read(kanal.txt,w,$chan),leave #)
dialog chanlist {
  title "Yasak Kanallar"
  size -1 -1 145 120
  option dbu
  text "Yasak Kanal Listesi", 9, 58 5 101 8
  list 10, 49 26 62 89, size vsbar
  edit "", 11, 48 13 62 12, return autohs autovs
  button "Ekle", 12, 115 14 25 11
  button "Çıkart", 13, 115 30 25 11
  box "", 14, 145 1 98 117
}
on 1:dialog:chanlist:*:*:{
  if ($regex($devent,^init$)) {
 if ($read(kanal.txt)) { loadbuf -o $dname 10 kanal.txt } 
}
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^12$)) {
     var %e = $did(11) 
     if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt } 
      else { $iif($read(kanal.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanal.txt %e) | did -a $dname 10 %e | did -r $dname 11 }
    }
    if ($regex($did,^13$)) { 
      var %r = $did($dname,10).sel
      if (!%r) { $iif($input(Herhangi bir kanal seçmediniz.,y) == $true,halt,halt) | halt }
      else { var %- = $did($dname,10).seltext | did -d $dname 10 %r | write $+(-ds,%-) kanal.txt }
    }
  }
}
menu * {
  -
  Yasak Kanallar:.dialog -m chanlist chanlist
  -
}