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 ?

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ı

Paint

08 Haziran 2012 21:58

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.

Bu sanırım çalışacaktır, çalışmaz ise buraya Client connecting noticesini ve Nickserv'den gelen nick kayıtsız mesajını kopyalayın.

aspawa

08 Haziran 2012 22:07

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

-NickServ - Nick'iniz kayitli degil.
-NickServ - Kullanimi: IDENTIFY sifre
-NickServ - Daha fazla bilgi icin /msg NickServ HELP IDENTIFY yaziniz.

Setting/removing of usermode(s) 'ixBwCs' has been disabled.

bunumu demek istedin Paint ?

Paint

08 Haziran 2012 22:59

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

Alıntı:

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

Hayır sunucuya bir nick bağlandığı zaman gelen noticeden bahsettim.

Örnek: [22:58:06] -irc.xxx.net- *** Notice -- Client connecting on port 6667: Misafir671622 (Feel@176.54.210.5x) [clients]

Birde /nickserv info Abuzittin58 komutunu uygulayıp gelen sonucu kopyala.

aspawa

08 Haziran 2012 23:14

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

Notice -- Client connecting on port 6667: SevUser ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [clients]

/nickserv info Abuzittin58

-NickServ- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-NickServ-
-
-NickServ- Kullanicinin Nicki Kayitsizdir..
-
-NickServ- Bu nedenle INFO Bilgileri yoktur..

Paint

09 Haziran 2012 01:19

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

Fark yok gibi botun oper girdiğine emin misin? Bu arada bota konsoldan bağlan bir hata falan var mı?

CLubber

09 Haziran 2012 01:53

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

Konsolla alakası yok, bu işlem için 2 ayrı proc gerekiyor.

Birinci proctaki işlemin sonucu ikinci proca yansımadığı için nicki göremeyip, mesaj atamıyor.

Tamamen servislerle alakalı bir durum.

Paint

09 Haziran 2012 02:29

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

Alıntı:

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

Haklısın denedim şimdi aynı procun içinde farklı bir koşul sorgulamada bile üstteki değişkeni tanımıyor. Bir şekilde üstteki değişkeni yaz procuna gönderebilsek sorun çözülecek servicesden gelen cevapta nick geçse olay bitecek ama ne yazık ki geçmiyor TCL Scriptlerdende pek anlamam açıkçası bir çaresi varsa artık siz bulacaksınız, bu kadar kolay görünen bir şeyin cevabının çıkmaması garip duruyor, mIRC ile 2 satırda yapılacabilecek birşey fakat istek eggdrop yine de verdiğim kod ircservices de çalışıyor artık gerisi TCL scriptlerden anlayanlara kalmış yaparlarsa bizde birşeyler daha öğrenmiş olacağız.

Yazdığın bütün yorumlar için teşekkür ederim.

İyi forumlar dilerim...

Çok resmi oldu sanırım ;s50

aspawa

09 Haziran 2012 13:30

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

Tüm yorumlarınız için teşekür ediyorum

bu durumda iki seçenek var [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu konuya bi çözüm bulmaya çalışacak yada ben servisleri değişicem :)

aspawa

20 Haziran 2012 16:45

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

Alıntı:

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

Servisleri değiştirdim ircservices-5.1.24 kurdum ama değişen olmadı
bot özele gelmiyor

CLubber

26 Haziran 2012 20:17

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

PHP- Kodu:

   # Botun vereceği mesajlar

 
set messages {

  "Merhaba, Kullanmış olduğunuz nick kayıtsızdır. /NickServ REGISTER Pass E-Posta komutu ile kolayca nickinizi kaydedebilirsiniz."

}

 
bind raw * notice connection

proc connection {from keyword arg} {

  global botnick

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

    set nick [lindex $arg 9]

    putquick "NickServ INFO $nick"

  }

}

 
bind NOTC – * if:notice

proc if:notice {nick uhost handle text dest} {

  global messages

  if {[string match -nocase "*kayitli bir nick degil*" $text]} {

    set information [lindex $messages [rand [llength $messages]]] 

    set person [lindex [stripcodes bcru $text] 0]

    utimer 60[list putquick "privmsg $person $information"]

  }

}

* utimer 60'dan sonra 60 ile [ arasında boşluk olması gerek, forum nedeni ile çıkmıyor, düzeltirsin.

* Botun belirlediğin rastgele mesajlardan bir tanesini kullanıcının özeline 60 sn. sonra gönderir.

TCL Yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aspawa

26 Haziran 2012 21:39

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

Teşekürler CLubber bu kod çalıştı

qeweSe

29 Haziran 2012 09:18

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

...

aspawa

01 Temmuz 2012 19:02

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

CLubber kodda şöle ufak bir hata var eklediğim satıları 2 tane birden okuyor userin özeline

CLubber

01 Temmuz 2012 19:35

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

Eklediğin satırları ve tcl'yi kopyala buraya.

aspawa

01 Temmuz 2012 22:13

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

Eklediğim satılar aşağıdaki gibidir

PHP- Kodu:

   # Botun vereceği mesajlar 
set messages { 
  "Merhaba, Kullanmış olduğunuz nick kayıtsızdır. /NickServ REGISTER Pass E-Posta komutu ile kolayca nickinizi kaydedebilirsiniz." 
  "düştünmü"
  "Nicin Kayıtsız :))"
} 
bind raw * notice connection 
proc connection {from keyword arg} { 
  global botnick 
  if {[string match -nocase "*Client connecting on port*" $arg]} { 
    set nick [lindex $arg 9] 
    putquick "NickServ INFO $nick" 
  } 
} 
bind NOTC – * if:notice 
proc if:notice {nick uhost handle text dest} { 
  global messages 
  if {[string match -nocase "*kayitli bir nick degil*" $text]} { 
    set information [lindex $messages [rand [llength $messages]]]  
    set person [lindex [stripcodes bcru $text] 0] 
    utimer 60[list putquick "privmsg $person $information"] 
  } 
}

CLubber

01 Temmuz 2012 22:38

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

Eklediğin mesajların bir tanesinin sonunda " bu işaret olmadığı için çift yazmış, o satırı düzeltirsen sorun çözülücektir.

aspawa

01 Temmuz 2012 23:19

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

Clubber yardımlarından dolayı teşekür ederim sorunum çözüldü .

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