Lua Programming/A simple card game
Appearance
A simple card Game.
When I was a lad, I'd copy acres of code from printed books to enter text games I could then play. The BASIC language was an OK start, but I'm struck at how messy it can get with all those GOTO statements. I re-wrote a simple game called ACEY DEUCY in lua trying to avoid the temptation to refactor too brutally.
There are lots of improvements you could make - why not have a try at making it better - or add graphics using Turtle or...
Any way - here 'tis:
--aceydeucy.lua
--[[
Displays the intro to the game
ACEY DUCEY CARD GAME - Ported from BASIC to Lua
by Jason Wraxall
byteclub.com.au
]]
function showIntro()
print [[
********* ACEY DUCEY CARD GAME
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY
ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER
THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP
YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING
ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE
A VALUE BETWEEN THE FIRST TWO.
IF YOU DO NOT WANT TO BET, ENTER A $0 BET
]]
end
--[[
Initialises the global bankBalance and random number generator
]]
function initGame()
bankBalance = 100
math.randomseed( os.time() )
end
--[[
shows the card type
]]
function showCard(val)
local cards={ nil, 2, 3, 4, 5, 6, 7, 8, 9, 10, "JACK", "QUEEN", "KING", "ACE"}
return cards[val]
end
--[[
Displays the current bank balance (global)
]]
function showBalance()
print("YOU NOW HAVE "..bankBalance.." DOLLARS.")
print()
end
--[[
Adjusts the global balance
]]
function adjustBalance( amount )
bankBalance = bankBalance + amount
showBalance()
end
--[[
Generates a random card
]]
function dealCard()
local nextCardValue = math.random(2,14)
return nextCardValue
end
--[[
Deals cards returns a collection of two
]]
function dealCards()
print("HERE ARE THE NEXT TWO CARDS:")
local cardValues = {first=dealCard(),second=dealCard()}
print( "First Card:" .. showCard(cardValues.first) )
print( "Second Card:" .. showCard(cardValues.second) )
return cardValues
end
--[[
Inputs a bet value
]]
function getBet()
betOK = false
local betAmount = 0
-- Loop to get a valid bet or a zero bet
repeat
io.write("WHAT IS YOUR BET:");
local amount = io.read();
betAmount = tonumber(amount)
if betAmount==0 then
print("CHICKEN!!")
print()
betOK = true
end
if betAmount <= bankBalance then
betOK = true
else
print("SORRY, MY FRIEND, BUT YOU BET TOO MUCH.")
print("YOU HAVE ONLY " .. bankBalance .. " DOLLARS TO BET.")
end
until betOK
return betAmount
end
--[[
Deals another card and compares values
]]
function playRound( cardValues )
local playerCard = dealCard()
local firstCard = cardValues.first
local secondCard = cardValues.second
print( "Dealer Card" .. showCard(playerCard) )
local minValue = math.min( firstCard, secondCard )
local maxValue = math.max( firstCard, secondCard )
if playerCard>=minValue and playerCard <=maxValue then
print("YOU WIN!!!")
return true
end
print("You Lose!!")
return false
end
function endGameReplay()
print[[
SORRY, FRIEND, BUT YOU BLEW YOUR WAD.
]]
io.write("TRY AGAIN (Y/N)")
response = io.read()
if repsonse == "Y" then
return true
else
print("O.K., HOPE YOU HAD FUN!")
return false
end
end
-- Main Loop - Here's when the action happens
showIntro()
done = false -- when true the game loop ends
initGame()
-- Game Loop
repeat
local cardValues = dealCards()
local betAmount = getBet()
if betAmount == 0 then
done=true -- user said they don't want to play anymore
else
if playRound(cardValues) then
adjustBalance( betAmount )
else
adjustBalance( -betAmount )
-- if no more money then ask to start again
if bankBalance <= 0 then
if endGameReplay()==true then
-- start again
initGame() -- reset variables
end
done=true
end
end
end
until done