IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Sayfa 1 Toplam 3 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/)

- - sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/486638-sunucuya-giren-kayitsiz-nicklere-1dk-sonra-txt-ten-satir-okumak.html)

aspawa

07 Haziran 2012 00:23

sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

servere bağlanan kayıtsız nicklere sohbet kanalındaki eggdrop botum 1 dka sonra özeline giderek txt ten rast gele satır okuması mümkünmü ?

aspawa

07 Haziran 2012 18:03

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

txt ten değilde tcl dende belirttiğimiz satırlardan rast gelede okusada olur hangisi olursa

house

08 Haziran 2012 07:57

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Alıntı:

bind raw * notice connection

proc connection {from keyword text} {

set nick [lindex $text 9]

global nick

if {[string match -nocase "*Client connecting on port*" $text]} {

utimer 60 [list putquick "Privmsg $nick Yazının ilk satırı"]
utimer 61 [list putquick "Privmsg $nick Yazının ikinci satırı vs"]

}

}

Kayıtlı nick ayırt etmez ama girişten 1 dk sonra kullanıcıya mesaj göndermeye başlar. Satırları kafana göre düzenle, 61 vs olan yerleri her satırda birer saniye artırırsın. Pek TCL bilmem, o yüzden nick kayıtlı mı kayıtsız mı onu üstadlar sorgulatır faydalı bişey yazarlar sanırım.

aspawa

08 Haziran 2012 12:35

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Alıntı:

iLviiR Nickli Üyeden Alıntı (Mesaj 1041136603)

ilginden dolayı teşekkür ederim iLviiR yanlız bu kod çalışmıyor

sanırım birde bu kod kendisine eklenen tüm satırları tek tek okuyor
ben rast gele bir tane seçip okusun istiyorum

Paint

08 Haziran 2012 20:06

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Kod:

bind raw * notice go:baglanan
 

proc go:baglanan { from keyword arg } {

if { [string match "*Client connecting*" $arg] } {

set nick [lindex $arg 9]

  putquick "privmsg nickserv info $nick"

}

if { [string match "*kayitli bir nick degil*" $arg] } {

set nick [lindex [stripcodes bcru $arg] 1]

set nick [lindex [split $nick :] 1]

yaz "soz.txt" $nick 

}

}
 

proc yaz { txt nick } { 

set dosyaoku [open scripts/$txt r]

set dosyalist [split [subst -nocommands [read $dosyaoku]] "\n"]

set rmsg [lindex $dosyalist [rand [llength $dosyalist]]]

utimer 60 [list putserv "privmsg $nick :$rmsg"]

close $dosyaoku

}

"yaz" proc'u Geveze.tcl'den alınıp, düzenlenmiştir.

Not: Kodun çalışması için soz.txt -inin scripts klasörü içerisinde olması gerekir.

aspawa

08 Haziran 2012 21:05

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1041137275)

Kod:

bind raw * notice go:baglanan

 

proc go:baglanan { from keyword arg } {

if { [string match "*Client connecting*" $arg] } {

set nick [lindex $arg 9]

  putquick "privmsg nickserv info $nick"

}

if { [string match "*kayitli bir nick degil*" $arg] } {

set nick [lindex [stripcodes bcru $arg] 1]

set nick [lindex [split $nick :] 1]

yaz "soz.txt" $nick 

}

}

 

proc yaz { txt nick } { 

set dosyaoku [open scripts/$txt r]

set dosyalist [split [subst -nocommands [read $dosyaoku]] "\n"]

set rmsg [lindex $dosyalist [rand [llength $dosyalist]]]

utimer 60[list putserv "privmsg $nick :$rmsg"]

close $dosyaoku

}

"yaz" proc'u Geveze.tcl'den alınıp, düzenlenmiştir.

Not: Kodun çalışması için soz.txt -inin scripts klasörü içerisinde olması gerekir.

Paint ilgin için teşekür ederim ama bu kod çalışmıyor

Paint

08 Haziran 2012 21:25

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Alıntı:

aspawa Nickli Üyeden Alıntı (Mesaj 1041137375)

Paint ilgin için teşekür ederim ama bu kod çalışmıyor

Botunun oper girdiğine emin misin?

Kod test edildi ve bir sorun ile karşılaşılmadı.

CLubber

08 Haziran 2012 21:35

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Kullandığınız services ruLLz olduğu için info bilgilerinde nick belirtilmiyor.

Bu yüzden botunuz göndereceği nicki bulamıyor.

Ayrıyetten nickserv mesajı olduğu için bind raw değil, bind notc kullanılmalıdır.

CLubber

08 Haziran 2012 21:43

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

PHP- Kodu:

   bind raw * notice go:baglanan

 
proc go:baglanan {from keyword arg} {

  set nick [lindex $arg 9]

  if {[string match "*Client connecting*" $arg]} {

    putquick "privmsg nickserv info $nick"

  }

  if {[string match "*Kullanicinin Nicki Kayitsizdir*" $arg]} {

    yaz "soz.txt" $nick 

  }

}

 
proc yaz {txt nick} { 

  set dosyaoku [open scripts/$txt r]

  set dosyalist [split [subst -nocommands [read $dosyaoku]] "\n"]

  set rmsg [lindex $dosyalist [rand [llength $dosyalist]]]

  utimer 60[list putquick "privmsg $nick :$rmsg"]

  close $dosyaoku

}

Bunu deneyin olmazsa dediğim gibi nick'i bulamadığı içindir.

Not: utimer 60'dan sonra boşluk olması gerek 60 ve [ arasında.

aspawa

08 Haziran 2012 21:52

Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?

Alıntı:

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

PHP- Kodu:

   bind raw * notice go:baglanan
 
proc go:baglanan {from keyword arg} {
  set nick [lindex $arg 9]
  if {[string match "*Client connecting*" $arg]} {
    putquick "privmsg nickserv info $nick"
  }
  if {[string match "*Kullanicinin Nicki Kayitsizdir*" $arg]} {
    yaz "soz.txt" $nick 
  }
}
 
proc yaz {txt nick} { 
  set dosyaoku [open scripts/$txt r]
  set dosyalist [split [subst -nocommands [read $dosyaoku]] "\n"]
  set rmsg [lindex $dosyalist [rand [llength $dosyalist]]]
  utimer 60[list putquick "privmsg $nick :$rmsg"]
  close $dosyaoku
}

Bunu deneyin olmazsa dediğim gibi nick'i bulamadığı içindir.

Not: utimer 60'dan sonra boşluk olması gerek 60 ve [ arasında.

CLubber dediğin gibi galiba servislerden dolayı bu kodda çalışmadı

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

Sayfa 1 Toplam 3 Sayfadan

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