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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Islam Soru Botu (https://www.ircforumlari.net/tcl-scriptler/117819-islam-soru-botu.html)

Cevap: Islam Soru Botu

Alıntı:

]{ayIP_Cocu]{ Nickli Üyeden Alıntı (Mesaj 527972)

ßu Linki Deneyin Kusursuz CaLisiyor Emin Olun.Link => [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] OnceLikle Dosyalari indirmek icin linki Tıklıyoruz..indirdiğimiz rar dosyasının içerisinde de anlattım yine anlatayim;ftp ye login oluyoruz eggdrop klasorunu acıyoruz islam.conf dosyasını kendinize göre editledikten sonra eggdrop klasorunun içerisne atıyoruz..daha sonra script klasorunu acıyoruz islam.tcl ve islam.txt dosyalarını oraya atıyoruz.Daha Sonra Ssh hesabınıza login olup sırasıyla;cdcd eggdrop./eggdrop -m islam.confKoLay GeLsin

eminim o link kusursuz çalişiyor :)

Cevap: Islam Soru Botu

s.a bu soru botunu seslı sohbet odasında kullana bılırmıyız sadece ırc de mı kullanılır acaba ???

yada sesli sohbet odası ıcın yazılı metin ile islami soru botu bulabılırmıyız acaba??

yardımlarınız için tşk ederim.

Cevap: Islam Soru Botu

ArkadasLar Ben Botu Ftpye atıyorum ama oLmuyor
KOMUT:> [13.11.2009 19:00:43] CWD /./eggdrop -m islam.conf
[13.11.2009 19:00:43] 550 Can't change directory to /./eggdrop -m islam.conf : No such file or directory
HATA:> [13.11.2009 19:00:43] İstenen işlem gerçekleştirilmedi (örn. dosya veya dizin bulunamadı, erişim yok).

Dedıgınız Gıbı Yapıyorum aynısını ama olmuyor Bi yardcımcı olun bana

Cevap: Islam Soru Botu

Alıntı:

ZeHiRRRRR Nickli Üyeden Alıntı (Mesaj 870057)

KOMUT:> [13.11.2009 19:00:43] CWD /./eggdrop -m islam.conf

./eggdrop -m islam.conf yapcaksin yazdiğin pek anlasilir değil :S CWD /./ nedir yanlis yazmisin sanirim.

Cevap: Islam Soru Botu

Saygıdeğer coder abilerim, tcl ile conf taki oynanacak oyun kanalları aynı, bot kanala giriyor oper alıyor, !basla deyince,
<Hoca> Soru cevap oyunu ELSukr taraf1ndan ba_lat1ld1!
diyor , ama baslamıyor sorun nerde acaba yardımcı olablirmisiniz tşkler.

Cevap: Islam Soru Botu

Alıntı:

eLsukr Nickli Üyeden Alıntı (Mesaj 1041720818)

tcl nin içindeki dizin yollarını kontrol et, birde soru cevap dosyasını shell hesabına attığına emin ol

Cevap: Islam Soru Botu

TCL Dosyanızda

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]

}

}

Yukarıdaki kodları bulup

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 }

Olarak değiştirin. Sunucu üzerinde /rehash komutu uygulayıp botu ssh 'den tekrar aktif edin.

Cevap: Islam Soru Botu

tşkler seçkin kardeşim oldu inşeallah allah razı olsun abim.