:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::               XcLusive Script                       :::::
:::::               Bütün Kodlar Kendime Aittir           :::::
:::::               Coded By HaLiL                        :::::
:::::               HaLiL@AhKalbim.Net                    :::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
alias fkeys dialog -m fkeys fkeys
dialog fkeys {
  title "XcLusive Script F Tuşları"
  size -1 -1 280 158
  option dbu
  icon $mircdirikon\f.ico, 0
  box "F Tuşları Ayarları", 1, 4 3 229 152
  list 2, 9 12 219 139, size
  button "Düzenle", 3, 236 33 40 15, flat
  button "Sil", 4, 236 53 40 15, flat
  button "Default", 5, 236 73 40 15, flat
  button "Kapat", 6, 236 113 40 15, flat cancel
  button "Komutlar", 7, 236 93 40 15, flat
}
on 1:dialog:fkeys:*:*:{
  if $devent == init {
    idset 16
    dll $mdx SetControlMDX $dname 2 ListView report nosortheader showsel single rowselect grid > $views
    did -i $dname 2 1 headerdims 70 170 170
    did -i $dname 2 1 headertext +c F Tuşu $chr(9) Komut Satırı $chr(9) Açıklama
    fload
  }
  if $devent == sclick {
    if $did == 3 {
      fkeys.edit
    }
    if $did == 4 {
      set %fkeys.sil $calc($did(2).sel - 1)
      if %fkeys.sil == 1 || %fkeys.sil == 2 || %fkeys.sil == 9 || %fkeys.sil == 14 || %fkeys.sil == 36 { $err0r(Dikkat,Bu F Tuşu Değiştirilemez!) | halt }
      $iif($input(F Tuşunu Silmek Istediğinize Eminmisiniz?,ywda,Uyarı),fkeysil,halt)
      fkeysil
      write -l %fkeys.sil $fad %fkeysil $+ $chr(149) $+ /Bos $chr(149) $+ Boş
      did -r $dname 2
      fload
    }
    if $did == 5 {
      $iif($input(F Tuşlarını Sıfırlamak Istediğinize Eminmisiniz?!,ywda,DIKKAT),fkeydefault,halt)
    }
    if $did == 7 { komutlar }
  }
}
alias fkeydefault {
  .remove sys\fkeys.txt
  .copy -o $mircdirdll\fkeys.txt $mircdirsys\fkeys.txt
  .fload
}
alias fkeysil {
  set %fkeysil $gettok($read($fad,%fkeys.sil),1,149)
}
alias fadd dialog -m fadd fadd
alias fad return sys\fkeys.txt
alias fkeys.edit { 
  if (!$did(2).sel) {
    $err0r(Bilgi,Düzenlenecek F Tuşunu Seçmediniz!) | halt 
  }
  elseif ($did(2).sel) {
    set %fkeys.edit $calc($did(2).sel - 1)
    if %fkeys.edit == 1 || %fkeys.edit == 2 || %fkeys.edit == 9  || %fkeys.edit == 24 || %fkeys.edit == 36 { $err0r(Dikkat,Bu F Tuşu Değiştirilemez!) | halt }
    fadd 
  } 
}

alias fload {
  var %a = 1
  did -r fkeys 2
  while (%a <= $lines($fad)) {
    did -a fkeys 2 $gettok($read($fad,%a),1,149) $chr(9) $gettok($read($fad,%a),2,149) $chr(9) $gettok($read($fad,%a),3,149)
    inc %a
  }
}
dialog fadd {
  title "XcLusive Script F Tuşu Ekle"
  size -1 -1 174 85
  option dbu
  icon $mircdirikon\f.ico, 0
  box "F Tuşu Ekle", 1, 4 4 165 56
  text "F Tuşu:", 2, 9 16 35 8
  edit "", 3, 68 15 94 10, read
  text "Komut Satırı:", 4, 9 29 56 8
  edit "", 5, 68 28 94 10, autohs
  edit "", 6, 68 41 94 10, autohs
  text "Açıklama:", 7, 9 42 56 8
  button "Ekle", 8, 43 65 40 15, flat
  button "Iptal", 10, 91 65 40 15, flat cancel
}

