Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*:{
if (/* iswm $1 || .* iswm $1 || &* iswm $1 || !* iswm $1 || * isin $1 || http isin $1- { return }
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô)
var %a 0, %b, %c
while (%a < $numtok(%turkce,32)) {
inc %a
%c = $gettok(%turkce,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4,%c,1) }
else { %b = %b %c }
}
if (!%b) { %b = %turkce }
say %b
unset %turkce
unset %b
halt
}