Sorry your browser is not supported!

type golife
    state
    neighbors
    sprite
endtype
dim c[40, 40] as golife
setvirtualresolution(600, 600)

handleMenu( )

function handleMenu( )
    showLogo( )
    REM LOAD Menu
    REM PLAY Menu
    level = 1
    REM UNLOAD Menu
endfunction level

function showLogo( )
    rem make sprites
    for x = 0 to 39
        for y = 0 to 39
            c[x, y].sprite = createSprite( 0 )
            setSpriteSize( c[x, y].sprite, 15.0, 15.0 )
            setSpritePosition( c[x, y].sprite, x * 15.0, y * 15.0 )
        next y
    next x

    rem set initial cells
    c[1, 5].state = 1
    c[1, 6].state = 1
    c[2, 5].state = 1
    c[2, 6].state = 1
    c[11, 5].state = 1
    c[11, 6].state = 1
    c[11, 7].state = 1
    c[12, 4].state = 1
    c[12, 8].state = 1
    c[13, 9].state = 1
    c[13, 3].state = 1
    c[14, 9].state = 1
    c[14, 3].state = 1
    c[15, 6].state = 1
    c[16, 8].state = 1
    c[16, 4].state = 1
    c[17, 5].state = 1
    c[17, 6].state = 1
    c[17, 7].state = 1
    c[18, 6].state = 1
    c[21, 3].state = 1
    c[21, 4].state = 1
    c[21, 5].state = 1
    c[22, 3].state = 1
    c[22, 4].state = 1
    c[22, 5].state = 1
    c[23, 6].state = 1
    c[23, 2].state = 1
    c[25, 1].state = 1
    c[25, 2].state = 1
    c[25, 6].state = 1
    c[25, 7].state = 1
    c[35, 3].state = 1
    c[35, 4].state = 1
    c[36, 3].state = 1
    c[36, 4].state = 1


    rem Display Animated Logo
    repeat
        //do
        updateCells( )
        Sync( )
        //loop
    until done = 1

    rem remove sprites
    for x = 0 to 39
        for y = 0 to 39
            deleteSprite( c[x, y].sprite )
        next y
    next x
endfunction

function updateCells( )
    REM Count neighbors
    for x = 0 to 39
        for y = 0 to 39
            c[x, y].neighbors = 0
            for u = x-1 to x+1
                for v = y-1 to y+1
                    if u > -1 and u < 40 and v > -1 and v < 40 and u <> x and v <> y
                        if c[u, v].state = 1 then c[x, y].neighbors = c[x, y].neighbors + 1
                    endif
                next v
            next u

        next y
    next x

    REM Update cells
    for x = 0 to 39
        for y = 0 to 39
            if c[x, y].state = 0
                rem if cell is dead
                if c[x, y].neighbors = 3
                    c[x, y].state = 1
                endif
            else
                rem if cell is alive
                if c[x, y].neighbors = 2 or c[x, y].neighbors = 3
                else
                    c[x, y].state = 0
                endif
            endif
        next y
    next x

    REM Show cells
    for x = 0 to 39
        for y = 0 to 39
            if c[x, y].state = 1
                setSpriteColor( c[x, y].sprite, 255, 255, 255, 255 )
            else
                setSpriteColor( c[x, y].sprite, 255, 0, 0, 255 )
            endif
        next y
    next x
endfunction

const
    BWidth = 47;
    BHeight = 47;
    Xoff = 12;
    Yoff = 12;

type TBoardArray = array[-1..BWidth+1,-1..BHeight+1] of byte;
     TScreenCells = array[0..BWidth,0..BHeight] of TCircle;

 private
    { Private declarations }
    fBoards : array[0..1] of TBoardArray;
    fCellShape: TScreenCells;
    oldBoard,newboard : integer;
    probmax : integer;
    running : boolean;
    generations: integer;
    computing : boolean;
    ColourOn: cardinal;
    function getCount(x,y,board: integer): integer;
    procedure Breed;
    procedure RandomBoard;
    procedure UpdateCellColour(x,y,board : integer);
    procedure DisplayBoard(which: integer);
  public
    { Public declarations }
  end;

procedure TForm_life.Breed;
var x, y , count: integer;
    isOn : boolean;
begin
   if not running then exit;
   inc(generations);
   label2.text := inttostr(generations);

   // clear the new board
   fillchar(fboards[newboard],sizeof(fboards[newboard]),#0);

   // get the surround count and check the action
   for y := 0 to BHeight do
     for x :=0 to BWidth do
       begin
         // check the number of live surround cells
         count := getCount(x,y,oldboard);
         // Is the current cell alive or dead?
         isOn := fboards[oldboard,x,y] = 1;

         // Apply Conway rules and if the cell lives, move to second board
         case isOn of
            true: if count in [2,3] then fboards[newboard,x,y] := 1;
            false: if count=3 then fboards[newboard,x,y] := 1;
         end;
       end; // Loops

   DisplayBoard(newboard);

   //swap boards
   case newboard of
    1: begin newboard := 0; oldboard := 1; end;
    0: begin newboard := 1; oldboard := 0; end;
   end;

end;

function TForm_life.getCount(x, y, board: integer): integer;
var x1,y1,me : integer;
begin

   result := 0;
   // Do not inlude this cell
   me := fBoards[board,x,y]; // Either 0 or 1

   for y1 := y-1 to y+1 do
     for x1 := x-1 to x+1 do
      if fBoards[board,x1,y1]=1 then inc(result);

   // if it was on, the result would be incorrect
   dec(result,me);

end;