connect 4

[euclidaeun]

Connect 4 is a game where two players takes turns to place a coin,
the first player to connect a row of 4 coins wins, the row could be either horizontal, vertical or diagonal

The game and features are done by a bot

Features

1. Creating and Manipulating Lists
   The code demonstrates how to use lists to store and manage game data such as the game board, rows, and columns.
   NewList() and NewStringList() are used to create new lists.
   ListItem() is used to retrieve items from lists, and list add() is used to add elements to lists.

2. Iterating Over Lists
   The code shows how to use for loops to iterate over lists (e.g., iterating through rows and columns of the board).
   This is helpful for manipulating or printing out grid-based structures like a game board.

3. Dynamic User Input Handling
   The get input script command is used to capture player input (in this case, the column number for dropping a coin).
   ToInt() is used to convert the player's input from text to an integer.

4. Input Validation
   The code validates the player's input by checking if the entered column is between 0 and 6. If it's invalid, a message is shown to prompt the player again.

5. Conditionally Updating the Game State
   Conditional logic is used to check if a cell in the column is empty (represented by "0") and only allows the player to place a coin if the position is available.
   coin_placed is used as a flag to stop further iterations once a coin is placed.

6. String Manipulation
   The board uses strings (e.g., "0", "b", "w") to represent empty spots and coin placements.
   String manipulation techniques are used when modifying rows to update the game state (placing a "b" for a black coin or a "w" for a white coin).

7. Replacing List Items
   List replace logic is simulated using list remove() and list add() to replace old rows with updated rows, ensuring that the board reflects the current game state.

8. Displaying Dynamic Content
   The msg() function is used to display messages to the player, including updating them on which column they chose and printing the game board.

9. Custom Functions
   Custom functions like print_board are defined to handle repetitive tasks, such as displaying the game board. This helps reduce code duplication and improve readability.

10. Multiple Objects and Interactions
    The code demonstrates how to create objects (e.g., black_coin, white_coin) and associate actions with them (e.g., using a coin to place it on the board).
    The objects have verbs associated with them, such as "Use", which trigger the corresponding action when the player interacts with them.

---

How to paste the sample code

Download quest for windows at https://textadventures.co.uk/quest
This is the offline editor (Online editor is not able to copy and paste the whole game code)
Startup your quest gamebook/textadventure, on the right side of the big play button, you can see a code view button </>
Copy my code to replace the code in the text box, click code view button again.
Viola, it is done, press play button to test out the game and modify the code to your preference.

Connect 4

