Tcl Botlar Soru Sormuyor - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

GemLik · 19 Ağustos 2010, 13:26

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

Hosting kapanınca siteyi başka makinaya taşıdık İRC'i kurdum botları soktum kanala ama botlar soru sormuyor. Botlar diğer serverde soruyordu ama yeni attıgım serverde sormuyor soru.txt'si felan doğru conf'tan İP'leri felan değiştirdim.

benimde gecende böyle birşey başıma geldi trivia botları özellikle başka hostinge gecirdikden sonra !basla yaptıkdan sonra başladı demesine rağmen soruları sormuyor başlamıyordu kaos ve diğer botlarda böyle bir sorun yok eğerde sizinde sorununuz böyle ise !basla yaptıkdan sonra botunuz başlatıldı diyip soruları sormuyorsa benim sorunu çözdüğüm şekilde sizde çözebilirsiniz;

oyun.tcl nizde şu satırları

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

şu satırlar ile değiştiriniz

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 }

botunuzu cıkarıp tekrar soktuğunuzda !basla yapıldğında soruların başladğını göreceksiniz

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

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.