Forumda Arama Yaptım bulamadım . sizinle paylaşmak istedim

;################################################# #
:## Bu kodlar SiNYoL tarafından hazırlanmıştır....
;################################################# #
on 1:load: {
if ( $version < 5.6 ) { unload -rs yazitipi.mrc
echo 4 -a mIRC versiyonunuz yazıtipi addonını desteklemiyor, yazıtipi addonı kaldırılıyor. | halt }
else { echo 4 -a YAZITipleri add-onu y&#252;klendi. }
}
#yazirenkli off
on 1:INPUT:*:{
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
unset %ters*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
:ilk
inc %terss
if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
set %tersh $mid($1-,%terss,1)
%terst = %tersh $+ %terst
goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,&#253;,I,&#221;,&#206;,&#254;,$ ,&#222;,$,&#231;,&#162;,&#199;,&#162;,&#240;,g,&#2 08;,&#208;,&#252;,&#251;,&#220;,&#219;,&#246;,&#24 4;,&#214;,&#212
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

say %turkce
unset %turkce
halt
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
%elit = $replacecs(%elit,a,&#229;,b,&#223;,c,&#169;,d,D,e, &#235;,f,F,h,]-[,i,&#238;,k,|{,l,&#163;,m,M,n,&#241;,o,&#248;,p,P, q,&#182;,r,&#174;,s,&#167;,t,&#177;,u,&#181;,v,V,w ,\\',x,&#215;,y,&#165;,z,Z,&#253;,I,&#221;,&#206;, &#254;,$,&#222;,$,&#231;,&#162;,&#199;,&#162;,&#24 0;,g,&#208;,&#208;,&#252;,&#251;,&#220;,&#219;,&#2 46;,&#244;,&#214;,&#212;,!,&#161;,?,&#191;,<,&#171 ;,>,&#187;,-,&#172;,:,&#166;,',`,`,')
say %elit
unset %elit
halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
unset %seskuc
set %seskuc $1-
if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
%seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,& #253;,O,o,p,P,&#240;,&#208;,&#220;,&#252;,A,a,s,S, d,D,f,F,g,G,h,H,j,J,k,K,l,L,&#254;,&#222;,&#221;,i ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,&#214;,&#246;,&#231;, &#199
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

say %seskuc
unset %seskuc
halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
unset %buy*
set %buyk $1-
if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
set %buys 1
set %buyu $len(%buyk)
:ilk
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,&#253 ;,I,o,O,p,P,&#240;,&#208;,&#252;,&#220;,a,A,s,S,d, D,f,F,g,G,h,H,j,J,k,K,l,L,&#254;,&#222;,i,&#221;,z ,Z,x,X,c,C,v,V,b,B,n,N,m,M,&#246;,&#214;,&#231;,&# 199;,!,&#161;,?,&#191
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

set %buyb %buyb $+ %buyh
inc %buys
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,&#2 53;,O,o,P,p,&#208;,&#240;,&#220;,&#252;,A,a,S,s,D, d,F,f,G,g,H,h,J,j,K,k,L,l,&#222;,&#254;,&#221;,i,Z ,z,X,x,C,c,V,v,B,b,N,n,M,m,&#214;,&#246;,&#199;,&# 231;,&#161;,!,&#191;,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
dialog yazitip {
title "Yaz&#253;tipi"
size -1 -1 110 190
radio "T&#251;rk&#162;e",1,10 10 90 20
radio "&#235;&#163;&#238;&#177;",2,10 30 90 20
radio "sreT",3,10 50 90 20
radio "B&#252;Y&#252;K-k&#220;&#231;&#220;k",4,10 70 90 20
radio "SeSSiZ B&#252;Y&#252;K",5,10 90 90 20
radio "Renkli",6,10 110 90 20
radio "Normal",19,10 130 90 20
box "",20,5 0 100 155
button "TAMAM",21,5 165 100 20,ok
}
on 1:dialog:yazitip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
else { did -c yazitip 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 19) { .disable #yazi* }
}
}
alias yazitip { dialog -m yazitip yazitip }
menu query,channel {
Yazıtipi...:/yazitip
}



Bu dosyayı mirc klas&#246;r&#252;ne kopyalayin ve /load -rs dosyayınınyolu\yazitipi.mrc
komutunu kullanarak addonu y&#252;kleyin.
Y&#252;kleme işlemini doğru yaptığınız takdirde
&#246;zel ve kanal pencerelerine sağ tıkladığınız
zaman "Yazıtipi..." butonunu g&#246;receksiniz.
g&#246;receksiniz. Buna tıklayıp 6 yazıtipini
se&#231;ebilirsiniz.