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




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 03 Temmuz 2007, 00:32   #11
Çevrimdışı
SaW
SaW - ait Kullanıcı Resmi (Avatar)
Yanıt: Cevap: Tcl istek




mirclan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bunu nasıl nereye hangi dosya içine ekliyoruz ?

Bu kodları dosyadı.tcl şeklinde bir dosyaya kaydet. (uzantısı tcl olmalı.)
Sonra eggdrop/scripts klasörüne koy.
Bundan sonrası sadece bu kod için bir conf ayarlayabilirsin veya sunucundaki mevcut botların herhangi birisinin confuna ilave edebilirsin (botun admin olması şart)
Her iki durumda da confun en altına
source scripts/dosyadı.tcl
satırını eklemen lazım.

  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 03 Temmuz 2007, 00:48   #12
Çevrimdışı
Yanıt: Tcl istek




Allah Razi olsun ...

Cok tesekkur ederim ...

Bunu cogaltirken,

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

kisimlarini cogaltiyoruz degil mi ...

  Alıntı ile Cevapla

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




evet. bracketlara dikkat et o mantıkla çoğaltabilirsin. yani dikkat etmen gerekenler { ve } işaretleri..

  Alıntı ile Cevapla

Alt 03 Temmuz 2007, 01:15   #14
Çevrimdışı
Yanıt: Tcl istek




sormusken bir soru daha sorayim aklimda kalmasin ...

cok guzel bir code cok tsk ederim...

sokmak istedigim kanallar'dan 1 tanesine yogunluk yapabilme gibi bir sans'imiz var mi ?... yani 3/2 1 kanal'a 3/1 diger kanallara random ...

  Alıntı ile Cevapla

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




var tabi bir satır daha ekle,
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]"


mesela
[lindex $kanallar 2] olandan bir kaç tane daha ekleyebilirsin.

tabi set deger [rand 4] değerini de ona göre artırmalısın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

  Alıntı ile Cevapla

Alt 03 Temmuz 2007, 19:45   #16
Çevrimdışı
Cevap: Tcl istek




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

Şimdi...
Alıntı:
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]"
}
}
}
}

Bunu Bir tcl dosyasi(örnek; sajoin.tcl) yapip ftp/eggdrop/script klasörüne atiyoruz.Daha sonra Hangi Botun Bunu yapmasini istiyorsan,
Confunun en altina bu TCL yi ekliyoruz.Alttaki gibi;
Alıntı:

# TCL EKLENTILERI
# bu bolum eklediginiz tcllere gore duzenliyeceginiz bolum..
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/sajoin.tcl

Ekliyoruz, daha sonra Botumuzu Calistiriyoruz.

  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