IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - İki codeye ufak bir eklenti. (https://www.ircforumlari.net/mirc-scripting-sorunlari/177134-iki-codeye-ufak-bir-eklenti.html)

MerakLıuSer

04 Şubat 2009 21:25

İki codeye ufak bir eklenti.

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

04 Şubat 2009 21:28

Cevap: İki codeye ufak bir eklenti.

Alıntı:

SaGoPa-mİRCKanka Nickli Üyeden Alıntı (Mesaj 632434)

Konuyu yanlış yere açmışsın.

Kod:

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

04 Şubat 2009 22:37

Cevap: İki codeye ufak bir eklenti.

Kod:

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:

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.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:42.