[saywhat]

kodu bu alttaki linkten almanızı tavsiye ederim .aksi halde foruma postaladığımda bazı html'leri yutuyor.
--> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

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

# hangi kanal/lar üstünde çalıştırmak isteniyorsa:
# .chanset #kanal +hava
# yükledikten sonra ayarlamalısınız.
package require http
setudef flag hava
bind pub - .h hava
proc hava {nick uhost hand chan text} {
 if {![channel get $chan hava]} { :return 0 }
  set query [lindex [split $text] 0]
 if {[llength $query] == "0"} {
   putserv "notice $nick :\00304kullanım şekli : .h <şehir-ismi>\00304" 
   return 0
 }
::http::config -useragent "UserAgent"
set tok [::http::geturl "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" -timeout 15000]
set data [::http::data $tok]
::http::cleanup $tok
regexp -- {<td class="sond_zaman">(.+?)<br .>(.+?)</td>} $data "" zaman saat
regexp -- {<td><em class="renkMin zemimeZ">(.+?)°(.+?)</em></td>} $data "" max santi
regexp -- {<td><em>(.*?)</em></td>} $data "" nem
regexp -- {<br /><em>(.*?)</em></td>} $data "" ruzgar
regexp -- {<p id="cp_sayfa_pMerkezYuksekligi"><strong>Yükseklik: </strong>&nbsp;(.*?)</p>} $data "" rakim
regexp -- {<p id="cp_sayfa_pMerkezBoylam"><strong>Boylam: </strong>&nbsp;(.*?)° (.*?)' (.*?)</p>} $data "" boylam derece dakika
regexp -- {<p id="cp_sayfa_pMerkezEnlem"><strong>Enlem: </strong>&nbsp;(.*?)° (.*?)' (.*?)</p>} $data "" enlem der dak
regexp -- {<p id="cp_sayfa_pMerkezGD"><strong>Gün Doğumu: </strong>&nbsp;(.*?)</p>} $data "" dogum
regexp -- {<p id="cp_sayfa_pMerkezGB"><strong>Gün Batımı: </strong>&nbsp;(.*?)</p>} $data "" batim
regsub -all {\n} $data {} data
regsub -all {\t} $data {} data
regsub -all {&nbsp;} $data { } data
regsub -all {°} $data {°} data
regsub -all {'} $data {'} data
  putserv "PRIVMSG $chan :\00304 $query için hava raporu:\00304 \0032Ölçüm zamanı:\0032 \002$zaman - $saat\002 - \0032Maksimum sıcaklık:\0032 \002$max $santi°\002 - \0032Nem oranı:\0032 \002$nem\002 - \0032Rüzgar hızı:\0032 \002$ruzgar\002"
  putserv "PRIVMSG $chan :\0032Yükseklik:\0032 \002$rakim\002 -\0032 Enlem:\0032 \002$enlem° $der' $dak\002 - \0032Boylam:\0032 \002$boylam° $derece' $dakika\002 - \0032Gün doğumu:\0032 \002$dogum\002 - \0032Gün batımı:\0032 \002$batim\002 "
}
putlog "havadar.tcl yuklendi..."

[kheldor]

Sorunsuz çalışmakta lakin
Tcl error [hava]: can't read "dogum": no such variable

böyle bir şey yazdıkmakta bilgine..

[saywhat]

şu anda iki ayrı botumda ki bunlardan biri tcl8.6.0 eggdrop1.8
diğeri tcl8.5.9 - eggdrop1.6.21 ..her ikisi üstünde çalışmakta partyline'dan da
bağlanıp her ikisindede kontrol ettim ne çalışmasında sorun var nede herhangi bir hata mesajı.kodu burdan tekrar alın .

bu şu an benim botun içinden çektiğim.. satır kaydırmamaya dikkat edin.. linkte açılan sayfanın üstünde "raw code" yazısı göreceksiniz ona tıklayarak kodu download edebilirsiniz.

indirdiğiniz kodu yeniden adlandırıp botunuzun içindekiyle aynı isme getirip ,ftp ile direk botunuzun scripts dizine içine atın eskisinin üstüne yazdırın ve .rehash edin ...

kopyala -yapıştır yapmayın"...copy-paste ederken satır kaymış olabilir.
hata olsaydı, mutlaka görürdüm, şimdiye çoktan onarırdım..

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

[saywhat]

maksimum sıcaklık değerini veren sitenin kaynak kodu değişkenmiş....
gün içinde zamana göre değişiyor-muş...herhalde...öyle görünüyor..
akşam üzeri alıp yaptığım,sabaha işlemez oldu ...
sabittir diye düşünmüştüm ,oynak çıktı namıssız... bunu ondan hiç beklemezdim....

değişken olarak ayarladım şimdi bende, napalım...
artık istediği kadar değişsin nema problema...

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

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

[saywhat]

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

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

[kheldor]

Link kırık. Güncellermisin.

[saywhat]

botun içinden alıp veriyorum ... o nedenle kod görünüm/okunurluk açısından "hoş" olmayabilir. bot içinde bıraktıklarım ,genelde "sunum kıvamında" değil , daha ziyade "karalama" kıvamında oluyor...

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


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[kheldor]

Sırf sen varsın diye daha bir güzel burası ...

[21:30:57] Tcl error [hava_pub]: can't read "rakim": no such variable

Şeklinde yanıt almaktayım. Sevgiler

[saywhat]

burada verdiğim bu -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve şu -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] linklerden , hava ve foreca Tcl scriptlerini ,sayfaların sol üstündeki "raw code" yazılarına tıklayarak ,masaüstüne indirdim. Ftp ile "farklı" bir bota ( eggdrop v1.8.0+fixbotnetloop , Tcl: 8.5.7 ) /scripts dizini içine attım. .conf dosyasına scriptleri ekledim.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


bota bağlanıp .rehash çektikten sonra .chanset ile iki scriptide kanalda aktif ettim..

sonuç :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ne kanalda çalışmasında nede telnet üzerinde kullanımda herhangi bir hata yok...

ki zaten belirttiğim gibi ,bu scriptleri "yeni" yazmadım,neredeyse bir yıldır başka bir botta ,kanal/lar üzerinde bu scriptleri ben ve o kanaldakiler kullanıyorlar..

sizin aldığınızı söylediğiniz "hata"'lar ya scripti adresten copy-paste ederkenki yaşanmış olabilecek bozulma/satır kaymaları nedeniyle olabilir,ya kullanılan editörün Tcl desteği olmamasından,kodu bozmasından olabilir, yada eggdrop değil de windrop kullanıyor olmanızdan kaynaklı olabilir.

bende yıllarca windrop/ları dönem dönem yeri geldikçe kullandım.(hatta ilk eggdrop'larla tanışmam,kurma/çalıştırma denemem ,rusça" bir windrop ile olmuştu ) hatta belki görmüşsünüzdür burada windrop hakkında "makale"'de yazmış/hazırlamıştım... -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

windrop'ların olayı budur. bazı scriptler sorunsuz çalışır,bazılarıysa windrop'a uymaz,çalışmaz yada hata atar. ben script yazar,hazırlarken windrop üzerinde yazmıyor,kullanmıyorum... (neredeyse bir yıldır hiç windrop çalıştırmadım.PC'de bir yerlerde yedeklenmiş halde duruyorlar eski windrop'larım)

Bu nedenlerle ne ben nede başka script yazarları ,yazdığı yayınladığı script için ,kendi denemeden "bu script windrop'tada çalışır" diyemez. bunun garantisini de veremez...