Lua representation of flipflop game

36_Flip_Flop/lua/flipflop-game.lua

@@ -0,0 +1,183 @@
+--[[
+Game of FlipFlop
+===============
+
+Based on the original BASIC game of FlipFlop from the 1970s.
+
+This is a faithful recreation of the classic game, maintaining the original gameplay
+while modernizing the implementation for Lua. For example, the original's complex
+trigonometric random number generation has been replaced with Lua's math.random,
+as modern random number generators are more sophisticated than those available
+in 1970s BASIC.
+
+How to Play:
+-----------
+The game presents a row of 10 X's. Your goal is to flip all X's to O's.
+Enter a number from 1-10 to flip that position. The computer will also make
+random moves in response. Special commands:
+- Enter 0 to see the current board again
+- Enter 11 to quit the game
+Try to complete the puzzle in 12 moves or fewer for the best score!
+
+Strategy Tips:
+------------
+- When you make a move, watch how the computer responds. It will often
+  make a predictable counter-move.
+- If you enter the same position twice, the computer will use a different
+  random pattern for its response.
+- Try to work systematically from one end of the board to the other,
+  rather than making random moves.
+- If you get stuck, sometimes starting over (11) is better than continuing
+  with a poor position.
+
+Technical Notes:
+--------------
+- Written for Lua 5.1 compatibility
+- Uses tables for game state management
+- Implements original game logic without goto statements
+- Preserves the original game's move counting and win conditions
+- Maintains the classic text-based interface style
+
+Original BASIC Version:
+--------------------
+The original game used complex trigonometric functions for random number
+generation, likely due to limitations in BASIC's random number capabilities:
+    R=TAN(Q+N/Q-N)-SIN(Q/N)+336*SIN(8*N)
+    N=R-INT(R)
+    N=INT(10*N)
+
+This has been simplified to use Lua's built-in random number generator
+while maintaining the same gameplay experience.
+
+Converted from BASIC to Lua by Brian Wilkins
+March 2025
+]]--
+
+local function showInstructions()
+    print("                    FLIP FLOP")
+    print("              CREATIVE COMPUTING")
+    print("            MORRISTOWN, NEW JERSEY")
+    print("\n\n")
+    print("THE OBJECT OF THIS GAME IS TO FLIP ALL THE X'S TO O'S.")
+    print("WHEN YOU INPUT A NUMBER, THAT NUMBER AND ALL ADJACENT")
+    print("NUMBERS WILL BE FLIPPED.")
+    print("\n")
+    print("INPUT A NUMBER FROM 1 TO 10 TO START THE GAME. TO QUIT")
+    print("THE GAME AT ANY TIME, TYPE A 0 (ZERO). TO START OVER WITH")
+    print("A NEW PUZZLE IN THE MIDDLE OF A GAME, TYPE A 11 (ELEVEN).")
+    print("\n\n")
+end
+
+local function printUpdatedBoard(board)
+    print("1 2 3 4 5 6 7 8 9 10")
+    print(table.concat(board, " "))
+    print("\n\n")
+end
+
+local function processMove(gameState, position)
+    -- Check if current position is O
+    if gameState.board[position] == "O" then
+        gameState.board[position] = "X"
+        if position == gameState["lastMove"] then
+            -- Generate random position using simplified random logic
+            local R = math.random()  -- between 0 and 1
+            local N = math.floor(R * 10) + 1
+            if gameState.board[N] == "O" then
+                gameState.board[N] = "X"
+            else
+                gameState.board[N] = "O"
+            end
+        end
+    else
+        gameState.board[position] = "O"
+        -- Generate another random position
+        local R = math.random()
+        local N = math.floor(R * 10) + 1
+        if gameState.board[N] == "O" then
+            gameState.board[N] = "X"
+        else
+            gameState.board[N] = "O"
+        end
+    end
+end
+
+local function checkWin(gameState)
+    -- Check if all positions are O's
+    for i = 1, 10 do
+        if gameState.board[i] ~= "O" then
+            return false
+        end
+    end
+    return true
+end
+
+local function initializeGame()
+    local gameState = {
+        board = {},
+        lastMove = nil,
+        moves = 0
+    }
+    
+    -- Initialize board
+    for i = 1, 10 do
+        gameState.board[i] = "X"
+    end
+    return gameState
+end
+
+local function playGame()
+    showInstructions()
+    
+    local gameState = initializeGame()
+    local playing = true
+    
+    print("HERE IS THE STARTING LINE OF X'S.")
+    print("\n\n")
+    printUpdatedBoard(gameState.board)
+    
+    while playing do
+        print("INPUT THE NUMBER")
+        local N = tonumber(io.read())
+        
+        -- Check if input is valid
+        if not N or N ~= math.floor(N) then
+            print("ILLEGAL ENTRY--TRY AGAIN.")
+        elseif N == 11 then
+            playing = false
+        elseif N > 11 then
+            print("ILLEGAL ENTRY--TRY AGAIN.")
+        elseif N == 0 then
+            printUpdatedBoard(gameState.board)
+        else
+            -- Process the move
+            processMove(gameState, N)
+            gameState["lastMove"] = N
+            gameState.moves = gameState.moves + 1
+            
+            -- Show the updated board
+            printUpdatedBoard(gameState.board)
+            
+            -- Check for win
+            if checkWin(gameState) then
+                if gameState.moves <= 12 then
+                    print(string.format("VERY GOOD. YOU GUESSED IT IN ONLY %d GUESSES.", gameState.moves))
+                else
+                    print(string.format("TRY HARDER NEXT TIME. IT TOOK YOU %d GUESSES.", gameState.moves))
+                end
+                
+                print("DO YOU WANT TO TRY ANOTHER PUZZLE? (Y/N)")
+                local answer = io.read():upper()
+                if answer:sub(1,1) == "Y" then
+                    gameState = initializeGame()
+                    print("HERE IS THE STARTING LINE OF X'S.")
+                    print("\n\n")
+                    printUpdatedBoard(gameState.board)
+                else
+                    playing = false
+                end
+            end
+        end
+    end
+end
+
+playGame()