ın daha önce paylaştıgı codeye ek olarak ç yazınca c ş yazınca $ çıkması için birşeyler yapmak istedim fakat 2 codeyi aynı anda kullanınca 1. inputun çalıştıgını gördüm bunları nasıl birleştirebilirim. tşkler. şimdiden yardım eden herkese.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{
if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
var %wn $numtok($1-,32)
while (%wn > 0) {
if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
}
}
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,10)
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | halt }
%turkce = $replace(%turkce,ı,I)
%turkce = $replace(%turkce,İ,I)
%turkce = $replace(%turkce,ş,$)
%turkce = $replace(%turkce,Ş,$)
%turkce = $replace(%turkce,ç,c)
%turkce = $replace(%turkce,Ç,c)
%turkce = $replace(%turkce,ğ,G)
%turkce = $replace(%turkce,Ğ,G)
%turkce = $replace(%turkce,ü,u)
%turkce = $replace(%turkce,Ü,U)
%turkce = $replace(%turkce,b,ß)
%turkce = $replace(%turkce,B,ß)
%turkce = $replace(%turkce,<,«)
%turkce = $replace(%turkce,>,»)
say %turkce
unset %turkce
halt
}