/* Yazı Tipi - Noktalama işaretleri ve Fazlası */ - Sayfa 3 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

BorTeCineOguzhan · 05 Ocak 2012, 19:18

Merhaba Arkadaslar öncelikle Saçma Bir Soru ise Hor görmeyin bu işlerden pek anlamam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benım Sorum su parantez içinde yazmak yerine başka semboller kullanabilirmiyim örnegin Hasan nickini | Hasan |olarak yazabilirmiyim bu sadEce bi örnekti Bunu nerden değiştirebilirim Şimdiden Teşekkur ederim

SiLuet · 24 Şubat 2012, 17:55

BorTeCineOguzhan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhaba Arkadaslar öncelikle Saçma Bir Soru ise Hor görmeyin bu işlerden pek anlamam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benım Sorum su parantez içinde yazmak yerine başka semboller kullanabilirmiyim örnegin Hasan nickini | Hasan |olarak yazabilirmiyim bu sadEce bi örnekti Bunu nerden değiştirebilirim Şimdiden Teşekkur ederim

Koddaki $chr(40) ve $chr(41) Kısımlarını $chr(124) Olarak değiştirirsen Nick Yazdıgında İstediğin Şekilde Çıkacaktır.

StanteaR · 24 Şubat 2012, 20:46

Merhaba Arkadaslar Bu Yazi Tipi Cok Guzel Yalnız Bir Konuda Sıkıntılıyım...

Kelıme Icerısınde Aynı Cumleyı 2 Sefer Yazınca Karsı Tarafa 1 Kez Gıdıyor Mesela

Suanda Awayım Awayım Haberın Olsun -- Burda Awayım Awayım Yazılan Kısmı Ben 2 Sefer Yazmama Ragmen Karsı Tarafa 1 Sefer Yolluyor.

Ve Bu Koda Ek Olarak $replacecs (ı,I,b,ß,l,L) Gibi Degıskenlerı Eklemek ıstıyorumda.nasıl Yapabılırım Yardımcı Olabılırmısınız

StanteaR · 05 Ekim 2012, 13:51

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

on *:input:*:{   if (!$regex($left($1,1),/^!|[./]|/|/i/)) {     var %wn $numtok($1-,32)     while (%wn > 0) {       if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+  $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { byaz $wn(%wm) | unset %wm | halt } | dec %wn     }   } } alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>)) alias yr return $r(2,6)  alias byaz {   var %/ = 1,%= = $numtok($1-,32),%:    while %/ <= %= {      var %: = $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),32)     inc %/      haltdef    }   say %: }

StanteaR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhaba Arkadaslar Bu Yazi Tipi Cok Guzel Yalnız Bir Konuda Sıkıntılıyım...

Kelıme Icerısınde Aynı Cumleyı 2 Sefer Yazınca Karsı Tarafa 1 Kez Gıdıyor Mesela

Suanda Awayım Awayım Haberın Olsun -- Burda Awayım Awayım Yazılan Kısmı Ben 2 Sefer Yazmama Ragmen Karsı Tarafa 1 Sefer Yolluyor.

Ve Bu Koda Ek Olarak $replacecs (ı,I,b,ß,l,L) Gibi Degıskenlerı Eklemek ıstıyorumda.nasıl Yapabılırım Yardımcı Olabılırmısınız

Güncel... Bu konuda yardım gelmemişti
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Med Cezir · 07 Ekim 2012, 05:38

byaz alias ında $addtok identifiear ının kullanılmasından dolayı yanyana yazılan aynı kelimelerde verilerin tamamını kaydetmediği için yazılar eksik çıkıyordu. $addtok yerine $instok kullanınca bu sorun ortadan kalkmış oldu.

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

on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+  $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { byaz $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)

alias byaz {
  var %/ = 1,%= = $numtok($1-,32),%: 
  while %/ <= %= { 
    var %: = $instok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),%/,32)
    inc %/ 
    haltdef 
  }
  say %:
}

NOT:Kodun yazarı arkadaş uzun süredir cevap yazmamış konuya o yüzden umarım düzeltme için kusura bakmaz.

By_ATMACA · 22 Ekim 2012, 12:10

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] aRkadaŞimizin Dedigi Gibi Buna İLaveten $replacecs (ı,I,b,ß,l,L) gibi EkLemeLeri NasiL EkLeriz.

Med Cezir · 22 Ekim 2012, 16:48

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

on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+  $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { byaz $replacecs($wn(%wm),ı,I,b,ß,l,L)  | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)

alias byaz {
  var %/ = 1,%= = $numtok($1-,32),%: 
  while %/ <= %= { 
    var %: = $instok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),%/,32)
    inc %/ 
    haltdef 
  }
  say %:
}

gibi yapabilirsin...

