Tekil Mesaj gösterimi
  #1  
Alt 22 Ocak 2014, 17:49
Avatar Yok
MerakLıuser MerakLıuser isimli Üye şimdilik offline konumundadır

mS Puan: 1
mS Derece: MerakLıuser Meraklı
 
Üyelik tarihi: 28 Haziran 2012
Mesajlar: 3
Konular: 2
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Mentioned: 0 Post(s)
Tagged: 0 Thread(s)
Standart Yazı code problem.

Alıntı:
Feragat Nickli Üyeden Alıntı Mesajı göster
Bu konu ile ilgili yapılmış bazı çalışmalar var fakat yapılan snippet(parça) kodları incelediğimde, while döngüleri veya alias'lar falan kullanıldığını gördüm. Hatta hatalı regex tanımı uygulandığına da şahit oldum. Döngü ve alias kullanmadan neler yapılabilir diye düşünürken bir snippet oluşturdum.

Özellikleri:
Cümle, (/ ! .) bu 3 karakterden biriyle başlamıyorsa çalışır.
- Yazdığınız aktif ekran eğer bir #Kanal ise, cümle içinde geçen Nick(Kanalda bulunması şartıyla) renklendirir. Ayrıca Punct(!"#$%&'()*+,\-./:;<=>?@[\\\]^_`{|}~) karakterlerini de tek tek ve ayrı ayrı renklendirir.
- Yazdığınız aktif ekran query(Özel) penceresi ise, yukarıda anlatılan tanımdaki gibi aynı özelliklerle çalışır.
- Cümlenin ilk harfini büyük yapar ve noktadan sonra yada nokta ve boşuktan sonra yazıldığında ilk harfi yine büyük yapar.

Not: Kodu çalıştırdığınız/yüklediğiniz remote sayfasında farklı input event'ları varsa problem yaşarsınız. Mümkünse boş bir remote sayfasında kullanın. Bu tarz kodlar %100 sağlıklı çalışır diyemem ama görüntü ve eğlence açısında kullanılabilir.

Kod:
on *:input:*: {
  if $regex($left($1-,1),/[^.!/]/S) {
    if $window($active).type == channel { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg,$iif(\1 ison #,$+(,,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) | halt }
    if $window($active).type == query { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg,$iif(\1 == $active,$+(,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) | halt }
  }
}
Örnek görüntü:


İyi forumlar.
on *:input:*:{
if !$istok(/ ! .,$left($1,1),32) {
if $window($active).type == channel { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 ison #,\1,\1)) }
elseif $window($active).type == query { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 == $active,\1,\1)) }
halt
}
}

bu kod sizinkine benziyorda renk falan yok sadece nickleri ince yazdiriyor, ama nick icindeki _ | { vs karakterle sıkınti cikiyor nasil giderebilirim?

Konu Difuzyon tarafından (24 Ocak 2014 Saat 19:24 ) değiştirilmiştir. Sebep: gülümsemeler gösterilmesin
Alıntı ile Cevapla
Sponsored Links
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76