Midas писал(а):Так - в торрент его
выложил, релиз там на форуме
Midas писал(а):Так - в торрент его
sub run {
my (@pl,$cnt);
srand time;
while(1) {
# print "Start main cycle iteration\n";
@pl=@{$radio{'playlist'}};
$cnt=int(rand($#pl))%$#pl;
while($#pl>-1) {
print "Start playlist cycle iteration\n";
my $file=$pl[$cnt];
@pl=(@pl[0 .. $cnt-1],@pl[$cnt+1 .. $#pl]);
if($#pl) {
$cnt+=$#pl/2+int(rand($#pl/2));
$cnt%=$#pl;
}
print "Selected [$cnt]: $file\n";
send_song $file;
}
}
}
Shurik писал(а):В любом случае - пущай жмётся дальше
ЗЫ: Посмотри - что-нить из этого могу стянуть http://aliki.ru/smbsearch/showdir.pl?host=13915&where=1
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1