Çevrimdışı

Olay cözüldü arkadaslar cok sükür. Forumda böyle sey görmüsdüm ama ben demekki yanlis yapmis olabilirim. Olay bu kodlari degistinizmi botunuzda calisiyor.
Herkeze tsk ederim.

#TCL FIX
#satir 493
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]
}
}

#Asagidaki kirmizi satirlari yukardaki satirlarla degisiniz botunuz calisacaktir!!!!!!!
if {![info exists tghintnum]} {
set tghintnum 0
regsub -all {&#240;} $tgcurrentanswer "g" tgcurrentanswer
regsub -all {&#208;} $tgcurrentanswer "G" tgcurrentanswer
regsub -all {ü} $tgcurrentanswer "u" tgcurrentanswer
regsub -all {Ü} $tgcurrentanswer "U" tgcurrentanswer
regsub -all {&#254;} $tgcurrentanswer "s" tgcurrentanswer
regsub -all {&#222;} $tgcurrentanswer "S" tgcurrentanswer
regsub -all {&#253;} $tgcurrentanswer "i" tgcurrentanswer
regsub -all {&#221;} $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 }