Pazar , 21 Ocak 2018
Eggdrop botların soru sormama hatası

Eggdrop botların soru sormama hatası

Merhaba arkadaşlar. Bu gün sizlere eggdrop oyun botlarının soru sormama hatası hakkında bilgilendirme yapacağım.

Oyun botları sizlerde bilirsinizki çok eski tarihli oldukları için illaki biyerde patlak veriyolar. Şimdi vereceğim kodlarla bu sorunu hep birlikte aşacağız.

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

Yukarıdaki kodları TCL Dosyamızda bularak aşağıdaki kodlar ile değiştirelim.

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 }

Değişiklik sonrasında botumuzu sunucudan çıkaralım. Sunucumuzda /rehash komutu uygulayıp botumuzu tekrar aktif edelim. Sorunun ortadan kaybolduğunu botunuzun sağlıklı çalıştığını göreceksiniz.

Hakkında Seçkin Düz

1990 yılında Kastamonu'da doğdu. İnternet ve bilişim sektörüne 2007-2008 yıllarında tanıştı. IRCd (Internet Relay Chat) kendini geliştirerek bir çok sohbet platformlarında görev aldı. Daha sonra 2010 yıllarında Hosting firması olarak SeckinShell.Com'u faaliyete geçirdi. Hayatı ile ilgili önemli kararlar alması sebebi ile IRCd alemini bıraktı. Şu an ise Bilim ve Teknoloji üzerine ilgilenmektedir.

Cevapla

E-posta adresiniz yayınlanmayacak. Required fields are marked *

*

IRCdHosting, Web Hosting, Radyo Hosting
Free WordPress Themes - Download High-quality Templates