Çevrimdışı

Difuzyon arkadasın daha önce paylasmıs oldugu bu kod isinize yarar belki
!basla #kanal dosya.txt süre
örnek: egitim2 isimli dosyası 6 saniye arayla okutmak istiyorum
!basla #kanal egitim2.txt 6
!dur ve !devam da yapabilirsin.

on *:text:*:#kanal: {
if ($nick !isop # && $v1 !ishop #) return
if $1 == !basla && $2 && $play(0) == 0 {
if $findfile($mircdir,$+(*,$3,.txt,*),0) {
set -e %difytime $calc($4 *1000)
set -e %difyject $3
set -e %difychan $iif($left($2,1) == $chr(35),$2,$+($chr(35),$2))
.play %difychan $+(",$findfile($mircdir,$+(*,$3,.txt,*),1),") %difytime
msg # $+($3,.txt) dosya ismi $4 sn. süreyle %difychan kanalına yazdırılıyor.
msg %difychan $remove($3,!) Konusu Baslatıldı.
}
else { msg # Böyle bir dosya mirc ana dizininde bulunmuyor }
}
if $1 == !dur {
var %d = $remove($nopath($play(%difychan).fname),.txt)
hadd -m play %d $play(%difychan).pos
.play stop
msg $+(#,$chr(44),%difychan) %d Dosyası durduruldu.
}
if $1 == !devam {
if $hget(play,%difyject) {
play $+(-f,$ifmatch) %difychan $+(",$findfile($mircdir,$+(*,%difyject,.txt,*),1), ") %difytime
msg $+(#,$chr(44),%difychan) %difyject Dosyasına kalınan yerden devam ediliyor.
}
}
}
on *:playend:if $regex($nopath($filename),$+(%difyject,.txt)) { msg %difychan %difyject yazısı sona erdi. | unset %dify* }

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:50 -->-> Daha önceki mesaj 14:09 --

pardon dosya ismi yazarken .txt uzantı eklemeye gerek yok.
!basla #kanal dosyaismi süre seklinde olacak.