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
  }
}