(yardım) Yazıda ilk harfın renkli olması - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

the_night · 21 Temmuz 2007, 05:17

arkadaşlar forumda ılk mesajım ve yenıyım anlayacagınız yenı yenı ogrenıyorum bayadırda bişiler örendım sızlerın sayesınde oncelıkle tesekkur edıyorum benım sorunum yazdıgım kelımelerın ılk harfını renklı yazdırmak ıstıyorum forumu defalarca aradım buna benzer ılk harfı buyuk yazdırma olayını buldum fakat renge göre duzenleyemedım yardım edersenız sevınırım.teşekkurler

LauReLL · 21 Temmuz 2007, 13:48

O Yazmış Oldugun Kodu Bana Gönder Ben Ona Göre Bir Kod Yaparım...
ßu BaşLık Altına YazabLirsin...

the_night · 21 Temmuz 2007, 14:20

on 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 %Var2
set %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 }
:Start1
inc %Var1 1
if ($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 %Var2
halt
:ServerCommand
:halt
halt
:son
}

işte bu kod burda mısal ( Ben Okula Giderim ) cumlesındekı gıbı sadece bas harflerı buyuk yazıyo benım ıstedıgım ıse sadece buyuk olan yerler mesala kırmızı olsun digerleri gene siyah.şimdiden teşekkürler

detay · 21 Temmuz 2007, 15:25

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*: {
  if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
 say $regsubex($1-,/(?<=^|\s)(.)/g,04\1)
    halt
  }
}

ben burda kirmizi kullandigim degistimekte özgürsün tabiki $upper() identifierini kullanarak hem kirmizi hem büyük harf yapabilirsin

the_night · 21 Temmuz 2007, 15:41

Hocam çalışmadı.

/say: Yetersiz veya eksik parametre şeklinde hata verdi.

detay · 21 Temmuz 2007, 15:45

say'i msg $active olarak değiştirip tekrar dene o zaman

the_night · 21 Temmuz 2007, 15:52

($1-,/(?<=^|\s)(.)/g,04\1)

hocam msg $active olarak degistirdim aynen usttekını yazıyo sondakı 1 rakamını kırmızı yazıyo (:

detay · 21 Temmuz 2007, 15:56

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*: {
  if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
 msg $active $regsubex($1-,/(?<=^|\s)(.)/g,04\1)
    halt
  }
}

bu kod calisiyor kodu yanlis ekliyosundur

the_night · 21 Temmuz 2007, 15:58

/msg: Yetersiz veya eksik parametre

valla usta 40 farklı bıcıme soktum olmadı (((:

detay · 21 Temmuz 2007, 16:01

mirc.com dan en son mirc sürümünü yükle sonra dene regsubex yoktur mircinde.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İlk Yardım Yapan Kişide Olması Gereken Özellikler	Lcia	İlk Yardım	0	18 Ocak 2015 15:12
Bir kadının helal olması için namuslu olması mı gerekir	xena	İslamiyet	0	12 Mayıs 2014 16:17
Bu Yazıda Koca Bir Sazan Var..	Sır	Komedi ve Mizah	0	06 Kasım 2010 08:00
Renkli Nick Yardım	Mirkan58	Unreal IRCd	4	04 Eylül 2009 20:03
Özele yazılan yazıda ban	Amigo	mIRC Scripting Sorunları	11	26 Nisan 2006 15:31

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.