zdrojak gamebook ogb gbook.wz.cz
[mirrors/Programs.git] / php / gamebook / gamebook.php
diff --git a/php/gamebook/gamebook.php b/php/gamebook/gamebook.php
new file mode 100644 (file)
index 0000000..445c08e
--- /dev/null
@@ -0,0 +1,72 @@
+<html><?php\r
+///////////////////////\r
+//GameBook Engine 0.1\r
+//Coded: Harvie 2oo7\r
+///////////////////////\r
+\r
+//Config:\r
+$osud = "Osud rozhodl: ";\r
+\r
+//PARAMETERS///////////////////////////////////////////////////////\r
+if (isset($_GET["book"]))\r
+       { $book = $_GET["book"]; }\r
+       else\r
+       { $book = "game01.txt"; }\r
+\r
+if (isset($_GET["pos"]))\r
+       { $pos = $_GET["pos"]; }\r
+       else\r
+       { $pos = 2; }\r
+\r
+///////////////////////////////////////////////////////////////////\r
+\r
+//Init:\r
+$game = file($book);\r
+$descs = explode("|", $game[0]);\r
+//print_r($descs);\r
+$room = $game[($pos - 1)];\r
+\r
+\r
+?>\r
+<head>\r
+       <title><?php echo($descs[0]); ?></title>\r
+</head>\r
+\r
+<body>\r
+<h1><?php echo($descs[0]); ?> ( OpenGameBook )</h1>\r
+<h2><?php echo($descs[1]); ?></h2>\r
+<h3>Kapitola: <?php echo($descs[2]); ?></h3>\r
+<?php echo($descs[3]); ?>\r
+<hr />\r
+<a href="?book=game01.txt">?book=game01.txt</a> - UKAZKOVA HRA<br />\r
+<a href="?book=game01.txt&pos=1">?book=game01.txt&amp;pos=1</a> - UVOD<br />\r
+<a href="?book=game01.txt&pos=2">?book=game01.txt&amp;pos=2</a> - UKAZKOVY SAVEGAME<br />\r
+<a href="./game01.txt">./game01.txt</a> - UKAZKA DATOVEHO SOUBORU GAMEBOOKU\r
+<hr /><br /><br />\r
+<?php\r
+\r
+\r
+//Random:\r
+if ( strpos( (" ".$room), "{") != 0 ) {\r
+       $rnd = explode("{", $room);\r
+       $rnd = explode("}", $rnd[1]);\r
+       $rnd = explode("\\\\", $rnd[0]);\r
+       $irand = rand(0, (sizeof($rnd)-1) );\r
+       $osudout = ("<br /><a href=\"?book=".$book."&pos=".$rnd[$irand]."\">".$osud . $rnd[$irand]."</a>"); \r
+}\r
+\r
+//Parse links:\r
+$room = str_replace("[", "<a href=\"?book=".$book."&pos=", $room);\r
+$room = str_replace("|", "\">", $room);\r
+$room = str_replace("]", "</a>", $room);\r
+$room = str_replace("\\\\", " nebo ", $room);\r
+\r
+//Output:\r
+echo ("<b>".$pos.":</b> ".$room);\r
+echo ($osudout);\r
+\r
+?>\r
+<hr />\r
+</body>\r
+\r
+</html>
\ No newline at end of file
This page took 0.152815 seconds and 4 git commands to generate.