server-nalc/mods/tetris/init.lua

shapes = {
   {  { x = {0, 1, 0, 1}, y = {0, 0, 1, 1} } },
     
   {  { x = {1, 1, 1, 1}, y = {0, 1, 2, 3} },
      { x = {0, 1, 2, 3}, y = {1, 1, 1, 1} } },

   {  { x = {0, 0, 1, 1}, y = {0, 1, 1, 2} },
      { x = {1, 2, 0, 1}, y = {0, 0, 1, 1} } },

   {  { x = {1, 0, 1, 0}, y = {0, 1, 1, 2} },
      { x = {0, 1, 1, 2}, y = {0, 0, 1, 1} } },

   {  { x = {1, 2, 1, 1}, y = {0, 0, 1, 2} },
      { x = {0, 1, 2, 2}, y = {1, 1, 1, 2} },
      { x = {1, 1, 0, 1}, y = {0, 1, 2, 2} },
      { x = {0, 0, 1, 2}, y = {0, 1, 1, 1} } },

   {  { x = {1, 1, 1, 2}, y = {0, 1, 2, 2} },
      { x = {0, 1, 2, 0}, y = {1, 1, 1, 2} },
      { x = {0, 1, 1, 1}, y = {0, 0, 1, 2} },
      { x = {0, 1, 2, 2}, y = {1, 1, 1, 0} } },

   {  { x = {1, 0, 1, 2}, y = {0, 1, 1, 1} },
      { x = {1, 1, 1, 2}, y = {0, 1, 2, 1} },
      { x = {0, 1, 2, 1}, y = {1, 1, 1, 2} },
      { x = {0, 1, 1, 1}, y = {1, 0, 1, 2} } } }

colors = { "cyan.png", "magenta.png", "red.png",
          "blue.png", "green.png", "orange.png", "yellow.png" }

background = "image[0,0;3.55,6.66;black.png]"
buttons = "button[3,5;0.6,0.6;left;◄]"
	.."button[3.6,5;0.6,0.6;rotateleft;L]"
	.."button[4.2,5;0.6,0.6;drop;▼]"
	.."button[4.8,5;0.6,0.6;rotateright;R]"
	.."button[5.4,5;0.6,0.6;right;►]"
	.."button[3.5,3.3;2,2;new;New Game]"

formsize = "size[5.9,5.7]"
boardx, boardy = 0, 0
sizex, sizey, size = 0.29, 0.29, 0.31

local comma = ","
local semi = ";"
local close = "]"

local concat = table.concat
local insert = table.insert

