Evet birkaçtane yabancı kaynaklı görmüştüm, hep yabancılar mı yapacak biz daha iyisini yaparız dedim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ş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: Kodu kopyalamak için üzerine çift tıklayın!
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...]