Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{
if !$regex($1,/(\.|!|\/)/i) || ($ctrlenter) {
var %^ = 1, %'
while %^ <= $0 {
%' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(02 ,$gettok($1-,%^,32), 01),$gettok($1-,%^,32))
inc %^
}
say 01 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
halt
}
}