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/)

- - $read leri sırası ile almak (https://www.ircforumlari.net/mirc-scripting-sorunlari/1837-read-leri-sirasi-ile-almak.html)

aCemiCoCuK

18 Mart 2005 17:04

$read leri sırası ile almak

$read(dosya.txt) dosya.txt adlı dosyadki kelimeleri rastgele değilde sırası ile seçtirmek istiyorum.

şimdiden teşekkürler

el33t

18 Mart 2005 17:46

Aşağıdaki komutu remote'a (ALT+R) koyup /readlbl dosyaismi.txt yazdığında dosyaismi.txt'teki satırları teker teker aktif pencereye echo'lar.

Alıntı:

alias readlbl { if $isfile($shortfn($1-)) { var %x = 1 | while %x <= $lines($1-) { echo -a $read($1-,%x) | inc %x } } }

aCemiCoCuK

18 Mart 2005 18:15

ben vereceği her satır arasına belirli "timer" koymasını istiyorum yani bir anda hepsini echo lamasını değil. Meslea her bir satır arasına 10 saniye koyabilir...

el33t

18 Mart 2005 18:21

Denemedim ama çalışır sanırım.

Kod:

 

alias readlbl { if $isfile($shortfn($1-)) { var %x = 1;%y = 5 | while %x <= $lines($1-) { .timer 1 %y echo -a $read($1-,%x) | inc %y 10 | inc %x } } }

MephisTo

18 Mart 2005 18:40

Kod:

 

alias dosyaokut { var %dosya = $?="Dosyayı mirc'in oldugu klasore koyup tam dosya adini girin:" | var %satir = 1 | var %satirlar = $lines(%dosya) | while (%satir <= %satirlar) { var %text = $read -l %4$s %satir %dosya | if (%text != $null) { .timer 1 %satir /echo -a %text | inc %satir } } }

aCemiCoCuK

18 Mart 2005 18:41

ben denedim çalışmadı :)

aCemiCoCuK

18 Mart 2005 18:44

MephisTo buda çalışmadı tekrar kontrol edermisin

MephisTo

18 Mart 2005 19:24

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Denedim çalışıyor.

Kurulum & Kullanım:

dosyaokut.mrc dosyasını mirc'in klasörüne kopyala. dosya.txt dosyasını da aynı yere kopyala. dosya.txt içine paste ettiğin yazıyı 10 saniye aralıkla echo'lar. Komutu /dosyaokut

aCemiCoCuK

18 Mart 2005 19:47

MephisTo; oldu teşekkür ettim.

Bunun birde son satırına geldiğinde geri dönüşümlü yapılabilirmi acaba ?

aCemiCoCuK

18 Mart 2005 19:58

zaten geri dönüyor ya pardon teşekkürler :D

MephisTo

18 Mart 2005 20:36

Rica, hayrını gör. :)

Keen	19 Mart 2005 17:05

Merhaba Mephisto Verdigin kod içinde az sayıda lines bulunan dosyayı iyi okuyor fakat örneğin 1000 ve uzeri bir dosyayının linelerini sırasıyla nasıl okutabiliriz mumkunse bu konuda yardımcı olabilirmisin oyle bir dosyayı okumak istedigimde script dondu ve 5 dk sonra ancak kendine geldi.. kendine geldikten sonra lineleri okudu fakat 5 dk da bir line okudu.. yani bunu normal hızına nasıl getirebiliriz ? yardımcı olursan sevinirim

MephisTo

19 Mart 2005 18:55

O verdiğim kodda tüm satırları tek tek okuyup timer açıyor her biri için 10 saniye arttıra arttıra. Daha değişik bir yol ile yazarsak 10 saniye sonra diğer satırı okuyup o satırı echo'layabiliriz.

Kod:

 alias dosyaokut { 

  echo -a $read(dosya.txt,1)

  set %satir $readn

  .timeroku 0 10 dosyaokut2

}

 

