Merge pull request #758 from BrianWilkinsFL/bombsaway-lua

Initial implementation of bombsaway.bas in Lua

12_Bombs_Away/lua/bombs_away.lua

@@ -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 !!!")