|
Hesapsiz33 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
selam saatlerdir şu kodu Toprak arkadaşın paylaştıgı badnick has dosyasına göre ayarlamaya çalıyorum ama bi türlü yapamadım
badnick has dosyasında ki tüm verileri aktarıyorum ama bu yüzdende her seferinde flooddan donuyor mirc.
yapmak istedigim şey /kaçkez ahmet yazdıgım zaman o nickin kac sefer atıldıgını öğrenebilmek.
/kaçkez ahmet
1- ahmet 3 kez atildi gibi.
on bnick:join:#: {
hinc -m bnick $ulist($nick) 1 | mode # +b $nick | kick # $nick Badnick.
}
alias blist {
var %z = $iif($1,msg $1,echo -ta)
if $hget(bnick) {
var %i = 1 | %z Badnick istatistikleri; | while $hget(bnick,%i).item { %z $+(%i,-) $v1 $hget(bnick,%i).data kez atildi | inc %i } | %z *** Bilgilerin Sonu ***
}
else { %z Liste mevcut degil }
}
on *:exit:if $hget(bnick) { hsave -o bnick bnick.txt }
on *:start:if !$hget(bnick) { hmake bnick } | if $isfile(bnick.txt) { hload bnick bnick.txt }
|
Bunun için döngüye gerek yok ki sadece sayı alacaksan aşağıdaki gibi kullanman yeterli olacaktır. Döngü tüm atılan nickler için lazım olur.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on bnick:join:#: {
hinc -m bnick $nick 1
mode # +b $nick
kick # $nick Badnick.
}
alias kackez {
if $hget(bnick,$1) {
echo -a $1 Nicki $hget(bnick,$1) kez atıldı.
}
}
/kackez nick
yaptığında kaç kere atıldığını sana gösterecektir.
Edit:********************************************* *************
Ek olarak hepsini göstermek istiyorsan döngü aliası
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias blist {
var %z = $iif($1,msg $1,echo -ta)
if $hget(bnick) {
var %i = 1
%z Badnick istatistikleri;
while %i <= $hget(bnick,0).item {
%z $+(%i,-) $hget(bnick,%i).item $hget(bnick,%i).data kez atildi
inc %i
}
%z *** Bilgilerin Sonu ***
}
else { %z Liste mevcut degil }
}
Bu şekilde olması gerek. Hata yaptığın kısım kırmızı işaretlediğim yer.
Döngü kullanırken koşul vermen gerekiyor neye göre döndürecek.
while $hget(bnick,%i).item {
Burada sadece 1. ifadeyi alır. Toplamı göstermen gerekiyor.
while $hget(bnick,0).item {
Sonra ise ne kadar döneceği hakkında bilgi vermen gerek.
while %i <= $hget(bnick,0).item {
Diyoruz ki %i değişkeni veriden küçükse ve eşit olana kadar döngüye devam et.
inc in amacı zaten %i değişkenini arttırmak koşul sağlanması için.