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

7Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Haziran 2011, 22:10   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Özel yazı stilinde değişiklik




ConferenceRoom bir sunucuya takiliyorum.. biliyorsunuz ki bu tür sunucularda genelde renkli yazilar unreal sunucular gibi sorun olmuyor banlanmiyorsunuz renkli yazi yuzunden kanallardan. Onun icin kendime CesuryureK arkadasimizin emegi olan mIRC Turkce 6.35 Scripti kendime gore duzenlemeler yaptim kullaniyorum ve bu scripte resimdeki sekilde yazi addonu eklemek istiyorum yardimi gececek herkese tesekkurler.

Dip Not: Tıpkisinin aynisi olsun istiyorum.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Orjinalinden alintidir. Coder by 4CesuryureK

on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+($chr(3),1) $chr(2) %c $chr(3) $chr(2) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
:end
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 09 Haziran 2011, 09:07   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
On 1:input:*:{ if ($left($1,1) != /) || ($active != Status Window) { if ($target == $chan) { if $1 isnum { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } else { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) halt } } else { if $1 isnum { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } else { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) halt } } } }

Aslında böyle direk isteklere cevap vermiyoruz. Lakin canım sıkıldı uğraşmak için birşeyler arıyordum denk geldi.

Kod hem özelde hemde kanalda nickleri ince yapar ve hem özelde hemde kanalda çalışacaktır aynı yazı tipi ile.

Örnek: Bu Nedir Deme CesuryureK Bu Bir Yazı Tipi Deneme Yazısıdır.

__________________
Şimdi Saat Sensizliğin Ertesi..

Konu CesuryureK tarafından (13 Nisan 2019 Saat 06:36 ) değiştirilmiştir. Sebep: Örnek Eklendi.
 
Alıntı ile Cevapla

Alt 10 Haziran 2011, 16:15   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




CesuryureK Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
On 1:input:*:{ if (/* !iswm $1) || ($active != Status Window) { if ($target == $chan) { if $1 isnum { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } else { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) halt } } else { if $1 isnum { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } else { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) halt } } } }

Aslında böyle direk isteklere cevap vermiyoruz. Lakin canım sıkıldı uğraşmak için birşeyler arıyordum denk geldi.

Kod hem özelde hemde kanalda nickleri ince yapar ve hem özelde hemde kanalda çalışacaktır aynı yazı tipi ile.

Örnek: Bu Nedir Deme CesuryureK Bu Bir Yazı Tipi Deneme Yazısıdır.

CesuryureK cok teşekkur ediyorum hocam iyi denk gelmisim oyleyse) oldu fakat soyle bir sorunla karsilastim /join #kanal olarak kanallara girmiyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
neden acaba kanala yansitiyor oldugu gibi komutu.. birde
boyle bos bir vaktinizi yakalamisken fisatcilik gibi olmasin ama CesuryureK ;
Ben istedigim resim örneginde butun kelimelerin harfleri buyuk ciksin istemistim biliyorum ama gozume hos gelmedi "
İ"lk harf buyuk digerleri kucuk olucak sekilde ayarlamak istersem hangi bolumu degısmem gerekir onuda belirtirseniz pek horaa gececektir hocam simdiden teşekkürler.

Örn:

[16:08] <Ugur>  /j Ur
[16:08] <Ugur>  Allah Allah
[16:14] <Ugur>  /join #ur



Konu RadyocUgur tarafından (10 Haziran 2011 Saat 16:33 ) değiştirilmiştir. Sebep: Örnek Eklendi.
 
Alıntı ile Cevapla

Alt 10 Haziran 2011, 21:04   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




Kodda 2. satırı kaldır.
Verdiğim satırı ekle: if ($left($1,1) != /) {

 
Alıntı ile Cevapla

Alt 12 Ağustos 2011, 07:18   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




Emeği geçen coder arkadaşların eline sağlık.. ilk harfleri küçük olarak nasıl yapabiliriz? büyük olmasın.. ve bu yazı şeklind eki metin öncesi ctrl + k kutucuğu çıkıyor.. onunda mutlak bir önlemi var mı acaba çıkmasın..

 
Alıntı ile Cevapla

Alt 13 Ağustos 2011, 02:11   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




Lütfen, bu başlığı kontrol ediniz.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Alt 22 Ağustos 2011, 18:41   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




CesuryureK Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
On 1:input:*:{ if (/* !iswm $1) || ($active != Status Window) { if ($target == $chan) { if $1 isnum { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } else { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) halt } } else { if $1 isnum { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } else { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) halt } } } }

Aslında böyle direk isteklere cevap vermiyoruz. Lakin canım sıkıldı uğraşmak için birşeyler arıyordum denk geldi.

Kod hem özelde hemde kanalda nickleri ince yapar ve hem özelde hemde kanalda çalışacaktır aynı yazı tipi ile.

Örnek: Bu Nedir Deme CesuryureK Bu Bir Yazı Tipi Deneme Yazısıdır.

normal metin yazmak için hangi komutu değiştirmemiz lazım arkadaşlar? ilk harf büyük YAZMASIN..

 
Alıntı ile Cevapla

Alt 07 Eylül 2011, 23:29   #8
Çevrimdışı
fav
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




$lower identify ni kullanabilirsin
örnek: //ech -a $lower(SELAM) selam


kodu şöyle değişsek kısa ve hızlı sanırım istediğin olur
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
On *:input:*:{ if (/* !iswm $1) || ($active != Status Window) { if ($target == $chan) { if $1 isnum { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } else { var %dnm $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) msg $lower(%dnm) halt } } else { if $1 isnum { var dnm1 $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt } msg $lower(%dnm1) else { var dnm2 $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) msg $lower(%dnm2) halt } } } }


 
Alıntı ile Cevapla

Alt 09 Eylül 2012, 22:43   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




Peki bu yazı tipinin hem baş harflerini altı çizili ve renkli diğerlerininde başka bi renkte mesel mirc renk tonu olarak konuşmak gerekirse her kelimenin baş harfleri 12 renginde altı çizili diğer harfler 14 renginde böyle bir yazı tipi gördüm arıyorum bulamıyorum yardımcı olursanız sevinirim

Selam Naber gibi

 
Alıntı ile Cevapla

Alt 10 Eylül 2012, 14:38   #10
Çevrimiçi
~ Coktatli.net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
Cevap: Özel yazı stilinde değişiklik




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
On 1:input:*:{ if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end } if ($1- == isnum) { goto end } var %a 0, %b, %c, %d, %e, %f while (%a < $numtok($1-,32)) { inc %a %c = $gettok($1-,%a,32) if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) } else { if (%a == $numtok($1-,32)) { %d = $+($right(%c,..1),,,) %f = $right(%d,2) } %e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),14)) %b = %b $+(%e,%f) } } if (!%b) { %b = $1- } else { say %b } halt :end }

arslan__ Buyrun

 
Alıntı ile Cevapla

Cevapla

Etiketler
değişiklik, lazim, mirc, ozel, remotesi, stilinde, yazi, yazı, Özel


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

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
Yazi Stilinde DüzenLeme By_ATMACA mIRC Scripting Sorunları 5 18 Ekim 2013 19:23
Yazı Stilinde Hata tas mIRC Scripting Sorunları 4 14 Eylül 2012 08:26
Yazi Stilinde Hata By_ATMACA mIRC Scripting Sorunları 2 22 Temmuz 2012 13:56
Kanal & özeL Barı ve yazı Kısmı Sorunu A&B mIRC Scripting Sorunları 3 19 Temmuz 2010 01:08