#################################################################
# Games.pl (SP1)						#
#################################################################
# Concept and original code by KyleYankan (yankscrew@rcn.com)	#
# Rewritten by: michael	(mrtorrent@yahoo.com)			#
# Last edit: 25.1.2001						#
#################################################################

                       # The dir that the games are in (either absolute or relative path).
$gamesdir = 'games' ;  # Change this to what you want (without trailing "/").

                       # Leave this blank if you don't use a custom games directory.
$gamesurl = '';        # Otherwise, set this to the URL of your games directory (without trailing "/")

sub games{
    my $game = $INFO{'game'};
    my($item, $line);

    if($game) {     # Display the game.
	if(!$gamesurl){ $gamesurl = "games"; }
	open(PARAMS, "$gamesdir/$game/$game.txt");
	@params = <PARAMS>;
	close(PARAMS);
	chomp @params;
	if(@params[0]){ $yytitle = "@params[0]"; } else { $yytitle = "$game"; }
	$yymain .= qq~<center>~;
	if(@params[0]){ $yymain .= qq~<h1>@params[0]</h1>~; } else { $yymain .= qq~<h1>$game</h1>\n~; }
	if(@params[1]){ $yymain .= qq~<p><font size="1"><i>@params[1]</i></font></p>~; }
	$yymain .= qq~</center>\n~;
	if(@params[2] =~ /java/i) {
	    if(!@params[3]){ @params[3] = "80%"; }
	    if(!@params[4]){ @params[4] = "600"; }
	    $yymain .= qq~<iframe src="$gamesurl/$game/$game.htm" width="@params[3]" height="@params[4]" align="center" frameborder="0"></iframe>~;
	} else {
	    open(FILE, "$gamesdir/$game/$game.htm") || fatal_error("Error! There is no game file at $gamesdir/$game/$game.htm!");
	    @code = <FILE>;
	    close(FILE);
	    foreach $line(@code) {
		$line =~ s/<gamesurl>/$gamesurl/gi;
		$yymain .= $line;
	    }
	}
    } else {     # Show the games list.
	$yytitle = "Games!";
	$yymain .= qq~<center><h1>Games!</h1>\n~;
	opendir(GAMES, "$gamesdir") || fatal_error("The directory $gamesdir does not exist!");
	@contents = readdir(GAMES);
	closedir(GAMES);
	foreach $item(@contents) {
	    if(-e "$gamesdir/$item/$item.htm" && $item ne '..' && $item ne '.') {
		push(@games, $item);
	    }
	}
	foreach $game(sort @games) {
	    open(PARAMS, "$gamesdir/$game/$game.txt");
	    @desc = <PARAMS>;
	    close(PARAMS);
	    chomp @desc;
	    if(@desc[0]) {
		$yymain .= qq~<p><font size="2"><b><a href="$scripturl?action=games;game=$game">@desc[0] (@desc[2])</a></b></font>~;
	    } else {
		$yymain .= qq~<p><font size="2"><b><a href="$scripturl?action=games;game=$game">$game</a></b></font>~;
	    }
	    if(@desc[1]){ $yymain .= qq~<br><font size="1"><i>@desc[1]</i></font>~; }
	    $yymain .= qq~</p>\n~;
	}
	$yymain .= qq~</center>~;
    }
    &template;
    exit;
}
1;