Yazılan metni, ascii karakterlere çevirir. Eğer yazılan metin tek karakter ise
kalıbıyla çevirir.
komutuyla başlatabilirsiniz. Üstteki edit kutucuğuna metni yazdığınızda, alttaki edit kutucuğunda metni ascii'ye dönüştürür. Kopyala butonu ile dönüşen metni kopyalayabilirsiniz.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias ascii dialog -m ascii ascii
alias -l dn { return $iif($len($1-) == 1, $left($replace($regsubex($1-,/(.)/g, $+($chr(36),chr,$chr(40),$asc(\1),$chr(41),$chr(32))), $chr(32), $chr(44)),-1), $&
$iif(!$1, $null, $+($chr(36), $chr(43), $chr(40), $left($replace($regsubex($1-,/(.)/g, $+($chr(36),chr,$chr(40),$asc(\1),$chr(41),$chr(32))), $chr(32), $chr(44)),-1), $chr(41)))) }
alias -l ds { did -ra ascii 2 $dn($1-) }
dialog ascii {
title "Text - Ascii Dönüşüm"
size -1 -1 155 77
option dbu
edit "", 1, 7 22 141 10, multi autohs
edit "", 2, 7 45 141 10, multi autohs
text "Normal Metin", 3, 7 11 40 8
text "Ascii Metin", 4, 7 35 35 8
button "Kopyala", 6, 8 59 28 12, flat
button "Sil", 7, 41 59 28 12, flat
}
on *:dialog:ascii:*:*:{
if $devent = edit && $did = 1 { ds $did(1).text }
if $devent = sclick {
if $did = 7 { did -r $dname 1,2 }
if $did = 6 { $iif($did(2).text, !clipboard $did(2).text) }
}
}
Kod geliştirilebilir, çeşitli eklentiler yapılarak daha zengin halede getirilebilir. - Amaç; mIRC Scripting'e renk katması.
(Bu konuda pek çok kaynak mevcut, faydalandığım kaynakların linklerinlerini paylaşıyorum sadece..) İyi forumlar.