Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / game-of-life / golife.php

<?php\r
//Game of life 0.3 (2D Cellular automata example implementation)\r
//Coded: Harvie 2oo7\r
/*\r
 *  The Rules (THX2John Conway):\r
 *    For a space that is 'populated':\r
 *      Each cell with one or no neighbors dies, as if by loneliness. \r
 *      Each cell with four or more neighbors dies, as if by overpopulation. \r
 *      Each cell with two or three neighbors survives. \r
 *    For a space that is 'empty' or 'unpopulated':\r
 *     Each cell with three neighbors becomes populated. \r
 *\r
 *  http://www.bitstorm.org/gameoflife/           -Online\offline java based version\r
 *  http://www.bitstorm.org/gameoflife/lexicon/   -Nice lexicon of lifes, that you can test on this simulator\r
 *\r
 *  $life contains array of strings, where every character is one cell\r
 *  there is also function to load life from file (for more lifes see lexicon)\r
 *  i included two lifes life.txt - simple small life and glider.txt - the most classical of all, it become symbol of hackership\r
 *\r
 *  for better experience please resize console window to size of life, that you are running.\r
 *\r
 *  PHP+AsciiART == Rox!!!\r
 */\r
\r
///FUNCTIONS////////////////////////////////////////////////////\r
\r
//\r
function life_load($file) {\r
  $life = file($file);\r
  foreach ($life as $lnum => $line) {\r
    $life[$lnum] = trim($line);\r
  }\r
  return $life;\r
}\r
\r
//\r
function life_randomize($lines, $chars) {\r
  $pop = $GLOBALS["populated"];\r
  $unp = $GLOBALS["unpopulated"];\r
  $life = "";\r
  $i = 0;\r
  while($lines > $i) {\r
    $line = "";\r
    $ichars = $chars;\r
    while($ichars > 0) {\r
      $line = $line.rand(0,1);\r
      $ichars--;\r
    }\r
    $line = str_replace("0", $unp, $line);\r
    $line = str_replace("1", $pop, $line);\r
    $life[$i] = $line;\r
    $i++;\r
  }\r
  return $life;\r
}\r
\r
//\r
function life_print($life) {\r
  foreach($life as $line) {\r
      $line = str_replace($GLOBALS["populated"], $GLOBALS["prpop"], $line);\r
      $line = str_replace($GLOBALS["unpopulated"], $GLOBALS["prunp"], $line);\r
      echo($line."|\r\n");\r
  }\r
}\r
\r
//\r
function life_neighs($life, $line, $char) {\r
  @$neighs = "";\r
  @$neighs = $neighs.$life[$line][$char+1];\r
  @$neighs = $neighs.$life[$line][$char-1];\r
  @$neighs = $neighs.$life[$line+1][$char+1];\r
  @$neighs = $neighs.$life[$line+1][$char-1];\r
  @$neighs = $neighs.$life[$line+1][$char];\r
  @$neighs = $neighs.$life[$line-1][$char+1];\r
  @$neighs = $neighs.$life[$line-1][$char-1];\r
  @$neighs = $neighs.$life[$line-1][$char];\r
  return $neighs;\r
}\r
\r
//\r
function life_neighs_num($life, $line, $char) {\r
  $neighs = life_neighs($life, $line, $char);\r
  $neighs = ereg_replace("(\.| |0|_|-)", "", $neighs); //Unpopulated chars: . 0_-\r
  $neighs = strlen($neighs);\r
  //echo($neighs); //Debug\r
  return $neighs;\r
}\r
\r
//\r
function life_next($life) {\r
\r
  $pop = $GLOBALS["populated"];\r
  $unp = $GLOBALS["unpopulated"];\r
  $old_life = $life;\r
  \r
  foreach($life as $lnum => $line) {\r
    //echo($lnum); //Debug\r
    for($i = 0;$i < strlen($line);$i++) {\r
      $neigh_num =  0;\r
      $neigh_num = life_neighs_num($old_life, $lnum, $i);\r
      //echo($lnum."-".$i."=".$neigh_num."\n"); //Debug\r
      if($old_life[$lnum][$i] == $pop) {\r
          if($neigh_num == 2 || $neigh_num == 3) { $life[$lnum][$i] = $pop; } else { $life[$lnum][$i] = $unp; }\r
        }\r
      else\r
        {\r
          if($neigh_num == 3) { $life[$lnum][$i] = $pop; }\r
        }\r
    }\r
  }\r
  return $life;\r
  \r
}\r
\r
//\r
function cls() {\r
  //Clear screen\r
  for($i = 0; $i < 20;$i++) echo("\r\n");\r
}\r
\r
///CODE///////////////////////////////////////////////////////////////////////////////\r
\r
//Settings\r
$life = life_load("spacefiller.cells"); //Load life\r
//$life = life_randomize(30, 60); //Randomize life\r
$populated = "#"; //File format populated\r
$unpopulated = "."; //File format unpopulated\r