[manikdepresif]

[aciklama]
/window -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re komutu ile actiginiz resim (picture window) penceresine dik yazi yazmanizi saglar
[kullanim]
/dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re yazirengi[1~15] arkaplanrenk[1~15] yazifontismi yazibuyuklugu kordinat-x kordinat-y yaziniz
[örnek]
/window -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re komutu ile bir resim penceresi acalim.
[örnek komut uygulayalim]
/dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 1 0 arial 12 5 5 merhaba nasilsin
/dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 0 2 verdana 15 30 30 MERHABA NASILSIN
/dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 0 4 calibri 40 70 70 MERHABA
/dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 0 1 arial 50 100 100 MERHABA

[kod baslangic]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias dikyaz {
  ;/dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re yazirengi[1~15] arkaplanrenk yazifontismi yazibuyuklugu kordinat-x kordinat-y yaziniz
  ;Ornek: /dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 1 0 arial 12 5 5 merhaba nasilsin
  if ($window($1).type != picture) { echo -c info Sadece resim penceresi parametresi " window -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re" ile acilan pencerelere dikey yazi yazabilirsiniz  | return }
  if ($2 !isnum) { echo -c info Ornek: /dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 1 0 arial 12 5 5 merhaba nasilsin.  | return }
  if !$regex($4-,/^(.+)\s(\d+)\s(\d+)\s(\d+)\s(.+)/i) {
    echo -c info Ornek: /dikyaz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 1 0 arial 12 5 5 merhaba nasilsin. 
    return 
  } 
  if $regex($4-,/^(.+)\s(\d+)\s(\d+)\s(\d+)\s(.+)/i) {
    var %yazitipi = $regml(1)
    var %yazibuyuklugu = $regml(2)
    var %xkor = $regml(3)
    var %ykor = $regml(4)
    var %yazi = $regml(5)
  }
  var %m  = 1
  while ($mid(%yazi,%m,1)) {
    var %hrf = $v1
    if (%hrf != $chr(32)) {
      .timer -m 1 500 window -a $1
      .timer -m 1 500 drawtext -b $1 $2 $3 %yazitipi %yazibuyuklugu %xkor %ykor %hrf
    }
    inc %ykor %yazibuyuklugu
    inc %m 
  }
}

[gorsel]


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.