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]
}
}

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 }