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

Challenger · 02 Temmuz 2007, 20:22

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: Kodu kopyalamak için üzerine çift tıklayın!

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

HAPPyyyy · 02 Temmuz 2007, 20:46

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

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 ?

Challenger · 02 Temmuz 2007, 20:48

denedim ...

/utimer diye bir komut yok ..

Onu'da normal timer olarak yaptim ..

gene olmadi ..

tskler ilgin icin .

HAPPyyyy · 02 Temmuz 2007, 20:58

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

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

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" 
      } 
    } 
  } 
}

Challenger · 02 Temmuz 2007, 21:07

calismiyor arkadasim yaa
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Brain · 02 Temmuz 2007, 23:44

[Ü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.

SaW · 02 Temmuz 2007, 23:51

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

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.

Challenger · 03 Temmuz 2007, 00:03

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

SaW · 03 Temmuz 2007, 00:15

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

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CONSTANTiN · 03 Temmuz 2007, 00:17

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
TCL istek	Sephiroth	Eggdrop, NeoStats, BNC	1	16 Kasım 2012 02:55
TCL istek	aquabluee	Eggdrop, NeoStats, BNC	0	02 Kasım 2012 21:52
TCL iStek..	n1ks1z	Eggdrop, NeoStats, BNC	0	02 Aralık 2010 09:22
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11
tcl istek	hipokrat	TCL Scriptler	0	17 Ocak 2008 09:08

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.