alias resimpen return @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ler-Penceresi
alias _ilkresimciz { clear $resimpen | drawpic -s $resimpen -1 -1 $window($resimpen).bw $window($resimpen).bh $qt($fline($resimpen,/(bmp|jpeg|jpg|png)/i,1,3).text)  }
alias _tum_resimleri_ciz_ve_farkli_dosyaya_kaydet {
  set -eu30 %resimler_islemede OK
  if !$isdir(yaziliresimler) { .mkdir yaziliresimler }
  var %j = 1
  while $fline($resimpen,/(bmp|jpeg|jpg|png)/i,%j,3).text {
    var %dsy = $nopath($v1)
    window -a $resimpen
    clear $resimpen 
    drawpic -s $resimpen -1 -1 $window($resimpen).bw $window($resimpen).bh $qt($fline($resimpen,/(bmp|jpeg|jpg|png)/i,%j,3).text)
    _resme_yaz %resim-yazi-pozisyon
    drawsave -b32q100 $resimpen $qt(yaziliresimler\ $+ %dsy)
    inc %j
  }
  run yaziliresimler
}

alias _resme_yaz {
  if ($1 == Alt) {
    if ($2 == sag) {
      if (%resimler_islemede == $null) {  _ilkresimciz }
      drawtext $resimpen %resim_yazi_rengi  arial %resim_yazi_buyukluk $calc(%ekran_genislik - %yazi_genislik -10) $calc(%ekran_yukseklik - %yazi_yukseklik) %resim_yazisi
    }
    if ($2 == sol) {
      if (%resimler_islemede == $null) {  _ilkresimciz }
      drawtext $resimpen %resim_yazi_rengi  arial %resim_yazi_buyukluk 5 $calc(%ekran_yukseklik - %yazi_yukseklik) %resim_yazisi
    }
    if ($2 == orta) { 
      if (%resimler_islemede == $null) {  _ilkresimciz }
      drawtext $resimpen %resim_yazi_rengi  arial %resim_yazi_buyukluk  $calc($calc(%ekran_genislik / 2) - $calc(%yazi_genislik / 2)) $calc(%ekran_yukseklik - %yazi_yukseklik) %resim_yazisi
    }
  }  
  if ($1 == Ust) { 
    if ($2 == sag) {
      if (%resimler_islemede == $null) {  _ilkresimciz }
      drawtext $resimpen %resim_yazi_rengi  arial %resim_yazi_buyukluk $calc(%ekran_genislik - %yazi_genislik - 5) 1 %resim_yazisi
    }
    if ($2 == sol) {
      if (%resimler_islemede == $null) {  _ilkresimciz }
      drawtext $resimpen %resim_yazi_rengi  arial %resim_yazi_buyukluk 1 1 %resim_yazisi
    }
    if ($2 == orta) { 
      if (%resimler_islemede == $null) {  _ilkresimciz }
      drawtext $resimpen %resim_yazi_rengi  arial %resim_yazi_buyukluk  $calc($calc(%ekran_genislik / 2) - $calc(%yazi_genislik / 2)) 1 %resim_yazisi
    }
  }
}

menu * {
  dclick:{
    if $window($resimpen) {
      set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
      set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
      set %ekran_genislik $window($resimpen).bw
      set %ekran_yukseklik $window($resimpen).bh
      if (*Resimleri Yukle* iswm $sline($resimpen,1)) { 
        noop $msfile(.,Resimlere Gözat,Sec)  
        var %m = 1 
        if !$msfile(%m) { return }
        while ($msfile(%m)) {
          var %f = $msfile(%m)
          if ($regex(%f,(.+)\.(bmp|jpeg|jpg|png)$)) { aline -l $resimpen %f }
          inc %m
        }
        _ilkresimciz
        set %resim_yazi_rengi  $?="Resime eklenecek yazinin rengini girin [0~15]"
        if (%resim_yazi_rengi !isnum) { set %resim_yazi_rengi 1 }
        iline -l %resim_yazi_rengi  $resimpen 2 Renk Secimi = %resim_yazi_rengi 
        set %resim_yazi_buyukluk  $?="Resime eklenecek yazinin buyuklugunu girin [10~40]"
        if (%resim_yazi_buyukluk <= 10 && %resim_yazi_buyukluk !isnum) { set %resim_yazi_buyukluk 10 }
        iline -l 3 $resimpen 3 Font Buyuklugu = %resim_yazi_buyukluk
        set %resim_yazisi $?="Resime eklenecek yaziyi girin"
        if (!%resim_yazisi)  { set %resim_yazisi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | return }
        iline -l 3 $resimpen 4 Yazi: %resim_yazisi
        iline -l 4 $resimpen 5 Alt sag
        iline -l 4 $resimpen 6 Alt sol
        iline -l 4 $resimpen 7 Alt orta
        iline -l 4 $resimpen 8 Ust sag
        iline -l 4 $resimpen 9 Ust sol
        iline -l 4 $resimpen 10 Ust orta
        cline -l 3 $resimpen 1
        iline -l $resimpen 11 &YENIDEN BASLAT
        iline -l 4 $resimpen 12 @Tum Resimlere Yaz ve Kaydet
      }
      if ($regex($sline($resimpen,1),/^(Alt|Ust)\s(sag|sol|orta)/i)) { 
        set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
        set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
        set %ekran_genislik $window($resimpen).bw
        set %ekran_yukseklik $window($resimpen).bh
        set %resim-yazi-pozisyon $regml(1) $regml(2)
        _resme_yaz %resim-yazi-pozisyon
        ;
      }
    }

    if (Renk Secimi* iswm $sline($resimpen,1)) {
      set %resim_yazi_rengi  $?="Resime eklenecek yazinin rengini girin [0~15]" 
      rline -l $resimpen 2 Renk Secimi  = %resim_yazi_rengi  
      cline -l %resim_yazi_rengi $resimpen 2
      _resme_yaz %resim-yazi-pozisyon
    }
    if (Font Buyuklugu* iswm $sline($resimpen,1)) { 
      set %resim_yazi_buyukluk  $?="Resime eklenecek yazinin buyuklugunu girin [10~40]" 
      rline -l $resimpen 3 Font Buyuklugu = %resim_yazi_buyukluk 
      cline -l 3 $resimpen 3
      set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
      set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
      _resme_yaz %resim-yazi-pozisyon
    }
    if (Yazi* iswm $sline($resimpen,1)) {
      set %resim_yazisi $?="Resime eklenecek yaziyi girin" 
      rline -l $resimpen 4 Yazi = %resim_yazisi 
      cline -l 3 $resimpen 4
      set %yazi_genislik $width(%resim_yazisi,arial,%resim_yazi_buyukluk)
      set %yazi_yukseklik $height(%resim_yazisi,arial,%resim_yazi_buyukluk)
      _resme_yaz %resim-yazi-pozisyon
    }
    if (&YENIDEN BASLAT == $sline($resimpen,1)) {
      window -c $resimpen
      window -al20p $resimpen | aline -l 4 $resimpen Resimleri Yukle 
    }
    if (@Tum Resimlere Yaz ve Kaydet == $sline($resimpen,1)) {
      if (%resim-yazi-pozisyon == $null) { set %resim-yazi-pozisyon Sag Alt }
      _tum_resimleri_ciz_ve_farkli_dosyaya_kaydet
    }
  }
  Resimlere Yazi Ekle: { clear $resimpen | clear -l $resimpen | window -al20p $resimpen | aline -l 4 $resimpen Resimleri Yukle }
}