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

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - /* Yazı Tipi - Noktalama işaretleri ve Fazlası */ (https://www.ircforumlari.net/mirc-parca-kodlar/401248-yazi-tipi-noktalama-isaretleri-ve-fazlasi.html)

/* Yazı Tipi - Noktalama işaretleri ve Fazlası */

/* 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:

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:

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:

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.

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

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...

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

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

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

Kod çalışıyor. Eline, emeğine sağlık. Güzel bir çalışma olmuş. :)

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

eline saglik yararli bir konu.

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

güzel olmus eline saglık

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

Eline SAglık Hocam.

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

kod cok süper bir kod, eline emeğine yüreğin saglık .. Coder Kingman :))))

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040778683)

/* 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:

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:

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.

Cevap: /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

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 :) sadece, baş harfleri büyük gösteren bir kod yazalım demek biraz daha mantıklı.