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) $+(,%c,) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
O kırmızıyla belirttigim virgüllerin(ilkinde sol, ikincisinde sağ tarafına) istedigin şey yazarak renklendirebilir veya şekillendirebilirsin.
Kodun sahibi: Xclusive