--[[ TODO: - If a pawn reaches row A or row H -> becomes a queen; - If one of kings is defeat -> the game stops; - Actions recording; - Counter per player. --]] realchess = {} function realchess.init(pos) local meta = minetest.get_meta(pos) local inv = meta:get_inventory() local slots = "listcolors[#00000000;#00000000;#00000000;#30434C;#FFF]" local rows = { {'A', 0}, {'B', 1}, {'C', 2}, {'D', 3}, {'E', 4}, {'F', 5}, {'G', 6}, {'H', 7} } local formspec = "" for _, n in pairs(rows) do local letter = n[1] local number = n[2] inv:set_size(letter, 8) formspec = formspec.."list[context;"..letter..";0,"..number..";8,1;false]" end meta:set_string("formspec", "size[8,8.6;]bgcolor[#080808BB;true]background[0,0;8,8;chess_bg.png]button[3.2,7.6;2,2;new;New game]"..formspec..slots) meta:set_string("infotext", "Chess Board") meta:set_string("playerOne", "") meta:set_string("playerTwo", "") meta:set_string("lastMove", "") meta:set_string("lastMoveTime", "") inv:set_list('A', {"realchess:rook_black_1 1", "realchess:knight_black_1 1", "realchess:bishop_black_1 1", "realchess:king_black_1 1", "realchess:queen_black_1 1", "realchess:bishop_black_2 1", "realchess:knight_black_2 1", "realchess:rook_black_2 1"}) inv:set_list('H', {"realchess:rook_white_1 1", "realchess:knight_white_1 1", "realchess:bishop_white_1 1", "realchess:queen_white_1 1", "realchess:king_white_1 1", "realchess:bishop_white_2 1", "realchess:knight_white_2 1", "realchess:rook_white_2 1"}) inv:set_list("C", {}) inv:set_list("D", {}) inv:set_list("E", {}) inv:set_list("F", {}) local bpawns, wpawns = {}, {} for i = 1, 8 do bpawns[#bpawns+1] = "realchess:pawn_black_"..i.." 1" wpawns[#wpawns+1] = "realchess:pawn_white_"..i.." 1" inv:set_list('B', bpawns) inv:set_list('G', wpawns) end end function realchess.move(pos, from_list, from_index, to_list, to_index, count, player) local inv = minetest.get_meta(pos):get_inventory() local meta = minetest.get_meta(pos) local pieceFrom = inv:get_stack(from_list, from_index):get_name() local pieceTo = inv:get_stack(to_list, to_index):get_name() local playerName = player:get_player_name() local lastMove = meta:get_string("lastMove") local playerWhite = meta:get_string("playerWhite") local playerBlack = meta:get_string("playerBlack") if pieceFrom:find("white") then if playerWhite == "" then meta:set_string("playerWhite", playerName) elseif playerWhite ~= "" and playerWhite ~= playerName then minetest.chat_send_player(playerName, "Someone else plays white pieces.") return 0 end if lastMove ~= "white" then meta:set_string("lastMove", "white") meta:set_string("lastMoveTime", minetest.get_gametime()) elseif lastMove == "white" then minetest.chat_send_player(playerName, "It's not your turn, wait for your opponent to play.") return 0 end elseif pieceFrom:find("black") then if playerBlack == "" then meta:set_string("playerBlack", playerName) elseif playerBlack ~= "" and playerBlack ~= playerName then minetest.chat_send_player(playerName, "Someone else plays black pieces.") return 0 end if lastMove ~= "black" then meta:set_string("lastMove", "black") meta:set_string("lastMoveTime", minetest.get_gametime()) elseif lastMove == "black" then minetest.chat_send_player(playerName, "It's not your turn, wait for your opponent to play.") return 0 end end -- Don't replace pieces of same color if (pieceFrom:find("white") and pieceTo:find("white")) or (pieceFrom:find("black") and pieceTo:find("black")) then return 0 end -- DETERMINISTIC MOVING -- PAWNS if pieceFrom:find("pawn_white") then if from_index == to_index and inv:get_stack(string.char(string.byte(from_list)-1), from_index):get_name() == "" then if string.byte(to_list) == string.byte(from_list) - 1 then return 1 elseif from_list == 'G' and string.byte(to_list) == string.byte(from_list) - 2 then return 1 end elseif string.byte(from_list) > string.byte(to_list) and (from_index ~= to_index and pieceTo:find("black")) then return 1 end elseif pieceFrom:find("pawn_black") then if from_index == to_index and inv:get_stack(string.char(string.byte(from_list)+1), from_index):get_name() == "" then if string.byte(to_list) == string.byte(from_list) + 1 then return 1 elseif from_list == 'B' and string.byte(to_list) == string.byte(from_list) + 2 then return 1 end elseif string.byte(from_list) < string.byte(to_list) and (from_index ~= to_index and pieceTo:find("white")) then return 1 end end -- ROOKS if pieceFrom:find("rook") then for i = 1, 7 do if from_index == to_index and (string.byte(to_list) == string.byte(from_list) - i or string.byte(to_list) == string.byte(from_list) + i) then return 1 elseif string.byte(to_list) == string.byte(from_list) and from_index ~= to_index then return 1 end end end -- KNIGHTS local knight_dirs = { {-2, -1}, {-2, 1}, {2, 1}, {2, -1}, -- Moves type 1 {-1, 2}, {-1, -2}, {1, -2}, {1, 2} -- Moves type 2 } if pieceFrom:find("knight") then for _, d in pairs(knight_dirs) do if string.byte(to_list) == string.byte(from_list) + d[1] and (to_index == from_index + d[2]) then return 1 end end end -- BISHOPS if pieceFrom:find("bishop") then for i = 1, 7 do if (to_index == from_index + i or to_index == from_index - i) and (string.byte(to_list) == string.byte(from_list) - i or string.byte(to_list) == string.byte(from_list) + i) then return 1 end end end -- QUEENS if pieceFrom:find("queen") then for i = 1, 7 do if from_index == to_index and (string.byte(to_list) == string.byte(from_list) - i or string.byte(to_list) == string.byte(from_list) + i) then return 1 elseif string.byte(to_list) == string.byte(from_list) and from_index ~= to_index then return 1 elseif (to_index == from_index + i or to_index == from_index - i) and (string.byte(to_list) == string.byte(from_list) - i or string.byte(to_list) == string.byte(from_list) + i) then return 1 end end end -- KINGS if pieceFrom:find("king") then if from_index == to_index and (string.byte(to_list) == string.byte(from_list) - 1 or string.byte(to_list) == string.byte(from_list) + 1) then return 1 elseif string.byte(to_list) == string.byte(from_list) and from_index ~= to_index then return 1 elseif (to_index == from_index + 1 or to_index == from_index - 1) and (string.byte(to_list) == string.byte(from_list) - 1 or string.byte(to_list) == string.byte(from_list) + 1) then return 1 end end return 0 end function realchess.fields(pos, formname, fields, sender) local playerName = sender:get_player_name() local meta = minetest.get_meta(pos) if fields.quit then return end -- If someone's playing, nobody except the players can reset the game if fields.new and (meta:get_string("playerWhite") == playerName or meta:get_string("playerBlack") == playerName) then realchess.init(pos) elseif fields.new and meta:get_string("lastMoveTime") ~= "" and minetest.get_gametime() >= tonumber(meta:get_string("lastMoveTime") + 250) and (meta:get_string("playerWhite") ~= playerName or meta:get_string("playerBlack") ~= playerName) then realchess.init(pos) else minetest.chat_send_player(playerName, "You can't reset the chessboard, a game has been started.\nIf you weren't playing it, try again after a while.") end end function realchess.dig(pos, player) local meta = minetest.get_meta(pos) local playerName = player:get_player_name() -- The chess can't be dug while playing unless if nobody has played since 500s if (meta:get_string("playerWhite") ~= "" or meta:get_string("playerBlack") ~= "") and meta:get_string("lastMoveTime") ~= "" and minetest.get_gametime() <= tonumber(meta:get_string("lastMoveTime") + 250) then minetest.chat_send_player(playerName, "You can't dug the chessboard, a game has been started.\nIf you weren't playing it, try again after a while.") return false end return true end minetest.register_node("realchess:chessboard", { description = "Chess Board", drawtype = "nodebox", paramtype = "light", paramtype2 = "facedir", inventory_image = "chessboard_top.png", wield_image = "chessboard_top.png", tiles = {"chessboard_top.png", "chessboard_top.png", "chessboard_sides.png", "chessboard_sides.png", "chessboard_top.png", "chessboard_top.png"}, groups = {choppy=3, fammable=3}, sounds = default.node_sound_wood_defaults(), node_box = {type = "fixed", fixed = {-0.5, -0.5, -0.5, 0.5, -0.4375, 0.5}}, sunlight_propagates = true, can_dig = realchess.dig, on_construct = realchess.init, on_receive_fields = realchess.fields, allow_metadata_inventory_move = realchess.move, on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player) local inv = minetest.get_meta(pos):get_inventory() inv:set_stack(from_list, from_index, '') end }) local pieces = { {name = "pawn", count = 8}, {name = "rook", count = 2}, {name = "knight", count = 2}, {name = "bishop", count = 2}, {name = "queen", count = 1}, {name = "king", count = 1} } local colors = {"black", "white"} for _, p in pairs(pieces) do for _, c in pairs(colors) do for i = 1, p.count do minetest.register_craftitem("realchess:"..p.name.."_"..c.."_"..i, { description = c:gsub("^%l", string.upper).." "..p.name:gsub("^%l", string.upper), inventory_image = p.name.."_"..c..".png", stack_max = 1, groups = {not_in_creative_inventory=1} }) end end end minetest.register_craft({ output = "realchess:chessboard", recipe = { {"dye:black", "dye:white", "dye:black"}, {"stairs:slab_wood", "stairs:slab_wood", "stairs:slab_wood"} } })