mIRC Yazı Stilleri

eklenen bütün yazı stilleri buyrun sizlerle. Bİr ince Bir Kalın yazma : on *:input:*: { if $left($1,1) != / { var %1 = $1- var %2 = $regsub(%1, /()/g, $chr(2)1, %1) say %1 haltdef } } İLk Harfi REnkLi Yazmak : on *:input:*: {if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {msg $active $regsubex($1-,/(?<=^s)(.)/g, 041 )halt}} İLk Harfi İnce Yazmak : on *:input:*:if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 { say $bold($1-) halt }alias bold return $regsubex($1-,/(?<=^ )(.)/g,$+($chr(2),1,$chr(2))) ÇEştLi Yazı Stilleri : #yaziturkce offon 1:INPUT:*:{if ( $left($1,1) == / ) { goto son }if ($ctrlenter) { goto son }if ($active == Status Window) { Echo -a %logo2 11,1Status?a Birşey Yazamazsınız. goto halt }if ($active == @Bot) { goto halt }unset %turkceset %turkce $1-if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce unset %turkce* halt }%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ ,ü,û,Ü,Û,ö,ô,Ö,Ô)say %turkceunset %turkcehalt:halthalt:son}#yaziturkce end#yazikalinince offon 1:input:*:{if ( $left($1,1) == / ) { goto son }if ($ctrlenter) { goto son }if ($active == Status Window) { Echo -a %logo2 11,1Status?a Birşey Yazamazsınız. goto halt }if ($active == @Bot) { goto halt }set %kelime $1-if ( $left($1,1) == . ) { goto bit }set %kelime $replace(%kelime,ı,I)set %kelime $replace(%kelime,ğ,g)set %kelime $replace(%kelime,l, L )set %kelime $replace(%kelime,b,ß)set %kelime $replace(%kelime,Ş,$)set %kelime $replace(%kelime,j,J)set %kelime $replace(%kelime,o, ø )set %kelime $replace(%kelime,t,?)set %kelime $replace(%kelime,ç, ¢ )set %kelime $replace(%kelime,:,¦)set %kelime $replace(%kelime,Ç, ¢ )set %kelime $replace(%kelime,ç,¢)set %kelime $replace(%kelime,ü,û)set %kelime $replace(%kelime,Ü,Û)set %kelime $replace(%kelime,ö,ô)set %kelime $replace(%kelime,Ö,Ô)set %kelime $replace(%kelime,?,¿)set %kelime $replace(%kelime,x,×)set %kelime $replace(%kelime,slm,SeLam)set %kelime $replace(%kelime,nbr,naßer¿)set %kelime $replace(%kelime,s.a, s eLamun a LeyKüm.)set %kelime $replace(%kelime,a.s, a LeyKüm S eLam.)set %kelime $replace(%kelime,allah,Allah)set %kelime $replace(%kelime,Yazgulu,Y a zg u Lu):bitsay %kelimeunset %kelime:halthalt:son}#yazikalinince end#yazielite offon 1:input:*:{if ( $left($1,1) == / ) { goto son }if ($ctrlenter) { goto son }if ($active == Status Window) { Echo -a %logo2 11,1Status?a Birşey Yazamazsınız. goto halt }if ($active == @Bot) { goto halt }set %kelime $1-if ( $left($1,1) == . ) { goto bit }set %kelime $replace(%kelime,ı,I)set %kelime $replace(%kelime,ğ,g)set %kelime $replace(%kelime,l,L)set %kelime $replace(%kelime,b,ß)set %kelime $replace(%kelime,ı,I)set %kelime $replace(%kelime,ş,$)set %kelime $replace(%kelime,Ş,$)set %kelime $replace(%kelime,j,J)set %kelime $replace(%kelime,ç,¢)set %kelime $replace(%kelime,ü,û)set %kelime $replace(%kelime,Ü,Û)set %kelime $replace(%kelime,ö,ô)set %kelime $replace(%kelime,Ö,Ô)set %kelime $replace(%kelime,:,¦)set %kelime $replace(%kelime,?,¿)set %kelime $replace(%kelime,slm,SeLam)set %kelime $replace(%kelime,nbr,naßer¿)set %kelime $replace(%kelime,s.a, s eLamun a LeyKüm.)set %kelime $replace(%kelime,a.s, a LeyKüm S eLam.)set %kelime $replace(%kelime,allah,Allah)set %kelime $replace(%kelime,Yazgulu,Y a zg u Lu):bitsay %kelimeunset %kelime:halthalt:son}#yazielite end#yaziqarisma offon 1:input:*:{if ( $left($1,1) == / ) { goto son }if ($ctrlenter) { goto son }if ($active == Status Window) { Echo -a %logo2 11,1Status?a Birşey Yazamazsınız. goto halt }if ($active == @Bot) { goto halt }set %kelime $1-if ( $left($1,1) == . ) { goto bit }set %kelime $replace(%kelime,o-,º)set %kelime $replace(%kelime,k,]{)set %kelime $replace(%kelime,1/4,¼)set %kelime $replace(%kelime,1/2,½)set %kelime $replace(%kelime,/,÷)set %kelime $replace(%kelime,0,ø)set %kelime $replace(%kelime,1,¹)set %kelime $replace(%kelime,2,²)set %kelime $replace(%kelime,3,³)set %kelime $replace(%kelime,ae,Æ)set %kelime $replace(%kelime,a,å)set %kelime $replace(%kelime,b,ß)set %kelime $replace(%kelime,c,©)set %kelime $replace(%kelime,e,ë)set %kelime $replace(%kelime,i,î)set %kelime $replace(%kelime,l,£)set %kelime $replace(%kelime,n,ñ)set %kelime $replace(%kelime,o,ø)set %kelime $replace(%kelime,r,®)set %kelime $replace(%kelime,s,§)set %kelime $replace(%kelime,u,µ)set %kelime $replace(%kelime,x,×)set %kelime $replace(%kelime,y,¥)set %kelime $replace(%kelime,!,¡)set %kelime $replace(%kelime,?,¿)set %kelime $replace(%kelime,,»)set %kelime $replace(%kelime,-,¬)set %kelime $replace(%kelime,:,¦)set %kelime $replace(%kelime,slm,SeLam)set %kelime $replace(%kelime,nbr,naßer¿)set %kelime $replace(%kelime,s.a, s eLamun a LeyKüm.)set %kelime $replace(%kelime,a.s, a LeyKüm S eLam.)set %kelime $replace(%kelime,allah,Allah)set %kelime $replace(%kelime,Yazgulu,Y a zg u Lu):bitsay %kelimeunset %kelime:halthalt:son}#yaziqarisma end#yaziilkbuyuk onon 1:INPUT:*: {if ( $left($1,1) == / ) { goto son }if ($ctrlenter) { goto son }if ($active == Status Window) { Echo -a %logo2 11,1Status?a Birşey Yazamazsınız. goto halt }if ($active == @Bot) { goto halt }set %Var3 $1-unset %Var1 %Var2set %Var1 1 set %Var2 $upper($mid(%Var3,1,1))if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) say %Var2 halt }:Start1inc %Var1 1if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) if ($len(%Var3) < %Var1) { goto Start1 } }if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) inc %Var1 1 if ($len(%Var3) < %Var1) { goto Start1 } }if ($len(%Var3) != %Var1) { goto Start1 }say %Var2halt:ServerCommand:halthalt:son}#yaziilkbuyuk end#yazirenkli offon 1:INPUT:*:{if ( $left($1,1) == / ) { goto son }if ($ctrlenter) { goto son }if ($active == Status Window) { Echo -a %logo2 11,1Status?a Birşey Yazamazsınız. goto halt }if ($active == @Bot) { goto halt }unset %ahenk*if ( $chr(47) == $mid($1-,1,1) ) { $1- unset %ahenk* halt }:ilkinc %ahenksif ( %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) $+ %ahenkhgoto ilk:halthalt:son}#yazirenkli enddialog Yazim {title ?Yazıtipi?size -1 -1 110 220radio ?Tûrk¢e?,1,10 10 90 20radio ?eLite?,2,10 30 90 20radio ?Ilk Harf Büyük?,3,10 50 90 20radio ?KaLın-İnce?,7,10 70 90 20radio ?Qa®i§ma?,5,10 90 90 20radio ?Rengarenk?,6,10 110 90 20radio ?Normal?,19,10 130 90 20box ??,20,5 0 100 155button ?TAMAM?,21,5 195 100 20,ok}on 1:dialog:Yazim:*:*: {if ( $devent == init ) {if ($group(#yaziturkce).status == on ) { did -c Yazim 1 }elseif ($group(#yazielite).status == on ) { did -c Yazim 2 }elseif ($group(#yaziilkbuyuk).status == on ) { did -c Yazim 3 }elseif ($group(#yazikalinince).status == on ) { did -c Yazim 7 }elseif ($group(#yazirenkli).status == on ) { did -c Yazim 6 }elseif ($group(#yaziqarisma).status == on ) { did -c Yazim 5 }else { did -c Yazim 19 }}if ( $devent == sclick ) {if ( $did == 1 ) { .disable #yazi* .enable #yaziturkce echo %logo2 11Yazı Stili ? 4Tûrk¢e 11″ Açıldı! }if ( $did == 2 ) { .disable #yazi* .enable #yazielite echo %logo2 11Yazı Stili ? 4eLite 11″ Açıldı! }if ( $did == 3 ) { .disable #yazi* .enable #yaziilkbuyuk echo %logo2 11Yazı Stili ? 4İlk Harf Büyük 11″ Açıldı! }if ( $did == 7 ) { .disable #yazi* .enable #yazikalinince echo %logo2 11Yazı Stili ? 4Ka L ın-İn C e 11″ Açıldı! }if ( $did == 5 ) { .disable #yazi* .enable #yaziqarisma echo %logo2 11Yazı Stili ? 4Qa®i§ma 11″ Açıldı! }if ( $did == 6 ) { .disable #yazi* .enable #yazirenkli echo %logo2 11Yazı Stili ? 4R 8e 7n 14G 0a 12r 9e 6N 3k 11″ Açıldı! }if ( $did == 19) { .disable #yazi* }}}alias Yazim { dialog -m Yazim Yazim }alias acolor { dialog -m acolor acolor }dialog acolor {title ?Renkli yazı?size -1 -1 169 109box ?Renk?, 1, 6 5 80 69text ?Renkno:?, 2, 16 27 22 13edit ??, 3, 51 20 25 22, center multi returntext ?Arka:?, 4, 16 50 29 13edit ??, 5, 51 43 25 22, center multi returnbox ?Diğer?, 6, 84 5 79 69check ?Kalın?, 7, 94 27 43 13check ?Çizgili?, 8, 94 49 61 13button ?Önizleme?, 9, 21 82 55 20button ?Tamam?, 10, 93 82 55 20, okbox ??, 11, -1 -6 171 116}on *:dialog:acolor:*:*: {if $devent = init {did -a $dname 3 %ac.textdid -a $dname 5 %ac.backif (%ac.bold == on) { did -c $dname 7 }if (%ac.underline == on) { did -c $dname 8 }}if $devent = edit {if $did = 3 { set %ac.text $did(3).text }if $did = 5 { set %ac.back $did(5).text }}if $devent = sclick {if $did = 7 {if ($did(7).state = 1) { set %ac.bold on set %ac.bold2 }if ($did(7).state = 0) { set %ac.bold off set %ac.bold2 }}if $did = 8 {if ($did(8).state = 1) { set %ac.underline on set %ac.underline2 }if ($did(8).state = 0) { set %ac.underline off set %ac.underline2 }}if $did = 9 { echo -a $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ Yazdığınız böyle görünecek.! }}}#acolor offon *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- halt }#acolor end