Çevrimdışı

Selam Arkadaşlar,
elimdeki mircdeki 2 kod çakışıyor kodlardan biri nick renkli yazma kodu diğeri ise noktalama işaretleri. forumdaki benzer konuları incelememe rağmen kendim yapmayı başaradım yardımcı olabilirseniz sevinirim.
noktalama işaretleri kodu;

on *:input:*:{
if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
say $wn($1-) | halt
}
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return 12

nick renkli yazma kodu;

if (/* 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) $+(4,%c,) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
}


Bu iki kodu birleştirip tek kod haline getirebilmeniz mümkünmü acaba, şimdiden teşekkür ederim.

 

Çevrimdışı

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

Selam Arkadaşlar, elimdeki mircdeki 2 kod çakışıyor kodlardan biri nick renkli yazma kodu diğeri ise noktalama işaretleri. forumdaki benzer konuları incelememe rağmen kendim yapmayı başaradım yardımcı olabilirseniz sevinirim. noktalama işaretleri kodu; on *:input:*:{ if (!$regex($left($1,1),/^!|[./]|/|/i/)) { say $wn($1-) | halt } } alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>)) alias yr return 12 nick renkli yazma kodu; if (/* 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) $+(4,%c,) } else { %b = %b %c } } if (!%b) { %b = $1- } say %b halt } } Bu iki kodu birleştirip tek kod haline getirebilmeniz mümkünmü acaba, şimdiden teşekkür ederim.

__________________
The Ghost of Christmas Past...

i'm here sometimes

 

Çevrimdışı

Merhaba Feragat,

Doğruya biraz daha yaklaşmak adına bilgi paylaşım yapmak istedim...

Kodda ki regex kısmı sırıtıyor (Kulakların çınlasın biraz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ) , böyle bir tanımlama olmaz. Ki seninde bunu copy/paste geçmeden önce farketmen daha doğru olur. Mutlaka regex'mi kullanmalıyız? Hayır, bir $istok sorgusu (/,.,!) bunları aşmaya yeter.

Kodlamada bir while döngüsü var ve bence bunu egale etmek adına regsubex kullanmak doğru ve önerim \S+ (kelime haznesi) kullanmak, burdan çıkacak sonuçları "nick'mi değil mi?" kendi içinde $iif operatörünü kullanarak (if-else) nickse renklendir, değilse normal aktar ve peşinden 2.regsubex ile noktalama işaretlerinin sonuçlarını yansıtabilirsin.

Ekstra olarak INPUT event'ında kanal/özel (*) ayrışmasını sağlamamız daha doğru olur kanısındayım.