dosyadan okutma - sorun. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

lacremel · 16 Temmuz 2008, 12:01

selam kolay gelsin arkadaslar

if $1 == !basla {
var %i 1
while %i <= $lines(kanallar.txt) {
.join $read(kanallar.txt,%i)
.msg #shy kanallara giriş yapildi.
inc %i
}
}
}

botumda ekli olan bir code ;

!basla dedigim zaman kanallar.txt adlı dosyanın okuyor. Kanallara giriyor yani

.msg #shy kanallara giriş yapildi

yalnız yukarda belirttiqim metni dosyanın icinde kactane kanal varsa ise okadar mesaj gonderiyor.

<Shy> Kanallara giriş yapildi
<Shy> Kanallara giriş yapildi
<Shy> Kanallara giriş yapildi
<Shy> Kanallara giriş yapildi
<Shy> Kanallara giriş yapildi
<Shy> Kanallara giriş yapildi
<Shy> Kanallara giriş yapildi

dosyanın icinde 7 kanal ekli okarda mesaj atıyor.

Birde ;

if $1 == !listkanal {
msg #Shy Giriş yapilan kanallar listeleniyor.
msg #Shy
msg #Shy $read(kanallar.txt)
}

kanallara bakmak istediqim zaman dosyanın en sonundaki kanalı listeliyor sadece.

Simdiden tesekkürler arkadaslar yardımlarınızı bekliyorum.

TeaM · 16 Temmuz 2008, 14:49

1. sorununun cevabı;

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

on *:text:*:#:{
  if $1 == !basla { 
    var %i = 1
    while $read(kanallar.txt,%i) {
      join $read(kanallar.txt,%i) | inc %i
      msg #shy kanallara giriş yapildi. | .halt
    }
  }
}

2. sorunun cevabı, birazda ekleme yaptım senin açından iyi olması için;

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

 
on *:text:*:#:{
  if $1 == !listkanal {
    msg $chan Toplam $+(,$lines(kanallar.txt),) kanal bulunmaktadır.
    var %i 1
    while %i <= $lines(kanallar.txt) {
      msg $chan %i - $read(kanallar.txt,%i)
      inc %i
    }
  }
}

1.;

(14:46:49·16/07/2008) <@TeaM> !basla
(14:46:50·16/07/2008) <@Bot> kanallara giriş yapildi.

2.;

(14:47:13·16/07/2008) <@TeaM> !listkanal
(14:47:14·16/07/2008) <@Guest87261> Toplam 6 kanal bulunmaktadır.
(14:47:14·16/07/2008) <@Guest87261> 1 - #deneme1
(14:47:14·16/07/2008) <@Guest87261> 2 - #deneme2
(14:47:14·16/07/2008) <@Guest87261> 3 - #deneme3
(14:47:14·16/07/2008) <@Guest87261> 4 - #deneme4
(14:47:14·16/07/2008) <@Guest87261> 5 - #deneme5
(14:47:14·16/07/2008) <@Guest87261> 6 - #deneme6

lacremel · 16 Temmuz 2008, 16:13

!basla yaptıqım zaman listenin en basındaki kanala giriyor.

TeaM · 16 Temmuz 2008, 21:55

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

on *:text:*:#:{
  if $1 == !basla {
    var %i 1
    msg $chan Kanallara giriliyor.
    while %i <= $lines(kanallar.txt) {
      join $read(kanallar.txt,%i)
      inc %i
    }
  }
}

Denedim, sorunsuz çalışmakta.

Umarım işine yarar.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
dosyadan okutma	fener1907	mIRC Scripting Sorunları	3	27 Şubat 2010 20:58
Dosyadan Okutma ( Önemli )	title	mIRC Scripting Sorunları	15	09 Temmuz 2009 03:49
Dosyadan okutma	Editor	mIRC Scripting Sorunları	4	16 Kasım 2008 01:53
dosyadan okutma	QkLa	mIRC Scripting Sorunları	2	10 Temmuz 2008 09:48
Tcl dosyadan okutma	Sagopa	Eggdrop, NeoStats, BNC	10	07 Nisan 2007 21:13

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.