IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Alıntı:

TR-ance Nickli Üyeden Alıntı (Mesaj 1041854075)

Bot da tepki yok ki..hiç bi şekilde !basla dedigim halde

tcl icindeki bu kodu bulup

Kod:

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:

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 }