IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
Yeni Konu aç Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Stil
Alt 09 Mayıs 2008, 02:22   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
yazı tipi



Selam arkadaslar ben Scriptime İnce Kırmızı Yazı tipi eklemek istiyorum
Kodu war bende ama scriptte 4 tane yazı tipi oldugu icin uygulamıyor Sebebiyat script benımkısı Şu Kodu:

n274=on *:input:*: {
n275= if (/* !iswm $1-) && (!$inpaste) && (status win !isin $active) && (@* !iswm $active) {
n276= msg $active $+($regsubex($1-,/(?<=^|\s)(.)/g,$+(4,$upper(\1))),)
n277= halt
n278= }
n279=}

Şuna Göre Nasıl ayarlayabiLirim ArkadasLar ? Yardım istiyorum Şimdiden tskler...




#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
}
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,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g,Ğ,Ğ ,u,û,Ü,Û,o,ô,Ö,Ô)
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,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g, Ğ,Ğ,u,û,Ü,Û,o,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
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,i ,O,o,p,P,g,Ğ,Ü,u,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,s,S,I,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,o,c,C)
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,i,I,o ,O,p,P,g,Ğ,u,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,s,S,i,I,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,o,Ö,c,C,!,¡,? ,¿)
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,i,O ,o,P,p,Ğ,g,Ü,u,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,S,s,I,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,o,C,c,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
#yazikarizma off
on 1:INPUT:#:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
on 1:INPUT:?:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
#yazikarizma end
alias yaztip dialog -m yaztip yaztip
dialog yaztip {
title "Yazi Tipleri"
size -1 -1 108 68
option dbu
radio "sreT", 10, 2 28 50 10, push
radio "Renkli", 2, 2 16 50 10, push
radio "Turkce", 3, 2 4 50 10, push
radio "éLiTé", 4, 2 40 50 10, push
radio "SeSSiZ BuYuK", 5, 55 4 50 10, push
radio "BuYuK-kÜcÜk", 6, 55 16 50 10, push
radio "Karizma", 7, 55 28 50 10, push
radio "Normal", 8, 55 40 50 10, push
box "", 9, 0 -2 108 55
button "Tamam", 1, 1 55 106 10, ok
}
on 1:dialog:yaztip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yaztip 3 }
elseif ($group(#yazielit).status == on ) { did -c yaztip 4 }
elseif ($group(#yaziters).status == on ) { did -c yaztip 10 }
elseif ($group(#yazibuykuc).status == on ) { did -c yaztip 6 }
elseif ($group(#yaziseskuc).status == on ) { did -c yaztip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yaztip 2 }
elseif ($group(#yazikarizma).status == on ) { did -c yaztip 7 }
else { did -c yaztip 8 }
}
if ( $devent == sclick ) {
if ( $did == 3 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 4 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 10 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 6 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 2 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikarizma }
if ( $did == 8 ) { .disable #yazi* }
}
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 12 Mayıs 2008, 21:49   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
hIm..



Arkadaşlar sağoLun 3 gündür Yazdım ßi cvp GeLmedi tşkler ..

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 00:28   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yazı tipi



Buyur kardeş





#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
}
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,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g,Ğ,Ğ ,u,û,Ü,Û,o,ô,Ö,Ô)
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,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g, Ğ,Ğ,u,û,Ü,Û,o,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
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,i ,O,o,p,P,g,Ğ,Ü,u,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,s,S,I,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,o,c,C)
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,i,I,o ,O,p,P,g,Ğ,u,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,s,S,i,I,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,o,Ö,c,C,!,¡,? ,¿)
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,i,O ,o,P,p,Ğ,g,Ü,u,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,S,s,I,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,o,C,c,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
#yazikarizma off
on 1:INPUT:#:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
on 1:INPUT:?:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
#yazikarizma end
#yazikirmizim off
on 1:INPUT:*:{
unset %kirmizim
set %kirmizim $1-
if ( $chr(47) == $mid(%kirmizim,1,1) ) { %kirmizim | unset %kirmizim | halt }
if (/* !iswm $1-) && (!$inpaste) && (status win !isin $active) && (@* !iswm $active) {
%kirmizim = $+($regsubex($1-,/(?<=^|\s)(.)/g,$+(4,$upper(\1))),)
say %kirmizim
unset %kirmizim
halt
}
}
#yazikirmizim end

alias yaztip dialog -m yaztip yaztip
dialog yaztip {
title "Yazi Tipleri"
size -1 -1 108 75
option dbu
radio "sreT", 10, 2 28 50 10, push
radio "Renkli", 2, 2 16 50 10, push
radio "Turkce", 3, 2 4 50 10, push
radio "éLiTé", 4, 2 40 50 10, push
radio "SeSSiZ BuYuK", 5, 55 4 50 10, push
radio "BuYuK-kÜcÜk", 6, 55 16 50 10, push
radio "Karizma", 7, 55 28 50 10, push
radio "Normal", 8, 55 40 50 10, push
box "", 9, 0 -2 108 65
button "Tamam", 1, 1 65 106 10, ok
radio "Kırmızı İnce", 50, 2 52 50 10, push
}
on 1:dialog:yaztip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yaztip 3 }
elseif ($group(#yazielit).status == on ) { did -c yaztip 4 }
elseif ($group(#yaziters).status == on ) { did -c yaztip 10 }
elseif ($group(#yazibuykuc).status == on ) { did -c yaztip 6 }
elseif ($group(#yaziseskuc).status == on ) { did -c yaztip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yaztip 2 }
elseif ($group(#yazikarizma).status == on ) { did -c yaztip 7 }
elseif ($group(#yazikirmizim).status == on ) { did -c yaztip 50 }
else { did -c yaztip 8 }
}
if ( $devent == sclick ) {
if ( $did == 3 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 4 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 10 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 6 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 2 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikarizma }
if ( $did == 50 ) { .disable #yazi* | .enable #yazikirmizim }
if ( $did == 8 ) { .disable #yazi* }
}
}

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 00:53   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
tsk



saol kardeş Allah razı oLsun Tşk ederim ..

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 00:59   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
sorun war



kardeş bu yazdııqn kodda sorun war

* /say: yetersiz parametreler (Satır 128, script35.mrc) bu çıkıyor :S

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 01:07   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yazı tipi



Birde bunu dene istersen.. Sorunu Daha önce cvp lamıştım ama yanlış bölüme actıgından taşınmış sanırım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


#kirmizim off
on *:input:#: {
if !$regex($1,\/) {
msg $active 4 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
on *:input:?: {
if !$regex($1,\/) {
msg $active 4 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
#kirmizim end
#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
}
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,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g,Ğ,Ğ ,u,û,Ü,Û,o,ô,Ö,Ô)
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,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g, Ğ,Ğ,u,û,Ü,Û,o,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
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,i ,O,o,p,P,g,Ğ,Ü,u,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,s,S,I,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,o,c,C)
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,i,I,o ,O,p,P,g,Ğ,u,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,s,S,i,I,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,o,Ö,c,C,!,¡,? ,¿)
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,i,O ,o,P,p,Ğ,g,Ü,u,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,S,s,I,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,o,C,c,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
#yazikarizma off
on 1:INPUT:#:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
on 1:INPUT:?:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
#yazikarizma end
alias yaztip dialog -m yaztip yaztip
dialog yaztip {
title "Yazı Tipleri"
size -1 -1 64 132
option dbu
button "Button", 1, 11 113 37 12, ok
radio "Renkli", 2, 5 5 50 10
radio "Turkce", 3, 5 15 50 10
radio "éLiTé", 4, 5 26 50 10
radio "SeSSiZ BuYuK", 5, 5 37 50 10
radio "BuYuK KuCuK", 6, 5 48 50 10
radio "Karizma", 7, 5 57 50 10
radio "Normal", 8, 5 68 50 10
radio "sreT", 10, 5 80 50 10
radio "İnce Kırmızı", 11, 5 91 50 10
box "", 9, 2 0 57 109
}
on 1:dialog:yaztip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yaztip 3 }
elseif ($group(#yazielit).status == on ) { did -c yaztip 4 }
elseif ($group(#yaziters).status == on ) { did -c yaztip 10 }
elseif ($group(#yazibuykuc).status == on ) { did -c yaztip 6 }
elseif ($group(#yaziseskuc).status == on ) { did -c yaztip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yaztip 2 }
elseif ($group(#yazikarizma).status == on ) { did -c yaztip 7 }
elseif ($group(#kirmizim).status == on ) { did -c yaztip 11 }
else { did -c yaztip 8 }
}
if ( $devent == sclick ) {
if ( $did == 3 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 4 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 10 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 6 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 2 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikarizma }
if ( $did == 7 ) { .disable #yazi* | .enable #kirmizim }
if ( $did == 8 ) { .disable #yazi* }
}
}

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 01:35   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yazı tipi



pardon diğer ilk denediğim txt atmişim

#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
}
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,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g,Ğ,Ğ ,u,û,Ü,Û,o,ô,Ö,Ô)
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,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,i,I,I,Î,s,$,S,$,c,¢,C,¢,g,g, Ğ,Ğ,u,û,Ü,Û,o,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
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,i ,O,o,p,P,g,Ğ,Ü,u,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,s,S,I,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,o,c,C)
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,i,I,o ,O,p,P,g,Ğ,u,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,s,S,i,I,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,o,Ö,c,C,!,¡,? ,¿)
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,i,O ,o,P,p,Ğ,g,Ü,u,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,S,s,I,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,o,C,c,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
#yazikarizma off
on 1:INPUT:#:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
on 1:INPUT:?:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
#yazikarizma end
#yazikirmizim on
on *:input:*: {
if !$regex($1,\/) {
msg $active 4 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
#yazikirmizim end
alias yaztip dialog -m yaztip yaztip
dialog yaztip {
title "Yazi Tipleri"
size -1 -1 108 75
option dbu
radio "sreT", 10, 2 28 50 10, push
radio "Renkli", 2, 2 16 50 10, push
radio "Turkce", 3, 2 4 50 10, push
radio "éLiTé", 4, 2 40 50 10, push
radio "SeSSiZ BuYuK", 5, 55 4 50 10, push
radio "BuYuK-kÜcÜk", 6, 55 16 50 10, push
radio "Karizma", 7, 55 28 50 10, push
radio "Normal", 8, 55 40 50 10, push
box "", 9, 0 -2 108 65
button "Tamam", 1, 1 65 106 10, ok
radio "Kırmızı İnce", 50, 2 52 50 10, push
}
on 1:dialog:yaztip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yaztip 3 }
elseif ($group(#yazielit).status == on ) { did -c yaztip 4 }
elseif ($group(#yaziters).status == on ) { did -c yaztip 10 }
elseif ($group(#yazibuykuc).status == on ) { did -c yaztip 6 }
elseif ($group(#yaziseskuc).status == on ) { did -c yaztip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yaztip 2 }
elseif ($group(#yazikarizma).status == on ) { did -c yaztip 7 }
elseif ($group(#yazikirmizim).status == on ) { did -c yaztip 50 }
else { did -c yaztip 8 }
}
if ( $devent == sclick ) {
if ( $did == 3 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 4 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 10 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 6 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 2 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikarizma }
if ( $did == 50 ) { .disable #yazi* | .enable #yazikirmizim }
if ( $did == 8 ) { .disable #yazi* }
}
}

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 01:47   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
ince kırmızı



Kardeş yazıtiplerime giriyorum ince kırmızıyı işaretliyorum tamama basıyorum sonra tekrar normal yazı stiline giriyo yani ince kırmızıya işaret atamıyorum olmuyo anlamadım giti :S:S:S

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 01:51   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
kunt



kunt kardeş pardon senın yazdıgını göremedim kusura bakma Allah razı olsun sizlerden .. kafam yerınde dğeil oldu sanırım olduda bu sefer

[01:48] <s> SeLamunALeykum
[01:48] <s> s.a
[01:48] <s> nbr
[01:48] <s> NabeR?
[01:48] <s> naber
[01:48] <s> TeşekkürLeR
[01:48] <s> tşk

ßide s.a yazarken hem s.a cıkıyor Hemde SeLamunAleykum oluyor onun içinde bir çare yokmu tşk ederim kardeşim ..

 
Alıntı ile Cevapla

Alt 13 Mayıs 2008, 02:04   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yazı tipi



Galiba sende kelime tamamlama listesi var. Inputların haliyle çakışıyor. O listeyi görmek lazım

 
Alıntı ile Cevapla

Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2

Etiketler
mirc, mirc download, mirc indir, tipi, yazi, yazı

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Yazı Tipi Hk. Prens mIRC Scripting Sorunları 1 08 Nisan 2013 19:16
Yazı Tipi Impulsiv mIRC Scripting Sorunları 11 21 Haziran 2008 21:19
yazı tipi Requiem mIRC Scripting Sorunları 5 08 Ekim 2006 07:31
yazı tipi Serhatt mIRC Scripting Sorunları 1 05 Ekim 2006 18:57




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org