alias joinn { .$iif(!$dialog(oaj),dialog -m oaj oaj,dialog -c oaj oaj) }
dialog oaj {
  title "AfraN Script v.3 Oto Join"
  size -1 -1 172 164
  option dbu
  ;icon 1, 0 -40 400 400, img\dialogarkaplan.bmp, 0, noborder
  check "Systemi Aç/Kapat", 2, 14 14 70 10, Center
  edit "", 4, 14 26 10 10
  Text "< Kaç Sn, Sonra Girsin", 5, 25 26 59 10, Center
  text "BİLGİLENDİRME Otomatik Olarak Girmek istediğiniz Kanalları Ekleyin. Sunucuya Bağlandıktan sonra belirlediğiniz saniyeler sonrasında otomatik olarak kanallara Aktarılacaksınız. Örnek Ekleme; #AfraN Kanalın Başında Mutlaka # işaretini Kullanınız ", 6, 14 38 70 66, Center
  button "Kanal ekle", 7, 94 14 30 10
  button "Kanal SiL", 8, 128 14 30 10 
  edit "", 9, 94 26 64 10, return autohs
  list 10, 94 38 64 66, size 
  button "Tüm Kanallardan Cik", 11, 14 110 70 10
  button "Listedeki Kanallara Gir", 12, 94 110 64 10
  check "Dialog Oto Acilis Ac Kapat", 13, 14 135 144 9, Center
  button "Seçilen Kanal'dan Çık" 15, 14 122 70 10
  button "Seçilen Kanal'a Gir" 16, 94 122 64 10
  button "Tamam Kapat" 17, 64 147 50 12,ok
}
on *:dialog:oaj:sclick:*:{
  if ($did(2).state == 1) { .enable #otojoi } | else { .disable #otojoi }
  if ($did == 7) { if ($did(9).text == $null) { echo -a %kl Lütfen Bosluk eklemeyiniz. %lk | return } 
    elseif ($chr(35) == $did(9)) { echo -a %kl Lütfen Sadece $chr(35) Kanal işaretini Eklemeyiniz. Örnek Ekleme: #AfraN %lk | return }
    elseif ($+(#*,$chr(32),*) iswm $did(9)) { echo -a %kl Eklediğiniz Kanal Arasında Boşluk Kullanmayınız. %lk | return }
    elseif (#* !iswm $did(9)) { echo -a %kl Oto Join Kanal Listesidir Nick eklemeyiniz. Örnek Ekleme: #AfraN %lk | return }
    else { did -a $dname 10 $did(9).text | set %otojoin $didtok($dname,10,44) | did -r $dname 9 }
  }
  if ($did == 8) { if ($did(10).sel == 0) { echo -a %kl Silmek Için Bir Satir Seçiniz... %lk | return }
    else { did -d $dname 10 $did(10).sel | set %otojoin $didtok($dname,10,44) }
  }
  if ($did == 11) { .partall }
  if ($did == 12) { .join %otojoin }
  if ($did(13).state == 1) { .enable #otdi } | else { .disable #otdi }
  if ($did == 15) { if ($did(10).sel == 0) { echo -a %kl Çıkmak Için Bir Kanal Seçiniz... %lk | return }
    var %hea $did($dname,10).seltext
    if ($me !ison %hea) { echo -a %kl Çıkmak istediğiniz kanalda Değilsiniz. %lk | return }
    else { .part $did($dname,10,44).seltext }
  }
  if ($did == 16) {  if ($did(10).sel == 0) { echo -a %kl Girmek Için Bir Kanal Seçiniz... %lk | return }
    var %hea $did($dname,10).seltext
    if ($me ison %hea) { echo -a %kl Zaten Girmeye Çalıştığınız Kanaldasınız. %lk | return } 
    else { join $did($dname,10,44).seltext }
  }
}
on *:dialog:oaj:init:*:{
  .did -ra $dname 4 %ofjs
  if (%otojoin) .didtok $dname 10 44 $ifmatch
  if ($group(#otojoi) == on) { did -c $dname 2 }
  if ($group(#otdi) == on) { did -c $dname 13 }
}
on *:dialog:oaj:edit:*:{
  if ($did == 4) { .set %ofjs $did(4) }
}
#otojoi off
#otojoi end
#otdi off
#otdi end
on *:connect:{
  if ($group(#otojoi) == on) {
    .timerjoi 1 %ofjs .join %otojoin
  }
  if ($group(#otdi) == on) {
    .timerodi 1 10 .joinn
  }
}