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

8Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Haziran 2012, 00:23   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ü ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 07 Haziran 2012, 18:03   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 07:57   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 12:35   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?




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

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 20:06   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?




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.

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 21:05   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?




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

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 21:25   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?




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

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 21:35   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 21:43   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?




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.

 
Alıntı ile Cevapla

Alt 08 Haziran 2012, 21:52   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sunucuya giren kayıtsız nicklere 1dk sonra txt ten satır okumak ?




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ı

 
Alıntı ile Cevapla

Cevapla

Etiketler
1dk, giren, nicklere, okumak, sonra, sunucuya, ten


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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