Microsoft WSH and VBScript Programming for the Absolute Beginner Part 37 pps

340
End If
SplashScreen()
WScript.Quit()
‘Procedure Section
Function DoYouWantToPlay()
‘Display the splash screen and ask the user if he or she wants to play
strSplashimage = Space(100) & “***********” & vbCrLf & _
“W E L C O M E T O “ & Space(68) & “*” & Space(18) & “*” & _
vbCrLf & Space(100) & “0” & Space(18) & “*” & vbCrLf & _
“V B S c r i p t H A N G M A N !” & Space(50) & “—||—” & _
Space(15) & “*” & vbCrLf & Space(99) & “/” & Space(1) & “\” & _
Space(17) & “*” & vbCrLf & Space(120) & “*” & vbCrLf & _
Space(120) & “*” & vbCrLf & space(113) & “ ******* “ & _
vbCrLf & “Would you like to play a game?” & vbCrLf & “ “
DoYouWantToPlay = MsgBox(strSplashimage, 36, cTitlebarMsg)
End Function
Function PlayTheGame()
‘Initialize variables displayed in the game’s initial pop-up dialog
intNoMisses = 0
intNoRight = 0
strWrongGuesses = “”
strRightGuesses = “”
‘Get the game a mystery word
strGameWord = RetrieveWord()
Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition
‘Call the function that formats the initial pop-up dialog display string
strDisplayString = InitialDisplayString()
strTempStringOne = strGameWord
‘Let the player start guessing
Do Until intNoMisses = 6

‘Collect the player’s guess
strChoice = InputBox(vbCrLf & vbTab & strDisplayString & vbCrLf & _
vbCrLf & vbCrLf & “No. of Misses: “ & intNoMisses & “ “ & vbTab & _
“Incorrect:” & strWrongGuesses & vbCrLf & vbCrLf & vbCrLf & _
“Type a letter and click on OK.” , cTitleBarMsg)
‘Determine if the player has quit
If strChoice = “” Then
Exit Function
End If
strProcessGuess = FirstLevelValidation()
‘The Player wants to quit the game
If strProcessGuess = “ExitFunction” Then
Exit Function
End If
‘The player typed invalid input
If strProcessGuess <> “SkipRest” Then
strProcessGuess = SecondLevelValidation()
Select Case strProcessGuess
Case “DuplicateWrongAnswer”
MsgBox “Invalid: You’ve already guessed this incorrect letter.”
Case “DuplicateRightAnswer”
MsgBox “Invalid: You’ve already guessed this correct letter.”
Case Else
341
Chapter 10 • Using the Windows Registry to Configure Script Settings
342
strCheckAnswer = TestLetterGuess()
If strCheckAnswer <> “IncorrectAnswer” Then
‘Reset the value of the variable used to build a string
‘containing the interim stage of the word as currently

‘guessed by the player
strTempStringTwo = “”
NonGuessedString()
‘Check to see if the player has guessed the word
blnGameStatus = CheckIfGameWon()
If blnGameStatus = “yes” Then
blnWordGuessed = “True”
Exit Do
End If
‘Set the value of the temporary string equal to the string
‘created by the ‘Previous For Next loop
strTempStringOne = strTempStringTwo
‘Clear out the value of the strDisplayString variable
strDisplayString = “”
FlipString()
End If
End Select
End If
Loop
DisplayGameResults()
End Function
Function InitialDisplayString()
Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition
‘Create a loop that processes each letter of the word
For intLetterCounter = 1 to Len(strGameWord)
‘Use underscore characters to display string representing each letter
InitialDisplayString = InitialDisplayString & “_ “
Next
End Function
‘Determine if the player won or lost and display game results

