IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   günlük kısa burç yorumu... (https://www.ircforumlari.net/tcl-scriptler/546834-gunluk-kisa-burc-yorumu.html)

saywhat 07 Eylül 2013 00:27
günlük kısa burç yorumu...
 
olabilecek en basit haliyle günlük burç yorumu eggdrop-tcl scripti : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
package require http

bind pub - "!burç" burc:pub

proc burc:pub {nick uhost hand chan text} {
  set burc [lindex [split $text] 0]
  set burc [string map {ç c ş s ğ g ı i Ç 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
Cevap: günlük kısa burç yorumu...
 
emegine saglık

Sephiroth 08 Eylül 2013 00:32
Cevap: günlük kısa burç yorumu...
 
saywhat döktürüyor: ) zengin bi tcl oluştu elimde ...

saywhat 12 Eylül 2013 21:43
Cevap: günlük kısa burç yorumu...
 
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
Cevap: günlük kısa burç yorumu...
 
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
Cevap: günlük kısa burç yorumu...
 
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
Cevap: günlük kısa burç yorumu...
 
Guzel tcl fakat turkce karakter sorunu var sanirim?

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

saywhat 25 Ekim 2013 19:33
Cevap: günlük kısa burç yorumu...
 
[Ü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
Cevap: günlük kısa burç yorumu...
 
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
Cevap: günlük kısa burç yorumu...
 
Çok başarılı emeğine sağlık.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:57.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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