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

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.

Archive · 09 Nisan 2013, 18:03

Guzel paylaşım Cok faydalı. tşkler..

ZenqerDenq · 10 Haziran 2013, 20:28

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

if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
var %smiley = :) :D :P :( :\\ :/ ;) ;D ;P ;/ ;\\ ;( :* ;* :@ :S :# :$ :o xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
var %smileys = :-) :-D :-P :-( :-\\ :-/ ;-) ;-D ;-P ;-/ ;-\\ ;-( :-* ;-* :-@ :-S :-# :-$ :-o :-< :-> ;-@ ;-S ;-# ;-$ ;-o ;-< ;-> :=) :=D :=P :=( :=\\ :=/ ;=) ;=D ;=P ;=/ ;=\\ ;=( :=* ;=* :=@ :=S :=# :=$ :=o :=< :=> ;=@ ;=S ;=# ;=$ ;=o ;=< ;=> ^_^ o_o O_O o_O O_o 0_0 0_o o_0 *_^ ^_* -.- omg lol btw wtf heh bbl brb
var %noact = $chr(33) $chr(64) $chr(35) $chr(36) $chr(37) $chr(94) $chr(38) $chr(42) $chr(40) $chr(41) $chr(45) $chr(43) $chr(61) $chr(49) $chr(50) $chr(51) $chr(52) $chr(53) $chr(54) $chr(55) $chr(56) $chr(57) $chr(48) $chr(92) $chr(123) $chr(125) $chr(124) $chr(59) $chr(58) $chr(39) $chr(34) $chr(44) $chr(46) $chr(60) $chr(62) $chr(47) $chr(63) $chr(95) $chr(91) $chr(93)
var %httpthingy = htt 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ftp
var %httpthingy21 = .com .net .org .php .asp .htm omfg rofl .asx
var %httpthingy22 = .html .aspx
var %newmsg = $iif($1 !ison $active && $1 != $active && !$istok(%smiley,$1,32) && !$istok(%smileys,$1,32) && !$istok(%noact,$1,32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%httpthingy22,$right($1,5),32),$upper($left($1,1)) $+ $right($1,-1),$1) $+ $iif($2-,$chr(32) $+ $2- $+ $iif(!$istok(%noact,$right($2-,1),32) && !$istok(%smiley,$right($2-,2),32) && !$istok(%smileys,$right($2-,3),32) && !$istok(%httpthingy,$left($gettok($2-,-1,32),3),32) && !$istok(%httpthingy21,$right($gettok($2-,-1,32),4),32) && !$istok(%noact,$left($gettok($2-,-1,32),1),32) && !$istok(%httpthingy22,$left($gettok($2-,-1,32),5),32),.),$iif(!$istok(%noact,$right($1,1),32) && !$istok(%smiley,$right($1,2),32) && !$istok(%smileys,$right($1,3),32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%noact,$left($1,1),32) && !$istok(%httpthingy22,$right($1,5),32),.))
var %newmsg = $regsubex(%newmsg,/\\bi\\b/g,I)
msg $active %newmsg
halt

bu koların içersine nickin sağ ve soluna bunun gibi «Nick» Nasılsın ? ekleye bilirmiyiz ? yukarıdaki kodlarımda cümlenin ilk harfi büyük ve sonuda nokta var

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

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	ofofyaRim	mIRC Scripting Sorunları	13	05 Haziran 2008 12:44
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)

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.