Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }
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- }
else {
say $replacecs(%b,::,2he3he4he5he6he7he,a.s.,ª.s,?,¿,l,L,ş,$,Ş,$,ç, C,o,O,b,ß,<,«,>,»,a,ª)
}
halt
:end
}
bunu dene.