Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias msg5dk {
if (!%m.list) { %m.list = $str(0 $chr(32),$lines(mesaj.txt)) }
var %r = $rand(1,$lines(mesaj.txt))
while ($gettok(%m.list,%r,32)) { %r = $rand(1,$lines(mesaj.txt)) }
%m.list = $puttok(%m.list,1,%r,32)
msg $1 $read(mesaj.txt,n,%r)
if (0 !isin %m.list) { unset %m.list }
.timer 0 300 msg5dk $1
}
mesaj.txt içerisine kayıt edilmiş satırları karışık şekilde 5 dakikada bir kanala yollar. Eğer liste sıfırlanmadan daha önce gönderdiği mesaj gelirse göndermediği mesaja geçer ve onu gönderir. Diyelim ki txt dosyasında 20 satır var, satırlar bittikten sonra listeyi sıfırlar ve yazıları en baştan göndermeye başlar.