Merhaba öncelikle paylaşacağınız kodları code tagi içerisinde paylaşırsanız anlamak ve çözümlemek daha kolay olacaktır.
"#" bu operatorümüz bulunduğunuz kanalı gösterir. Kod içerisinde şu an ki hali ile While döngüsü (Linke tıklarsanız while konusunda açılmış bir ders mevcuttur.) çalıştırdığınız fonksiyonu o kanal bazlı alacaktır.
"#" yerine istediğiniz kanalı yazarsanız ve o kanalda bulunuyorsanız, # operatörünü filtrelemiş olacaksınız.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kodu çözümlerseniz, çözümünün basit olacağına kanaat getirirsiniz. Kodun basit mantıkla gördüğü işlev:
Bulunduğunuz kanaldaki nick sayısını alıyor.
($nick(#,0))
Bir while döngüsü oluşturuluyorr.
(while %a) [%a'ya başlangıçta "1" değeri verilmiş ve kanaldaki nick sayısına ulaşıncaya kadar devam etmesi gerektiği söyleniyor.]
Kanaldaki nickler bir txt dosyasına yazdırılıyor.
[bwrite (ayrıca $nick(#,0) kanaldaki kişi sayısını verirken, $nick(#,N) yani bir sayı ile belirtildiği zaman o sıradaki nicki verir.)]
Daha sonra kanala yansıtılıyor.
(say)
Bu mantıkla, "#" operatörünün olduğu yerlere #sohbet yazarsanız. #sohbet kanalı içerisinde bulunan nickleri yazdırırsınız.
Ayrıca "say" komutunun açıklaması:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
"The /say command sends a message to the active window which can be a channel or a query."
Aktif pencerede mesaj göndereceğidir. Bunun içinde "msg" kullanabilirsiniz.
msg #sohbethelp olarak kullanabilirsiniz.
Ayrıca "!seslen" komutu ile kodun tetiklenmesi için "input" eventi kullanmalısınız: Link için
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
basit haliyle kodunuz şöyle bir şey oluyor:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#sohbethelp:if $1 = !seslen { millet }
alias millet { if $active == $chan { .remove nikler.txt | var %a 1
while %a <= $nick(#sohbet,0) { bwrite nikler.txt -1 -1 $nick(#sohbet,%a) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a }
var %b 1 | while %b <= $lines(nikler.txt) { msg #sohbethelp $replace($read(nikler.txt,%b),$chr(160),$chr(32)) | inc %b }
}
}
Diğeri için parça kod isteklerine yazmanız daha uygun olur. İyi forumlar.