Compare commits
5 Commits
059b69efa1
...
3c1423a462
| Author | SHA1 | Date |
|---|---|---|
Jean-Patrick Guerrero
|
3c1423a462 | |
|
Jean-Patrick Guerrero
|
ed931905be | |
|
Jean-Patrick Guerrero
|
70277d4216 | |
|
Jean-Patrick Guerrero
|
5e4704ad2a | |
|
Jean-Patrick Guerrero
|
9df5d94fcb |
587
src/chess.lua
587
src/chess.lua
|
|
@ -12,67 +12,225 @@ local function xy_to_index(x, y)
|
|||
return x + y * 8 + 1
|
||||
end
|
||||
|
||||
local function get_square(a, b)
|
||||
return (a * 8) - (8 - b)
|
||||
end
|
||||
|
||||
local chat_prefix = minetest.colorize("#FFFF00", "[Chess] ")
|
||||
local letters = {'A','B','C','D','E','F','G','H'}
|
||||
|
||||
local rowDirs = {-1, -1, -1, 0, 0, 1, 1, 1}
|
||||
local colDirs = {-1, 0, 1, -1, 1, -1, 0, 1}
|
||||
|
||||
local bishopThreats = {true, false, true, false, false, true, false, true}
|
||||
local rookThreats = {false, true, false, true, true, false, true, false}
|
||||
local queenThreats = {true, true, true, true, true, true, true, true}
|
||||
local kingThreats = {true, true, true, true, true, true, true, true}
|
||||
|
||||
local function board_to_table(inv)
|
||||
local t = {}
|
||||
for i = 1, 64 do
|
||||
t[#t + 1] = inv:get_stack("board", i):get_name()
|
||||
end
|
||||
|
||||
return t
|
||||
end
|
||||
|
||||
local function attacked(color, idx, board)
|
||||
local threatDetected = false
|
||||
local kill = color == "white"
|
||||
local pawnThreats = {kill, false, kill, false, false, not kill, false, not kill}
|
||||
|
||||
for dir = 1, 8 do
|
||||
if not threatDetected then
|
||||
local col, row = index_to_xy(idx)
|
||||
col, row = col + 1, row + 1
|
||||
|
||||
for step = 1, 8 do
|
||||
row = row + rowDirs[dir]
|
||||
col = col + colDirs[dir]
|
||||
|
||||
if row >= 1 and row <= 8 and col >= 1 and col <= 8 then
|
||||
local square = get_square(row, col)
|
||||
local square_name = board[square]
|
||||
local piece, pieceColor = square_name:match(":(%w+)_(%w+)")
|
||||
|
||||
if piece then
|
||||
if pieceColor ~= color then
|
||||
if piece == "bishop" and bishopThreats[dir] then
|
||||
threatDetected = true
|
||||
elseif piece == "rook" and rookThreats[dir] then
|
||||
threatDetected = true
|
||||
elseif piece == "queen" and queenThreats[dir] then
|
||||
threatDetected = true
|
||||
else
|
||||
if step == 1 then
|
||||
if piece == "pawn" and pawnThreats[dir] then
|
||||
threatDetected = true
|
||||
end
|
||||
if piece == "king" and kingThreats[dir] then
|
||||
threatDetected = true
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
return threatDetected
|
||||
end
|
||||
|
||||
local function locate_kings(board)
|
||||
local Bidx, Widx
|
||||
for i = 1, 64 do
|
||||
local piece, color = board[i]:match(":(%w+)_(%w+)")
|
||||
if piece == "king" then
|
||||
if color == "black" then
|
||||
Bidx = i
|
||||
else
|
||||
Widx = i
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
return Bidx, Widx
|
||||
end
|
||||
|
||||
local pieces = {
|
||||
"realchess:rook_black_1",
|
||||
"realchess:knight_black_1",
|
||||
"realchess:bishop_black_1",
|
||||
"realchess:queen_black",
|
||||
"realchess:king_black",
|
||||
"realchess:bishop_black_2",
|
||||
"realchess:knight_black_2",
|
||||
"realchess:rook_black_2",
|
||||
"realchess:pawn_black_1",
|
||||
"realchess:pawn_black_2",
|
||||
"realchess:pawn_black_3",
|
||||
"realchess:pawn_black_4",
|
||||
"realchess:pawn_black_5",
|
||||
"realchess:pawn_black_6",
|
||||
"realchess:pawn_black_7",
|
||||
"realchess:pawn_black_8",
|
||||
'','','','','','','','','','','','','','','','',
|
||||
'','','','','','','','','','','','','','','','',
|
||||
"realchess:pawn_white_1",
|
||||
"realchess:pawn_white_2",
|
||||
"realchess:pawn_white_3",
|
||||
"realchess:pawn_white_4",
|
||||
"realchess:pawn_white_5",
|
||||
"realchess:pawn_white_6",
|
||||
"realchess:pawn_white_7",
|
||||
"realchess:pawn_white_8",
|
||||
"realchess:rook_white_1",
|
||||
"realchess:knight_white_1",
|
||||
"realchess:bishop_white_1",
|
||||
"realchess:queen_white",
|
||||
"realchess:king_white",
|
||||
"realchess:bishop_white_2",
|
||||
"realchess:knight_white_2",
|
||||
"realchess:rook_white_2"
|
||||
}
|
||||
|
||||
local pieces_str, x = "", 0
|
||||
for i = 1, #pieces do
|
||||
local p = pieces[i]:match(":(%w+_%w+)")
|
||||
if pieces[i]:find(":(%w+)_(%w+)") and not pieces_str:find(p) then
|
||||
pieces_str = pieces_str .. x .. "=" .. p .. ".png,"
|
||||
x = x + 1
|
||||
end
|
||||
end
|
||||
pieces_str = pieces_str .. "69=mailbox_blank16.png"
|
||||
|
||||
local fs = [[
|
||||
size[14.7,10;]
|
||||
no_prepend[]
|
||||
bgcolor[#080808BB;true]
|
||||
background[0,0;14.7,10;chess_bg.png]
|
||||
list[context;board;0.3,1;8,8;]
|
||||
listcolors[#00000000;#00000000;#00000000;#30434C;#FFF]
|
||||
tableoptions[background=#00000000;highlight=#00000000;border=false]
|
||||
button[10.5,8.5;2,2;new;New game]
|
||||
]] .. "tablecolumns[image," .. pieces_str ..
|
||||
";text;color;text;color;text;image," .. pieces_str .. "]"
|
||||
|
||||
local function get_moves_list(meta, pieceFrom, pieceTo, pieceTo_s, from_x, to_x, from_y, to_y)
|
||||
local moves = meta:get_string("moves")
|
||||
local pieceFrom_s = pieceFrom:match(":(%w+_%w+)")
|
||||
local pieceFrom_si_id = pieces_str:match("(%d+)=" .. pieceFrom_s)
|
||||
local pieceTo_si_id = pieceTo_s ~= "" and pieces_str:match("(%d+)=" .. pieceTo_s) or ""
|
||||
|
||||
local coordFrom = letters[from_x + 1] .. math.abs(from_y - 8)
|
||||
local coordTo = letters[to_x + 1] .. math.abs(to_y - 8)
|
||||
|
||||
local new_moves = pieceFrom_si_id .. "," ..
|
||||
coordFrom .. "," ..
|
||||
(pieceTo ~= "" and "#33FF33" or "#FFFFFF") .. ", > ,#FFFFFF," ..
|
||||
coordTo .. "," ..
|
||||
(pieceTo ~= "" and pieceTo_si_id or "69") .. "," ..
|
||||
moves
|
||||
|
||||
meta:set_string("moves", new_moves)
|
||||
end
|
||||
|
||||
local function get_eaten_list(meta, pieceTo, pieceTo_s)
|
||||
local eaten = meta:get_string("eaten")
|
||||
if pieceTo ~= "" then
|
||||
eaten = eaten .. pieceTo_s .. ","
|
||||
end
|
||||
|
||||
meta:set_string("eaten", eaten)
|
||||
|
||||
local eaten_t = string.split(eaten, ",")
|
||||
local eaten_img = ""
|
||||
|
||||
local a, b = 0, 0
|
||||
for i = 1, #eaten_t do
|
||||
local is_white = eaten_t[i]:sub(-5,-1) == "white"
|
||||
local X = (is_white and a or b) % 4
|
||||
local Y = ((is_white and a or b) % 16 - X) / 4
|
||||
|
||||
if is_white then
|
||||
a = a + 1
|
||||
else
|
||||
b = b + 1
|
||||
end
|
||||
|
||||
eaten_img = eaten_img ..
|
||||
"image[" .. ((X + (is_white and 11.7 or 8.8)) - (X * 0.45)) .. "," ..
|
||||
((Y + 5.56) - (Y * 0.2)) .. ";1,1;" .. eaten_t[i] .. ".png]"
|
||||
end
|
||||
|
||||
meta:set_string("eaten_img", eaten_img)
|
||||
end
|
||||
|
||||
function realchess.init(pos)
|
||||
local meta = minetest.get_meta(pos)
|
||||
local inv = meta:get_inventory()
|
||||
local inv = meta:get_inventory()
|
||||
|
||||
local formspec = [[ size[8,8.6;]
|
||||
bgcolor[#080808BB;true]
|
||||
background[0,0;8,8;chess_bg.png]
|
||||
button[3.1,7.8;2,2;new;New game]
|
||||
list[context;board;0,0;8,8;]
|
||||
listcolors[#00000000;#00000000;#00000000;#30434C;#FFF] ]]
|
||||
|
||||
meta:set_string("formspec", formspec)
|
||||
meta:set_string("formspec", fs)
|
||||
meta:set_string("infotext", "Chess Board")
|
||||
meta:set_string("playerBlack", "")
|
||||
meta:set_string("playerWhite", "")
|
||||
meta:set_string("lastMove", "")
|
||||
meta:set_string("winner", "")
|
||||
meta:set_string("lastMove", "")
|
||||
meta:set_string("blackAttacked", "")
|
||||
meta:set_string("whiteAttacked", "")
|
||||
|
||||
meta:set_int("lastMoveTime", 0)
|
||||
meta:set_int("lastMoveTime", 0)
|
||||
meta:set_int("castlingBlackL", 1)
|
||||
meta:set_int("castlingBlackR", 1)
|
||||
meta:set_int("castlingWhiteL", 1)
|
||||
meta:set_int("castlingWhiteR", 1)
|
||||
|
||||
inv:set_list("board", {
|
||||
"realchess:rook_black_1",
|
||||
"realchess:knight_black_1",
|
||||
"realchess:bishop_black_1",
|
||||
"realchess:queen_black",
|
||||
"realchess:king_black",
|
||||
"realchess:bishop_black_2",
|
||||
"realchess:knight_black_2",
|
||||
"realchess:rook_black_2",
|
||||
"realchess:pawn_black_1",
|
||||
"realchess:pawn_black_2",
|
||||
"realchess:pawn_black_3",
|
||||
"realchess:pawn_black_4",
|
||||
"realchess:pawn_black_5",
|
||||
"realchess:pawn_black_6",
|
||||
"realchess:pawn_black_7",
|
||||
"realchess:pawn_black_8",
|
||||
'','','','','','','','','','','','','','','','',
|
||||
'','','','','','','','','','','','','','','','',
|
||||
"realchess:pawn_white_1",
|
||||
"realchess:pawn_white_2",
|
||||
"realchess:pawn_white_3",
|
||||
"realchess:pawn_white_4",
|
||||
"realchess:pawn_white_5",
|
||||
"realchess:pawn_white_6",
|
||||
"realchess:pawn_white_7",
|
||||
"realchess:pawn_white_8",
|
||||
"realchess:rook_white_1",
|
||||
"realchess:knight_white_1",
|
||||
"realchess:bishop_white_1",
|
||||
"realchess:queen_white",
|
||||
"realchess:king_white",
|
||||
"realchess:bishop_white_2",
|
||||
"realchess:knight_white_2",
|
||||
"realchess:rook_white_2"
|
||||
})
|
||||
meta:set_string("moves", "")
|
||||
meta:set_string("eaten", "")
|
||||
|
||||
inv:set_list("board", pieces)
|
||||
inv:set_size("board", 64)
|
||||
end
|
||||
|
||||
|
|
@ -81,59 +239,59 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
return 0
|
||||
end
|
||||
|
||||
local playerName = player:get_player_name()
|
||||
local meta = minetest.get_meta(pos)
|
||||
|
||||
if meta:get_string("winner") ~= "" then
|
||||
minetest.chat_send_player(playerName, "This game is over.")
|
||||
return 0
|
||||
end
|
||||
|
||||
local inv = meta:get_inventory()
|
||||
local pieceFrom = inv:get_stack(from_list, from_index):get_name()
|
||||
local pieceTo = inv:get_stack(to_list, to_index):get_name()
|
||||
local lastMove = meta:get_string("lastMove")
|
||||
local thisMove -- will replace lastMove when move is legal
|
||||
local meta = minetest.get_meta(pos)
|
||||
local playerName = player:get_player_name()
|
||||
local inv = meta:get_inventory()
|
||||
local pieceFrom = inv:get_stack(from_list, from_index):get_name()
|
||||
local pieceTo = inv:get_stack(to_list, to_index):get_name()
|
||||
local lastMove = meta:get_string("lastMove")
|
||||
local playerWhite = meta:get_string("playerWhite")
|
||||
local playerBlack = meta:get_string("playerBlack")
|
||||
local thisMove -- Will replace lastMove when move is legal
|
||||
|
||||
if pieceFrom:find("white") then
|
||||
if playerWhite ~= "" and playerWhite ~= playerName then
|
||||
minetest.chat_send_player(playerName, "Someone else plays white pieces!")
|
||||
minetest.chat_send_player(playerName, chat_prefix .. "Someone else plays white pieces!")
|
||||
return 0
|
||||
end
|
||||
|
||||
if lastMove ~= "" and lastMove ~= "black" then
|
||||
minetest.chat_send_player(playerName, "It's not your turn, wait for your opponent to play.")
|
||||
return 0
|
||||
end
|
||||
|
||||
if pieceTo:find("white") then
|
||||
-- Don't replace pieces of same color
|
||||
return 0
|
||||
end
|
||||
|
||||
playerWhite = playerName
|
||||
thisMove = "white"
|
||||
|
||||
elseif pieceFrom:find("black") then
|
||||
if playerBlack ~= "" and playerBlack ~= playerName then
|
||||
minetest.chat_send_player(playerName, "Someone else plays black pieces!")
|
||||
minetest.chat_send_player(playerName, chat_prefix .. "Someone else plays black pieces!")
|
||||
return 0
|
||||
end
|
||||
|
||||
if lastMove ~= "" and lastMove ~= "white" then
|
||||
minetest.chat_send_player(playerName, "It's not your turn, wait for your opponent to play.")
|
||||
return 0
|
||||
end
|
||||
|
||||
if pieceTo:find("black") then
|
||||
-- Don't replace pieces of same color
|
||||
return 0
|
||||
end
|
||||
|
||||
playerBlack = playerName
|
||||
thisMove = "black"
|
||||
end
|
||||
|
||||
-- DETERMINISTIC MOVING
|
||||
-- MOVE LOGIC
|
||||
|
||||
local from_x, from_y = index_to_xy(from_index)
|
||||
local to_x, to_y = index_to_xy(to_index)
|
||||
local to_x, to_y = index_to_xy(to_index)
|
||||
|
||||
-- PAWN
|
||||
if pieceFrom:sub(11,14) == "pawn" then
|
||||
if thisMove == "white" then
|
||||
local pawnWhiteMove = inv:get_stack(from_list, xy_to_index(from_x, from_y - 1)):get_name()
|
||||
|
|
@ -162,12 +320,14 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
return 0
|
||||
end
|
||||
|
||||
-- if x not changed,
|
||||
-- ensure that destination cell is empty
|
||||
-- elseif x changed one unit left or right
|
||||
-- ensure the pawn is killing opponent piece
|
||||
-- else
|
||||
-- move is not legal - abort
|
||||
--[[
|
||||
if x not changed
|
||||
ensure that destination cell is empty
|
||||
elseif x changed one unit left or right
|
||||
ensure the pawn is killing opponent piece
|
||||
else
|
||||
move is not legal - abort
|
||||
]]
|
||||
|
||||
if from_x == to_x then
|
||||
if pieceTo ~= "" then
|
||||
|
|
@ -208,12 +368,14 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
return 0
|
||||
end
|
||||
|
||||
-- if x not changed,
|
||||
-- ensure that destination cell is empty
|
||||
-- elseif x changed one unit left or right
|
||||
-- ensure the pawn is killing opponent piece
|
||||
-- else
|
||||
-- move is not legal - abort
|
||||
--[[
|
||||
if x not changed
|
||||
ensure that destination cell is empty
|
||||
elseif x changed one unit left or right
|
||||
ensure the pawn is killing opponent piece
|
||||
else
|
||||
move is not legal - abort
|
||||
]]
|
||||
|
||||
if from_x == to_x then
|
||||
if pieceTo ~= "" then
|
||||
|
|
@ -230,20 +392,21 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
return 0
|
||||
end
|
||||
|
||||
-- ROOK
|
||||
elseif pieceFrom:sub(11,14) == "rook" then
|
||||
if from_x == to_x then
|
||||
-- moving vertically
|
||||
-- Moving vertically
|
||||
if from_y < to_y then
|
||||
-- moving down
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Moving down
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = from_y + 1, to_y - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x, i)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
else
|
||||
-- mocing up
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Mocing up
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = to_y + 1, from_y - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x, i)):get_name() ~= "" then
|
||||
return 0
|
||||
|
|
@ -251,7 +414,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
end
|
||||
elseif from_y == to_y then
|
||||
-- mocing horizontally
|
||||
-- Mocing horizontally
|
||||
if from_x < to_x then
|
||||
-- mocing right
|
||||
-- ensure that no piece disturbs the way
|
||||
|
|
@ -261,8 +424,8 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
end
|
||||
else
|
||||
-- mocing left
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Mocing left
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = to_x + 1, from_x - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(i, from_y)):get_name() ~= "" then
|
||||
return 0
|
||||
|
|
@ -270,7 +433,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
end
|
||||
else
|
||||
-- attempt to move arbitrarily -> abort
|
||||
-- Attempt to move arbitrarily -> abort
|
||||
return 0
|
||||
end
|
||||
|
||||
|
|
@ -282,49 +445,51 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
end
|
||||
|
||||
-- KNIGHT
|
||||
elseif pieceFrom:sub(11,16) == "knight" then
|
||||
-- get relative pos
|
||||
-- Get relative pos
|
||||
local dx = from_x - to_x
|
||||
local dy = from_y - to_y
|
||||
|
||||
-- get absolute values
|
||||
-- Get absolute values
|
||||
if dx < 0 then dx = -dx end
|
||||
if dy < 0 then dy = -dy end
|
||||
|
||||
-- sort x and y
|
||||
-- Sort x and y
|
||||
if dx > dy then dx, dy = dy, dx end
|
||||
|
||||
-- ensure that dx == 1 and dy == 2
|
||||
-- Ensure that dx == 1 and dy == 2
|
||||
if dx ~= 1 or dy ~= 2 then
|
||||
return 0
|
||||
end
|
||||
-- just ensure that destination cell does not contain friend piece
|
||||
-- ^ it was done already thus everything ok
|
||||
-- Just ensure that destination cell does not contain friend piece
|
||||
-- ^ It was done already thus everything ok
|
||||
|
||||
-- BISHOP
|
||||
elseif pieceFrom:sub(11,16) == "bishop" then
|
||||
-- get relative pos
|
||||
-- Get relative pos
|
||||
local dx = from_x - to_x
|
||||
local dy = from_y - to_y
|
||||
|
||||
-- get absolute values
|
||||
-- Get absolute values
|
||||
if dx < 0 then dx = -dx end
|
||||
if dy < 0 then dy = -dy end
|
||||
|
||||
-- ensure dx and dy are equal
|
||||
-- Ensure dx and dy are equal
|
||||
if dx ~= dy then return 0 end
|
||||
|
||||
if from_x < to_x then
|
||||
if from_y < to_y then
|
||||
-- moving right-down
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Moving right-down
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x + i, from_y + i)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
else
|
||||
-- moving right-up
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Moving right-up
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x + i, from_y - i)):get_name() ~= "" then
|
||||
return 0
|
||||
|
|
@ -333,15 +498,15 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
else
|
||||
if from_y < to_y then
|
||||
-- moving left-down
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Moving left-down
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x - i, from_y + i)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
else
|
||||
-- moving left-up
|
||||
-- Moving left-up
|
||||
-- ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x - i, from_y - i)):get_name() ~= "" then
|
||||
|
|
@ -351,31 +516,32 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
end
|
||||
|
||||
-- QUEEN
|
||||
elseif pieceFrom:sub(11,15) == "queen" then
|
||||
local dx = from_x - to_x
|
||||
local dy = from_y - to_y
|
||||
|
||||
-- get absolute values
|
||||
-- Get absolute values
|
||||
if dx < 0 then dx = -dx end
|
||||
if dy < 0 then dy = -dy end
|
||||
|
||||
-- ensure valid relative move
|
||||
-- Ensure valid relative move
|
||||
if dx ~= 0 and dy ~= 0 and dx ~= dy then
|
||||
return 0
|
||||
end
|
||||
|
||||
if from_x == to_x then
|
||||
if from_y < to_y then
|
||||
-- goes down
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Goes down
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x, from_y + i)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
else
|
||||
-- goes up
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Goes up
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x, from_y - i)):get_name() ~= "" then
|
||||
return 0
|
||||
|
|
@ -384,24 +550,24 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
elseif from_x < to_x then
|
||||
if from_y == to_y then
|
||||
-- goes right
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Goes right
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x + i, from_y)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
elseif from_y < to_y then
|
||||
-- goes right-down
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Goes right-down
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x + i, from_y + i)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
else
|
||||
-- goes right-up
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Goes right-up
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x + i, from_y - i)):get_name() ~= "" then
|
||||
return 0
|
||||
|
|
@ -410,24 +576,24 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
else
|
||||
if from_y == to_y then
|
||||
-- goes left
|
||||
-- ensure that no piece disturbs the way and destination cell does
|
||||
-- Goes left
|
||||
-- Ensure that no piece disturbs the way and destination cell does
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x - i, from_y)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
elseif from_y < to_y then
|
||||
-- goes left-down
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Goes left-down
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x - i, from_y + i)):get_name() ~= "" then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
else
|
||||
-- goes left-up
|
||||
-- ensure that no piece disturbs the way
|
||||
-- Goes left-up
|
||||
-- Ensure that no piece disturbs the way
|
||||
for i = 1, dx - 1 do
|
||||
if inv:get_stack(from_list, xy_to_index(from_x - i, from_y - i)):get_name() ~= "" then
|
||||
return 0
|
||||
|
|
@ -436,6 +602,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
end
|
||||
|
||||
-- KING
|
||||
elseif pieceFrom:sub(11,14) == "king" then
|
||||
local dx = from_x - to_x
|
||||
local dy = from_y - to_y
|
||||
|
|
@ -485,6 +652,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
return 0
|
||||
end
|
||||
end
|
||||
|
||||
inv:set_stack(from_list, 1, "")
|
||||
inv:set_stack(from_list, 3, "realchess:rook_black_1")
|
||||
check = false
|
||||
|
|
@ -499,6 +667,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
return 0
|
||||
end
|
||||
end
|
||||
|
||||
inv:set_stack(from_list, 6, "realchess:rook_black_2")
|
||||
inv:set_stack(from_list, 8, "")
|
||||
check = false
|
||||
|
|
@ -508,70 +677,139 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, _, player
|
|||
end
|
||||
|
||||
if check then
|
||||
if dx < 0 then dx = -dx end
|
||||
if dy < 0 then dy = -dy end
|
||||
if dx > 1 or dy > 1 then return 0 end
|
||||
if dx < 0 then
|
||||
dx = -dx
|
||||
end
|
||||
|
||||
if dy < 0 then
|
||||
dy = -dy
|
||||
end
|
||||
|
||||
if dx > 1 or dy > 1 then
|
||||
return 0
|
||||
end
|
||||
end
|
||||
|
||||
if thisMove == "white" then
|
||||
meta:set_int("castlingWhiteL", 0)
|
||||
meta:set_int("castlingWhiteR", 0)
|
||||
|
||||
elseif thisMove == "black" then
|
||||
meta:set_int("castlingBlackL", 0)
|
||||
meta:set_int("castlingBlackR", 0)
|
||||
end
|
||||
end
|
||||
|
||||
meta:set_string("playerWhite", playerWhite)
|
||||
meta:set_string("playerBlack", playerBlack)
|
||||
local board = board_to_table(inv)
|
||||
board[to_index] = board[from_index]
|
||||
board[from_index] = ""
|
||||
|
||||
local black_king_idx, white_king_idx = locate_kings(board)
|
||||
local blackAttacked = attacked("black", black_king_idx, board)
|
||||
local whiteAttacked = attacked("white", white_king_idx, board)
|
||||
|
||||
if blackAttacked then
|
||||
if thisMove == "black" and meta:get_string("blackAttacked") == "true" then
|
||||
return 0
|
||||
else
|
||||
meta:set_string("blackAttacked", "true")
|
||||
end
|
||||
else
|
||||
meta:set_string("blackAttacked", "")
|
||||
end
|
||||
|
||||
if whiteAttacked then
|
||||
if thisMove == "white" and meta:get_string("whiteAttacked") == "true" then
|
||||
return 0
|
||||
else
|
||||
meta:set_string("whiteAttacked", "true")
|
||||
end
|
||||
else
|
||||
meta:set_string("whiteAttacked", "")
|
||||
end
|
||||
|
||||
lastMove = thisMove
|
||||
|
||||
meta:set_string("lastMove", lastMove)
|
||||
meta:set_int("lastMoveTime", minetest.get_gametime())
|
||||
meta:set_string("playerWhite", playerWhite)
|
||||
meta:set_string("playerBlack", playerBlack)
|
||||
|
||||
if lastMove == "black" then
|
||||
minetest.chat_send_player(playerWhite, "["..os.date("%H:%M:%S").."] "..
|
||||
playerName.." moved a "..pieceFrom:match(":(%a+)")..", it's now your turn.")
|
||||
elseif lastMove == "white" then
|
||||
minetest.chat_send_player(playerBlack, "["..os.date("%H:%M:%S").."] "..
|
||||
playerName.." moved a "..pieceFrom:match(":(%a+)")..", it's now your turn.")
|
||||
end
|
||||
|
||||
if pieceTo:sub(11,14) == "king" then
|
||||
minetest.chat_send_player(playerBlack, playerName.." won the game.")
|
||||
minetest.chat_send_player(playerWhite, playerName.." won the game.")
|
||||
meta:set_string("winner", thisMove)
|
||||
end
|
||||
local pieceTo_s = pieceTo ~= "" and pieceTo:match(":(%w+_%w+)") or ""
|
||||
get_moves_list(meta, pieceFrom, pieceTo, pieceTo_s, from_x, to_x, from_y, to_y)
|
||||
get_eaten_list(meta, pieceTo, pieceTo_s)
|
||||
|
||||
return 1
|
||||
end
|
||||
|
||||
function realchess.on_move(pos, from_list, from_index)
|
||||
local meta = minetest.get_meta(pos)
|
||||
local inv = meta:get_inventory()
|
||||
inv:set_stack(from_list, from_index, '')
|
||||
|
||||
local black_king_attacked = meta:get_string("blackAttacked") == "true"
|
||||
local white_king_attacked = meta:get_string("whiteAttacked") == "true"
|
||||
|
||||
local playerWhite = meta:get_string("playerWhite")
|
||||
local playerBlack = meta:get_string("playerBlack")
|
||||
|
||||
local moves = meta:get_string("moves")
|
||||
local eaten_img = meta:get_string("eaten_img")
|
||||
local lastMove = meta:get_string("lastMove")
|
||||
local turnBlack = minetest.colorize("#000001", (lastMove == "white" and playerBlack ~= "") and
|
||||
playerBlack .. "..." or playerBlack)
|
||||
local turnWhite = minetest.colorize("#000001", (lastMove == "black" and playerWhite ~= "") and
|
||||
playerWhite .. "..." or playerWhite)
|
||||
local check_s = minetest.colorize("#FF0000", "\\[check\\]")
|
||||
|
||||
local formspec = fs ..
|
||||
"label[1.9,0.3;" .. turnBlack .. (black_king_attacked and " " .. check_s or "") .. "]" ..
|
||||
"label[1.9,9.15;" .. turnWhite .. (white_king_attacked and " " .. check_s or "") .. "]" ..
|
||||
"table[8.9,1.05;5.07,3.75;moves;" .. moves:sub(1,-2) .. ";1]" ..
|
||||
eaten_img
|
||||
|
||||
meta:set_string("formspec", formspec)
|
||||
|
||||
return false
|
||||
end
|
||||
|
||||
local function timeout_format(timeout_limit)
|
||||
local time_remaining = timeout_limit - minetest.get_gametime()
|
||||
local minutes = math.floor(time_remaining / 60)
|
||||
local seconds = time_remaining % 60
|
||||
local minutes = math.floor(time_remaining / 60)
|
||||
local seconds = time_remaining % 60
|
||||
|
||||
if minutes == 0 then return seconds.." sec." end
|
||||
return minutes.." min. "..seconds.." sec."
|
||||
if minutes == 0 then
|
||||
return seconds .. " sec."
|
||||
end
|
||||
|
||||
return minutes .. " min. " .. seconds .. " sec."
|
||||
end
|
||||
|
||||
function realchess.fields(pos, _, fields, sender)
|
||||
local playerName = sender:get_player_name()
|
||||
local meta = minetest.get_meta(pos)
|
||||
local playerName = sender:get_player_name()
|
||||
local meta = minetest.get_meta(pos)
|
||||
local timeout_limit = meta:get_int("lastMoveTime") + 300
|
||||
local playerWhite = meta:get_string("playerWhite")
|
||||
local playerBlack = meta:get_string("playerBlack")
|
||||
local lastMoveTime = meta:get_int("lastMoveTime")
|
||||
local playerWhite = meta:get_string("playerWhite")
|
||||
local playerBlack = meta:get_string("playerBlack")
|
||||
local lastMoveTime = meta:get_int("lastMoveTime")
|
||||
if fields.quit then return end
|
||||
|
||||
-- timeout is 5 min. by default for resetting the game (non-players only)
|
||||
if fields.new and (playerWhite == playerName or playerBlack == playerName) then
|
||||
realchess.init(pos)
|
||||
elseif fields.new and lastMoveTime ~= 0 and minetest.get_gametime() >= timeout_limit and
|
||||
(playerWhite ~= playerName or playerBlack ~= playerName) then
|
||||
realchess.init(pos)
|
||||
else
|
||||
minetest.chat_send_player(playerName, "[!] You can't reset the chessboard, a game has been started.\n"..
|
||||
"If you are not a current player, try again in "..timeout_format(timeout_limit))
|
||||
-- Timeout is 5 min. by default for resetting the game (non-players only)
|
||||
if fields.new then
|
||||
if (playerWhite == playerName or playerBlack == playerName) then
|
||||
realchess.init(pos)
|
||||
|
||||
elseif lastMoveTime ~= 0 then
|
||||
if minetest.get_gametime() >= timeout_limit and
|
||||
(playerWhite ~= playerName or playerBlack ~= playerName) then
|
||||
realchess.init(pos)
|
||||
else
|
||||
minetest.chat_send_player(playerName, chat_prefix ..
|
||||
"You can't reset the chessboard, a game has been started. " ..
|
||||
"If you aren't a current player, try again in " ..
|
||||
timeout_format(timeout_limit))
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
|
@ -579,21 +817,18 @@ function realchess.dig(pos, player)
|
|||
if not player then
|
||||
return false
|
||||
end
|
||||
local meta = minetest.get_meta(pos)
|
||||
local playerName = player:get_player_name()
|
||||
|
||||
local meta = minetest.get_meta(pos)
|
||||
local playerName = player:get_player_name()
|
||||
local timeout_limit = meta:get_int("lastMoveTime") + 300
|
||||
local lastMoveTime = meta:get_int("lastMoveTime")
|
||||
local lastMoveTime = meta:get_int("lastMoveTime")
|
||||
|
||||
-- timeout is 5 min. by default for digging the chessboard (non-players only)
|
||||
-- Timeout is 5 min. by default for digging the chessboard (non-players only)
|
||||
return (lastMoveTime == 0 and minetest.get_gametime() > timeout_limit) or
|
||||
minetest.chat_send_player(playerName, "[!] You can't dig the chessboard, a game has been started.\n"..
|
||||
"Reset it first if you're a current player, or dig again in "..timeout_format(timeout_limit))
|
||||
end
|
||||
|
||||
function realchess.on_move(pos, from_list, from_index)
|
||||
local inv = minetest.get_meta(pos):get_inventory()
|
||||
inv:set_stack(from_list, from_index, '')
|
||||
return false
|
||||
minetest.chat_send_player(playerName, chat_prefix ..
|
||||
"You can't dig the chessboard, a game has been started. " ..
|
||||
"Reset it first if you're a current player, or dig it again in " ..
|
||||
timeout_format(timeout_limit))
|
||||
end
|
||||
|
||||
minetest.register_node(":realchess:chessboard", {
|
||||
|
|
@ -620,17 +855,17 @@ minetest.register_node(":realchess:chessboard", {
|
|||
local function register_piece(name, count)
|
||||
for _, color in pairs({"black", "white"}) do
|
||||
if not count then
|
||||
minetest.register_craftitem(":realchess:"..name.."_"..color, {
|
||||
description = color:gsub("^%l", string.upper).." "..name:gsub("^%l", string.upper),
|
||||
inventory_image = name.."_"..color..".png",
|
||||
minetest.register_craftitem(":realchess:" .. name .. "_" .. color, {
|
||||
description = color:gsub("^%l", string.upper) .. " " .. name:gsub("^%l", string.upper),
|
||||
inventory_image = name .. "_" .. color .. ".png",
|
||||
stack_max = 1,
|
||||
groups = {not_in_creative_inventory=1}
|
||||
})
|
||||
else
|
||||
for i = 1, count do
|
||||
minetest.register_craftitem(":realchess:"..name.."_"..color.."_"..i, {
|
||||
description = color:gsub("^%l", string.upper).." "..name:gsub("^%l", string.upper),
|
||||
inventory_image = name.."_"..color..".png",
|
||||
minetest.register_craftitem(":realchess:" .. name .. "_" .. color .. "_" .. i, {
|
||||
description = color:gsub("^%l", string.upper) .. " " .. name:gsub("^%l", string.upper),
|
||||
inventory_image = name .. "_" .. color .. ".png",
|
||||
stack_max = 1,
|
||||
groups = {not_in_creative_inventory=1}
|
||||
})
|
||||
|
|
|
|||
Binary file not shown.
|
Before Width: | Height: | Size: 678 B After Width: | Height: | Size: 29 KiB |
Loading…
Reference in New Issue