tcl icindeki bu kodu bulup
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if {[catch {incr tghintnum}]!=0} { set tghintnum 0 regsub -all {ğ} $tgcurrentanswer "g" tgcurrentanswer regsub -all {Ğ} $tgcurrentanswer "G" tgcurrentanswer regsub -all {ü} $tgcurrentanswer "u" tgcurrentanswer regsub -all {Ü} $tgcurrentanswer "U" tgcurrentanswer regsub -all {ş} $tgcurrentanswer "s" tgcurrentanswer regsub -all {Ş} $tgcurrentanswer "S" tgcurrentanswer regsub -all {ı} $tgcurrentanswer "i" tgcurrentanswer regsub -all {İ} $tgcurrentanswer "I" tgcurrentanswer regsub -all {ö} $tgcurrentanswer "o" tgcurrentanswer regsub -all {Ö} $tgcurrentanswer "O" tgcurrentanswer regsub -all {ç} $tgcurrentanswer "c" tgcurrentanswer regsub -all {Ç} $tgcurrentanswer "C" tgcurrentanswer regsub -all -- "\[^A-Za-z0-9\]" $tgcurrentanswer "" _hintchars set tgmaxhintcurrent [expr [strlen $_hintchars]<=$tgmaxhint?[expr [strlen $_hintchars]-1]:$tgmaxhint] catch {tgunbindhintcmd} if {$tgmaxhintcurrent>0} { set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd] } }
alttaki kod ile değistirir
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if {![info exists tghintnum]} { set tghintnum 0 regsub -all {ğ} $tgcurrentanswer "g" tgcurrentanswer regsub -all {Ğ} $tgcurrentanswer "G" tgcurrentanswer regsub -all {ü} $tgcurrentanswer "u" tgcurrentanswer regsub -all {Ü} $tgcurrentanswer "U" tgcurrentanswer regsub -all {ş} $tgcurrentanswer "s" tgcurrentanswer regsub -all {Ş} $tgcurrentanswer "S" tgcurrentanswer regsub -all {ı} $tgcurrentanswer "i" tgcurrentanswer regsub -all {İ} $tgcurrentanswer "I" tgcurrentanswer regsub -all {ö} $tgcurrentanswer "o" tgcurrentanswer regsub -all {Ö} $tgcurrentanswer "O" tgcurrentanswer regsub -all {ç} $tgcurrentanswer "c" tgcurrentanswer regsub -all {Ç} $tgcurrentanswer "C" tgcurrentanswer regsub -all -- "\[^A-Za-z0-9\]" $tgcurrentanswer "" _hintchars set tgmaxhintcurrent [expr [strlen $_hintchars]<=$tgmaxhint?[expr [strlen $_hintchars]-1]:$tgmaxhint] catch {tgunbindhintcmd} if {$tgmaxhintcurrent>0} { set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd] } } else { incr tghintnum }