Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: İki kod birleştirme
| 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.
| Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:input:*:{
if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
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 $wn(%b)
halt
}
}
alias wn return $replace($+($regsubex($regsubex($1-,/([[:punct:]])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return 12
__________________ The Ghost of Christmas Past... i'm here sometimes |