WingmaN · 25 Ekim 2012, 01:14

Kusura bakmak ne demek, eline sağlık .)

L4roXyL · 25 Ekim 2012, 22:02

Evaluation bracket(biçimlendirme için ayrı bir alias oluşturmanıza gerek kalmaz) ve zaten halihazırda kullanılan regsubex sayesinde /while vb. external(internal döngüye göre daha yavaştır) döngü olmadan, kısaca/basitce şu şekilde de yazılabilir.

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

on *:input:*: {
  if ($left($1,1) != $readini($mircini,text,commandchar)) {
    haltdef
    var %s = $+($chr(2),$chr(3),$r(1,15),\1,$chr(15)), $&
      %t = $regsubex($1-,$regsubex($1-,/([[:punct:]])/g,$+($chr(3),$r(1,15),\1,$chr(15))),/(?<=^|\s)(.)/g,$upper(\1))
    %t = $regsubex(%t,/(\w+|\x3\d+\x23.\w+)/g,$iif($strip(\1) = $active || \1 ison #,$iif($v1 = $active,< $+($chr(2),$chr(3),$r(1,15),$strip(\1),$chr(15)) >,( [ %s ] )),\1))
    say $replacecs(%t,ı,I,b,ß,l,L) 
  }
}

Bu şekildeki haliyle en son istenilen içeriği kapsayacak şekilde farklı bir biçimde yazılmıştır.

Yani bulunduğunuz kanalda #kanal ismini yazarsanız < #kanal > içerisine alır(random renkli olarak). Veya kanalda bulunan herhangi bir nick-i yazarsanız ( nick ) şeklinde çıkacaktır. Ve ek olarak tüm pucnt karakterleri vs. yazıdan ayrı biçimde 1-15 arasındaki random renklerle dönecektir. Son olarak bir kullanıcının istediği replace işlemide gerçekleşecektir.

Renkleri sabit yapmak veya farklı bir aralık belirlemek istiyorsanız koddaki $r(1,15) kısımlarına renk kodu girebilirsiniz. Veya aynı şekilde $(a-noktası,b-noktası) randomunu belirleyebilirsiniz vs.

oFLidu · 23 Ocak 2016, 15:13

L4roXyL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Evaluation bracket(biçimlendirme için ayrı bir alias oluşturmanıza gerek kalmaz) ve zaten halihazırda kullanılan regsubex sayesinde /while vb. external(internal döngüye göre daha yavaştır) döngü olmadan, kısaca/basitce şu şekilde de yazılabilir.

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

on *:input:*: {
  if ($left($1,1) != $readini($mircini,text,commandchar)) {
    haltdef
    var %s = $+($chr(2),$chr(3),$r(1,15),\1,$chr(15)), $&
      %t = $regsubex($1-,$regsubex($1-,/([[:punct:]])/g,$+($chr(3),$r(1,15),\1,$chr(15))),/(?<=^|\s)(.)/g,$upper(\1))
    %t = $regsubex(%t,/(\w+|\x3\d+\x23.\w+)/g,$iif($strip(\1) = $active || \1 ison #,$iif($v1 = $active,< $+($chr(2),$chr(3),$r(1,15),$strip(\1),$chr(15)) >,( [ %s ] )),\1))
    say $replacecs(%t,ı,I,b,ß,l,L) 
  }
}

Bu şekildeki haliyle en son istenilen içeriği kapsayacak şekilde farklı bir biçimde yazılmıştır.

Yani bulunduğunuz kanalda #kanal ismini yazarsanız < #kanal > içerisine alır(random renkli olarak). Veya kanalda bulunan herhangi bir nick-i yazarsanız ( nick ) şeklinde çıkacaktır. Ve ek olarak tüm pucnt karakterleri vs. yazıdan ayrı biçimde 1-15 arasındaki random renklerle dönecektir. Son olarak bir kullanıcının istediği replace işlemide gerçekleşecektir.

Renkleri sabit yapmak veya farklı bir aralık belirlemek istiyorsanız koddaki $r(1,15) kısımlarına renk kodu girebilirsiniz. Veya aynı şekilde $(a-noktası,b-noktası) randomunu belirleyebilirsiniz vs.

Emeğinize sağlık. Aradığım bir koddu.

Bir kaç ricam olacak mümkünse.
Çok eski bir konu ama merak ettiğim bir kaç şey var.
Bu koddan her kelimenin ilk harfinin büyük olmasını nasıl kaldırabiliriz?
Ve kanal için < #OF > nick için ( OFLidu ) gibi çıkarken bunlar yerine ' « » ' bunları kullanabilir miyiz? Aynı zamanda bunları da renklendirebilir miyiz?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Noktalama işaretleri	Lcia	Türkçe	0	27 Kasım 2014 19:59
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

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.