on *:TEXT:*:?: {
if $regex($1,/(^[!.](ş|s)(i|İ|ı)fre$)/i) {
if $nick isop $istok(#kanal1 #kanal2 #kanal3,$chan,32) {
Msg $query($nick) 4Bu Bilgileri Lütfen Kimseyle Paylaşmayın.
Msg $query($nick) 14 $str($chr(45),45)
Msg $query($nick) 5 IP 1: 4 %link
Msg $query($nick) 5 Port 1: 4 %port
Msg $query($nick) 5 Şifre 1: 4 %adsif
Msg $query($nick) 14 $str($chr(45),45)
Msg $query($nick) 14 $str($chr(45),45)
Msg $query($nick) 5 Radyo Bilgilerinin Sonu.
Msg $query($nick) 14 $str($chr(45),45)
Msg $query($nick) 14 $str($chr(45),45)
Msg $query($nick) 4 Radyo Bilgilerini Alan Nick 1( 5 $nick 1)
Msg $query($nick) 14 $str($chr(45),45)
Msg $query($nick) 5 Hoş Sohbetler 1,5 İyi Yayınlar 7 $nick
Msg $query($nick) 14 $str($chr(45),45)
}
else {
msg $nick Kanal operatörü değilsiniz.
}
}
}


usta Msg $query($nick) yazan kısmı ------ >

msg $nick olarak değiştim kod çalıştı ama altınada operatör değilsiniz yazıyor op olduğum halde.

 

Çevrimdışı

Tekrar al düzenledim kanalları kendine göre || $nick isop #kanal7 diye çoğaltırsın , uzun yola ve karışık işlemlere gerek yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimiçi

Hayır while döngüsü yöntemiyle yapamazsın başka bir yöntemle yapabilirsin ama onu yapıcak vaktim yok anlatayım yapabilirsen yap, mesajı birkere bir txt dosyasına kaydediceksin ve özeline gelen nicke $comchan($nick,0).op sorgulaması yapıcaksın eğer senin oldugun kanalların birinde nick optaysa bir %x on gibi bir değer açtırıp nickide başka bir değerde setleyeceksin while sorgusunu bitirip bir alias çalıştırıcaksın herhangi bir alias olabilir alias içersinde

alias ufuk {
if %x == on {
var %i 1
while %i <= $lines(bilmemne.txt) {
msg %setlinick $read(bilmemne.txt,%i)
inc %i
}
unset %x %setlinick
}
yaparak tek seferde gönderebilirsin. Bence buna uğraş diğer türlü sağlıklı olmaz elinle teker teker kanalları yazıcak değilsin

o yolla yapmak istiyorsanda list rawını kullanarak rawdaki kanalları basitcei bir hash tabloya kaydedip ona dair bir sorguda yapabilirsin