[MerakLıuSer]

on *:text:*:#SoruCevap: {
if $1 == !Sorular {
if $lines( Sorular.txt ) == 0 {
.msg $chan Soryok
halt
}
else if $file(Sorular.txt) {
.msg $chan $lines(Sorular.txt) ] adet soru var.
saydır $2-
}
}
}
alias saydır {
.timersaydır.* off
var %s 1
var %a 1
while %s <= $lines( Sorular.txt ) {
.timersaydır. $+ %s 1 %a msg # $read(Sorular.txt,%s)
inc %s
inc %a 2
}
}
--
Bunun sonunda kaç adet soru varsa içinde toplam şu kadar adet soru listelendi diye bilirmi?
-----------------------------------------------
on *:text:*:#SoruCevap: {
if ($1 == !Oyunkurallar) {
.msg $chan Oyun kuralları:
.play $chan oyunkurallar.txt 3000
}
--
Aynı şekilde bunun sonunda toplam kaç adet oyun kuralı varsa sonunda oy toplam şu kadar adet oyunkuralı listelendi.

[MerakLıuSer]

SaGoPa-mİRCKanka Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Konuyu yanlış yere açmışsın. Kod:   Kodu kopyalamak için üzerine çift tıklayın! if *!Toplam* iswm $1- { msg $chan 4 *Genel Katagoriler Sıralanıyor* msg $chan Toplam Soru sayısı : $lines(Sorular.txt)  msg $chan Toplam Oyun kural sayısı : $lines(Oyunkurallar.txt)  } Bunun gibi eklenti yapabilirsin.

Fakat benim istediğim şu konu sonunda bunu diyecek örnegin oyun kurallarını sıralayacak ondan sonra sıralandı diyecek. Toplamını görmek istemiyorum. Ben;
!Oyunkurallar yazdıgımda kuralları dökücek kuralların en sonundada toplam şu kadar adet kural sıralandı diyecek. İki codede bu olayın olmasını istiyorum.

[detay]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#SoruCevap: {
  if ($1 == !Oyunkurallar) {
    .msg $chan Oyun kuralları: | var %l = $lines(oyunkurallar.txt)
    .play $chan oyunkurallar.txt 3000 | .timertplm 1 $calc(%l * 3) /msg # Toplam kural adedi; %l
  }
}

3 snde bir yolladigina gore.. satir sayisini 3 le carparsak bittigi an'a denk geliriz mantıken..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#SoruCevap: {
  if $1 == !Sorular {
    if $lines( Sorular.txt ) == 0 { .msg $chan Soryok | halt }
    else if $file(Sorular.txt) { var %l = $lines(sorular.txt) | .timersrlr 1 $calc(%l * 2) /msg # Toplam soru sayisi; %l | .play # sorular.txt 2000 }
  }
}

ayni sekilde bu kodda da while a gerek yok timerla 2 sn araliklarla yollamissin iyi güzelde play işini görür.