<!--Saved by Quest 5.9.9166.36226-->
<asl version="580">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <game name="test10">
    <gameid>2aa243f5-da6a-4667-9819-96b14eb3e257</gameid>
    <version>1.0</version>
    <firstpublished>2025</firstpublished>
  </game>
  <object name="room">
    <inherit name="editor_room" />
    <enter type="script">
      // Initialize the Connect 4 board (6 rows x 7 columns)
      game.board = NewList()
      for (y, 0, 5, 1) {
        game.row = NewStringList()
        for (x, 0, 6, 1) {
          list add (game.row, "0")
        }
        list add (game.board, game.row)
      }
      // Initialize current player (Red starts)
      game.current_player = "Red"
      msg ("Welcome to Connect 4!")
      print_board
    </enter>
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
      <object name="black_coin">
        <inherit name="editor_object" />
        <alias>black coin</alias>
        <displayverbs type="stringlist" />
        <inventoryverbs type="stringlist">
          <value>Use</value>
        </inventoryverbs>
        <feature_usegive />
        <use type="script"><![CDATA[
          // Ask the player to choose a column to place the coin
          msg ("Choose a column (0 to 6): ")
          get input {
            player_input = result
            column = ToInt(player_input)
            // Validate the column input
            if (column < 0 or column > 6) {
              msg ("Invalid column. Please choose a number between 0 and 6.")
            }
            else {
              // Flag to stop loop after placing a coin
              coin_placed = false
              // New board to store updated rows
              new_board = NewList()
              // Iterate over rows and update only the correct one
              for (y, 0, 5, 1) {
                row = ListItem(game.board, y)
                if (coin_placed = false and ListItem(row, column) = "0") {
                  // Modify row by replacing "0" with "b"
                  new_row = NewStringList()
                  for (x, 0, ListCount(row)-1, 1) {
                    if (x = column) {
                      list add (new_row, "b")
                    }
                    else {
                      list add (new_row, ListItem(row, x))
                    }
                  }
                  // Mark that a coin has been placed
                  coin_placed = true
                  list add (new_board, new_row)
                }
                else {
                  list add (new_board, row)
                }
              }
              // Replace old board with updated board
              game.board = new_board
              msg ("You placed a black coin at column " + ToString(column) + "!")
            }
            // Print the updated board
            print_board
          }
        ]]></use>
        <givesingle type="script">
          list remove (game.board, y)
          list add (game.board, row)
        </givesingle>
      </object>
      <object name="white_coin">
        <inherit name="editor_object" />
        <alias>white coin</alias>
        <displayverbs type="stringlist" />
        <inventoryverbs type="stringlist">
          <value>Use</value>
        </inventoryverbs>
        <feature_usegive />
        <use type="script"><![CDATA[
          // Ask the player to choose a column to place the coin
          msg ("Choose a column (0 to 6): ")
          get input {
            player_input = result
            column = ToInt(player_input)
            // Validate the column input
            if (column < 0 or column > 6) {
              msg ("Invalid column. Please choose a number between 0 and 6.")
            }
            else {
              // Flag to stop loop after placing a coin
              coin_placed = false
              // New board to store updated rows
              new_board = NewList()
              // Iterate over rows and update only the correct one
              for (y, 0, 5, 1) {
                row = ListItem(game.board, y)
                if (coin_placed = false and ListItem(row, column) = "0") {
                  // Modify row by replacing "0" with "b"
                  new_row = NewStringList()
                  for (x, 0, ListCount(row)-1, 1) {
                    if (x = column) {
                      list add (new_row, "w")
                    }
                    else {
                      list add (new_row, ListItem(row, x))
                    }
                  }
                  // Mark that a coin has been placed
                  coin_placed = true
                  list add (new_board, new_row)
                }
                else {
                  list add (new_board, row)
                }
              }
              // Replace old board with updated board
              game.board = new_board
              msg ("You placed a black coin at column " + ToString(column) + "!")
            }
            // Print the updated board
            print_board
          }
        ]]></use>
        <givesingle type="script">
          list remove (game.board, y)
          list add (game.board, row)
        </givesingle>
      </object>
    </object>
  </object>
  <function name="test">
    if (1=1) {
      firsttime {
        // Initialize tile types as a list
        // game.tiles = Split("A,B,C,D,E", ",")
        game.tiles = NewStringList()
        list add (game.tiles, "A")
        list add (game.tiles, "B")
        list add (game.tiles, "C")
        list add (game.tiles, "D")
        list add (game.tiles, "E")
        // Initialize the game board as a list of lists
        game.board = NewList()
        // Fill the board with random tiles
        for (y, 0, 4, 1) {
          game.row = NewList()
          for (x, 0, 4, 1) {
            // Add a random tile from the 'game.tiles' list
            random_index = GetRandomInt(0, ListCount(game.tiles) - 1)
            list add (game.row, game.tiles[random_index])
          }
          list add (game.board, game.row)
        }
        // Print the board in grid form
        for (y, 0, 4, 1) {
          row_str = ""
          game.row = game.board[y]
          for (x, 0, 4, 1) {
            tile = game.row[x]
            row_str = row_str + tile + " "
          }
          msg (row_str)
        }
      }
    }
  </function>
  <function name="print_board">
    // Print the board as a grid (bottom to top)
    for (y, 5, 0, -1) {
      row_str = ""
      row = ListItem(game.board, y)
      for (x, 0, 6, 1) {
        tile = ListItem(row, x)
        row_str = row_str + tile + " "
      }
      msg (row_str)
    }
  </function>
</asl>