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.