Mar 04 2010

txt den okutma mantigi

admin tarafýndan mIRC Genel, mIRC Script Özel Kodlar, mIRC İle İlgili Sorunlar içinde postalandý, tags: , , , , , , , , , , , , , ,
Öncelikle arkadaşlar size $read’ı açıklıyalım
$read anladığımız gibi okuma anlamına gelir
Örnek verelim..
Biri özelimde selam derse ona selam.txt den rastgele cümleler okutalım
on *:text:*selam*:?:{
.msg $nick $read(selam.txt)
}
Evet selam.txt ye eklediğm cümleler
Sanada selam
a.S. $nick
naber ?
Selaaam
<Radius> selam
<Radi> Sanada selam
<Radius> selam
<Radi> a.S. Radius
<Radius> selam
<Radi> Naber
<Radius> selam
<Radi> Selaam
burdaki text eventini değiştirerek diğer eventlerdede kullanabiliriz
—
Txt’den satır okutmak
diyorumki biri özelime naber yazarsa txtdeki 2. satırı sölemek istiyorum txt: naber.txt
on *:text:*naber*:?:{
.msg $nick $read(naber.txt,2)
}
txt’demizdeki yazılar..
iyi
iyi ya nolsun
kötüüü
berbaat
<Radius> Naber
<Radi> iyi ya nolsun
<Radius> Naber
<Radi> iyi ya nolsun
Kodumuzdaki naber.txt’den sonraki 2 2. satır demek..
Peki txt’de tek tek nasıl okuturuz 1 den başlayıp devam ederek..
Ben şöle bişi düşündüm
biri özelime selam yazarsa öle uzasın gitsin
on *:text:*selam*:?:{
if %selam == $null {
.set %selam 1
.msg $nick $read(selam.txt,%selam)
}
else {
.msg $nick $read(selam.txt,%selam)
.inc %selam
}
Kodumuz bu burdaki kodu açıklıyalım
if %selam == $null {
.set %selam 1
.msg $nick $read(selam.txt,%selam)
}
Burda diyorumki eğer %selam veriablesi boşsa %selam ı 1 al ve nicke 1. satırı oku
else {
.msg $nick $read(selam.txt,%selam)
.inc %selam
}
Burdada eğer boş değilse selam.txt de belirtilen satırı oku ve satır sayısını bir arttır..

Öncelikle arkadaşlar size $read’ı açıklıyalım$read anladığımız gibi okuma anlamına gelirÖrnek verelim..Biri özelimde selam derse ona selam.txt den rastgele cümleler okutalımon *:text:*selam*:?:{.msg $nick $read(selam.txt)}Evet selam.txt ye eklediğm cümlelerSanada selama.S. $nicknaber ?Selaaam
<Radius> selam<Radi> Sanada selam<Radius> selam<Radi> a.S. Radius<Radius> selam<Radi> Naber<Radius> selam<Radi> Selaam
burdaki text eventini değiştirerek diğer eventlerdede kullanabiliriz—Txt’den satır okutmakdiyorumki biri özelime naber yazarsa txtdeki 2. satırı sölemek istiyorum txt: naber.txton *:text:*naber*:?:{.msg $nick $read(naber.txt,2)}
txt’demizdeki yazılar..iyiiyi ya nolsunkötüüüberbaat
<Radius> Naber<Radi> iyi ya nolsun<Radius> Naber<Radi> iyi ya nolsun
Kodumuzdaki naber.txt’den sonraki 2 2. satır demek..Peki txt’de tek tek nasıl okuturuz 1 den başlayıp devam ederek..Ben şöle bişi düşündümbiri özelime selam yazarsa öle uzasın gitsinon *:text:*selam*:?:{if %selam == $null {.set %selam 1.msg $nick $read(selam.txt,%selam)}else {.msg $nick $read(selam.txt,%selam).inc %selam}
Kodumuz bu burdaki kodu açıklıyalımif %selam == $null {.set %selam 1.msg $nick $read(selam.txt,%selam)}Burda diyorumki eğer %selam veriablesi boşsa %selam ı 1 al ve nicke 1. satırı okuelse {.msg $nick $read(selam.txt,%selam).inc %selam}Burdada eğer boş değilse selam.txt de belirtilen satırı oku ve satır sayısını bir arttır..

Comments Yorum Yok »