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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Tcl Botlar Soru Sormuyor (https://www.ircforumlari.net/eggdrop-neostats-bnc/349275-tcl-botlar-soru-sormuyor.html)

LanetLi6666 18 Ağustos 2010 23:34

Tcl Botlar Soru Sormuyor
 
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.

yanki 19 Ağustos 2010 08:45

Cevap: Tcl Botlar Soru Sormuyor
 
peki kullanıcı bölümlerini degiştirdiniz mi tclden ?

GemLik 19 Ağustos 2010 13:26

Cevap: Tcl Botlar Soru Sormuyor
 
Alıntı:

LanetLi6666 Nickli Üyeden Alıntı (Mesaj 1040487216)
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:

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:

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

Heri 18 Mayıs 2012 22:20

Cevap: Tcl Botlar Soru Sormuyor
 
merhaba arkadaslar bot sorunu benimde var hazir bu kodla calisan sorubotu nerden bulabilirim?

CLubber 19 Mayıs 2012 11:27

Cevap: Tcl Botlar Soru Sormuyor
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Heri 27 Mayıs 2012 13:15

Cevap: Tcl Botlar Soru Sormuyor
 
clubber indirdim kurdum oda olmadi

saywhat 27 Mayıs 2012 14:25

Cevap: Tcl Botlar Soru Sormuyor
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:

# soru dosyalarının tutlacağı dizin. (Turkish)
set tgqdb "scripts/banka.txt"

tcl'de ayar kısmında belirtildiği gibi banka.txt dosyasını botunuzun/scripts klasörü içine atınız.

Kod:

# Oyunun oynanacagi kanal (Turkish)
set tgchan "#Oyun"

kanalınızı yazın. merlin2.tcl'ide botunuzun/scripts klasörü içine kopyalayın...botunuzun .conf dosyasına source scripts/merlin2.tcl

diye bir satır ekleyip bu scripti belirtiniz ,,başka trivia tarzı oyun yüklü ise aynı botun içinde onları devre dışı bırakın,önce bu oyunu tek başına deneyin.tek başına çalışmasında sorun yok ise diğer oyunlarla beraber çalışıp çalışmadığını deneyebilirsiniz.( bazı trivia oyun tarzı scriptler birden fazlası aynı bot üzerinde çalışmıyor çakışma yapabiliyor. tek tek deneyin önce )
.conf dosyasında o scriptlerin eklendiği source scripts/blabla.tcl satırının başına # işareti koymanız yeterli ( #source scripts/blabla.tcl ) ve bota .rehash yada .restart çekin. !basla dediğinizde oyun başlıyacaktır.

(piyasadaki trivia-oyun tarzı tcl scriptlerin pek çoğu genellikle aynı trivia kodunun editi.user yada anastasia rumuzlu bi rus koderın yaptığı trivia tclsinin tercümesi yada editlenmiş hali.aynı kodun editi birden farklı trivia-oyun scripti yükleyip çalıştırmaya kalkınca aynı bot üzerinde işlemiyor. bu tarz oyun scriptleri sizin botta birden fazla yüklüyse ve çalışmıyorsa nedeni bu çakışmadır bir ihtimalle.ondan tek tek deneyip oyunların birlikte çalışıp çalışmadığını bulabilirsiniz.)

Heri 27 Mayıs 2012 15:35

Cevap: Tcl Botlar Soru Sormuyor
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
dedigin gibi hersey tamam. Bu eggdropdan kaynaklanmasin.

Bu
eggdrop v1.6.19 yüklendi.

dosyalarin birinde söyle bir bilgilere ulasdim.
dosya >>oyun.chan
#4v: eggdrop v1.6.19 -- Oyuncukiz -- written Sun May 27 14:16:09 2012

admin - jlmnoptx

! #sevdacafe 0 -

--HOSTS *!*iKaNLiM@*.DeLiKaNLiM.NeT

--HOSTS -telnet!*@*

--XTRA created 1338120969

::#sevdacafe bans

&&#sevdacafe exempts

$$#sevdacafe invites

saywhat 27 Mayıs 2012 15:58

Cevap: Tcl Botlar Soru Sormuyor
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
botun user dosyasına bakmışınız.
admin - jlmnoptx admin burda botun.confunda admin olarak beliritiiğin rumuzu karşısındakiler bot üzerindeki erişimi-flaglarını gösteriyor.

#sevdacafe botun.confunda add channel die başlayan satırda eklediğin kanalın adı .

HOSTS [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buda botu ilk kez kurup başlatııktan bot kanala girdikten sonra bota kendinizi /msg bot-nick hello diye kendinizi tanıttığınızda bot sizi sahip olarak bu dosyaya işler ident ve hostun son kısmını bu user dosyasına kayıt eder. güvenlik nedeniyle başkası bota ulaşamasın sadece sahip olarak bu ident@hosta sahip olanı tanıyacaktır.

eggdrop v1.6.19 -- Oyuncukiz burdakide botun versionu ve botun .confunda set username satırındaki yazan gelir ki buda Oyuncukiz imiş. eğer bu bilgiler yanlıoş ise ki bunu sadece sen bilebilirsin o zaman bi sorun vardır .doğruysa botla alakalı eski bir version olmasından başka tuhaf bi durum görünmüyor bu verdiğin bilgilerde..

Heri 27 Mayıs 2012 18:48

Cevap: Tcl Botlar Soru Sormuyor
 
sagolasin bilgiler icin.
Telnetten bir komut veripde nerde vardir o sekilde bilgi almak mümkün olabilirmi?

saywhat 27 Mayıs 2012 19:45

Cevap: Tcl Botlar Soru Sormuyor
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

botun.conf dosyasında şu iki satırı göreceksiniz.
Kod:

unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set

eğerki bu satırlar varsa unbind yazan yerleri bind olarak değişin bu iki satır için yok ise bu satırlar
Kod:

bind dcc n tcl *dcc:tcl
bind dcc n set *dcc:set

şeklinde ekleyebilirsiniz.bu iki satır dcc/telnet bağlantısında bota .set ve .tcl komutlarına yanıt vermesini sağlayacak.

botu .restart edin bu .conf üzerindeki değişiklikten sonra kanalda bu trivia oyunu için !basla komutu verin scripti yükleyip.hemen ardında bota telnet /dcc üzerinden
.set ::errorInfo
.tcl set ::errorCode
yada

.tcl set ::errorInfo

komutlarını yazın bu komutlar botun size telnet/dcc üzerinde son uygulanan işlemde oluşmuş olası hataları göstermesini sağlayacaktır.bu komutlardan sonra bottan aldığınız mesajları buraya postalayın.

botla alakalı genel bilgi almak için telnet/dcc bağlantısında .status komutunu

botun bağlı bulunduğu kanal üzerindeki ayar bilgileri için .chaninfo #kanalınız komutunu uygulayabilirsiniz.

botun komutları hakkında bilgiler için .help ve .help all tüm komut listesini verecektir. bir komut hakkında bilgi için .help komut şeklinde dcc/telnet bağlantısı üzerinde komutları uygulayabilirsiniz.


not. yada botu killeyin kill -9 botun PID nosu PID görmek içi ps aux trivia ayarları yapıp soru dosyasıyla beraber içe atın bot.conf'ta belirtin-ekleyin botu ./eggdrop -mn botun.conf ortaya -mn ekleyip çalıştırın ortadaki -n putty üzerinden botun statusunu aldığı mesajları vs görmenizi sağlayacaktır putty kapamadan bot kanala girdiğinde !basla komutuyla başlatmayı deneyin ve putty'deki botun verdiği aldığı mesajlara bakın herhangi bir hata mesajı olup olmadığına bakın !basla komutundan sonra bir hata gözüküyormu putty'de orda varsa onuda buraya atın..

Heri 27 Mayıs 2012 21:45

Cevap: Tcl Botlar Soru Sormuyor
 
servis odasina yönlendirdim botu herseyi o odaya ayarladim.
telnetteki cikan mesaj bunlar.

[20:40] %#servis (+ptrn) : [m/5 o/1 h/3 v/0 n/1 b/0 e/0 I/0]
[20:40] planet ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) left #servis.
[20:42] Tcl error [tgstart]: can't read "tgmaxhintcurrent": no such variable
[20:42] <admin> !basLa

Heri 27 Mayıs 2012 22:44

Cevap: Tcl Botlar Soru Sormuyor
 
servis odasina yönlendirdim botu herseyi o odaya ayarladim.
telnetteki cikan mesaj bunlar.

[20:40] %#servis (+ptrn) : [m/5 o/1 h/3 v/0 n/1 b/0 e/0 I/0]
[20:40] planet ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) left #servis.
[20:42] Tcl error [tgstart]: can't read "tgmaxhintcurrent": no such variable
[20:42] <admin> !basLa

