Microsoft WSH and VBScript Programming for the Absolute Beginner Part 41 ppsx

380 Function MarkPlayerSelection() ‘Mark an X or O in the appropriate cell If strPlayerInput = “A1” Then A1 = strPlayer End If If strPlayerInput = “A2” Then A2 = strPlayer End If If strPlayerInput = “A3” Then A3 = strPlayer End If If strPlayerInput = “B1” Then B1 = strPlayer End If If strPlayerInput = “B2” Then B2 = strPlayer End If If strPlayerInput = “B3” Then B3 = strPlayer End If If strPlayerInput = “C1” Then C1 = strPlayer End If If strPlayerInput = “C2” Then C2 = strPlayer End If If strPlayerInput = “C3” Then C3 = strPlayer End If End Function Building the SeeIfWon() Function The SeeIfWon() function, shown here, performs a series of eight tests to see whether the game has been won by one of the players. These tests include checking all three cells in each row and in each column to see whether the same player has selected them. The function also checks diagonally to see whether there is a winner. Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition Function SeeIfWon() ‘Check across the first row If A1 = strPlayer Then If A2 = strPlayer Then If A3 = strPlayer Then strWinner = strPlayer strDirection = “- First row across!” End If End If End If ‘Check across the second row If B1 = strPlayer Then If B2 = strPlayer Then If B3 = strPlayer Then strWinner = strPlayer strDirection = “- Second row across!” End If End If End If ‘Check across the third row If C1 = strPlayer Then If C2 = strPlayer Then If C3 = strPlayer Then strWinner = strPlayer strDirection = “- Third row across!” End If End If End If ‘Check the first column If A1 = strPlayer Then If B1 = strPlayer Then If C1 = strPlayer Then strWinner = strPlayer strDirection = “- First column down!” 381 Chapter 11 • Working with Built-In VBScript Objects 382 End If End If End If ‘Check the second column If A2 = strPlayer Then If B2 = strPlayer Then If C2 = strPlayer Then strWinner = strPlayer strDirection = “- Second column down!” End If End If End If ‘Check the third column If A3 = strPlayer Then If B3 = strPlayer Then If C3 = strPlayer Then strWinner = strPlayer strDirection = “- Third column down!” End If End If End If ‘Check diagonally If A1 = strPlayer Then If B2 = strPlayer Then If C3 = strPlayer Then strWinner = strPlayer strDirection = “- Diagonally A1 - C3!” End If End If End If ‘Check the diagonally If A3 = strPlayer Then If B2 = strPlayer Then If C1 = strPlayer Then Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition strWinner = strPlayer strDirection = “- Diagonally C1 - A3!” End If End If End If End Function Building the DisplaySplashScreen() Function The script’s final function, DisplaySplashScreen() is shown here. This function displays information about the script and its author and then terminates the script’s execution by using the WScript object’s Quit() method. Function DisplaySplashScreen() ‘Display splash screen and terminate game MsgBox “Thank you for playing Tic-Tac-Toe” & _ “© Jerry Ford 2004.” & vbCrLf & vbCrLf & “Please play again “ & _ “soon!”, 4144, cTitleBarMsg WScript.Quit() End Function The Final Result That’s it. You have all the necessary pieces to assemble the game. Once you have keyed every- thing, your fully assembled script should like the one that follows. ‘************************************************************************* ‘Script Name: TicTacToe.vbs ‘Author: Jerry Ford ‘Created: 11/15/04 ‘Description: This script is a VBScript implementation of the ‘ Tic-Tac-Toe game ‘************************************************************************* ‘Initialization Section Option Explicit 383 Chapter 11 • Working with Built-In VBScript Objects 384 Const cTitleBarMsg = “VBScript T I C T A C T O E” Dim A1, A2, A3, B1, B2, B3, C1, C2, C3 ‘Variables representing sections ‘of the Tic Tac Toe game board Dim blnGameOver ‘Boolean variable that determines when to end game Dim blnPlayerTypedQuit ‘Variable used to track whether a player typed Quit Dim blnStopGame ‘Variable used in Main Processing section to ‘determine when to stop the game Dim blnValidCell ‘Boolean variable that determines whether a player ‘specified a valid cell Dim intNoMoves ‘Variable used to keep track of the number of plays Dim intPlayAgain ‘Variable holds player response when asked to play ‘again Dim strNotificationMsg ‘Variable used to display messages to player Dim strPlayer ‘Variable used to identify whose turn it is Dim strWinner ‘Variable used to determine whether the game is won Dim strPlayerInput ‘Variable used to hold the player’s cell selection Dim strDirection ‘Variable identifies how the player won the game blnStopGame = “False” ‘Main Processing Section ————————————————————————- Do Until blnStopGame = “True” ‘Keep playing until players decide to stop SetVariableDefaults() ClearGameBoard() ManageGamePlay() If blnPlayerTypedQuit = “True” Then ‘One of the players typed Quit blnStopGame = “True” Else ‘The game is over. Ask the players if they’d like to play again Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition intPlayAgain = MsgBox(“Would you like to play another game of “ & _ “Tic Tac Toe?”, 4, cTitleBarMsg) If intPlayAgain = 7 Then ‘A player clicked on No. B break out of loop blnStopGame = “True” End If End If Loop DisplaySplashScreen() ‘Procedure Section ———————————————————————————- Function SetVariableDefaults() ‘Establish default variable settings blnGameOver = “False” blnPlayerTypedQuit = “False” blnValidCell = “False” intNoMoves = 0 strNotificationMsg = “Welcome! To play Tic Tac Toe follow the “ & _ “instruction at the bottom of the screen. Type Quit to terminate “ & _ “the game at any time.” strPlayer = “X” strWinner = “None” strDirection = “” End Function Function ClearGameBoard() ‘Reset the game board 385 Chapter 11 • Working with Built-In VBScript Objects 386 A1 = “ “ A2 = “ “ A3 = “ “ B1 = “ “ B2 = “ “ B3 = “ “ C1 = “ “ C2 = “ “ C3 = “ “ End Function Function ManageGamePlay() ‘Manage the overall execution of the game Do Until blnGameOver = “True” ‘Start by checking to see if the game has already been completed If strWinner = “X” Then strNotificationMsg = “Game over! Player X Wins “ & strDirection DisplayGameResults() blnGameOver = “True” End If If strWinner = “O” Then strNotificationMsg = “Game over! Player O Wins “ & strDirection DisplayGameResults() blnGameOver = “True” End If If strWinner = “Nobody” Then strNotificationMsg = “Game over. It’s a tie!” DisplayGameResults() blnGameOver = “True” End If If blnGameOver <> “True” Then ‘If game is not over display the board DisplayBoard() ‘in order to collect next player’s input ValidateInput() ‘Validate the input Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition If UCase(strPlayerInput) = “QUIT” Then ‘See if a player type Quit blnPlayerTypedQuit = “True” blnValidCell = “False” blnGameOver = “True” End If End If ‘Count the number of valid cell selections If blnValidCell = “True” Then intNoMoves = intNoMoves + 1 MarkPlayerSelection() End If ‘If all 9 cells have been filled in we have a tie If intNoMoves = 9 Then SeeIfWon() If strWinner = “None” Then strWinner = “Nobody” End If Else SeeIfWon() End If ‘Time to switch player turns If blnValidCell = “True” Then If strPlayer = “X” Then strPlayer = “O” Else strPlayer = “X” End If End If Loop End Function 387 Chapter 11 • Working with Built-In VBScript Objects 388 Function DisplayBoard() ‘Display the game board strPlayerInput = UCase(InputBox(vbCrLf & _ strNotificationMsg & _ vbCrLf & vbCrLf & vbCrLf & vbCrLf & _ vbTab & “1” & vbTab & vbTab & “2” & vbTab & vbTab & “3” & vbCrLf & _ vbCrLf & vbTab & vbTab & “|” & vbTab & vbTab & “|” & vbTab & _ vbCrLf & “A” & vbTab & A1 & vbTab & “|” & vbTab & A2 & vbTab & _ “|” & vbTab & A3 & vbCrLf & vbTab & vbTab & “|” & vbTab & vbTab & _ “|” & vbTab & vbCrLf & “ ————————————————-” & _ “———————————————————” & vbCrLf & vbTab & _ vbTab & “|” & vbTab & vbTab & “|” & vbTab & vbCrLf & “B” & vbTab & _ B1 & vbTab & “|” & vbTab & B2 & vbTab & “|” & vbTab & B3 & _ vbCrLf & vbTab & vbTab & “|” & vbTab & vbTab & “|” & vbTab & _ vbCrLf & “ ———————————————————————” & _ “————————————-” & vbCrLf & vbTab & vbTab & “|” & _ vbTab & vbTab & “|” & vbTab & vbCrLf & “C” & vbTab & C1 & vbTab & _ “|” & vbTab & C2 & vbTab & “|” & vbTab & C3 & vbCrLf & vbTab & _ vbTab & “|” & vbTab & vbTab & “|” & vbTab & vbCrLf & vbCrLf & _ vbCrLf & vbCrLf & “Player “ & strPlayer & _ “‘s turn. Type your move:”, cTitleBarMsg)) End Function Function DisplayGameResults() ‘Game is over. Display the results. MsgBox vbCrLf & _ strNotificationMsg & _ vbCrLf & vbCrLf & vbCrLf & vbCrLf & _ vbTab & “1” & vbTab & vbTab & “2” & vbTab & vbTab & “3” & vbCrLf & _ vbCrLf & vbTab & vbTab & “|” & vbTab & vbTab & “|” & vbTab & _ vbCrLf & “A” & vbTab & A1 & vbTab & “|” & vbTab & A2 & vbTab & _ “|” & vbTab & A3 & vbCrLf & vbTab & vbTab & “|” & vbTab & vbTab & _ “|” & vbTab & vbCrLf & _ “ ————————————————————————————” & _ “———————-” & vbCrLf & vbTab & vbTab & “|” & vbTab & vbTab & _ Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition “|” & vbTab & vbCrLf & “B” & vbTab & B1 & vbTab & “|” & vbTab & _ B2 & vbTab & “|” & vbTab & B3 & vbCrLf & vbTab & vbTab & “|” & _ vbTab & vbTab & “|” & vbTab & vbCrLf & “ —————————” & _ “——————————————————————————-” & vbCrLf & _ vbTab & vbTab & “|” & vbTab & vbTab & “|” & vbTab & vbCrLf & _ “C” & vbTab & C1 & vbTab & “|” & vbTab & C2 & vbTab & “|” & vbTab & _ C3 & vbCrLf & vbTab & vbTab & “|” & vbTab & vbTab & “|” & vbTab & _ vbCrLf & vbCrLf & vbCrLf & vbCrLf, , cTitleBarMsg End Function Function ValidateInput() ‘Run several tests valid correct player input Select Case strPlayerInput ‘Ensure a valid cell was specified Case “A1” blnValidCell = “True” Case “A2” blnValidCell = “True” Case “A3” blnValidCell = “True” Case “B1” blnValidCell = “True” Case “B2” blnValidCell = “True” Case “B3” blnValidCell = “True” Case “C1” blnValidCell = “True” Case “C2” blnValidCell = “True” Case “C3” blnValidCell = “True” Case Else blnValidCell = “False” strNotificationMsg = “Invalid cell. Please try again.” End Select 389 Chapter 11 • Working with Built-In VBScript Objects . “True” Then ‘One of the players typed Quit blnStopGame = “True” Else The game is over. Ask the players if they’d like to play again Microsoft WSH and VBScript Programming for the Absolute Beginner, . to see whether there is a winner. Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition Function SeeIfWon() ‘Check across the first row If A1 = strPlayer Then If A2. Then Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition strWinner = strPlayer strDirection = “- Diagonally C1 - A3!” End If End If End If End Function Building the