IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

[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:

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]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]