Function DisplayGameResults()
‘Set message depending on whether or not player figured out the word
If blnWordGuessed = “True” Then
strMsgText = “Congratulations, You Win!”
Else
strMsgText = “Sorry, You Lose.”
End If
‘Display the results of the game
intPlayAgain = MsgBox(vbCrLf & “The word was: “ & _
UCase(strGameWord) & vbCrLf & vbCrLf & vbCrLf & strMsgText & vbCrLf & _
vbCrLf & vbCrLf & “Would you like to play again?” , 4, cTitleBarMsg)
‘Find out if the player wants to play another game
If intPlayAgain = 6 Then
‘If answer is yes reset the following variables and start a new game
strDisplayString = “”
strTempStringTwo = “”
PlayTheGame()
End If
End Function
‘This function retrieves a randomly selected word from a word file
Function RetrieveWord()
‘Locate the folder where collections of game words are stored
strGameFolder = GetstrWordFileLocation()
343
Chapter 10 • Using the Windows Registry to Configure Script Settings
344
‘Get the player to select a word category
strSelectCategory = SelectAWordCategory(strGameFolder)
‘Create the complete path and file name for the selected word file
strInputFile = strGameFolder & “\” & strSelectCategory

‘Open the file for reading
Set strWordFile = objFsoObject.OpenTextFile(strInputFile, 1)
‘Set this variable to zero. It represents the No of words in the file
intNoWordsInFile = 0
‘Count the number of words in the file
Do while False = strWordFile.AtEndOfStream
‘Read a line
strWordFile.ReadLine()
‘Keep count of the number of words (or lines) read
intNoWordsInFile = intNoWordsInFile + 1
‘If the loop iterates more than 50 times something is wrong
If intNoWordsInFile > 50 Then
Exit Do
End If
Loop
‘Close the file when done counting the number of words (or lines)
strWordFile.Close
‘Pick a random number between 1 and the number of words in the file
Randomize
intRandomNo = FormatNumber(Int((intNoWordsInFile + 1) * Rnd),0)
‘Open the file for reading
Set strWordFile = objFsoObject.OpenTextFile(strInputFile, 1)
‘Skip the reading of all words prior to the randomly selected word
For intLinesInFile = 1 to intRandomNo - 1
‘Read the randomly selected word
strWordFile.SkipLine()
Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition
Next
‘Return the randomly selected word to the calling statement
RetrieveWord = strWordFile.ReadLine()

‘Close the file when done
strWordFile.Close
End Function
‘This function retrieves location of folder where word files are stored
Function GetstrWordFileLocation()
‘Get the folder name and path from its assigned Registry value
GetstrWordFileLocation = _
objWshShl.RegRead(“HKCU\VBGames\Hangman\ListLocation”)
End Function
‘This function returns a word category
Function SelectAWordCategory(TargetFolder)
‘Specify the location of the folder that stores the word files
Set strGameFolder = objFsoObject.GetFolder(TargetFolder)
‘Get a list of files stored in the folder
Set objGameFiles = strGameFolder.Files
strSelection = “”
‘Loop through the list of word files
For Each strWordList In objGameFiles
‘Build a master string containing a list of all the word files
strFileString = strFileString & strWordList.Name
‘Remove the .txt portion of each file’s file name.
strCharactersToRemove = Len(strWordList.Name) - 4
345
Chapter 10 • Using the Windows Registry to Configure Script Settings
346
‘Build a display string showing the category names of each word file
strSelection = strSelection & _
Left(strWordList.Name, strCharactersToRemove) & vbCrLf
Next
blnValidResponse = “False”

‘Loop until a valid category strSelection has been made
Do Until blnValidResponse = “True”
‘Prompt the player to select a word category
strChoice = InputBox(“Please specify the name of a word category “ & _
“from which game words will be selected.” & vbCrLf & vbCrLf & _
“Available Categories:” & vbCrLf & vbCrLf & _
strSelection, “Pick a Category” , “General”)
‘If input is not in master string the player must try again
If InStr(UCase(strFileString), UCase(strChoice)) = 0 Then
MsgBox “Sorry but this is not a valid category. Please try again.”
Else
blnValidResponse = “True”
End If
Loop
‘If the player typed nothing then specify a default word category
If Len(strChoice) = 0 Then
strChoice = “General”
End If
‘Add the .txt portion of the file name back
SelectAWordCategory = strChoice & “.txt”
End Function
‘This function displays the game splash screen
Function SplashScreen()
Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition
MsgBox “Thank you for playing VBScript Hangman © Jerry Ford 2002.” & _
vbCrLf & vbCrLf & “Please play again soon!”, , cTitlebarMsg
End Function
‘Validate the player’s input
Function FirstLevelValidation()
‘See if the player clicked on cancel or failed to enter any input

