IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Yazı Tipi Sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/754133-yazi-tipi-sorun.html)

antipathy

26 Ağustos 2016 17:55

Yazı Tipi Sorun

Elimde bu şekilde bir kod mevcut ancak noktalama işaretlerinide renkli yazmasını nasıl sağlayabiliriz? Yardımcı olur musunuz arkadaşlar.

Kod:

on *:input:#:{

  if (/* iswm $1) || (!* iswm $1) { return }

  var %a 0, %b, %c

  while (%a < $numtok($1-,32)) {

    inc %a

    %c = $gettok($1-,%a,32)

    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(2 * » 10 ,%c,1 ) }

    else { %b = %b %c }

  }

  if (!%b) { %b = $1- }

  say %b

  halt

}

Set	26 Ağustos 2016 21:30

Cevap: Yazı Tipi Sorun

Kod:

on *:input:*:if !$regex($1,/^[!./]/i) { msg $active $regsubex($1-,/([[:punct:]]|[0-9])/g,$+($chr(3),13)\t) | haltdef }

Böyle birşey işini görür herhalde ustte bulunan codda $+($chr(3),13) kalin yazili kısımdaki 13 'ü kafana göre renk verebilirsin.

antipathy

27 Ağustos 2016 12:19

Cevap: Yazı Tipi Sorun

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 1041800278)

Kod:

on *:input:*:if !$regex($1,/^[!./]/i) { msg $active $regsubex($1-,/([[:punct:]]|[0-9])/g,$+($chr(3),13)\t) | haltdef }

Böyle birşey işini görür herhalde ustte bulunan codda $+($chr(3),13) kalin yazili kısımdaki 13 'ü kafana göre renk verebilirsin.

evet hocam aradıgım böyle bir şey ancak, noktalamalar bu sekilde bendeki kodda nicki biraz şekilli yazıyor dikkat ederseniz onu beceremedim bir türlü zaten

Mecnun

11 Eylül 2016 00:33

Cevap: Yazı Tipi Sorun

Kod:

on *:input:*: { 

  if (/* iswm $1) { return }

  if (!* iswm $1) { return }

  if ($+($chr(46),*) iswm $1) { return }

  if ($inpaste) { return }

  var %a 0, %b, %c 

  while (%a < $numtok($1-,32)) { 

    inc %a 

    %c = $gettok($1-,%a,32) 

    if ($remove(%c,:,;,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(2 * » 10,%c, ) } 
 
 

    else { %b = %b %c } 

  } 

  if (!%b) { %b = $1- } ;

  say $regsubex(shit,%b,/(\:|\.|\?|\;|\,|\?|\=|\!)/g,$+(4,\1))

  halt

}

sanırım işinize yarar noktalamaları (kırmızı) renk ile yazıyor.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:15.