alias bilgi {
  echo -at 0,6 Bilgi 0,4 »»  12 $1-
}

alias ascii {
  _dialog ascii
}
dialog ascii {
  title "ASCII Kodları"
  size -1 -1 86 131
  option dbu
  list 3, 5 6 75 105, size
  box "", 4, 2 0 82 114
  button "Kapat", 5, 2 117 38 12, ok
}
on *:dialog:ascii:*:*: {
  if $devent == init {
    mdxinit
    mdx SetControlMDX $dname 3 ListView report single grid showsel nosortheader nolabelwrap > $views
    did -i $dname 3 1 headerdims 63 50
    did -i $dname 3 1 headertext Karakter $chr(9) Kod
    kalin 3 12
    var %i 33
    while %i <= 255 {
      if $chr(%i) {
        did -a $dname 3 $chr(%i) $chr(9) %i
      }
      inc %i
    }
    did -c $dname 3 1 1
    bilgi Kopyalamak istediğiniz karakterin üzerine çift tıklayınız.
  }
  if $devent == dclick {
    if $did == 3 {
      var %k $gettok($gettok($did($dname,3).seltext,4-,48),1,9)
      if %k {
        clipboard %k
        bilgi Karakter kopyalandı:4 $gettok($gettok($did($dname,3).seltext,4-,48),1,9)
      }
    }
  }
}
;; 
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
}
mdx { return $dll(DLL\mdx.dll,$1,$2-)