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

Sayfa 2 Toplam 2 Sayfadan

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/)

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - KOD Yardimi (https://www.ircforumlari.net/eggdrop-neostats-bnc/447753-kod-yardimi.html)

CLubber

04 Şubat 2012 19:41

Cevap: KOD Yardimi

Bot txt dosyasına nasıl kaydediyor yazarmısın.

Örnek;

<br>IP</br> şeklinde mi?

Farklı bir şekilde yazalım TCL'yi.

MesqeN

05 Şubat 2012 00:12

Cevap: KOD Yardimi

Alıntı:

CLubber Nickli Üyeden Alıntı (Mesaj 1041020182)

Bot txt dosyasına nasıl kaydediyor yazarmısın.

Örnek;

<br>IP</br> şeklinde mi?

Farklı bir şekilde yazalım TCL'yi.

78.181.28.110@

Bu şekilde kayıt ediyor.. Botun Acmasi şart degil ipi kanala yazması yeterlidir

CLubber

05 Şubat 2012 01:14

Cevap: KOD Yardimi

Kod:

set zaman_araligi "20"

if {![string match "*basla*" [timers]]} {  

  timer $zaman_araligi basla  

}  

proc basla {{text ""}} {

  global zaman_araligi 

  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 

  set files [::http::data $connect] 

  set list [split [subst -nocommands $files] "\n"]

  foreach i $list {

      putquick "gline -*@$i"

      putquick "gzline -*@$i"

      putquick "zline -*@$i"

      putquick "kline -*@$i"

      putquick "shun -*@$i"

      putquick "PRIVMSG #Opers $i numaralı ip'ye atılan <gline/gzline/zline/kline/shun> kaldırılmıştır."

    ::http::cleanup $files

  }

}

* http.tcl ile kullanman gerekli.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:13.

Sayfa 2 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster