mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-12 15:50:20 -08:00
Initial implementation of bombsaway.bas in Lua
This commit is contained in:
BrianWilkinsFL
211
12_Bombs_Away/lua/bombs_away.lua
Normal file
211
12_Bombs_Away/lua/bombs_away.lua
Normal file
@@ -0,0 +1,211 @@
|
||||
-- Ported by Brian Wilkins (BrianWilkinsFL)
|
||||
-- Influenced by bombsaway.py
|
||||
-- Requires: Lua 5.4.x
|
||||
|
||||
missileHitRate = 0
|
||||
gunsHitRate = 0
|
||||
|
||||
nanMessage = "Invalid user entry! Please use a number and try again."
|
||||
function has_key(table, key)
|
||||
return table[key]~=nil
|
||||
end
|
||||
|
||||
function choice(prompt, table)
|
||||
resp = getInput(prompt)
|
||||
while not has_key(table, resp) do
|
||||
print("TRY AGAIN...")
|
||||
resp = getInput(prompt)
|
||||
end
|
||||
return resp
|
||||
end
|
||||
|
||||
-- reused from Bagels.lua
|
||||
function getInput(prompt)
|
||||
io.write(prompt)
|
||||
io.flush()
|
||||
local input = io.read("l")
|
||||
if not input then --- test for EOF
|
||||
print("GOODBYE")
|
||||
os.exit(0)
|
||||
end
|
||||
return input
|
||||
end
|
||||
|
||||
function playerSurvived()
|
||||
print("YOU MADE IT THROUGH TREMENDOUS FLAK!!")
|
||||
end
|
||||
|
||||
function playerDeath()
|
||||
print("* * * * BOOM * * * *")
|
||||
print("YOU HAVE BEEN SHOT DOWN.....")
|
||||
print("DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR")
|
||||
print("LAST TRIBUTE...")
|
||||
end
|
||||
|
||||
-- Enhancement: Partially killed don't count so floor the float
|
||||
function missionSuccess()
|
||||
print("DIRECT HIT!!!! " .. math.floor(100*math.random()) .. " KILLED.")
|
||||
print("MISSION SUCCESSFUL.")
|
||||
end
|
||||
|
||||
function missionFailure()
|
||||
weapons_choices = {
|
||||
["1"] = "GUNS",
|
||||
["2"] = "MISSILES",
|
||||
["3"] = "BOTH",
|
||||
}
|
||||
print("MISSED TARGET BY " .. math.floor(2 + 30 * math.random()) .. " MILES!")
|
||||
print("NOW YOU'RE REALLY IN FOR IT !!")
|
||||
print()
|
||||
enemy_weapons = choice("DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)? ", weapons_choices)
|
||||
|
||||
if enemy_weapons == "2" or enemy_weapons == "3" then
|
||||
missileHitRate = 35
|
||||
end
|
||||
|
||||
if enemy_weapons == "2" then
|
||||
-- gunsHitRate is a reused global variable so
|
||||
-- its possible that previously selected gunsHitRate
|
||||
-- will be used here leading to interesting
|
||||
-- randomness
|
||||
if missileHitRate+gunsHitRate > 100*math.random() then
|
||||
playerDeath()
|
||||
else
|
||||
playerSurvived()
|
||||
end
|
||||
end
|
||||
|
||||
if enemy_weapons == "1" or enemy_weapons == "3" then
|
||||
while true do
|
||||
resp = getInput("WHAT'S THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)? ")
|
||||
if assert(tonumber(resp)) then
|
||||
gunsHitRate = tonumber(resp)
|
||||
break
|
||||
end
|
||||
end
|
||||
if gunsHitRate < 10 then
|
||||
print("YOU LIE, BUT YOU'LL PAY...")
|
||||
playerDeath()
|
||||
return
|
||||
end
|
||||
if missileHitRate+gunsHitRate > 100*math.random() then
|
||||
playerDeath()
|
||||
else
|
||||
playerSurvived()
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- override assert so Lua doesn't throw an error
|
||||
-- and stack trace
|
||||
-- We just want the user to enter in a correct value
|
||||
assert = function(truth, message)
|
||||
if not truth then
|
||||
print(message)
|
||||
end
|
||||
return truth
|
||||
end
|
||||
|
||||
-- Added logic to verify user is actually entering in a number
|
||||
function commence_non_kamikaze_attack()
|
||||
local numMissions = 0
|
||||
while numMissions < 160 do
|
||||
while numMissions == 0 do
|
||||
resp = getInput("HOW MANY MISSIONS HAVE YOU FLOWN? ")
|
||||
if assert(tonumber(resp), nanMessage) then
|
||||
numMissions = tonumber(resp)
|
||||
break
|
||||
end
|
||||
end
|
||||
if numMissions < 160 then break end
|
||||
|
||||
print("MISSIONS, NOT MILES...")
|
||||
print("150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS.")
|
||||
print("NOW THEN, ")
|
||||
numMissions = 0
|
||||
end
|
||||
|
||||
if numMissions >= 100 then
|
||||
print("THAT'S PUSHING THE ODDS!")
|
||||
end
|
||||
|
||||
if numMissions < 25 then
|
||||
print("FRESH OUT OF TRAINING, EH?")
|
||||
end
|
||||
|
||||
if numMissions >= 160*math.random() then
|
||||
missionSuccess()
|
||||
else
|
||||
missionFailure()
|
||||
end
|
||||
end
|
||||
|
||||
function playItaly()
|
||||
targets_to_messages = {
|
||||
["1"] = "SHOULD BE EASY -- YOU'RE FLYING A NAZI-MADE PLANE.",
|
||||
["2"] = "BE CAREFUL!!!",
|
||||
["3"] = "YOU'RE GOING FOR THE OIL, EH?",
|
||||
}
|
||||
|
||||
target = choice("YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)? ", targets_to_messages)
|
||||
print(targets_to_messages[target])
|
||||
commence_non_kamikaze_attack()
|
||||
end
|
||||
|
||||
function playAllies()
|
||||
aircraft_to_message = {
|
||||
["1"] = "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI.",
|
||||
["2"] = "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA.",
|
||||
["3"] = "YOU'RE CHASING THE BISMARK IN THE NORTH SEA.",
|
||||
["4"] = "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR.",
|
||||
}
|
||||
aircraft = choice("AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)? ", aircraft_to_message)
|
||||
print(aircraft_to_message[aircraft])
|
||||
commence_non_kamikaze_attack()
|
||||
end
|
||||
|
||||
function playJapan()
|
||||
print("YOU'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON.")
|
||||
first_mission = getInput("YOUR FIRST KAMIKAZE MISSION? (Y OR N)? "):match("[yYnN].*")
|
||||
if first_mission:lower() == "n" then
|
||||
return playerDeath()
|
||||
end
|
||||
if math.random() > 0.65 then
|
||||
return missionSuccess()
|
||||
else
|
||||
playerDeath()
|
||||
end
|
||||
end
|
||||
|
||||
function playGermany()
|
||||
targets_to_messages = {
|
||||
["1"] = "YOU'RE NEARING STALINGRAD.",
|
||||
["2"] = "NEARING LONDON. BE CAREFUL, THEY'VE GOT RADAR.",
|
||||
["3"] = "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS.",
|
||||
}
|
||||
target = choice("A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1),\nENGLAND(2), OR FRANCE(3)? ", targets_to_messages)
|
||||
|
||||
print(targets_to_messages[target])
|
||||
return commence_non_kamikaze_attack()
|
||||
end
|
||||
|
||||
function playGame()
|
||||
sides = {
|
||||
["1"] = playItaly,
|
||||
["2"] = playAllies,
|
||||
["3"] = playJapan,
|
||||
["4"] = playGermany
|
||||
}
|
||||
print("YOU ARE A PILOT IN A WORLD WAR II BOMBER.")
|
||||
|
||||
target = choice("WHAT SIDE -- ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)? ", sides)
|
||||
sides[target]()
|
||||
end
|
||||
|
||||
local again = true
|
||||
while again do
|
||||
playGame()
|
||||
again = getInput("ANOTHER MISSION (Y OR N)? "):match("[yY].*")
|
||||
end
|
||||
|
||||
print("CHICKEN !!!")
|
||||
Reference in New Issue
Block a user