| MerakLıuSer | 16 Nisan 2012 16:50 |
yazı remotesi
Kod:
on *:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }
var %a 0, %b, %c
if ($window($active).type == channel) {
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) {
if $regex(%c,/(\!|\?|\.|\,)) {
%b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ch
}
%b = $iif(%b,%b) $+(,%c,)
:ch
}
else { %b = %b %c }
}
}
elseif ($window($active).type == query) {
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($query($remove(%c,!,?,:,;,.,$chr(44),?))) {
if $regex(%c,/(\!|\?|\.|\,)) {
%b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ry
}
%b = $iif(%b,%b) $+(,%c,)
:ry
}
else { %b = %b %c }
}
}
else { goto end }
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}
bu codeye şunları ekleyebilirmiyiz;
ben noktalama işaretlerinden sonra cümleye küçük harflede başlasam o büyük yapabilir mi? mesela:
selam, naber nasılsın. bugün ne yaptın? görüştün mü?
şu şekle çevire bilir mi;
Selam, naber nasılsın. Bugün ne yaptın? Görüştün mü? |
