1
0
mirror of https://github.com/LDDestroier/CC/ synced 2024-12-04 23:39:58 +00:00
ldd-CC/connect4.lua
2018-12-13 18:07:25 -05:00

333 lines
7.2 KiB
Lua

local scr_x, scr_y = term.getSize()
local midX, midY = .5 * scr_x, .5 * scr_y
local origTX, origBG = term.getTextColor(), term.getBackgroundColor()
local winLength = 4
local sleepDelay = 0.05
local moveCount = 0
local board = {} -- connect 4 board; formatted like board[y][x]
local block = {} -- bottom blockage; formatted like block[x]
local waiting = false
local boardX, boardY = 7, 6 -- size of board
local palette = {
bg = colors.black, -- color of backdrop
board = colors.white, -- color of board
txt = colors.white -- color of text
}
local tiles = {
["bl"] = palette.bg, -- blank space
["P1"] = colors.red, -- player 1
["P2"] = colors.blue -- player 2
}
local you = "P1"
local nou = "P2"
local cwrite = function(text, y, doClear)
local cx, cy = term.getCursorPos()
term.setCursorPos(midX - math.floor(#text / 2), y or cy)
if doClear then term.clearLine() end
term.write(text)
end
local cblit = function(char, text, back, y, doClear)
local cx, cy = term.getCursorPos()
term.setCursorPos(midX - math.floor(#text / 2), y or cy)
if doClear then term.clearLine() end
term.blit(char, text, back)
end
local resetBoard = function()
board = {}
for y = 1, boardY do
board[y] = {}
for x = 1, boardX do
board[y][x] = {"bl", 0} -- owner, half-in mod
end
end
for x = 1, boardX do
block[x] = true
end
end
local addPiece = function(owner, x)
if board[1][x][1] == "bl" then
board[1][x] = {owner, 0, x, 1}
return true
else
return false
end
end
local moveTilesDown = function()
local settled = true -- allows for animated falling tiles
for y = boardY, 1, -1 do
for x = 1, boardX do
if board[y][x][1] ~= "bl" then
if board[y][x][2] == -1 then
board[y][x][2] = 0
settled = false
elseif (y + 1 <= boardY) then
if board[y + 1][x][1] == "bl" then
if board[y][x][2] == 0 then
board[y][x][2] = 1
settled = false
elseif board[y][x][2] == 1 then
board[y + 1][x] = {board[y][x][1], -1, x, y + 1}
board[y][x] = {"bl", 0, x, y}
settled = false
end
end
elseif not block[x] then
if board[y][x][2] == 0 then
board[y][x][2] = 1
settled = false
else
board[y][x] = {"bl", 0, x, y}
end
end
end
end
end
return settled
end
resetBoard()
local tileChar = {
{
"\131\148",
"\143\133",
},
{
"10",
"00",
},
{
"01",
"11",
}
}
local to_blit = {
[0] = " ",
[colors.white] = "0",
[colors.orange] = "1",
[colors.magenta] = "2",
[colors.lightBlue] = "3",
[colors.yellow] = "4",
[colors.lime] = "5",
[colors.pink] = "6",
[colors.gray] = "7",
[colors.lightGray] = "8",
[colors.cyan] = "9",
[colors.purple] = "a",
[colors.blue] = "b",
[colors.brown] = "c",
[colors.green] = "d",
[colors.red] = "e",
[colors.black] = "f",
}
term.setBackgroundColor(palette.bg)
term.clear()
local checkIfWinner = function()
local conditions = {}
-- check horizontal
for y = 1, boardY do
for x = 1, boardX - winLength + 1 do
conditions[#conditions+1] = {}
for w = 0, winLength - 1 do
conditions[#conditions][w+1] = board[y][x+w]
end
end
end
-- check vertical
for y = boardY - winLength + 1, 1, -1 do
for x = 1, boardX do
conditions[#conditions+1] = {}
for w = 0, winLength - 1 do
conditions[#conditions][w+1] = board[y+w][x]
end
end
end
-- check diagonals
for y = 1, boardY - winLength + 1 do
for x = 1, boardX - winLength + 1 do
conditions[#conditions+1] = {}
conditions[#conditions+1] = {}
for w = 0, winLength - 1 do
conditions[#conditions-1][w+1] = board[y+(winLength-w-1)][x+w]
conditions[#conditions][w+1] = board[y+w][x+w]
end
end
end
local winner, check
for set = 1, #conditions do
winner = true
check = conditions[set][1][1]
for piece = 2, #conditions[set] do
if conditions[set][piece][1] == "bl" or conditions[set][piece][1] ~= check then
winner = false
break
end
end
if winner then
return conditions[set][1][1], conditions[set]
end
end
return false
end
local renderBoard = function()
local tileColRep = {
["1"] = to_blit[palette.board]
}
local cx, cy
for y = 1, boardY + 1 do
if y == boardY + 1 then
term.setTextColor(palette.txt)
for x = 1, boardX do
term.setCursorPos(midX - (boardX) + (x - 1) * #tileChar[1][1], 4)
term.write(x)
end
cwrite("SPACE to clear", scr_y, false)
else
for ymod = 1, #tileChar[1] do
for x = 0, boardX do
cx = x * #tileChar[1][1] + (midX - boardX) - 2
cy = y * #tileChar[1] + ymod + (midY - boardY) - 1
if x == 0 then
term.setCursorPos(cx + 1, cy)
term.blit("\149", to_blit[palette.bg], to_blit[palette.board])
else
term.setCursorPos(cx, cy)
if (board[y][x][2] == 0) or (board[y][x][2] == -1 and ymod == 1) or (board[y][x][2] == 1 and ymod == 2) then
tileColRep["0"] = to_blit[tiles[ board[y][x][1] ]]
elseif board[y][x][2] == 2 then
tileColRep["0"] = to_blit[palette.board]
else
tileColRep["0"] = to_blit[tiles["bl"]]
end
term.blit(
tileChar[1][ymod],
tileChar[2][ymod]:gsub(".", tileColRep),
tileChar[3][ymod]:gsub(".", tileColRep)
)
end
end
end
end
end
end
local getInput = function()
local evt
while true do
evt = {os.pullEvent()}
if evt[1] == "char" then
if tonumber(evt[2]) then
if tonumber(evt[2]) >= 1 and tonumber(evt[2]) <= boardX then
if not waiting then
if board[1][tonumber(evt[2])][1] == "bl" then
addPiece(you, tonumber(evt[2]))
moveCount = moveCount + 1
you, nou = nou, you
waiting = true
end
end
end
end
if evt[2] == " " then
os.queueEvent("clear_board")
for y = 1, boardY do
for x = 1, boardX do
board[y][x][2] = 0
end
end
for x = 1, boardX do
block[x] = false
sleep(0.05)
end
moveCount = 0
you, nou = "P1", "P2"
sleep(1)
for x = 1, boardX do
block[x] = true
end
elseif evt[2] == "q" then
return "exit"
end
end
end
end
local main = function()
local winner, winPieces
while true do
renderBoard()
while not moveTilesDown() do
sleep(sleepDelay)
renderBoard()
end
winner, winPieces = checkIfWinner()
term.setTextColor(palette.txt)
if winner then
cblit(
"Winner: " .. winner,
to_blit[palette.txt]:rep(8) .. to_blit[tiles[winner]]:rep(#winner),
to_blit[palette.bg]:rep(8 + #winner),
1,
true
)
parallel.waitForAny(function()
while true do
for p = 1, #winPieces do
board[winPieces[p][4]][winPieces[p][3]][2] = 0
end
renderBoard()
sleep(0.3)
for p = 1, #winPieces do
board[winPieces[p][4]][winPieces[p][3]][2] = 2
end
renderBoard()
sleep(0.2)
end
end, function()
local evt
repeat
evt = {os.pullEvent()}
until evt[1] == "clear_board"
end)
elseif moveCount >= boardX * boardY then
cwrite("It's a tie.", 1, true)
waiting = true
else
waiting = false
cblit(
"It's " .. you .. "'s turn.",
to_blit[palette.txt]:rep(5) .. to_blit[tiles[you]]:rep(#you) .. to_blit[palette.txt]:rep(8),
to_blit[palette.bg]:rep(13 + #you),
1,
true
)
end
sleep(sleepDelay)
end
end
parallel.waitForAny(main, getInput)
cwrite("Thanks for playing!", 1, true)
term.setCursorPos(1, scr_y)
term.clearLine()