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

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

- - Tcl istek (https://www.ircforumlari.net/eggdrop-neostats-bnc/33469-tcl-istek.html)

Selam...

Arkadaslar istemis oldugum sey, Bot snoticeleri gorerek, atiyorum her 3 giris'ten 1 kisiyi belirlemis oldugum kanallara sirasiyla sokcak ...
3 giris'ten 1 giris #X kanal'ina
4 giristen 2 giris #Y kanal'ina
gibi
Sajoin yapmasini istiyorum ...
Aslinda burada Bir tcl gordum ama calismadi ...

Kod:

bind raw - NOTICE baglanti 

proc baglanti {from keyword text} { 

if {[string match -nocase "*client connecting*" $text]} { 

set nick [lindex [split $text] 9]

utimer 1[list putserv "raw close" ]

utimer 1[list putserv "fjoin $nick #sohbet" ]

utimer 1[list putserv "fjoin $nick #oyun" ]

utimer 1[list putserv "fjoin $nick #radyo" ]

} 

}

Bu Mantiktan yola cikarak birseyler yapmaya calismadim olmadi..

Bu konuda yardimci olabilecek arkadaslara tesekkurlerimi iletirim ...

Yanıt: Tcl istek

Kod:

bind raw - NOTICE baglanti 

proc baglanti {from keyword text} { 

if {[string match -nocase "*client connecting*" $text]} { 

set nick [lindex [split $text] 9]

utimer 1[list putserv "raw close" ]

utimer 1[list putserv "SAJOIN $nick #sohbet" ]

utimer 1[list putserv "SAJOIN $nick #oyun" ]

utimer 1[list putserv "SAJOIN $nick #radyo" ]

} 

}

olarak denermisin ?

Yanıt: Tcl istek

denedim ...

/utimer diye bir komut yok ..

Onu'da normal timer olarak yaptim ..

gene olmadi ..

tskler ilgin icin .

Yanıt: Tcl istek

aCoustiC Bir Çalışması Vardı Ondan Çıkarak Yaptım Kodlar aCoustiC Arkadaşımıza Ayittir Sadece Alıntı Yaptım Bilginize

Kod:

set tayfalar { 

  "aCoustiC" 

} 

proc bv:notice {from keyword text} { 

  set text [split $text] 

  set what [join [lrange $text 4 5]] 

  if {$what == "Client connecting"} { 

    foreach tayfa $tayfalar { 

      if {[string match "*[string tolower $tayfa]*" [string tolower $text]]} { 

        return 

        } else { 

        set nick [lindex $text 9] 

        putserv "SAJOIN $nick #radyo" 

        putserv "SAJOIN $nick #oyun" 

        putserv "SAJOIN $nick #sohbet" 

      } 

    } 

  } 

}

Yanıt: Tcl istek

calismiyor arkadasim yaa :(

Cevap: Tcl istek

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'nin vermis oldugu kod unreal sunucularinda calismak uzere ayarlanmistir, calismasi icinde botun sajoin komut kullanimina erisim saglanmalidir oper eklenerek.

Yanıt: Tcl istek

Kod:

set kanallar "#kanal1 #kanal2 #kanal3"
 

bind raw * notice ssnotice

proc ssnotice {from keyword arg} {

 global kanallar

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

  set deger [rand 4]

  switch -- $deger {

   1 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 1]"

   }

   2 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 2]"

   }

   3 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 3]"

   }

 }

}

Böyle çok basit bişey yapılabilir. Random olarak her gireni belirlediğin 3 kanaldan birine sokacaktır. Sanırım istediğin de buydu. Eğer sen her gireni değil de bazılarını çeksin bazırlarını çekmesin istiyosan
set deger [rand 4]
burdaki en son 4 değerini artır. O zaman bir kısmını çekmeyecektir. Ne kadar çok artırırsan o kadar az kişiyi çeker. Ama dediğim gibi bunu "1. gireni çek, 2. gireni çekme, 3. yü çek" gibi yapmadım, tamamen random olarak, bazen üç gireni de ardı ardına çekebilir, bazen 3ünüde çekmeyebilir eğer o değeri büyütürsen. Ama şimdiki haliyle her gireni o üç kanaldan birine karışık olarak çekecektir.

Yanıt: Tcl istek

while executing
"proc ssnotice {from keyword arg} {
global kanallar
if { [string match -nocase "*Client connecting on port*" $arg] } {
set deger [rand 4]
switch ..."
(file "scripts/join.tcl" line 4)
invoked from within
"source scripts/join.tcl"
(file "helper.conf" line 94)

soyle bir hata ...

Yanıt: Tcl istek

Kod:

set kanallar "#kanal1 #kanal2 #kanal3"
 

bind raw * notice ssnotice

proc ssnotice {from keyword arg} {

 global kanallar

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

  set deger [rand 4]

  switch -- $deger {

   1 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 1]"

   }

   2 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 2]"

   }

   3 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 3]"

   }

  }

 }
 }

şimdi dene :)

Cevap: Tcl istek

bunu nasıl nereye hangi dosya içine ekliyoruz ?