Çevrimdışı

Merhaba, Aşşağıda Sunmuş Olacağım Yazı Şeklimdeki Sorun Rakam Kullanırken Kanala Yansımaması Sanırım Ek Yapmak Gerekiyor Yardımcı Olursanız Çok Makbule Geçer,Teşekkürler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.




on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c, %d, %e, %f
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4• 1,%c 4•) }
else {
if (%a == $numtok($1-,32)) {
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),12))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}