Merge branch 'master' of https://github.com/Ombridride/minetest-minetestforfun-server

mods/tetris/README.md

@@ -0,0 +1,8 @@
+Tetris Arcade mod for Minetest.
+
+License : WTFPL
+
+Use "/giveme tetris:arcade" to get Arcade node.
+Right-click Arcade to play.
+
+Patches welcome.

mods/tetris/init.lua

@@ -0,0 +1,278 @@
+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"},
+	},
+})

mods/tetris/models/arcade.obj

@@ -0,0 +1,34 @@
+# Blender v2.72 (sub 0) OBJ File: ''
+# www.blender.org
+mtllib vending_machine.mtl
+o Cube
+v 0.499998 -0.499998 -0.499998
+v 0.499998 -0.499998 0.499998
+v -0.499998 -0.499998 0.499998
+v -0.499998 -0.499998 -0.499998
+v 0.499998 1.499994 -0.499998
+v 0.499998 1.499994 0.499998
+v -0.499998 1.499994 0.499998
+v -0.499998 1.499994 -0.499998
+vt 0.250050 0.250050
+vt 0.000100 0.250050
+vt 0.000100 0.000100
+vt 0.250050 0.000100
+vt 0.250050 0.749950
+vt 0.250050 0.999900
+vt 0.000100 0.999900
+vt 0.000100 0.749950
+vt 0.999900 0.250049
+vt 0.999900 0.749949
+vt 0.749950 0.749950
+vt 0.749950 0.250050
+vt 0.500000 0.749950
+vt 0.500000 0.250050
+usemtl Material
+s off
+f 1/1 2/2 3/3 4/4
+f 5/5 8/6 7/7 6/8
+f 1/1 5/5 6/8 2/2
+f 2/9 6/10 7/11 3/12
+f 3/12 7/11 8/13 4/14
+f 5/5 1/1 4/14 8/13