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

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

- - hava .tcl (https://www.ircforumlari.net/tcl-scriptler/535550-hava-tcl.html)

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:

# 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..."

Cevap: hava .tcl

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

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

Cevap: hava .tcl

ş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...]

Cevap: hava .tcl

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...]

Cevap: hava .tcl

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

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

Cevap: hava .tcl

Link kırık. Güncellermisin.

Cevap: hava .tcl

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...]

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

Cevap: hava .tcl

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

Cevap: hava .tcl

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.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

sonuç : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
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...