System32

; Txt'den okutma mantığı
Ö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

<CipriX> selam
<Cipspy> Sanada selam
<CipriX> selam
<Cipspy> a.S. CipriX
<CipriX> selam
<Cipspy> Naber
<CipriX> selam
<Cipspy> 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

<CipriX> Naber
<Cipspy> iyi ya nolsun
<CipriX> Naber
<Cipspy> 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..
gibi saçma bişi..


ALINTIDIR

Sizler İçin Ugrasıyoruz, Emege Saygı Duyalım.. Ayrıca Bu Kodun Yazarı Olan CipriX'e Teşekkürü Bir Borç Bilirim.

__________________
System32