draw_shape = function(id, x, y, rot, posx, posy)
	local d = shapes[id][rot]
	local scr = {}

	for i=1,4 do
	   local tmp = { "image[",
	   		 (d.x[i]+x)*sizex+posx, comma,
	   		 (d.y[i]+y)*sizey+posy, semi,
	   		 size, comma, size, semi,
	   		 colors[id], close }
	   scr[#scr+1] = concat(tmp)
	end

	return concat(scr)
end

function step(pos, fields)
	local meta = minetest.get_meta(pos)
	local t = minetest.deserialize(meta:get_string("tetris"))
	local nex = math.random(7)
	
	local function new_game(pos)

		t = {
			board = {},
			boardstring = "",
			previewstring = draw_shape(nex, 0, 0, 1, 4, 1),
			score = 0,
			cur = nex,
			nex = nex,
			x=4, y=0, rot=1 
		}

		local timer = minetest.get_node_timer(pos)
		timer:set(0.3, 0)
	end

	local function update_boardstring()
		local scr = {}

		for i, line in pairs(t.board) do
			for _, tile in pairs(line) do
			   local tmp = { "image[",
			      tile[1]*sizex+boardx, comma,
			      i*sizey+boardy, semi,
			      size, comma, size, semi,
			      colors[tile[2] ], close }

			   scr[#scr+1] = concat(tmp)
			end
		end

		t.boardstring = concat(scr)
	end

	local function add()
		local d = shapes[t.cur][t.rot]

		for i=1,4 do
			local l = d.y[i] + t.y
			if not t.board[l] then t.board[l] = {} end
			insert(t.board[l], {d.x[i] + t.x, t.cur})
		end
	end

	local function scroll(l)
		for i=l, 1, -1 do
			t.board[i] = t.board[i-1] or {}
		end
	end

	local function check_lines()
		for i, line in pairs(t.board) do
			if #line >= 10 then
				scroll(i)
				t.score = t.score + 10
			end
		end
	end

	local function check_position(x, y, rot)
		local d = shapes[t.cur][rot]

		for i=1,4 do
			local cx, cy = d.x[i]+x, d.y[i]+y
			
			if cx < 0 or cx > 9 or cy < 0 or cy > 19 then
				return false 
			end

			for _, tile in pairs(t.board[ cy ] or {}) do
				if tile[1] == cx then return false end
			end
		end

		return true
	end

	local function stuck()
		if check_position(t.x, t.y+1, t.rot) then return false end
		return true
	end

	local function tick()
		if stuck() then	
			if t.y <= 0 then
				return false end
			add()
			check_lines()
			update_boardstring()
			t.cur, t.nex = t.nex, nex
			t.x, t.y, t.rot = 4, 0, 1
			t.previewstring = draw_shape(t.nex, 0, 0, 1, 4.1, 0.6)
		else
			t.y = t.y + 1
		end
		return true
	end  

	local function move(dx, dy)
		local newx, newy = t.x+dx, t.y+dy
		if not check_position(newx, newy, t.rot) then return end
		t.x, t.y = newx, newy
	end

	local function rotate(dr)
		local no = #(shapes[t.cur])
		local newrot = (t.rot+dr) % no

		if newrot<1 then newrot = newrot+no end
		if not check_position(t.x, t.y, newrot) then return end
		t.rot = newrot
	end

	local function key()
		if fields.left then
			move(-1, 0)
		end
		if fields.rotateleft then
			rotate(-1)
		end
		if fields.drop then
			t.score = t.score + 1
			move(0, 3)
		end
		if fields.rotateright then
			rotate(1)
		end
		if fields.right then
			move(1, 0)
		end
	end

	local run = true

	if fields then
		if fields.new then
			new_game(pos)
		else
			key(fields)
		end
	else
		run = tick()
	end

	local scr = { formsize, background, 
		t.boardstring, t.previewstring,
		draw_shape(t.cur, t.x, t.y, t.rot, boardx, boardy),
		"label[3.8,0.1;Next...]label[3.8,3;Score: ", 
		t.score, close, buttons }

		meta:set_string("formspec", concat(scr).. default.gui_bg .. default.gui_bg_img .. default.gui_slots)
		meta:set_string("tetris", minetest.serialize(t))

	return run
end

arcade = {
	description="Arcade",
	drawtype = "mesh",
	mesh = "arcade.obj",
	tiles = {"arcade.png"},
	paramtype = "light",
	paramtype2 = "facedir",
	groups = {snappy=3},
	selection_box = {
		type = "fixed",
		fixed = {-0.5, -0.5, -0.5, 0.5, 1.5, 0.5}
	},
	collision_box = {
		type = "fixed",
		fixed = {-0.5, -0.5, -0.5, 0.5, 1.5, 0.5}
	},
	
	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		meta:set_string("formspec", formsize.."button[2,2.5;2,2;new;New Game]".. default.gui_bg .. default.gui_bg_img .. default.gui_slots)
	end,
	
	on_timer = function(pos)
		return step(pos, nil)
	end,

	on_receive_fields = function(pos, formanme, fields, sender)
		step(pos, fields)
	end,
	
	on_place = function(itemstack, placer, pointed_thing)
		local pos = pointed_thing.above
		if minetest.get_node({x=pos.x, y=pos.y+1, z=pos.z}).name ~= "air" then
			minetest.chat_send_player(placer:get_player_name(), "No room for place the Arcade !" )
		return end
		local dir = placer:get_look_dir()
		local node = { name="tetris:arcade", param1=0, param2 = minetest.dir_to_facedir(dir)}
		minetest.set_node(pos, node)
		itemstack:take_item()
	end,
}

minetest.register_node("tetris:arcade", arcade)

minetest.register_craft({
	output = "tetris:arcade",
	recipe = {
		{"default:steel_ingot","default:steel_ingot","default:steel_ingot"},
		{"default:steel_ingot","plasmascreen:screen5","mesecons:wire_00000000_off"},
		{"default:steel_ingot","mesecons:wire_00000000_off","default:steel_ingot"},
	},
})