home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c120 / 2.ddi / LIFE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-12  |  6.2 KB  |  285 lines
  1. /*    LIFE.C  The much implemented game of Life invented by John Conway */
  2.  
  3. #include <stdio.h>
  4. #include "life.h"
  5.  
  6. char World[ROWS][COLS],Create_mode,Quit_flag;
  7. int Population,Generation,Currow,Curcol;
  8.  
  9. main() {   /*& Main sequence, cycle 'till two ESC chars */
  10.  
  11.    while(1)
  12.       {
  13.       scr_clr();
  14.  
  15.       instruct();
  16.  
  17.        if(setup())
  18.          break;
  19.  
  20.        do {
  21.            Generation++;
  22.            cycle();
  23.            screen();
  24.            }
  25.        while (Population && !Quit_flag);
  26.  
  27.       }
  28.  
  29.    scr_rowcol(ROWS,27);
  30.    puts("goodbye");
  31.     scr_curson();
  32.     }
  33.  
  34. instruct()          /*& Print instructions, one screen's worth */
  35. {
  36. puts("                The game of Life by John Conroy\n\n");
  37. puts("      If started with a number, a random pattern starts the game.\n");
  38. puts("  Otherwise, move the cursor with the four arrow keys to create life.\n\n");
  39. puts("     DEL changes cursor movement to mean that cells are deleted\n");
  40. puts("                 INS flips back to create mode.\n\n");
  41. puts("          The '+' key will toggle the game on or off.\n");
  42. puts("    when off, 'S' saves the current pattern, 'L' loads previous save.\n\n");
  43. puts("                     Hit ESC to bail out.\n\n");
  44. puts("            Enter starting number of cells or hit CR");
  45. scr_curson();
  46. scr_curson();
  47.     }
  48.  
  49. setup() {
  50.     /*& Put in initial cells, by drawing or random placement */
  51.     int rnumber;
  52.     int i,row,col,seed,rnum;
  53.     char ch;
  54.  
  55.    /*$ Initialize globals */
  56.  
  57.    Quit_flag=Population=Generation=Currow=Curcol=0;
  58.    Create_mode=1;
  59.    for(row=0;row<ROWS;row++)
  60.       for(col=0;col<COLS;col++)
  61.          World[row][col]=0;
  62.  
  63.     rnumber=0;
  64.     while (1) {
  65.         while ((ch=get_key()) == 0) seed++;
  66.         if (ch < '0' || ch > '9') break;
  67.         putch(ch);
  68.         rnumber*=10;
  69.         rnumber+=ch-'0';
  70.         }
  71.    if(ch==ESC)
  72.      return(1);
  73.  
  74.     scr_cursoff();
  75.     scr_clr();
  76.     scr_rowcol(ROWS,20);    /*$ Print Population message    */
  77.     printf("Generation          Population     ");
  78.  
  79.     srand(seed);        /*$ Initilize random number generator   */
  80.  
  81.     for (i=0; i < rnumber; i++) {
  82.         rnum=rand();
  83.         row=rnum%ROWS;
  84.         col=(rnum/ROWS)%COLS;
  85.         World[row][col]='X'; /*$ Put in a cell */
  86.         scr_rowcol(row,col);
  87.         putch(2);
  88.         }
  89.     if (rnumber == 0) create(1);
  90.    return(0);
  91.     }
  92.  
  93.  
  94. screen()    /*& Update the screen and set the world back to x's */
  95. {
  96.     int  row,col;
  97.     char cell;
  98.  
  99.     Population=0;
  100.     for (row=0; row < ROWS; row++) {
  101.         for (col=0; col < COLS; col++) {
  102.             cell=World[row][col];
  103.             /*$ stay alive if 3 neighbors, born if next to 2 or 3 */
  104.  
  105.             if (cell && (cell == 3 || cell == 'X'+2 || cell == 'X'+3)) {
  106.                 Population++;
  107.                 if (cell < 'X') {
  108.                     scr_rowcol(row,col);
  109.                     putch(2);
  110.                     }
  111.                 cell='X';
  112.                 }
  113.             else {
  114.                 if (cell >= 'X') {
  115.                     scr_rowcol(row,col);
  116.                     putch(' ');
  117.                     }
  118.                 cell=0;
  119.                 }
  120.             World[row][col]=cell;
  121.             }
  122.         }
  123.     scr_rowcol(ROWS,31);
  124.     printf("%4d",Generation);
  125.     scr_rowcol(ROWS,51);
  126.     printf("%4d",Population);
  127.     }
  128.  
  129.  
  130. create(suspend)
  131.     /*& If interrupted, define cells, otherwise update most of cell pattern */
  132.     char suspend; {
  133.     unsigned char ch,wait;
  134.  
  135.    scr_rowcol(Currow,Curcol);
  136.  
  137.     while ((ch=get_key()) || suspend) {
  138.  
  139.       scr_curson();
  140.         switch (ch) {
  141.          case 'l':
  142.          case 'L': load();
  143.                    continue;
  144.          case 's':
  145.          case 'S': save();
  146.                    continue;
  147.             case UP_CHAR:    Currow=Currow ? Currow-1: ROWS-1;
  148.                             break;
  149.             case DOWN_CHAR:    Currow=Currow == ROWS-1 ? 0: Currow+1;
  150.                             break;
  151.             case LEFT_CHAR:    Curcol=Curcol ? Curcol-1: COLS-1;
  152.                             break;
  153.             case RIGHT_CHAR:Curcol=Curcol == COLS-1 ? 0: Curcol+1;
  154.                             break;
  155.             case BOL_CHAR:    Curcol=0;
  156.                             break;
  157.             case EOL_CHAR:    Curcol=COLS-1;
  158.                             break;
  159.             case '+':        suspend=!suspend;
  160.                             continue;
  161.             case Ins_char:    Create_mode=1;
  162.                             continue;
  163.             case Del_char:    Create_mode=0;
  164.                             continue;
  165.             case ESC:        Quit_flag=1;    /* flag for stop */
  166.                             return;
  167.             default:        continue;
  168.             }
  169.  
  170.  
  171.       World[Currow][Curcol]= Create_mode ? 'X': 0;
  172.         scr_rowcol(Currow,Curcol);
  173.         if (Create_mode) {
  174.             putch(2);
  175.             Population++;
  176.             }
  177.         else {
  178.             wait=30;
  179.             while (wait--) {
  180.                 putch(1);
  181.                 scr_rowcol(Currow,Curcol);
  182.                 }
  183.             putch(' ');
  184.             }
  185.       scr_rowcol(Currow,Curcol);
  186.         }
  187.    scr_cursoff();
  188.     }
  189.  
  190. cycle()             /*& Cycle to the next Generation */
  191. {
  192.     register int  row,col;
  193.  
  194.     create(0);
  195.     /*$ Take care of left and right column first    */
  196.     for (row=0; row < ROWS; row++) {
  197.         if (World[row][0] >= 'X') add8(row,0);
  198.         if (World[row][COLS-1] >= 'X') add8(row,COLS-1);
  199.         }
  200.  
  201.     /*$ Take care of top and bottom line    */
  202.     for (col=1; col < COLS-1;col++) {
  203.         if (World[0][col] >= 'X') add8(0,col);
  204.         if (World[ROWS-1][col] >= 'X') add8(ROWS-1,col);
  205.         }
  206.  
  207.     /*$    fill in the box, ignoring border conditions    */
  208.     for (row=1; row < ROWS-1; row++) {
  209.         for (col=1; col < COLS-1; col++) {
  210.             if (World[row][col] >= 'X' ) {
  211.                 World[row-1][col-1]++;
  212.                 World[row-1][col]++;
  213.                 World[row-1][col+1]++;
  214.                 World[row][col-1]++;
  215.                 World[row][col+1]++;
  216.                 World[row+1][col-1]++;
  217.                 World[row+1][col]++;
  218.                 World[row+1][col+1]++;
  219.                 }
  220.             }
  221.         }
  222.     }
  223.  
  224.  
  225. add8(row,col)  /*& Fixup cells on the border of screen */
  226.     int  row,col; {
  227.     int  rrow,ccol,rr,cc;
  228.  
  229.     for (rr=row-1; rr <= row+1; rr++) {
  230.         for (cc=col-1; cc <= col+1; cc++) {
  231.             rrow=rr != -1 ? rr : ROWS-1;
  232.             ccol=cc != -1 ? cc : COLS-1;
  233.             if (rrow >= ROWS) rrow=0;
  234.             if (ccol >= COLS) ccol=0;
  235.             World[rrow][ccol]++;
  236.             }
  237.         }
  238.     World[row][col]--;
  239.     }
  240.  
  241. save()    /*& Save current pattern in life.dat */
  242. {
  243. FILE *fptr;
  244. int r,c;
  245.  
  246. if(fptr=fopen("life.dat","wb"))
  247.    {
  248.    fwrite(&World[0][0],ROWS,COLS,fptr);
  249.    fclose(fptr);
  250.    }
  251. #if TEXT
  252. if(fptr=fopen("life.txt","w"))
  253.    {
  254.     for(r=0;r<ROWS;r++)
  255.         {
  256.         for(c=0;c<COLS;c++)
  257.             fputc(World[r][c]?'X':' ',fptr);
  258.         fputc('\n',fptr);
  259.         }
  260.     }
  261. #endif
  262. }
  263.  
  264. load()    /*& Load life.dat pattern, replacing current pattern */
  265. {
  266. FILE *fptr;
  267. int row,col;
  268.  
  269. if(fptr=fopen("life.dat","rb"))
  270.    {
  271.    fread(&World[0][0],ROWS,COLS,fptr);
  272.    fclose(fptr);
  273.    /*$ now put world to screen */
  274.    for(row=0;row<ROWS;row++)
  275.        for(col=0;col<COLS;col++)
  276.           if(World[row][col]=='X')
  277.            {
  278.            scr_rowcol(row,col);
  279.            putch(2);
  280.            }
  281.    }
  282.  
  283. }
  284.  
  285.