TCL scripttingde amsg diye bir komut yoktur. amsg mIRC scrptingin bir özelliği. Sunucuda da öyle bir komut yoktur.
Ama illa olsun diyorsanız böyle bir komutu yapmak tabiki mümkün. Ancak sizin üstte yaptığınız gibi üç beş kanal adını aynı değişkene alt alta yazmakla olmaz, o şekilde yaparsanız radiochans değişkeni en son yazdığınız kanal adını alır sadece..
Şöyle bir amsg komutunu kendimiz yazabiliriz;
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
proc amsg {tms} {
set i 0
foreach m $tms {
if {$i == "0"} { set chans $m; incr i; continue }
lappend msg $m
incr i
}
foreach n $chans {
putquick "privmsg $n $msg"
}
}
Artık amsg komutumuz tcl scriptingde de var.. Peki bunu nasıl kullanabiliriz?
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
amsg "{#kanal1 #kanal2 #kanal3} mesajınız da buraya"
İşte bu kullanım şekliyle belirtilen kanallara mesajınız iletilir.
Hayır ben böyle istemiyorum amsg'nin asıl mantığında olduğu gibi kanal adı belirtmeden bulunduğu tüm kanallara göndersin istiyorum derseniz;
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
proc amsg {msg} {
foreach c [channels] {
putquick "privmsg $c $msg"
}
}
Bunun kullanımı ise şu şekildedir;
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
amsg "mesajınız buraya"