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

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

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.