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.

 

Çevrimdışı

ya bunun içinde birde her kelimenin başı büyük olsaydı güzel olurdu örneğin: Bu Şekilde Daha Güzel Olmazmıydı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ben bunu aldım mircime kopyaladım sonra birde başka bir siteden ilk harf büyük kodunu aldım onuda başka bi dosyaya kopyalayıp mircime yükledim ilk harf büyük kodunu çalıştırdığımda iki kere yazıyor kanala örneğin

selamun aleyküm
Selamun Aleyküm
bu şekilde acaba üstadlarımız buna ekleyebilirlermi ilk harf büyük

 

Çevrimdışı

#yazıstil onon *:input:*:{ if ($left($1,1) != /) { var %Jnk var %e = 0 while %e != $numtok($1-,32) { inc %e 1 var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1)) } msg $active %Jnk halt }}#yazıstil endmenu query,channel { .Yazı Stil ..Aç:.enable #yazıstil ..Kapa:.disable #yazıstil
}

DenpeRaS dene Bunu Bi KaRdeS.

 

Çevrimdışı

ekoll çok tşk ederim çalıştı bi yazı iki kere çıkmadı çok sağol ilgilendiğin için