TXT ‘den okutma mantığı

Yazar: sanalzade Tarih: 22 Ekim 2011

Ö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

<Aristo> selam

<Arst> Sanada selam

<Aristo> selam

<Arst> a.S. Aristo

<Aristo> selam

<Arst> Naber

<Aristo> selam

<Arst> 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

<Aristo> Naber

<Arst> iyi ya nolsun

<Aristo> Naber

<Arst> 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.

İyi çalışmalar, by Radius.

Etiketler
Yorumlar

Hiç Yorum Yapılmamış!

Yorum yapmak ister misin?


Benzer Yazılar