| |
|
28 Mayıs 2012, 00:54
| #18 |
| Çevrimdışı  IF Ticaret Sayısı: (0) | Cevap: Tcl Botlar Soru Sormuyor 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 {ð} $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 } |
| |  |
| Etiketler |
| botlar, sormuyor, soru, tcl |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| LGS soru ve cevapları heyecanı! LGS’ye giren adaylar merakla LGS soru ve cevaplarını bekliyor… | Sanem | Eğitim Haberleri | 0 | 02 Haziran 2018 14:42 |
| Bot soru sormuyor | tiLKi | Eggdrop, NeoStats, BNC | 27 | 04 Haziran 2009 03:20 |
| Xp uzerinde unrealircd windrop ve oyun botu. Ama sormuyor neden? | alfarabius | Eggdrop, NeoStats, BNC | 1 | 08 Mart 2009 14:47 |
| Oyun Botu Karışık Sormuyor. | aL_PaciNo | Eggdrop, NeoStats, BNC | 0 | 18 Ağustos 2008 19:31 |
Ağaç şeklinde
