Can’t Stop Code
I put the finishing touches on the game today. Here is the code in case you want to give it a go in Codea. I learned Lua three days ago to get into Codea so I make no claims about how elegant the code is! I’m not sure if there is anything to really learn from this code but the game does work and is fun to play. Rules at http://en.wikipedia.org/wiki/Can’t_Stop_(board_game)
-- Can't Stop
-- Mike Houser
-- Use this function to perform your initial setup
function setup()
max=700
spacing=116
transx=260
dice={0,0,0,0}
kChoosePlayers = 1
kTurnStart = 2
kDiceRolled = 3
kSpotsPicked = 4
kBusted = 5
kGameOver = 6
gamestate = kChoosePlayers
playerrect = {{80,350,160,430},{80,250,160,330},{80,150,160,230},{80,50,160,130}}
playercolor = {{0,0,255,255},{255,0,0,255},{0,255,0,255},{255,255,0,255}}
offmult = 10
offset = {{-1,-1},{1,1},{1,-1},{-1,1}}
numplayers = 0
currentplayer = 0
displayMode(FULLSCREEN)
fontSize(32)
textMode(CENTER)
columnsfilled={false,false,false,false,false,false,false,false,false,false,false,false}
legalnums = {false,false,false,false,false,false,false,false,false,false,false,false}
columnrects = {}
markers = {0,0,0,0,0,0,0,0,0,0,0,0}
spotrects = {}
board = {}
setupSpots()
end
function setupSpots()
spots = 1
for x = spacing+4, max, spacing do
spotrects[spots+1] = {}
spotrects[13-spots] = {}
for i = 1, spots*2, 1 do
centerx = (x / (spots*2+1))*i
centery = ((x / (spots*2+1))*i) + (max-x)
spotrects[spots + 1][i] = {centerx+transx,centery,20,20}
spotrects[13 - spots][i] = {centery+transx,centerx,20,20}
end
spots = spots + 1
end
end
function setupBoard()
for i = 1,numplayers,1 do
board[i] = {}
for j = 2,7,1 do
board[i][j] = {}
board[i][14-j] = {}
for k = 1,((j-1)*2)+1,1 do
table.insert(board[i][j],false)
if j ~= 7 then
table.insert(board[i][14-j],false)
end
end
end
end
end
function rollDice()
for i = 1,4,1 do
dice[i]=math.random(1,6)
end
gamestate = kDiceRolled
legalnums = {false,false,false,false,false,false,false,false,false,false,false,false}
if not columnsfilled[dice[1]+dice[2]] then
if numMarkers() < 3 or markers[dice[1]+dice[2]] > 0 then
legalnums[dice[1]+dice[2]] = true
end
end
if not columnsfilled[dice[3]+dice[4]] then
if numMarkers() < 3 or markers[dice[3]+dice[4]] > 0 then
legalnums[dice[3]+dice[4]] = true
end
end
if not columnsfilled[dice[1]+dice[3]] then
if numMarkers() < 3 or markers[dice[1]+dice[3]] > 0 then
legalnums[dice[1]+dice[3]] = true
end
end
if not columnsfilled[dice[2]+dice[4]] then
if numMarkers() < 3 or markers[dice[2]+dice[4]] > 0 then
legalnums[dice[2]+dice[4]] = true
end
end
if not columnsfilled[dice[1]+dice[4]] then
if numMarkers() < 3 or markers[dice[1]+dice[4]] > 0 then
legalnums[dice[1]+dice[4]] = true
end
end
if not columnsfilled[dice[2]+dice[3]] then
if numMarkers() < 3 or markers[dice[2]+dice[3]] > 0 then
legalnums[dice[2]+dice[3]] = true
end
end
numlegalnums = 0
for i=2,12,1 do
if legalnums[i] then
numlegalnums = numlegalnums + 1
break
end
end
if numlegalnums == 0 then
gamestate = kBusted
end
end
function numMarkers()
num = 0
for i = 2,12,1 do
if markers[i] > 0 then
num = num + 1
end
end
return num
end
function topColumn(col)
if col < 8 then
return ((col-1)*2)+1
else
return ((13-col)*2)+1
end
end
function columnPositionWithMarkers(column)
if markers[column] > 0 then
return markers[column]
else
for i = #board[currentplayer][column],1,-1 do
if board[currentplayer][column][i] then
return i
end
end
return 0
end
end
function isGameOver()
numCols = 0
for i=2,7,1 do
if board[currentplayer][i][((i-1)*2)+1] then
numCols = numCols + 1
end
if i ~= 7 then
if board[currentplayer][14 - i][((i-1)*2)+1] then
numCols = numCols + 1
end
end
end
return numCols >= 3
end
function pullBackOverColumns()
for i = 2,7,1 do
if markers[i] > ((i-1)*2)+1 then
markers[i] = ((i-1)*2)+1
end
if markers[14-i] > ((i-1)*2)+1 then
markers[14-i] = ((i-1)*2)+1
end
end
end
function lockBoard()
for i = 2,12,1 do
if markers[i] > 0 then
if markers[i] < topColumn(i) then
for j = 1,markers[i]-1,1 do
board[currentplayer][i][j] = false
end
board[currentplayer][i][markers[i]] = true
else
columnsfilled[i] = true
board[currentplayer][i][topColumn(i)] = true
for j = 1,topColumn(i)-1,1 do
for player = 1,numplayers,1 do
board[player][i][j] = false
end
end
end
end
end
end
function columnHit(col)
markers[col] = columnPositionWithMarkers(col) + 1
if dice[1] + dice[2] == col then
if not columnsfilled[dice[3] + dice[4]] then
if numMarkers() < 3 or markers[dice[3] + dice[4]] > 0 then
markers[dice[3] + dice[4]] = columnPositionWithMarkers(dice[3] + dice[4]) + 1
end
end
elseif dice[1] + dice[3] == col then
if not columnsfilled[dice[2] + dice[4]] then
if numMarkers() < 3 or markers[dice[2] + dice[4]] > 0 then
markers[dice[2] + dice[4]] = columnPositionWithMarkers(dice[2] + dice[4]) + 1
end
end
elseif dice[1] + dice[4] == col then
if not columnsfilled[dice[2] + dice[3]] then
if numMarkers() < 3 or markers[dice[2] + dice[3]] > 0 then
markers[dice[2] + dice[3]] = columnPositionWithMarkers(dice[2] + dice[3]) + 1
end
end
elseif dice[2] + dice[3] == col then
if not columnsfilled[dice[1] + dice[4]] then
if numMarkers() < 3 or markers[dice[1] + dice[4]] > 0 then
markers[dice[1] + dice[4]] = columnPositionWithMarkers(dice[1] + dice[4]) + 1
end
end
elseif dice[2] + dice[4] == col then
if not columnsfilled[dice[1] + dice[3]] then
if numMarkers() < 3 or markers[dice[1] + dice[3]] > 0 then
markers[dice[1] + dice[3]] = columnPositionWithMarkers(dice[1] + dice[3]) + 1
end
end
elseif dice[3] + dice[4] == col then
if not columnsfilled[dice[1] + dice[2]] then
if numMarkers() < 3 or markers[dice[1] + dice[2]] > 0 then
markers[dice[1] + dice[2]] = columnPositionWithMarkers(dice[1] + dice[2]) + 1
end
end
end
pullBackOverColumns()
legalnums = {false,false,false,false,false,false,false,false,false,false,false,false}
gamestate = kSpotsPicked
end
function stopHit()
lockBoard()
markers = {0,0,0,0,0,0,0,0,0,0,0,0}
if isGameOver() then
gamestate = kGameOver
else
currentplayer = currentplayer + 1
if currentplayer > numplayers then
currentplayer = 1
end
gamestate = kTurnStart
dice = {0,0,0,0}
end
end
function bustHit()
currentplayer = currentplayer + 1
if currentplayer > numplayers then
currentplayer = 1
end
markers = {0,0,0,0,0,0,0,0,0,0,0,0}
gamestate = kTurnStart
dice = {0,0,0,0}
end
function touched(touch)
if touch.state ~= ENDED then
return
end
if gamestate == kChoosePlayers then
for i = 1,4,1 do
if touch.x > playerrect[i][1] and touch.x < playerrect[i][3] then
if touch.y > playerrect[i][2] and touch.y < playerrect[i][4] then
numplayers = i
currentplayer = 1
gamestate = kTurnStart
setupBoard()
markers = {0,0,0,0,0,0,0,0,0,0,0,0}
break
end
end
end
elseif gamestate == kTurnStart or gamestate == kSpotsPicked then
if touch.x > 0 and touch.x < 230 then
if touch.y > 530 and touch.y < 720 then
rollDice()
end
end
if gamestate == kSpotsPicked then
if touch.x > 55 and touch.x < 182 then
if touch.y > 461 and touch.y < 530 then
stopHit()
end
end
end
elseif gamestate == kBusted then
if touch.x > 55 and touch.x < 182 then
if touch.y > 461 and touch.y < 530 then
bustHit()
end
end
elseif gamestate == kGameOver then
if touch.x > 55 and touch.x < 182 then
if touch.y > 461 and touch.y < 530 then
setup()
end
end
elseif gamestate == kDiceRolled then
for i = 2,12,1 do
if legalnums[i] then
if touch.x > columnrects[i][1] and touch.x < columnrects[i][1] + columnrects[i][3] then
if touch.y > columnrects[i][2] and touch.y < columnrects[i][2] + columnrects[i][4] then
columnHit(i)
end
end
end
end
end
end
-- This function gets called once every frame
function draw()
background(0, 0, 0, 255)
strokeWidth(5)
stroke(255, 255, 255, 255)
fill(0, 0, 0, 255)
ellipseMode(CENTER)
-- draw board
if gamestate > kChoosePlayers then
spots = 1
for x = spacing+4, max, spacing do
fill(0, 0, 0, 255)
stroke(255, 255, 255, 255)
for player = 1,numplayers,1 do
if board[player][spots+1][topColumn(spots+1)] then
stroke(playercolor[player][1],playercolor[player][2], playercolor[player][3], playercolor[player][4])
end
end
line(x+transx,max,0+transx,max-x)
stroke(255, 255, 255, 255)
for player = 1,numplayers,1 do
if board[player][13-spots][topColumn(13-spots)] then
stroke(playercolor[player][1],playercolor[player][2], playercolor[player][3], playercolor[player][4])
end
end
line(max+transx,x,transx+(max-x),0)
stroke(255, 255, 255, 255)
for i = 2,12,1 do
for j = 1, #spotrects[i], 1 do
stroke(255, 255, 255, 255)
fill(0, 0, 0, 255)
for player = 1,numplayers,1 do
if board[player][i][topColumn(i)] then
stroke(playercolor[player][1],playercolor[player][2], playercolor[player][3], playercolor[player][4])
end
end
ellipse(spotrects[i][j][1],spotrects[i][j][2],spotrects[i][j][3], spotrects[i][j][4])
if markers[i] == j then
fill(255, 255, 255, 0)
stroke(167, 157, 157, 255)
rect(spotrects[i][j][1] - 19,spotrects[i][j][2] - 19,spotrects[i][j][3] + 20, spotrects[i][j][4] + 20)
end
for player = 1,numplayers,1 do
if board[player][i][j] then
fill(playercolor[player][1],playercolor[player][2], playercolor[player][3], playercolor[player][4])
stroke(playercolor[player][1],playercolor[player][2], playercolor[player][3], playercolor[player][4])
ellipse(spotrects[i][j][1] + offset[player][1]*offmult,spotrects[i][j][2] + offset[player][2]*offmult,25,25)
end
end
end
end
font("Arial-BoldMT")
fill(255, 255, 255, 255)
for player = 1,numplayers,1 do
if board[player][spots+1][topColumn(spots+1)] then
fill(playercolor[player][1],playercolor[player][2], playercolor[player][3], playercolor[player][4])
end
end
text(tostring(spots+1),x+transx+30,max+30)
columnrects[spots+1] = {x+transx+6,max+5,50,50}
if legalnums[spots+1] then
fill(255, 255, 255, 255)
stroke(255, 255, 255, 255)
rect(x+transx+6,max+5,50,50)
fill(0, 0, 0, 255)
text(tostring(spots+1),x+transx+30,max+30)
end
if markers[spots+1] == (spots*2)+1 then
fill(255, 0, 0, 0)
stroke(167, 157, 157, 255)
rect(x+transx+6,max+5,50,50)
end
fill(255, 255, 255, 255)
for player = 1,numplayers,1 do
if board[player][13-spots][topColumn(13-spots)] then
fill(playercolor[player][1],playercolor[player][2], playercolor[player][3], playercolor[player][4])
end
end
text(tostring(13-spots),max+30+transx,x+30)
columnrects[13-spots] = {max+6+transx,x+6,50,50}
if legalnums[13-spots] then
fill(255, 255, 255, 255)
stroke(255, 255, 255, 255)
rect(max+6+transx,x+6,50,50)
fill(0, 0, 0, 255)
text(tostring(13-spots),max+30+transx,x+30)
end
if markers[13-spots] == (spots*2)+1 then
fill(255, 255, 255, 0)
stroke(167, 157, 157, 255)
rect(max+6+transx,x+6,50,50)
end
spots = spots + 1
end
--draw dice
stroke(252, 252, 252, 255)
fill(182, 175, 175, 255)
rect(30,650,80,80)
rect(130,650,80,80)
rect(30,550,80,80)
rect(130,550,80,80)
fill(255, 255, 255, 255)
if dice[1] > 0 then
text(tostring(dice[1]),70,690)
text(tostring(dice[2]),170, 690)
text(tostring(dice[3]),70,590)
text(tostring(dice[4]),170,590)
end
for i=1,numplayers,1 do
if gamestate == kGameOver then
if i == currentplayer then
drawplayer(i)
end
else
drawplayer(i)
end
end
if gamestate == kSpotsPicked then
drawStopSign()
elseif gamestate == kBusted then
drawBusted()
elseif gamestate == kGameOver then
drawNewGame()
end
else
strokeWidth(5)
fill(255, 255, 255, 255)
font("Arial-BoldItalicMT")
text("Choose # of Players",159,468)
for i=1,4,1 do
drawplayer(i)
end
end
end
function drawplayer(player)
stroke(playercolor[player][1], playercolor[player][2], playercolor[player][3], playercolor[player][4])
if player == currentplayer then
fill(0, 0, 0, 255)
rect(playerrect[player][1]-10, playerrect[player][2]-10, 100, 100)
end
fill(playercolor[player][1], playercolor[player][2], playercolor[player][3], playercolor[player][4])
rect(playerrect[player][1], playerrect[player][2], 80, 80)
if player < 4 then
fill(255, 255, 255, 255)
else
fill(0, 0, 0, 255)
end
font("Arial-BoldMT")
text(tostring(player), playerrect[player][1] + 40, playerrect[player][2] + 40)
if player == currentplayer then
fill(0, 0, 0, 0)
stroke(157, 157, 157, 255)
if numMarkers() < 1 then
rect(playerrect[player][1] - 40, playerrect[player][2] + 64, 25, 25)
end
if numMarkers() < 2 then
rect(playerrect[player][1] - 40, playerrect[player][2] + 28, 25, 25)
end
if numMarkers() < 3 then
rect(playerrect[player][1] - 40, playerrect[player][2] - 8, 25, 25)
end
end
end
function drawStopSign()
stroke(255, 0, 0, 255)
fill(255, 0, 0, 255)
rect(55,461,127,69)
font("Arial-BoldMT")
fill(255, 255, 255, 255)
text("STOP",121,494)
end
function drawBusted()
stroke(255, 0, 0, 255)
fill(255, 0, 0, 0)
rect(55,461,127,69)
font("Arial-BoldMT")
fill(255, 255, 255, 255)
text("BUST",121,494)
end
function drawNewGame()
stroke(255, 255, 255, 255)
fill(255, 0, 0, 0)
rect(55,461,127,69)
font("Arial-BoldMT")
fill(255, 255, 255, 255)
text("WIN!",121,494)
end
