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