[antipathy]

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

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

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]

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

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]

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın! 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]

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

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.