mirror of
https://github.com/LDDestroier/CC/
synced 2024-12-04 23:39:58 +00:00
333 lines
7.2 KiB
Lua
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()
|