Hayalet 27 Mayıs 2012 23:02

Cevap: Tcl Botlar Soru Sormuyor
 
tcl hatası diyor tcl error bunu düzeltmen gerekli öncelikle

Heri 27 Mayıs 2012 23:02

Cevap: Tcl Botlar Soru Sormuyor
 
[21:57] oyuncukiz joined #servis.
[21:57] Tcl error [tgstart]: can't read "tgmaxhintcurrent": no such variable
[21:57] <Entrance> !basla
[21:57] <Entrance> !baslat
[21:59] Introduced to Entrance (*!*ikanlim@*.234.Ks612=)
[21:59] Bot installation complete, first master is Entrance
[21:59] ERROR writing user file.
[21:59] Notefile unreachable!

Heri 27 Mayıs 2012 23:03

Cevap: Tcl Botlar Soru Sormuyor
 
"tgmaxhintcurrent": burda hata var forumda biryerde arkadaslar vermisdi kopyaladim o zamanda hic olmadi

Hayalet 27 Mayıs 2012 23:05

Cevap: Tcl Botlar Soru Sormuyor
 
dosya okunamıyor diyor Tcl bilgilerini eksiksiz olarak girip denemen gerekli bir virgül dahi okunamaması için yeterli. Dikkatli bir şekilde tekrar kontrol edip öyle dene

Heri 28 Mayıs 2012 00:54

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 }


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:37.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk