alias sanat {
  if $1 {
    set %sanat $1
  }
  /dialog -m sanat sanat
}

dialog sanat {
  title "Şiir/hikaye/komik/özdeyişler"
  size -1 -1 438 301
  option pixels
  button "Kapat", 3, 2 270 76 24, 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 "Rumuz/#kanal:", 8, 174 232 72 16, tab 5
  text "* Göndermek istediğiniz rumuz/#kanalı yazın ve gönder butonuna tıklayın. Seçtiğiniz eser otomatikman gönderilecektir.", 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:sanat:*:*: {
  if $devent == init {
    mdxinit
    mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views


    mdx SetColor $dname 2 text $rgb(255,255,255)
    mdx SetColor $dname 2 textbg $rgb(89,162,166)
    mdx SetColor $dname 2 background $rgb(89,162,166)

    kalin 1,2 12
    did -i $dname 1 1 setcolor text $rgb(255,255,255)
    did -i $dname 1 1 setcolor line $rgb(186,218,7)
    did -i $dname 1 1 setcolor bkg $rgb(99,99,156)
    didtok $dname 4 44 Şiirler,Hikayeler,Komikler,Özdeyişler
    did -c $dname 4 1
    did -a $dname 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz.
    if %sanat {
      did -a $dname 6 $ifmatch
    }
    else {
      if $active ischan || $query($active) {
        did -a $dname 6 $ifmatch
      }
    }
    sanat.yukle
    did -f $dname 6
  }
  if $devent == sclick {
    if $did == 1 && slclick select * iswm $did($did,1) {
      set %sanat.y $right($gettok($did($dname,1,$gettok($did($did,1),4-,32)),-1,48),-1)

      if $did(sanat,4).sel == 1 {
        set %sanat.dosya siir
      }
      if $did(sanat,4).sel == 2 {
        set %sanat.dosya hikaye
      }
      if $did(sanat,4).sel == 3 {
        set %sanat.dosya komik
      }
      if $did(sanat,4).sel == 4 {
        set %sanat.dosya ozdeyis
      }
      if $exists($shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt))) {
        .loadbuf 0 -oipr $dname 2 $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt))
      }
    }
    if $did == 4 {
      sanat.yukle
    }
    if $did == 7 {
      if %sanat.dosya && %sanat.y {
        if $did($dname,6) {
          var %im $did($dname,6)
          if %im !ischan && !$query(%im) {
            query %im
          }
          scid $activecid play %im $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt)) 2000
          bilgi %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
        }
        else {
          var %im $$?"Gönderilecek rumuzu 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($+(texts\,%sanat.dosya,\,%sanat.y,.txt)) 2000
            bilgi %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
          }
        }
      }
      else {
        bilgi Göndermek için herhangi bir şiir/hikaye/komik/özdeyiş seçmediniz.
      }
    }
  }
  if $devent == close {
    unset %sanat*
  }
}

alias sanat.yukle {
  did -r sanat 1,2
  did -a sanat 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz.
  if $did(sanat,4).sel == 1 {
    set %sanat.dosya siir
  }
  if $did(sanat,4).sel == 2 {
    set %sanat.dosya hikaye
  }
  if $did(sanat,4).sel == 3 {
    set %sanat.dosya komik
  }
  if $did(sanat,4).sel == 4 {
    set %sanat.dosya ozdeyis
  }
  var %i 1
  while %i <= $findfile($+(texts\,%sanat.dosya),*.txt,0) {
    did -a sanat 1 $left($nopath($findfile($+(texts\,%sanat.dosya),*.txt,%i)),-4)
    inc %i 1
  }
}

mdxinit {
  mdx SetMircVersion $version
  mdx MarkDialog $dname
}
kalin {
  mdx SetFont $dname $1 $2 800 tahoma
}