[Z-Lined]

Merhabalar Sekershell'deki eggdrop kelime botu kimde var acaba? olan varsa paylaşa bilirmi.

[YouMyCure]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Eklenti olarak ekledim

[Dahaka]

YouMyCure Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Eklenti olarak ekledim

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

[Emrehan]

Tcl güncel değildir.

[aquabluee]

TR-ance Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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 }