| Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)
Ben onu örnek olsun diye yazmıştım zaten, ama bir kaç ufak değişiklikkle çalışır hale geldi, denedim ben..
on *:text:!msnbasvuru:#opers: {
.msg $chan --Msn Başvuru Listesi--
var %r = $findfile($mircdir\read,*hotmail?com.txt,0), %s = 1
while %s <= %r {
.msg $chan $gettok($findfile($mircdir\read,*hotmail?com.txt,% s),4,92)
inc %s
}
.msg $chan Toplam %r adet dosya bulundu..
}
on *:text:!msnoku*:#opers: {
var %k = $+(read,\,$2)
if ($read(%k) == $null) { .msg $chan dosya adını yanlış yazdınız ya da öyle bir dosya kayıtlı değil, mevcut dosyaları görmek için: !msnbasvuru yazınız. | halt }
var %~ = $lines(%k), %´ = 1
while %´ <= %~ {
.msg $chan $read(%k,%´)
inc %´
}
}
Bir de böyle dene ikisini de değiştirdim biraz.
|