on 1:dialog:fadd:*:*:{
  if $devent == init {
    idset 10
    set %fkeys1 $gettok($read($fad,%fkeys.edit),1,149)
    set %fkeys2 $gettok($read($fad,%fkeys.edit),2,149)
    set %fkeys3 $gettok($read($fad,%fkeys.edit),3,149)
    set %fkeys4 $gettok($read($fad,%fkeys.edit),2,149)
    did -a $dname 3 %fkeys1
    did -a $dname 5 %fkeys2
    did -a $dname 6 %fkeys3
  }
  if $devent == sclick {
    if $did == 8 {
      if (*#* iswm %fkeys2) || (*;* iswm %fkeys2) || (*^* iswm %fkeys2) || (*&* iswm %fkeys2) || (*[* iswm %fkeys2) || (*]* iswm %fkeys2) || (*{* iswm %fkeys2) || (*}* iswm %fkeys2) || (*'* iswm %fkeys2) || ($+ $chr(36) $+ * iswm %fkeys2) || ($+ $chr(37) $+ * iswm %fkeys2) || ($+ $chr(42) $+ * iswm %fkeys2) {
        did -ra $dname 5 %fkeys4
        $err0r(Uyarı,Komutu Satırında Sembol Kullanılamaz! $crlf $+ Lütfen Sadece Komut Listesindeki Komutları Kullanın)
        halt
      } 
      write -l %fkeys.edit $fad %fkeys1 $+ $chr(149) $+ %fkeys2 $chr(149) $+ %fkeys3
      dx
      if ($dialog(fkeys)) { did -r fkeys 2 | fload }
    }
    if $did == 9 { did -r $dname 3 | did -r $dname 5 | did -r $dname 6 }
  }
  if $devent == edit {
    if $did == 3 { set %fkeys1 $did(3).text }
    if $did == 5 { set %fkeys2 $did(5).text }
    if $did == 6 { set %fkeys3 $did(6).text }
  }
}
alias cpanel st

dialog cmds {
  title "XcLusive Script"
  size -1 -1 232 118
  option dbu
  icon $mircdirikon\f.ico, 0
  box "XcLusive Script Komutları", 1, 4 3 224 111
  list 2, 9 12 214 97, size
}

alias komutlar dialog -m cmds cmds
on 1:dialog:cmds:*:*:{
  if $devent == init {
    idset 2
    dll $mdx SetControlMDX $dname 2 ListView report nosortheader showsel single rowselect grid > $views
    did -i $dname 2 1 headerdims 1 120 280
    did -i $dname 2 1 headertext +c $chr(160) $chr(9) Komut Satırı $chr(9) Açıklama
    kload
  }
}
alias cmdss return sys\cmds.txt
alias kload {
  var %a = 1
  did -r cmds 2
  while (%a <= $lines($cmdss)) {
    did -a cmds 2 . $chr(9) $gettok($read($cmdss,%a),1,149) $chr(9) $gettok($read($cmdss,%a),2,149)
    inc %a
  }
}

alias ajoin dialog -m aj aj
dialog aj {
  title "XcLusive Script"
  size -1 -1 111 112
  option dbu
  icon $mircdirikon\chan.ico, 0
  box "Otomatik Giriş Sistemi", 1, 4 3 101 78
  list 2, 9 12 90 64, size
  button "Ekle", 3, 5 95 30 13
  button "Sil", 4, 40 95 30 13
  button "Kapat", 5, 75 95 30 13, cancel
  check "Oto Join Sistemini Aç", 6, 5 83 100 10
}

on 1:dialog:aj:*:*:{
  if $devent == init {
    idset 7
    didtok $dname 2 46 %otojoin
    if %ajoin == on did -c $dname 6
  }
  if $devent == sclick {
    var %n $did(2).seltext
    if $did == 3 {
      var %t = $input(Eklemek İstediğiniz Kanalı Girin,qoe,Oto Join)
      if %t { set %otojoin $addtok(%otojoin,%t,46) | did -r $dname 2 | didtok $dname 2 46 %otojoin }
    }
    if $did == 4 {
      if %n { set %otojoin $remtok(%otojoin,%n,46) | did -r $dname 2 | didtok $dname 2 46 %otojoin }
    }
    if $did == 6 {
      if %ajoin == off { set %ajoin on | halt }
      else { set %ajoin off }
    }
  }
}