If strChoice = “” Then
FirstLevelValidation = “ExitFunction”
Exit Function
End If
‘Make sure the player only typed 1 letter
If Len(strChoice) > 1 Then
MsgBox “Invalid: You must only enter 1 letter at a time!”
FirstLevelValidation = “SkipRest”
Else
‘Make sure the player did not type a number by accident
If IsNumeric(strChoice) = “True” Then
MsgBox “Invalid: Only letters can be accepted as valid input!”
FirstLevelValidation = “SkipRest”
Else
FirstLevelValidation = “Continue”
End If
End If
End Function
Function SecondLevelValidation()
‘Check to see if this letter is already on the incorrectly guessed list
If Instr(1, strWrongGuesses, UCase(strChoice), 1) <> 0 Then
SecondLevelValidation = “DuplicateWrongAnswer”
Else
‘Check to see if this letter is already on the correctly guessed list
If Instr(1, strRightGuesses, UCase(strChoice), 1) <> 0 Then
SecondLevelValidation = “DuplicateRightAnswer”
347
Chapter 10 • Using the Windows Registry to Configure Script Settings
348
End If

End If
End Function
Function CheckIfGameWon()
‘Check and see if player has guessed all the letters that make up the
‘word. If so set the indicator variable and exit the Do Until loop
If intNoRight = Len(strGameWord) Then
CheckIfGameWon = “yes”
End If
End Function
Function NonGuessedString()
‘Loop through the temporary string
For intLetterCounter = 1 to Len(strTempStringOne)
‘Examine each letter in the word one at a time
strWordLetter = Mid(strTempStringOne, intLetterCounter, 1)
‘Otherwise add a underscore character indicating a nonmatching guess
If UCase(strWordLetter) <> UCase(strChoice) Then
strTempStringTwo = strTempStringTwo & strWordLetter
Else
‘The letter matches the guess so add it to the temporary string
intNoRight = intNoRight + 1
strRightGuesses = strRightGuesses & “ “ & UCase(strChoice)
strTempStringTwo = strTempStringTwo & “_”
End If
Next
End Function
Function FlipString()
‘Spin through and reverse the letters in the strTempStringTwo variable
‘In order to switch letters to underscore characters and underscore
Microsoft WSH and VBScript Programming for the Absolute Beginner, Second Edition
‘characters to the appropriate letters

For strFlipCounter = 1 to Len(strTempStringTwo)
‘Examine each letter in the word one at a time
strWordLetter = Mid(strTempStringTwo, strFlipCounter, 1)
‘Replace each letter with the underscore character
If strWordLetter <> “_” Then
strDisplayString = strDisplayString & “_ “
Else
‘Replace each underscore with its appropriate letter
strDisplayString = strDisplayString & _
Right(Left(strGameWord,strFlipCounter),1) & “ “
End If
Next
End Function
Function TestLetterGuess()
If Instr(1, UCase(strGameWord), UCase(strChoice), 1) = 0 Then
‘Add the letter to the list of incorrectly guessed letters
strWrongGuesses = strWrongGuesses & “ “ & UCase(strChoice)
‘Increment the number of guesses that the player has made by 1
intNoMisses = intNoMisses + 1
‘If player has missed 6 guesses then he has used up all his chances
If intNoMisses = 6 Then
blnWordGuessed = “False”
End If
TestLetterGuess = “IncorrectGuess”
Else
TestLetterGuess = “CorrectGuess”
End If
End Function
Summary
In this chapter, you learned how to write scripts that programmatically interact with the

Windows Registry; this included reading, writing, and modifying Registry keys and values.
349
Chapter 10 • Using the Windows Registry to Configure Script Settings