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

aspawa · 07 Haziran 2012, 00:23

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

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

house · 08 Haziran 2012, 07:57

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

iLviiR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

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

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

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

Paint Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

aspawa Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

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


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

CLubber Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


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ı

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kanala Giren Kayıtsız Nicklere Msg	diyorumki	mIRC Scripting Sorunları	24	25 Temmuz 2013 17:37
Kayıtsız Nicklere Özelde Uyarı	SeYH_SaMiL	mIRC Scripting Sorunları	4	19 Nisan 2012 18:19
kayıtsız nicklere mesaj	raskolnikov	IRCServices	0	22 Şubat 2009 00:55
Anope KayıtSız Nicklere Msg.	TreMex	Servisler	8	27 Ocak 2007 21:28
Kayıtsız nicklere msg	kgbX	Servisler	5	13 Temmuz 2006 03:09

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.