mIRC Scripting  
 
  $read Mantığı txt'den okutmak 15.03.2025 07:36 (UTC)
   
 
; 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..

Yazan: CipriX
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Bugün 48 ziyaretçi (64 klik) kişi burdaydı!
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol