Etusivulle
Sivun PHP-lähdekoodin näyttäminen
Alla on sivun pcpelit.php PHP-lähdekoodi.
<?PHP include ("_funktiot.php"); ?>
<?PHP NaytaSivunAlku ("Lataa vanhoja PC-pelejä"); ?>
Tällä sivulla on joitakin hyviä DOS-pelejä. Kaikki ovat laillisesti levitettäviä versioita. Jos pelit eivät toimi koneellasi, <A HREF="http://dosbox.com">DOSBox-emulaattorista</A> saattaa olla apua.
<P>
<?PHP
function Tiedkokomuunnos($koko) {
// Tavua --> Mt
$koko = $koko / 1024 / 1024;
$koko = round($koko * 10) / 10;
if (substr_count($koko, ".") == 0) $koko .= ".0";
$koko = str_replace(".", ",", $koko);
$koko .= " Mt";
return $koko;
}
// Luetaan parametrit
$tyyppi = "tii";
$temppi = $_GET["tyy"];
if ($temppi == "kuv") $tyyppi = $temppi;
$jarjestys = "nim";
$temppi = $_GET["jar"];
if ($temppi == "tyy" || $temppi == "vuo" || $temppi == "suo" || $temppi == "ver" || $temppi == "kok") $jarjestys = $temppi;
// Pelityypit
$pelityypit = array(
"3D-räiskintä", // 0
"3D-lentoräiskintä", // 1
"2D-räiskintä/-tasohyppely", // 2
"2D-räiskintä", // 3
"ajopeli", // 4
"matopeli", // 5
"tavaroiden kerääminen", // 6
"flipperi", // 7
"3D-tasohyppely" // 8
);
// Versiot
$versiot = array(
"rajoitettu", // 0
"täysi" // 1
);
// Itse pelien tiedot. Kullakin rivillä: nimi, tyyppi, vuosi, onko suomalainen, versio.
$pelientiedot = array(
"Abuse", 2, 1995, false, 0,
"Action Supercross", 4, 1997, false, 0,
"Beerworm", 5, 1996, true, 1,
"Bio Menace", 2, 1993, false, 1,
"Blake Stone", 0, 1993, false, 0,
"Blood", 0, 1997, false, 0,
"Commander Keen 4", 2, 1991, false, 1,
"Cyber Antero", 6, 1997, true, 1,
"Death Rally", 4, 1996, true, 0,
"Descent", 1, 1994, false, 0,
"Doom", 0, 1993, false, 0,
"Duke Nukem 3D", 0, 1996, false, 0,
"Epic Pinball", 7, 1993, false, 0,
"Heretic", 0, 1994, false, 0,
"Hexen", 0, 1995, false, 0,
"Jazz Jackrabbit", 2, 1994, false, 0,
"Kinkku Karoliina", 6, 1994, true, 1,
"Liero", 2, 1998, true, 1,
"Pizza Worm", 5, 1994, true, 1,
"Quake", 0, 1996, false, 0,
"Raptor", 3, 1994, false, 0,
"Rise of the Triad", 0, 1994, false, 0,
"Shadow Warrior", 0, 1997, false, 0,
"Skyroads", 8, 1993, false, 1,
"Skyroads Xmas Special", 8, 1994, false, 1,
"Slicks 'n Slide", 4, 1993, true, 0,
"Terminal Velocity", 1, 1995, false, 0,
"Triplane Turmoil", 3, 1996, true, 1,
"Tyrian", 3, 1995, false, 0,
"Wolfenstein 3D", 0, 1992, false, 0,
"Wolfenstein 3D: Spear of Destiny", 0, 1992, false, 0,
);
$peleja = count($pelientiedot) / 5;
// Suuri taulukko ja muita tietoja osataulukoiksi
$peliennimet = array();
$pelientyypit = array();
$pelienvuodet = array();
$peliensuom = array();
$pelienversiot = array();
$pelientiednimet = array();
$pelienkoot = array();
$yhteiskoko = 0;
for ($i = 0; $i < $peleja; $i++) {
$peliennimet[$i] = $pelientiedot[$i * 5];
$pelientyypit[$i] = $pelientiedot[$i * 5 + 1];
$pelienvuodet[$i] = $pelientiedot[$i * 5 + 2];
$peliensuom[$i] = $pelientiedot[$i * 5 + 3];
$pelienversiot[$i] = $pelientiedot[$i * 5 + 4];
// Määritetään tiedostonimi
$temppi = $peliennimet[$i];
$temppi = strtolower($temppi);
$temppi = str_replace(" ", "", $temppi);
$temppi = str_replace("'", "", $temppi);
$temppi = str_replace(":", "", $temppi);
$pelientiednimet[$i] = $temppi;
// Määritetään koot
$pelienkoot[$i] = filesize("pcpelit/" . $pelientiednimet[$i] . ".zip");
$yhteiskoko += $pelienkoot[$i];
}
// Lajitellaan taulukot
if ($jarjestys == "tyy") array_multisort ($pelientyypit,
$peliennimet, $pelienvuodet, $peliensuom, $pelienversiot, $pelienkoot, $pelientiednimet);
if ($jarjestys == "vuo") array_multisort ($pelienvuodet,
$peliennimet, $pelientyypit, $peliensuom, $pelienversiot, $pelienkoot, $pelientiednimet);
if ($jarjestys == "suo") array_multisort ($peliensuom, SORT_DESC,
$peliennimet, $pelientyypit, $pelienvuodet, $pelienversiot, $pelienkoot, $pelientiednimet);
if ($jarjestys == "ver") array_multisort ($pelienversiot, SORT_DESC,
$peliennimet, $pelientyypit, $pelienvuodet, $peliensuom, $pelienkoot, $pelientiednimet);
if ($jarjestys == "kok") array_multisort ($pelienkoot,
$peliennimet, $pelientyypit, $pelienvuodet, $peliensuom, $pelienversiot, $pelientiednimet);
echo "Listan tyyppi:\r\n";
$lyhenteet = array("tii", "kuv");
$kuvaukset = array("tiivis", "kuvallinen");
$maara = count($lyhenteet);
for ($i = 0; $i < $maara; $i++) {
$lyhenne = $lyhenteet[$i];
$kuvaus = $kuvaukset[$i];
if ($lyhenne == $tyyppi) {
echo "<B>" . $kuvaus . "</B>";
} else {
echo "<A HREF=\"pcpelit.php";
$a = ($lyhenne != "tii");
$b = ($jarjestys != "nim");
if ($a || $b) echo "?";
if ($a) echo "tyy=" . $lyhenne;
if ($a && $b) echo "&";
if ($b) echo "jar=" . $jarjestys;
echo "\">" . $kuvaus . "</A>";
}
if ($i < $maara - 1) echo " |";
echo "\r\n";
}
echo "<BR>\r\n";
echo "Listan järjestys:\r\n";
$lyhenteet = array("nim", "tyy", "vuo", "suo", "ver", "kok");
$kuvaukset = array("nimi", "tyyppi", "ilmestymisvuosi", "suomalaisuus", "versio", "koko");
$maara = count($lyhenteet);
for ($i = 0; $i < $maara; $i++) {
$lyhenne = $lyhenteet[$i];
$kuvaus = $kuvaukset[$i];
if ($jarjestys == $lyhenne) {
echo "<B>" . $kuvaus . "</B>";
} else {
echo "<A HREF=\"pcpelit.php";
$a = ($tyyppi != "tii");
$b = ($lyhenne != "nim");
if ($a || $b) echo "?";
if ($a) echo "tyy=" . $tyyppi;
if ($a && $b) echo "&";
if ($b) echo "jar=" . $lyhenne;
echo "\">" . $kuvaus . "</A>";
}
if ($i < $maara - 1) echo " |";
echo "\r\n";
}
echo "<P>\r\n";
// Näytetään pelilista
if ($tyyppi == "tii") {
// Tiivis
?>
<TABLE>
<TR>
<TH>Nimi</TH>
<TH>Tyyppi</TH>
<TH>Ilmestymis-<BR>vuosi</TH>
<TH>Suoma-<BR>lainen?</TH>
<TH>Versio</TH>
<TH>Kuva</TH>
<TH>Lataus</TH>
</TR>
<?PHP
for ($i = 0; $i < $peleja; $i++) {
echo "<TR>";
echo "<TD><B>" . $peliennimet[$i] . "</B></TD>";
echo "<TD>" . $pelityypit[$pelientyypit[$i]] . "</TD>";
echo "<TD STYLE=\"text-align: center;\">" . $pelienvuodet[$i] . "</TD>";
echo "<TD STYLE=\"text-align: center;\">";
if ($peliensuom[$i]) echo "kyllä"; else echo "ei";
echo "</TD>";
echo "<TD STYLE=\"text-align: center;\">" . $versiot[$pelienversiot[$i]] . "</TD>";
echo "<TD STYLE=\"text-align: center;\">";
echo "<A HREF=\"_naytakuvazipista.php?kuva=pcpelit/" . $pelientiednimet[$i] . ".png\">kuva</A>";
echo "</TD>";
echo "<TD>";
echo "<A HREF=\"pcpelit/" . $pelientiednimet[$i] . ".zip\">lataa</A> ";
echo "(" . Tiedkokomuunnos($pelienkoot[$i]) . ")";
echo "</TD>";
echo "</TR>\r\n";
}
echo "</TABLE>\r\n";
} else {
// Kuvallinen
echo "<TABLE>\r\n";
for ($i = 0; $i < $peleja; $i++) {
echo "<TR>\r\n";
echo "<TD><IMG SRC=\"_naytakuvazipista.php?kuva=pcpelit/" . $pelientiednimet[$i] . ".png\"></TD>\r\n";
echo "<TD>";
echo "<B>" . $peliennimet[$i] . "</B>";
echo "<P>";
echo "Tyyppi: " . $pelityypit[$pelientyypit[$i]] . ".<BR>";
echo "Ilmestymisvuosi: " . $pelienvuodet[$i] . ".<BR>";
echo "Onko suomalainen: ";
if ($peliensuom[$i]) echo "kyllä"; else echo "ei";
echo ".<BR>";
echo "Versio: " . $versiot[$pelienversiot[$i]] . ".<P>";
echo "<A HREF=\"pcpelit/" . $pelientiednimet[$i] . ".zip\">Lataa</A> ";
echo "(" . Tiedkokomuunnos($pelienkoot[$i]) . ")";
echo "</TD>\r\n";
echo "</TR>\r\n";
}
echo "</TABLE>\r\n";
}
echo "<P>\r\n";
echo "Pelejä on " . $peleja . " kpl. Niiden koko on yhteensä " . Tiedkokomuunnos($yhteiskoko) . ".";
?>
<P>
Olen katsonut pelien ilmestymisvuodet <A HREF="http://www.mobygames.com">MobyGames-sivustolta</A>, <A HREF="http://fi.wikipedia.org">suomenkielisestä Wikipediasta</A> ja itse peleistä.
<P>
<A HREF="_naytaphplahdekoodi.php?sivu=pcpelit.php">Tämän sivun PHP-lähdekoodi</A>
<?PHP NaytaSivunLoppu (); ?>
Takaisin sivulle pcpelit.php
Etusivulle