LifeOnLove (日本語)




lifeonlove.png

ちょっとしたメタファーであることを理解しています。おそらく、それは誰かにとって有益であります......。


main.lua

 1 gameObjects = require("gameObjects")
 2 grids = {}
 3 step = 0
 4 time = 0;
 5 
 6 function love.load(arg)
 7   if arg[#arg] == "-debug" then require("mobdebug").start() end
 8   grids[0] = gameObjects.Grid:new(50,35)
 9   grids[1] = gameObjects.Grid:new(50,35)
10   grids[0]:init("gun_s.txt")
11   outGrid = 0
12   inGrid = 0
13   grid_switch()
14 end
15 
16 function love.update(dt)
17   time = time + dt
18   if (time > 0.1) then
19     time = 0
20     grid_switch()
21   end
22 end
23 
24 function love.draw()
25   love.graphics.setColor(0.085,1.0,0,0.1)
26   love.graphics.rectangle("line", 265, 50, 250, 50)
27   love.graphics.rectangle("line", 270, 55, 240, 40)
28   love.graphics.setColor(0.085,1.0,0,1.0)
29   love.graphics.print("LIFE", 375, 70);
30   grids[outGrid]:draw(150, 200, 10)
31 end
32 
33 function grid_switch()
34   inGrid = step % 2
35   outGrid = (step + 1) % 2
36   step = step + 1
37   grids[outGrid]:update_from(grids[inGrid])
38 end

gameObjects.lua

  1 local gameObjects = {}
  2 
  3 -- メタクラス
  4 gameObjects.Grid = {w = 0, h = 0}
  5 
  6 -- 派生クラスメソッド - new
  7 function gameObjects.Grid:new (w,h)
  8    local obj = {}
  9    setmetatable(obj, gameObjects.Grid)
 10    gameObjects.Grid.__index = gameObjects.Grid
 11    obj.w = w or 0
 12    obj.h = h or 0
 13    obj.cells = {}
 14    for i=1,w do
 15     obj.cells[i] = {}
 16    end
 17    for i = 1,w do
 18     for j = 1,h do
 19       obj.cells[i][j] = false
 20     end
 21    end
 22    return obj
 23 end
 24 
 25 function gameObjects.Grid:init(filename)
 26   local file = io.open(filename,"r")
 27   local line = file:read()
 28   local j = 1
 29   while line ~= nil and line ~= "" do
 30     for i=1,#line do
 31       local c = line:sub(i,i)
 32       if (c=='1') then
 33         self.cells[i][j] = true
 34       else
 35         self.cells[i][j] = false
 36       end
 37     end
 38     j = j + 1
 39     line = file:read()
 40   end
 41   io.close(file)
 42 end
 43 
 44 function gameObjects.Grid:update_from(grid)
 45   for i=1,self.w do
 46     for j=1,self.h do
 47       self.cells[i][j] = grid:check_cell(i,j)
 48     end
 49   end
 50 end
 51 
 52 function gameObjects.Grid:check_cell(x,y)
 53   local count = 0
 54   local positions = {{x-1,y},{x+1,y},{x,y-1},{x,y+1},{x-1,y+1},{x+1,y+1},{x-1, y-1},{x+1,y-1}}
 55   for i=1,8 do
 56     local ok = false
 57     local pos = positions[i]
 58     ok = self:is_legal(pos)
 59     if (ok) then
 60       ok = self.cells[pos[1]][pos[2]]
 61     end
 62     if (ok) then
 63       count = count + 1
 64     end
 65   end
 66   if (count > 3) then
 67     return false;
 68   end
 69   if (count < 2) then
 70     return false
 71   end
 72   if (count == 2) then
 73     return self.cells[x][y]
 74   end
 75   return true
 76 end
 77 
 78 function gameObjects.Grid:is_legal(pos)
 79   if (pos[1] <= 1 or pos[1] > self.w) then
 80     return false
 81   end
 82   if (pos[2] <= 1 or pos[2] > self.h) then
 83     return false
 84   end
 85   return true
 86 end
 87 
 88 function gameObjects.Grid:draw(x,y, cellsize)
 89   local fillType = "fill"
 90   for i=1,self.w do
 91     for j=1,self.h do
 92       if (self.cells[i][j] == true) then
 93         love.graphics.setColor(0.085,1.0,0,1.0)
 94         fillType = "fill"
 95       else
 96         love.graphics.setColor(0.085,1.0,0,0.1)
 97         fillType = "line"
 98       end
 99 
100       love.graphics.rectangle(fillType, x+(i-1)*cellsize, y+(j-1)*cellsize, cellsize,cellsize)
101     end
102   end
103   love.graphics.setColor(0.085,1.0,0,1.0)
104   love.graphics.rectangle("line", x-10, y-10, self.w * cellsize + 20, self.h * cellsize + 20)
105 end
106 
107 return gameObjects

gun_s.txt

 1 00000000000000000000000000000000000000
 2 00000000000000000000000001000000000000
 3 00000000000000000000000101000000000000
 4 00000000000001100000011000000000000110
 5 00000000000010001000011000000000000110
 6 01100000000100000100011000000000000000
 7 01100000000100010110000101000000000000
 8 00000000000100000100000001000000000000
 9 00000000000010001000000000000000000000
10 00000000000001100000000000000000000000
11 00000000000000000000000000000000000000