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

WingmaN · 24 Temmuz 2011, 13:25

/* Yazı Tipi: Noktalama işaretleri ve fazlası */

Kodun amacı, cümle içerisinde kullandığınız noktalama işaretleri ve değer işaretlerini (.,:,%,+,-,^,? vs) belirlediğiniz renkte kullanmanızı sağlamaktır.

Ayrıca herhangi birinin "nick" 'ini " kanal " içerisinde yazmış olduğunuzda o nick'i parantez içine alıp, belirlediğiniz renk ile veya karışık renkli şekilde kalınlık ayarı ile birlikte kanalda kullanmanıza yardımcı olacaktır.

Ekstra olarak kanal içerisinde bulunduğunuz kanalı yazdığınızda tekrar belirlediğiniz renk'te "<#kanal>" şeklinde, kanalda yazmanıza yardımcı olacaktır.

Şuan ki kod, renklendirme şekli 2 ila 6 numaralı renkler arasında, karışık(random) olarak kendi seçip renklendirmektedir.

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) { say $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)

Eğer ki, karışık renkler halinde kullanmak istemiyorum, bütün renkler sadece kırmızı olsun veya farklı bir renk olsun istiyorum diyorsanız, altta ki kodu değiştirmeniz gereklidir. Değiştirme yaparken, renklendirme işareti (CTRL+K) kullanmayınız.

Kırmızı için;

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

 alias yr return 4

/* Her kelimenin baş harfleri büyük olsun */ (istek üzerine)

Yazdığınız cümlenin, her kelimesinin baş harfi de büyük olsun istiyorsanız, altta ki gibi eklemeniz gerekmektedir.

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 %:
}

Update: " if (!$regex($1,/^\//)) { " bu satır, !komut , .komut kullanan kişiler için " if (!$regex($left($1,1),/^(!|[\.]|\/)/i)) { " olarak değiştirilmiştir, kullanılan komutların , botlar tarafından algılanabilmesi amaçlıdır.

Not: Kod, Parça Kodlar bölümüne örnek amaçlı yazılmış olup, tamamen can sıkıntısıdır, +10 line oldu 2. bölüm sanırım ama, istek amaçlı geliştirilmiş olduğundan dolayı dokunmuyorum.

StanteaR · 24 Temmuz 2011, 16:02

Eline Sağlık Kod Cok Guzel Çalısıyor Bir Şey SOrucaktım , Peki Buna Ek Olarak Kelimelerin İlk Harflerini Büyük Olarak Yazmasını İstesek Eklenti Olarak Koda Eklesek Olabılırmı Acaba ?

Sana Verdıgım Linki Ne Yaptın ( YakIsIkLI ) Baktınmı . Gibi...

WingmaN · 24 Temmuz 2011, 16:24

Kodu isteğin üzerine, o şekilde de ekleyip, 2. part olarak orjinal kodun altına ekledim, ordan alabilirsin.

Bahtiyar · 01 Ağustos 2011, 02:32

Kod çalışıyor. Eline, emeğine sağlık. Güzel bir çalışma olmuş.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Rohit · 04 Ağustos 2011, 13:08

eline saglik yararli bir konu.

pesimist_sair · 05 Ağustos 2011, 19:10

güzel olmus eline saglık

19 Ağustos 2011, 06:15

Eline SAglık Hocam.

Coldman · 06 Aralık 2011, 19:11

kod cok süper bir kod, eline emeğine yüreğin saglık .. Coder Kingman
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)))

Narsinha · 09 Aralık 2011, 12:50

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

/* Her kelimenin baş harfleri büyük olsun */ (istek üzerine)

Yazdığınız cümlenin, her kelimesinin baş harfi de büyük olsun istiyorsanız, altta ki gibi eklemeniz gerekmektedir.

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 %:
}

Update: " if (!$regex($1,/^\//)) { " bu satır, !komut , .komut kullanan kişiler için " if (!$regex($left($1,1),/^!|[./]|/|/i/)) { " olarak değiştirilmiştir, kullanılan komutların , botlar tarafından algılanabilmesi amaçlıdır.

Not: Kod, Parça Kodlar bölümüne örnek amaçlı yazılmış olup, tamamen can sıkıntısıdır, +10 line oldu 2. bölüm sanırım ama, istek amaçlı geliştirilmiş olduğundan dolayı dokunmuyorum.

yerine her kelimenin baş harfini büyük yazmak için

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

on *:INPUT:*: { 
  if ($left($1,1) == / ) || ($ctrlenter) { return }
  if ($active == Status Window) { echo -a 4 Statusa Birşey Yazamazsınız. | return }
  say $regsubex($1-,/(^| )(.)/g,\1 $upper(\2)) 
  halt
}

şeklinde kısa bir kodda iş görür.

WingmaN · 09 Aralık 2011, 12:57

Yerine diyebilmen için, noktalama işaretlerini de renklendirmen ve aynı zamanda, kullanılan nick'leri de belli bir şekil içerisinde gösteren şekli ile yazman gerekir, ama " YERINE " demek yerine
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sadece, baş harfleri büyük gösteren bir kod yazalım demek biraz daha mantıklı.

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 4 Üye okuyor. (0 Kayıtlı üye ve 4 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.