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

Evet birkaçtane yabancı kaynaklı görmüştüm, hep yabancılar mı yapacak biz daha iyisini yaparız dedim :)

Şakası bir kenara.. Olay şu..

Diğerlerinden farkı, herhangi bir font ve büyüklükte bir yazıyı ASCII dump olarak ekrana basmak, burada baskı karekterleri ve arkaplanı seçebileceğiniz bir ayar da var.

Çalışma prensibi Optical Recognition yani optik tarama, Metni önce resim olarak yaratıp daha sonra pixel, pixel tarayarak ASCII ye dönüştürüyor.

mIRC'nin fontlar için henüz stabil bir ölçü fonksiyonu olmadığı için bazen fontların genişlikleri sorun olabilir... metin eksik çıkarsa en sonuna ek bir "." nokta ekleyerek bunu düzeltebilirsiniz.

Fontların kutucuklar olarak görüntülendiği bir metod denedim ancak el yazısı türü fontlar için bu da sorun oldu, bu nedenle scripts türü fontlar (verdana, arial vb.) daha temiz sonuçları küçük puntolarda bile elde edilebiliyor..

Webdings gibi sembol içerenler ve daha kesik kenarlara sahip Times New setinde görüntü iyi olmayabilir..

Tüm bu olayları 4 parametreyle hem eğlenip hem de deneyebilirsiniz..

Turuncu kısım: Yazı arka planı
Yeşil kısım: yazı
Kırmızı kısım: Font ve Punto
Mavi kısım: Bu dökümle ne yapacağınızı belirlemek içindir..

scriptinize entegre edebilir veyahut tüm fonksiyonları bir "alias" de değerşendirebilirsiniz top sizde artık.

(not: Herhangi sorunuz olursa başlık altında yazın, fırsat buldukça yanıtlarım.)

alias -l space return .#
alias -l words return $str($chr(160),3)
alias -l `fontsize return 8
alias -l `font return Verdana
alias -l ´print echo $1-

Aşağıya bir kaç örnek bırakıyorum.. Resimlerde kullanılan ayarların bilgisini var. Güle güle kullanın.. iyi eğlenceler.

Kod:

alias -l space return `,´

alias -l words return .@

alias -l `fontsize return 25

alias -l `font return webdings

alias -l ´print echo $1-

alias bigtext {

  ; Author CoCoRiCo -14/09/22

  ; Converting Word to ASCII Text With Optical Scanning by Pixels

  $iif($window(@OSC),window -c @OSC) 

  var %f`s $`fontsize,%f` $`font, %wr $words,%ws $space, %´t $strip($1-)

  window -hodaAw0p +libd @OSC 0 0 $calc($width($1-,%f`,%f`s,i1p1b1t1) + 1) $height(%´t,%f`,%f`s,i1p1b1t1)

  drawtext -r @OSC $rgb(255,0,0) %f` %f`s 2 0 %´t

  var %y` 0 | :. | var %x` 0 |  while (%x` < $calc($window(@OSC).w -1) ) {

    var %c $getdot(@OSC,%x`,%y`) | inc %x`

    set $+(%,e.,%y`) $addtok($eval($+(%,e.,%y`),2),$+(%x`,:,%y`,$iif($getdot(@OSC,%x`,%y`) != $rgb(255,255,255),%wr,%ws)),32))

  }

  if (%y` < $window(@OSC).h) { 

    $iif($regsubex($regsubex($eval($+(%,e.,%y`),2),/(\d|\:|\s)/g,),/(^[ $+ %ws $+ ]+$)/g,),´print $ifmatch,) 

    inc %y` | goto .  

  } 

  unset %e.*

}

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

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

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

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

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

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

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

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

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

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

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

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

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