alias dosyaokut2 {

  if (%satir == $lines(dosya.txt)) { echo -a Dosya başarı ile okundu. | .timeroku off }

  else { inc %satir | echo -a $read(dosya.txt,%satir) }

}

Kusura bakma maç var aceleden en basitinden birşey yaptım. Timer kısmındaki 10 u kafana göre ayarlarsın, oradaki 10 kaç saniye aralıklarla göstereceğini belirliyor. isterse 1000 satir olsun donmaz bu şekilde. Maç var kaçtım devre arası cevap yazarım :P

Ekleme: Kodu düzeltip tekrar koydum bu sefer iyice denedim. İlk denediğimde de 2. satırı okudu diye oldu sanırım demiş ve bırakmıştım, devre arası şu an hallettim denedim düzelttim. Maç bitince tekrar bakarım.

Keen	19 Mart 2005 19:24

Mephisto hocam /dosyaokut dedigimde ilk satırı okuyup ikinci satıra geçiyor bundan sonra hep ikinci satırı tekrar ediyor yani diger satırlara geçmiyor dediğin gibi donma soz konusu değil.. diye satırlara geçişini sağlayabilirsek olacak hocam bunu yapabilrseniz minettar olacağım :)

MephisTo

20 Mart 2005 00:24

Düzelttim yukardaki kodu baktın mı :)

Keen	20 Mart 2005 00:41

Mephisto Varya Seni oyle çok seviyorumki :)))) bitanesin hocam kusura bakma bu kod beni okadar çok sevindirdiki öyle atlayasım geldi uzerine :) ve şunuda belirteyim bedavacı degilim ogrenecegim bu işi :) çok tşkler

MephisTo

20 Mart 2005 01:25

Önemli değil, zaten maç var diye tam ilgilenemedim ufak da bir kötü yönünü buldum şimdi bakınca.

Kod:

alias dosyaokut {

  if ($lines(dosya.txt) != 1) { echo -a $read(dosya.txt,1) | set %satir $readn | .timeroku 0 10 dosyaokut2 }

  else { echo -a $read(dosya.txt,1) | .timerend 1 1 echo -a Dosya basari ile okundu. }

}

alias dosyaokut2 {

  inc %satir

  echo -a $read(dosya.txt,%satir)

  if (%satir == $lines(dosya.txt)) { .timeroku off | .timerend 1 1 echo -a Dosya basari ile okundu. | unset %satir }

}

Böyle de deneyebilirsin. Aradaki fark şu:

Eğer 10 saniyelik timer kullanarak okutuyorsan dosyayı, dosya okuma tamamlandi bildirisi de son satır okunduktan 10 saniye sonra gelecekti. 20 saniye yapsan sen yeni satır beklerken 20 saniye sonunda birden dosya okundu diye bildiri gelecekti yani, ama önceden dosyanın sonuna gelip gelmediğini kontrol edip ona göre devam ediyor okumaya bu seferkinde.

Keen	20 Mart 2005 02:30

Hocam bu sefer yine ikinci satırda durmaya basladı...

Keen	20 Mart 2005 02:31

pardon hocam tamamdır bu sefer oncekini kaydetmişim ben :)

Keen	20 Mart 2005 02:38

peki bilmiyorum şöyle birşey olabilirmi orneğin oyunbotu nickli biri ozelde Doğru çevabı bilen kişi "Buse" ddiğinde benim ona otomatik olarak tebrikler yazmam mumkunmu " tebrikler Buse" şeklinde #oyun kanılına yani busenin nickide olacak icinde bu alana giren kodlar yani bunun icin kullanılan codlar hakkında kucuk bir ders verebilirmisin ben on :text:%matchtext vs baktım mirchelp den fakat çok şey anlayamadım bu konudada biraz yardımcı olsan güzel olurdu

UOnur

20 Mart 2005 12:40

on *:text:*:?:{
if (*Doğru Cevabı bilen kişi* iswm $1-) {
if ($nick == Oyunbotu) {
.msg #oyun Terbrikler $5
}
}
}

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