Tekil Mesaj gösterimi
Alt 28 Kasım 2005, 18:19   #1
Utku
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Çeşitli yazı şekilleri addonu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yati { if $dialog(yazitip) = $null { dialog -m yazitip yazitip } else { halt } } dialog yazitip { title "Yazıtipi" size 250 150 110 170 radio "Elit",1,10 10 90 20 radio "Full Ascii",2,10 30 90 20 radio "Ters",3,10 50 90 20 radio "B&#252;y&#252;k-K&#252;&#231;&#252;k",4,10 70 90 20 radio "Renkli",5,10 90 90 20 radio "Normal",19,10 110 90 20 box "",20,5 0 100 135 button "Tamam",21,5 145 100 20,ok } on 1:dialog:yazitip:sclick:1:{ .disable #ters | .disable #elit | .enable #turkce | .disable #buykuc | .disable #renkli } on 1:dialog:yazitip:sclick:2:{ .disable #ters | .enable #elit | .disable #turkce | .disable #buykuc | .disable #renkli } on 1:dialog:yazitip:sclick:3:{ .enable #ters | .disable #elit | .disable #turkce | .disable #buykuc | .disable #renkli } on 1:dialog:yazitip:sclick:4:{ .disable #ters | .disable #elit | .disable #turkce | .enable #buykuc | .disable #renkli } on 1:dialog:yazitip:sclick:5:{ .enable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc } on 1:dialog:yazitip:sclick:19:{ .disable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc } on 1:dialog:yazitip:init:0:{ if ($group(#turkce).status == on ) { did -c yazitip 1 } if ($group(#elit).status == on ) { did -c yazitip 2 } if ($group(#ters).status == on ) { did -c yazitip 3 } if ($group(#buykuc).status == on ) { did -c yazitip 4 } if ($group(#renkli).status == on ) { did -c yazitip 5 } if ($group(#turkce).status == off ) && ($group(#elit).status == off ) && ($group(#ters).status == off ) && ($group(#buykuc).status == off ) && ($group(#renkli).status == off ) { did -c yazitip 19 } } #renkli off on 1:INPUT:*:{ unset %ahenk* set %ahenkk $1- if ( $chr(47) == $mid(%ahenkk,1,1) ) { %ahenkk | halt } set %ahenku $len(%ahenkk) set %ahenks 1 :ilk if ( %ahenks > %ahenku ) goto son set %ahenkh $mid(%ahenkk,%ahenks,1) if ( %ahenkh == $chr(32) ) { %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160)) } %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh inc %ahenks goto ilk :son say %ahenkt unset %ahenk* halt } #renkli end #turkce off on 1:INPUT:*:{ unset %turkce set %turkce $1- if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | halt } %turkce = $replace(%turkce,ı,I) %turkce = $replace(%turkce,İ,I) %turkce = $replace(%turkce,ş,$) %turkce = $replace(%turkce,Ş,$) %turkce = $replace(%turkce,&#231;,c) %turkce = $replace(%turkce,&#199;,c) %turkce = $replace(%turkce,ğ,G) %turkce = $replace(%turkce,Ğ,G) %turkce = $replace(%turkce,&#252;,u) %turkce = $replace(%turkce,&#220;,U) %turkce = $replace(%turkce,b,&#223;) %turkce = $replace(%turkce,B,&#223;) %turkce = $replace(%turkce,<,&#171;) %turkce = $replace(%turkce,>,&#187;) say %turkce unset %turkce halt } #turkce end #elit off on 1:INPUT:*:{ unset %elit set %elit $1- if ( $chr(47) == $mid(%elit,1,1) ) { %elit | halt } %elit = $replace(%elit,a,&#229;) %elit = $replace(%elit,b,&#223;) %elit = $replace(%elit,c,&#169;) %elit = $replace(%elit,d,D) %elit = $replace(%elit,e,&#235;) %elit = $replace(%elit,f,F) %elit = $replace(%elit,h,]-[) %elit = $replace(%elit,i,&#238;) %elit = $replace(%elit,k,|{) %elit = $replace(%elit,l,&#163;) %elit = $replace(%elit,m,M) %elit = $replace(%elit,n,&#241;) %elit = $replace(%elit,o,&#248;) %elit = $replace(%elit,p,P) %elit = $replace(%elit,q,&#182;) %elit = $replace(%elit,r,&#174;) %elit = $replace(%elit,s,&#167;) %elit = $replace(%elit,t,&#177;) %elit = $replace(%elit,u,&#181;) %elit = $replace(%elit,v,V) %elit = $replace(%elit,w,\\') %elit = $replace(%elit,x,&#215;) %elit = $replace(%elit,y,&#165;) %elit = $replace(%elit,z,Z) %elit = $replace(%elit,ı,I) %elit = $replace(%elit,İ,&#206;) %elit = $replace(%elit,ş,$) %elit = $replace(%elit,Ş,$) %elit = $replace(%elit,&#231;,&#162;) %elit = $replace(%elit,&#199;,&#162;) %elit = $replace(%elit,ğ,g) %elit = $replace(%elit,Ğ,Ğ) %elit = $replace(%elit,&#252;,&#251;) %elit = $replace(%elit,&#220;,&#219;) %elit = $replace(%elit,&#246;,&#244;) %elit = $replace(%elit,&#214;,&#212;) %elit = $replace(%elit,!,&#161;) %elit = $replace(%elit,?,&#191;) %elit = $replace(%elit,<,[) %elit = $replace(%elit,>,&#187;) %elit = $replace(%elit,-,&#172;) %elit = $replace(%elit,:,&#166;) %elit = $replace(%elit,',`) %elit = $replace(%elit,`,') say %elit unset %elit halt } #elit end #ters off on 1:INPUT:*:{ unset %ters* set %tersd $1- if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt } set %tersu $len(%tersd) set %terss 1 :ilk if ( %tersu == 0 ) goto son if ( $mid(%tersd,%tersu,1) == $chr(32) ) { %tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160)) } %terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0) dec %tersu inc %terss goto ilk :son say %terst unset %ters* halt } #ters end #buykuc off on 1:INPUT:*:{ unset %buy* set %buyk $1- if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | 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,ı,I,o,O,p,P,ğ,Ğ,&#252;,&#220;,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,&#246;,&#214;,&#231;,&#199;) 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,ı,O,o,P,p,Ğ,ğ,&#220;,&#252;,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,&#214;,&#246;,&#199;,&#231;) inc %buys set %buyb %buyb $+ %buyh goto ilk :son say %buyb unset %buy* halt } #buykuc end

/yati yazıp &#231;alıştırabilirsiniz.

Addonun yazarını bilmiyorum, ama b&#252;y&#252;k ihtimal Abc olması lazım.


Konu Utku tarafından (28 Kasım 2005 Saat 22:14 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver