21、VBScript内置对象与游戏开发实战

VBScript内置对象与游戏开发实战

一、Hangman游戏脚本优化

在Hangman游戏中，玩家需要选择一个单词类别来进行游戏。以下是选择单词类别的脚本代码：

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 = “