Bu kodun bir süre sonra çalışmaz hale gelmesinin tek sebebi,içinde oynama yapmandır.
$+ birleştiricisi boşlukları ve $read ile okutmadaki bilgi/ klasörü ifadelerine dikkatini çekerim.
Buraya kopyalamış olduğun kodun doğru hali aşağıdaki gibidir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#kontrol: {
if $1 == !bilgi {
if $file(bilgi/ $+ $2- $+ .txt) {
set %chan $chan | msg # 2 $2 4Hakkında Bütün BiLgiLeR SıraLanıyoR..
saydır $2-
}
}
}
alias saydır {
.timersaydır.* off
var %s 1
var %a 1
while %s <= $lines(bilgi/ $+ $1- $+ .txt) {
.timersaydır. $+ %s 1 %a msg %chan $read(bilgi/ $+ $1- $+ .txt,%s)
inc %s
inc %a 1
}
}
$read ile while yöntemi yerine alternatif olarak play ile okutmak istersen aşağıdaki kodu önerebilirim:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/!bilgi\s(\S+)/ASi:#kontrol:$iif($isfile($+(bilgi/,$2,.txt)),play # $+(bilgi/,$2,.txt) 900,msg # $2 nickinin kaydı bulunmuyor)