alias PLusyardim {
  if $1 {
    set %PLusyardim $1
  }
  _dialog PLusyardim
}

dialog PLusyardim {
  title "PLus - HeLper Menüsü"
  size -1 -1 438 301
  option pixels
  icon sys2\cpanel\love.ico
  button "Menüyü KAPAT", 3, 2 250 156 45, cancel
  list 1, 3 9 156 214, size extsel
  tab "Tab 1", 5, -50 -50 600 400
  edit "", 2, 161 9 275 214, tab 5 read multi return autovs vsbar
  combo 4, 3 226 155 85, tab 5 size drop
  edit "", 6, 251 228 100 21, tab 5
  button "Gönder", 7, 360 226 76 24, tab 5
  text "Nick/(#)Kanal:", 8, 174 232 72 16, tab 5
  text "• Bilgi ; Yardım Almak Istediğiniz Konuyu Seçdikten Sonra Nick veya Kanal Kısmına Göndermek Istediğiniz Yeri Yazarak Gönder Butonuna Tıklayınız..", 9, 183 255 252 44, tab 5
  tab "Tab 2", 12
  box "Quit ve Part Mesajları Düzenleme", 13, 171 3 336 282, tab 12
  combo 14, 177 33 239 241, tab 12 size hsbar vsbar
  button "Ekle", 15, 425 32 76 24, tab 12
  button "Çıkar", 16, 425 65 76 24, tab 12
}

on *:dialog:Plusyardim:*:*: {
  if $devent == init {
    mdxinit
    mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views

    mdx SetColor $dname 2 text $rgb(0,0,0)
    mdx SetColor $dname 2 textbg $rgb(0,191,255)
    mdx SetColor $dname 2 background $rgb(0,191,255)

    kalin 1,2 15
    did -i $dname 1 1 setcolor text $rgb(255,255,255)
    did -i $dname 1 1 setcolor line $rgb(0,191,255)
    did -i $dname 1 1 setcolor bkg $rgb(0,191,255)
    didtok $dname 4 44 NickSERV,ChanSERV,MemoSERV,OperSERV,
    did -c $dname 4 1
    did -a $dname 2 Sol Tarafdaki Yardım Konulardan Birini Seçdikden Sonra Göndermek Istediğiniz Nick veya Kanalı Sağ Alt Köşedeki Boşluğa Yazın ve Gönder Tuşuna Basın Mesaj Otomatik Olarak Gönderilecektir.
    if %Plusyardim {
      did -a $dname 6 $ifmatch
    }
    else {
      if $active ischan || $query($active) {
        did -a $dname 6 $ifmatch
      }
    }
    Plusyardim.yukle
    did -f $dname 6
  }
  if $devent == sclick {
    if $did == 1 && slclick select * iswm $did($did,1) {
      set %Plusyardim.y $right($gettok($did($dname,1,$gettok($did($did,1),4-,32)),-1,48),-1)

      if $did(Plusyardim,4).sel == 1 {
        set %Plusyardim.dosya NickSERV
      }
      if $did(Plusyardim,4).sel == 2 {
        set %Plusyardim.dosya ChanSERV
      }
      if $did(Plusyardim,4).sel == 3 {
        set %Plusyardim.dosya MemoSERV
      }
      if $did(Plusyardim,4).sel == 4 {
        set %Plusyardim.dosya OperSERV
      }
      if $exists($shortfn($+(sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt))) {
        .loadbuf 0 -oipr $dname 2 $shortfn($+(sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt))
      }
    }
    if $did == 4 {
      Plusyardim.yukle
    }
    if $did == 7 {
      if %Plusyardim.dosya && %Plusyardim.y {
        if $did($dname,6) {
          var %im $did($dname,6)
          if %im !ischan && !$query(%im) {
            query %im
          }
          scid $activecid play %im $shortfn($+(Sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt)) 2000
          echo %Plusyardim.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
        }
        else {
          var %im $$?"Gönderilecek Nick veya #kanal Ismini Yazınız:"
          if %im {
            did -a $dname 6 %im
            if %im !ischan && !$query(%im) {
              query %im
            }
            scid $activecid play %im $shortfn($+(Sys2\Yardım\,%Plusyardim.dosya,\,%Plusyardim.y,.txt)) 2000
            echo %Plusyardim.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
          }
        }
      }
      else {
        echo Göndermek için herhangi bir Yardım Konusu Seçmediniz..
      }
    }
  }
  if $devent == close {
    unset %Plusyardim*
  }
}

alias Plusyardim.yukle {
  did -r Plusyardim 1,2
  did -a Plusyardim 2 Sol Tarafdaki Yardım Konulardan Birini Seçdikden Sonra Göndermek Istediğiniz Nick veya Kanalı Sağ Alt Köşedeki Boşluğa Yazın ve Gönder Tuşuna Basın Mesaj Otomatik Olarak Gönderilecektir.
  if $did(Plusyardim,4).sel == 1 {
    set %Plusyardim.dosya NickSERV
  }
  if $did(Plusyardim,4).sel == 2 {
    set %Plusyardim.dosya ChanSERV
  }
  if $did(Plusyardim,4).sel == 3 {
    set %Plusyardim.dosya MemoSERV
  }
  if $did(Plusyardim,4).sel == 4 {
    set %Plusyardim.dosya OperSERV
  }
  var %i 1
  while %i <= $findfile($+(Sys2\Yardım\,%Plusyardim.dosya),*.txt,0) {
    did -a Plusyardim 1 $left($nopath($findfile($+(Sys2\Yardım\,%Plusyardim.dosya),*.txt,%i)),-4)
    inc %i 1
  }
}