günlük kısa burç yorumu... - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

saywhat · 07 Eylül 2013, 00:27

olabilecek en basit haliyle günlük burç yorumu eggdrop-tcl scripti : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod: Kodu kopyalamak için üzerine çift tıklayın!

package require http

bind pub - "!bur&#231;" burc:pub

proc burc:pub {nick uhost hand chan text} {
  set burc [lindex [split $text] 0]
  set burc [string map {&#231; c ş s ğ g ı i &#199; C Ş S Ğ G I İ} [join $burc]]
  if {$burc == ""} { puthelp "privmsg $chan :\002kullanımı\002 : $::lastbind burcunuz." return 0;}

::http::config -useragent "UserAgent"
set url [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
15000]
set data [::http::data $url]
::http::cleanup $url

 regexp -- {<h1 class="kucuk"><span class="tarih">(.*?)</span>(.*?)</h1>} $data "" gun bilgi
 regexp -- {.+<p>(.*?)</p>.+<div class="clear="></div>} $data "" bir
  foreach line [split $bir "\n"] {

    puthelp "privmsg $chan :\00304$gun $bilgi\00304 : \002$line \002"
    }
}

putlog "tamam..."

not : Türkçe karakter kullanarakta sorgulayabilirsiniz... ş ,ç ,ğ ,ı gibi Türkçe harfleri algılayabilecek şekilde kod içinde gereği yapılmıştır.

bknz :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gibi....

ulusalchat · 07 Eylül 2013, 03:59

emegine saglık

Sephiroth · 08 Eylül 2013, 00:32

saywhat döktürüyor: ) zengin bi tcl oluştu elimde ...

saywhat · 12 Eylül 2013, 21:43

güncelleme ->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kheldor · 10 Ekim 2013, 19:50

Tcl error [hade:be]: Unknown option -urlencoding, must be: -accept, -proxyfilter, -proxyhost, -proxyport, -useragent

seklinde hata vermekte. Teşekkürler.

saywhat · 10 Ekim 2013, 20:32

partyline :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
kanal:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
tcl / bot sürümü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sanquin · 25 Ekim 2013, 19:15

Guzel tcl fakat turkce karakter sorunu var sanirim?

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

saywhat · 25 Ekim 2013, 19:33

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
tcl8.6.1 +(local kurulumla tcl sürümü yükselttim.makinada daha eski sürüm olduğu için kendim kurulum yaptım) eggdrop1.8 (utf-8 patch edilmiş bot)
bknz -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

saywhat · 12 Ocak 2014, 20:31

Kullanım/sorgulama şekilleri:

Bugünkü yorumu almak için kullanımı : <komut> bugün <burcunuz>
<komut> < dün / haftalık / aylık / yıllık / özellik > <burcunuz>
Yükselen burcunuz hakkında bilgi almak için : <komut> yükselen <burç-adı>
Aşk Uyumu araması için : <komut> uyum <sizin burcunuz> <onun burcu>

kodu kanal/lar üzerinde aktif edebilmek için:

partyline üzerinden: .chanset #kanalınız +burc
partyline : botla kuracağınız DCC/telnet bağlantısı...

Yapılan değişiklikler/eklemeler:

günlük,haftalık,aylık ve yıllık yorum alma eklendi..
düne ait yorumu alma eklendi...
burç genel özellikleri sorgulama eklendi...
yükselen burcunuzla ilgili yorum alma eklendi...
burçlar arası aşk uyumu sorgulaması eklendi...
Türkçe dil desteği/Türkçe harfleri tanıması sağlandı...
özellikleri, yazımı geliştirildi...
flood kontrolü eklendi...

-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

v0.04

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

MikaiL · 13 Ocak 2014, 00:14

Çok başarılı emeğine sağlık.

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

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.