MTSR/xdecor-libre
4
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Chess : code style cleanup

Browse Source
This commit is contained in:
Jean-Patrick Guerrero 2016-02-17 22:53:00 +01:00
parent 7b7cd4084c
commit a3ed667eec
1 changed files with 68 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

157
chess.lua
View File

@ -1,12 +1,10 @@
-- See https://github.com/kilbith/realchess for the main repository
local realchess = {} local realchess = {}
screwdriver = screwdriver or {} screwdriver = screwdriver or {}
local function index_to_xy(index) local function index_to_xy(idx)
index = index - 1 idx = idx - 1
local x = index % 8 local x = idx % 8
local y = (index - x) / 8 local y = (idx - x) / 8
return x, y return x, y
end end
@ -17,8 +15,6 @@ end
function realchess.init(pos) function realchess.init(pos)
local meta = minetest.get_meta(pos) local meta = minetest.get_meta(pos)
local inv = meta:get_inventory() local inv = meta:get_inventory()
inv:set_size("board", 64)
local formspec = [[ size[8,8.6;] local formspec = [[ size[8,8.6;]
bgcolor[#080808BB;true] bgcolor[#080808BB;true]
@ -28,13 +24,13 @@ function realchess.init(pos)
listcolors[#00000000;#00000000;#00000000;#30434C;#FFF] ]] listcolors[#00000000;#00000000;#00000000;#30434C;#FFF] ]]
meta:set_string("formspec", formspec) meta:set_string("formspec", formspec)
meta:set_string("infotext", "Chess Board") meta:set_string("infotext", "Chess Board")
meta:set_string("playerBlack", "") meta:set_string("playerBlack", "")
meta:set_string("playerWhite", "") meta:set_string("playerWhite", "")
meta:set_string("lastMove", "") meta:set_string("lastMove", "")
meta:set_int("lastMoveTime", 0)
meta:set_string("winner", "") meta:set_string("winner", "")
meta:set_int("lastMoveTime", 0)
meta:set_int("castlingBlackL", 1) meta:set_int("castlingBlackL", 1)
meta:set_int("castlingBlackR", 1) meta:set_int("castlingBlackR", 1)
meta:set_int("castlingWhiteL", 1) meta:set_int("castlingWhiteL", 1)
@ -56,11 +52,9 @@ function realchess.init(pos)
"realchess:pawn_black_5", "realchess:pawn_black_5",
"realchess:pawn_black_6", "realchess:pawn_black_6",
"realchess:pawn_black_7", "realchess:pawn_black_7",
"realchess:pawn_black_8", "realchess:pawn_black_8",
"", "", "", "", "", "", "", "", '','','','','','','','','','','','','','','','',
"", "", "", "", "", "", "", "", '','','','','','','','','','','','','','','','',
"", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "",
"realchess:pawn_white_1", "realchess:pawn_white_1",
"realchess:pawn_white_2", "realchess:pawn_white_2",
"realchess:pawn_white_3", "realchess:pawn_white_3",
@ -78,9 +72,11 @@ function realchess.init(pos)
"realchess:knight_white_2", "realchess:knight_white_2",
"realchess:rook_white_2" "realchess:rook_white_2"
}) })
inv:set_size("board", 64)
end end
function realchess.move(pos, from_list, from_index, to_list, to_index, count, player) function realchess.move(pos, from_list, from_index, to_list, to_index, _, player)
if from_list ~= "board" and to_list ~= "board" then if from_list ~= "board" and to_list ~= "board" then
return 0 return 0
end end
@ -138,8 +134,9 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
local from_x, from_y = index_to_xy(from_index) 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)
if pieceFrom:find("pawn") then if pieceFrom:sub(11,14) == "pawn" then
if thisMove == "white" then if thisMove == "white" then
local pawnWhiteMove = inv:get_stack(from_list, xy_to_index(from_x, from_y - 1)):get_name()
-- white pawns can go up only -- white pawns can go up only
if from_y - 1 == to_y then if from_y - 1 == to_y then
if from_x == to_x then if from_x == to_x then
@ -158,13 +155,14 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
return 0 return 0
end end
elseif from_y - 2 == to_y then elseif from_y - 2 == to_y then
if pieceTo ~= "" or from_y < 6 or inv:get_stack(from_list, xy_to_index(from_x, from_y - 1)):get_name() ~= "" then if pieceTo ~= "" or from_y < 6 or pawnWhiteMove ~= "" then
return 0 return 0
end end
else else
return 0 return 0
end end
elseif thisMove == "black" then elseif thisMove == "black" then
local pawnBlackMove = inv:get_stack(from_list, xy_to_index(from_x, from_y + 1)):get_name()
-- black pawns can go down only -- black pawns can go down only
if from_y + 1 == to_y then if from_y + 1 == to_y then
if from_x == to_x then if from_x == to_x then
@ -183,7 +181,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
return 0 return 0
end end
elseif from_y + 2 == to_y then elseif from_y + 2 == to_y then
if pieceTo ~= "" or from_y > 1 or inv:get_stack(from_list, xy_to_index(from_x, from_y + 1)):get_name() ~= "" then if pieceTo ~= "" or from_y > 1 or pawnBlackMove ~= "" then
return 0 return 0
end end
else else
@ -212,7 +210,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
return 0 return 0
end end
elseif pieceFrom:find("rook") then elseif pieceFrom:sub(11,14) == "rook" then
if from_x == to_x then if from_x == to_x then
-- moving vertically -- moving vertically
if from_y < to_y then if from_y < to_y then
@ -256,37 +254,25 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
return 0 return 0
end end
if thisMove == "white" then if thisMove == "white" or thisMove == "black" then
if pieceFrom:find("1") then if pieceFrom:sub(-1) == "1" then
meta:set_int("castlingWhiteL", 0) meta:set_int("castlingWhiteL", 0)
elseif pieceFrom:find("2") then elseif pieceFrom:sub(-1) == "2" then
meta:set_int("castlingWhiteR", 0)
end
elseif thisMove == "black" then
if pieceFrom:find("1") then
meta:set_int("castlingWhiteL", 0)
elseif pieceFrom:find("2") then
meta:set_int("castlingWhiteR", 0) meta:set_int("castlingWhiteR", 0)
end end
end end
elseif pieceFrom:find("knight") then elseif pieceFrom:sub(11,16) == "knight" then
-- get relative pos -- get relative pos
local dx = from_x - to_x local dx = from_x - to_x
local dy = from_y - to_y local dy = from_y - to_y
-- get absolute values -- get absolute values
if dx < 0 then if dx < 0 then dx = -dx end
dx = -dx if dy < 0 then dy = -dy end
end
if dy < 0 then
dy = -dy
end
-- sort x and y -- sort x and y
if dx > dy then if dx > dy then dx, dy = dy, dx end
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 if dx ~= 1 or dy ~= 2 then
@ -295,23 +281,17 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
-- just ensure that destination cell does not contain friend piece -- just ensure that destination cell does not contain friend piece
-- ^ it was done already thus everything ok -- ^ it was done already thus everything ok
elseif pieceFrom:find("bishop") then elseif pieceFrom:sub(11,16) == "bishop" then
-- get relative pos -- get relative pos
local dx = from_x - to_x local dx = from_x - to_x
local dy = from_y - to_y local dy = from_y - to_y
-- get absolute values -- get absolute values
if dx < 0 then if dx < 0 then dx = -dx end
dx = -dx if dy < 0 then dy = -dy end
end
if dy < 0 then
dy = -dy
end
-- ensure dx and dy are equal -- ensure dx and dy are equal
if dx ~= dy then if dx ~= dy then return 0 end
return 0
end
if from_x < to_x then if from_x < to_x then
if from_y < to_y then if from_y < to_y then
@ -351,17 +331,13 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
end end
end end
elseif pieceFrom:find("queen") then elseif pieceFrom:sub(11,15) == "queen" then
local dx = from_x - to_x local dx = from_x - to_x
local dy = from_y - to_y local dy = from_y - to_y
-- get absolute values -- get absolute values
if dx < 0 then if dx < 0 then dx = -dx end
dx = -dx if dy < 0 then dy = -dy end
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 if dx ~= 0 and dy ~= 0 and dx ~= dy then
@ -440,7 +416,7 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
end end
end end
elseif pieceFrom:find("king") then elseif pieceFrom:sub(11,14) == "king" then
local dx = from_x - to_x local dx = from_x - to_x
local dy = from_y - to_y local dy = from_y - to_y
local check = true local check = true
@ -448,7 +424,10 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
if thisMove == "white" then if thisMove == "white" then
if from_y == 7 and to_y == 7 then if from_y == 7 and to_y == 7 then
if to_x == 1 then if to_x == 1 then
if meta:get_int("castlingWhiteL") == 1 and inv:get_stack(from_list, 57):get_name() == "realchess:rook_white_1" then local castlingWhiteL = meta:get_int("castlingWhiteL")
local idx57 = inv:get_stack(from_list, 57):get_name()
if castlingWhiteL == 1 and idx57 == "realchess:rook_white_1" then
for i = 58, from_index - 1 do for i = 58, from_index - 1 do
if inv:get_stack(from_list, i):get_name() ~= "" then if inv:get_stack(from_list, i):get_name() ~= "" then
return 0 return 0
@ -459,7 +438,10 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
check = false check = false
end end
elseif to_x == 6 then elseif to_x == 6 then
if meta:get_int("castlingWhiteR") == 1 and inv:get_stack(from_list, 64):get_name() == "realchess:rook_white_2" then local castlingWhiteR = meta:get_int("castlingWhiteR")
local idx64 = inv:get_stack(from_list, 64):get_name()
if castlingWhiteR == 1 and idx64 == "realchess:rook_white_2" then
for i = from_index + 1, 63 do for i = from_index + 1, 63 do
if inv:get_stack(from_list, i):get_name() ~= "" then if inv:get_stack(from_list, i):get_name() ~= "" then
return 0 return 0
@ -474,7 +456,10 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
elseif thisMove == "black" then elseif thisMove == "black" then
if from_y == 0 and to_y == 0 then if from_y == 0 and to_y == 0 then
if to_x == 1 then if to_x == 1 then
if meta:get_int("castlingBlackL") == 1 and inv:get_stack(from_list, 1):get_name() == "realchess:rook_black_1" then local castlingBlackL = meta:get_int("castlingBlackL")
local idx1 = inv:get_stack(from_list, 1):get_name()
if castlingBlackL == 1 and idx1 == "realchess:rook_black_1" then
for i = 2, from_index - 1 do for i = 2, from_index - 1 do
if inv:get_stack(from_list, i):get_name() ~= "" then if inv:get_stack(from_list, i):get_name() ~= "" then
return 0 return 0
@ -485,7 +470,10 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
check = false check = false
end end
elseif to_x == 6 then elseif to_x == 6 then
if meta:get_int("castlingBlackR") == 1 and inv:get_stack(from_list, 8):get_name() == "realchess:rook_black_2" then local castlingBlackR = meta:get_int("castlingBlackR")
local idx8 = inv:get_stack(from_list, 1):get_name()
if castlingBlackR == 1 and idx8 == "realchess:rook_black_2" then
for i = from_index + 1, 7 do for i = from_index + 1, 7 do
if inv:get_stack(from_list, i):get_name() ~= "" then if inv:get_stack(from_list, i):get_name() ~= "" then
return 0 return 0
@ -500,16 +488,9 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
end end
if check then if check then
if dx < 0 then if dx < 0 then dx = -dx end
dx = -dx if dy < 0 then dy = -dy end
end if dx > 1 or dy > 1 then return 0 end
if dy < 0 then
dy = -dy
end
if dx > 1 or dy > 1 then
return 0
end
end end
if thisMove == "white" then if thisMove == "white" then
@ -525,16 +506,17 @@ function realchess.move(pos, from_list, from_index, to_list, to_index, count, pl
meta:set_string("playerBlack", playerBlack) meta:set_string("playerBlack", playerBlack)
meta:set_string("lastMove", thisMove) meta:set_string("lastMove", thisMove)
meta:set_int("lastMoveTime", minetest.get_gametime()) meta:set_int("lastMoveTime", minetest.get_gametime())
local lastMove = meta:get_string("lastMove")
if meta:get_string("lastMove") == "black" then if lastMove == "black" then
minetest.chat_send_player(playerWhite, "["..os.date("%H:%M:%S").."] ".. minetest.chat_send_player(playerWhite, "["..os.date("%H:%M:%S").."] "..
playerName.." has moved a "..pieceFrom:match(":(.-)%_")..", it's now your turn.") playerName.." moved a "..pieceFrom:match(":(%a+)")..", it's now your turn.")
elseif meta:get_string("lastMove") == "white" then elseif lastMove == "white" then
minetest.chat_send_player(playerBlack, "["..os.date("%H:%M:%S").."] ".. minetest.chat_send_player(playerBlack, "["..os.date("%H:%M:%S").."] "..
playerName.." has moved a "..pieceFrom:match(":(.-)%_")..", it's now your turn.") playerName.." moved a "..pieceFrom:match(":(%a+)")..", it's now your turn.")
end end
if pieceTo:find("king") then if pieceTo:sub(11,14) == "king" then
minetest.chat_send_player(playerBlack, playerName.." won the game.") minetest.chat_send_player(playerBlack, playerName.." won the game.")
minetest.chat_send_player(playerWhite, playerName.." won the game.") minetest.chat_send_player(playerWhite, playerName.." won the game.")
meta:set_string("winner", thisMove) meta:set_string("winner", thisMove)
@ -552,20 +534,20 @@ local function timeout_format(timeout_limit)
return minutes.." min. "..seconds.." sec." return minutes.." min. "..seconds.." sec."
end end
function realchess.fields(pos, formname, fields, sender) function realchess.fields(pos, _, fields, sender)
local playerName = sender:get_player_name() local playerName = sender:get_player_name()
local meta = minetest.get_meta(pos) local meta = minetest.get_meta(pos)
local timeout_limit = meta:get_int("lastMoveTime") + 300 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")
if fields.quit then return end if fields.quit then return end
-- timeout is 5 min. by default for resetting the game (non-players only) -- timeout is 5 min. by default for resetting the game (non-players only)
if fields.new and (meta:get_string("playerWhite") == playerName or if fields.new and (playerWhite == playerName or playerBlack == playerName) then
meta:get_string("playerBlack") == playerName) then
realchess.init(pos) realchess.init(pos)
elseif fields.new and meta:get_int("lastMoveTime") ~= 0 and elseif fields.new and lastMoveTime ~= 0 and minetest.get_gametime() >= timeout_limit and
minetest.get_gametime() >= timeout_limit and (playerWhite ~= playerName or playerBlack ~= playerName) then
(meta:get_string("playerWhite") ~= playerName or
meta:get_string("playerBlack") ~= playerName) then
realchess.init(pos) realchess.init(pos)
else else
minetest.chat_send_player(playerName, "[!] You can't reset the chessboard, a game has been started.\n".. minetest.chat_send_player(playerName, "[!] You can't reset the chessboard, a game has been started.\n"..
@ -577,18 +559,15 @@ function realchess.dig(pos, player)
local meta = minetest.get_meta(pos) local meta = minetest.get_meta(pos)
local playerName = player:get_player_name() local playerName = player:get_player_name()
local timeout_limit = meta:get_int("lastMoveTime") + 300 local timeout_limit = meta:get_int("lastMoveTime") + 300
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)
if meta:get_int("lastMoveTime") ~= 0 and minetest.get_gametime() <= timeout_limit then 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".. 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)) "Reset it first if you're a current player, or dig again in "..timeout_format(timeout_limit))
return false
end
return true
end end
function realchess.on_move(pos, from_list, from_index, to_list, to_index, count, player) function realchess.on_move(pos, from_list, from_index)
local inv = minetest.get_meta(pos):get_inventory() local inv = minetest.get_meta(pos):get_inventory()
inv:set_stack(from_list, from_index, '') inv:set_stack(from_list, from_index, '')
return false return false