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




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 02 Temmuz 2007, 20:22   #1
Çevrimdışı
Tcl istek


sohbet


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 ...
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 ...
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 02 Temmuz 2007, 20:46   #2
Çevrimdışı
Yanıt: Tcl istek




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 ?

  Alıntı ile Cevapla

Alt 02 Temmuz 2007, 20:48   #3
Çevrimdışı
Yanıt: Tcl istek




denedim ...

/utimer diye bir komut yok ..

Onu'da normal timer olarak yaptim ..

gene olmadi ..

tskler ilgin icin .

  Alıntı ile Cevapla

Alt 02 Temmuz 2007, 20:58   #4
Çevrimdışı
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:   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" } } } }


  Alıntı ile Cevapla

Alt 02 Temmuz 2007, 21:07   #5
Çevrimdışı
Yanıt: Tcl istek




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

  Alıntı ile Cevapla

Alt 02 Temmuz 2007, 23:44   #6
Çevrimdışı
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.

__________________
Our brain is Our Weapon
  Alıntı ile Cevapla

Alt 02 Temmuz 2007, 23:51   #7
Çevrimdışı
SaW
SaW - ait Kullanıcı Resmi (Avatar)
Yanıt: Tcl istek




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.

  Alıntı ile Cevapla

Alt 03 Temmuz 2007, 00:03   #8
Çevrimdışı
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 ...

  Alıntı ile Cevapla

Alt 03 Temmuz 2007, 00:15   #9
Çevrimdışı
SaW
SaW - ait Kullanıcı Resmi (Avatar)
Yanıt: Tcl istek




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.


Konu Nebiliymben tarafından (03 Temmuz 2007 Saat 00:22 ) değiştirilmiştir.
  Alıntı ile Cevapla

Alt 03 Temmuz 2007, 00:17   #10
Çevrimdışı
Cevap: Tcl istek




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

  Alıntı ile Cevapla

Cevapla

Etiketler
istek, tcl

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
TCL istek EHost-Gökhan Eggdrop, NeoStats, BNC 3 21 Nisan 2011 01:41
tcl istek RahmetLi Eggdrop, NeoStats, BNC 3 05 Ocak 2011 23:34
istek Ebul_Alemeyn mIRC Scripting Hazır Kodlar 1 31 Ekim 2009 03:14
!radyo , !istek istek parçasi mazafaka mIRC Scripting Sorunları 2 21 Temmuz 2008 21:11
tcl istek hipokrat TCL Scriptler 0 17 Ocak 2008 09:08