#!/usr/bin/perl

# maps in /usr/compat/linux/usr/games/hl/Half-Life/cstrike/maps

my $cs_mapdir="/usr/compat/linux/usr/games/hl/Half-Life/cstrike/maps";

opendir(DIR, $cs_mapdir) or die (" Can't open your dir $!\n");
my @cs_maps=readdir(DIR);
close(DIR);

foreach (@cs_maps) {
	if (/^(.*)\.bsp/){
		$map = $1 ;
		push (@maps, $map);
	}
}

my $size = @maps ;
my %used ;

for ($i=0 ; $i < ($size * 4 ) ; $i++) {

	$number = int (rand $size) ;
	next if ($used{$number} == 1 );

	print ("@maps[$number]\n");
	$used{$number}=1;

}