şu iki kodu aynı anda nasıl kullana biliriz arkadaşlar birleştirmemiz mümkünmü
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{
if (/* 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) $+( 12,%c, ) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{
if ($left($1,1) != /) {
var %Jnk
var %e = 0
while %e != $numtok($1-,32) {
inc %e 1
var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
}
msg $active %Jnk
halt
}
if ($left($1,1) != /) {
var %Jnk
var %e = 0
while %e != $numtok($1-,32) {
inc %e 1
var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
}
msg $active %Jnk
halt
}
}