Modify the Guessing game from chapters 6-7 to play with

 Modify the Guessing game from chapters 6-7 to play with 2 players instead of 1 player by showing input and stats for player 1 and player 2.
– To end the game: You can ask for number of games to be played at the beginning of the game or you can ask the user whether to continue after each game.
– Display number of guesses for each player in addition to average number of guesses for each play.
– Show which player wins the whole match based on who has the least average number of guesses after the total number of games selected is over.
– When each game is played, change the output to display that the last guess is correct. Example: Congratulations! XXX is correct!
– When the players reach the total number of games chosen, or when the player chooses not to continue, display either: “Match over! Player 1 wins!” , OR “Match over! Player 2 wins!” , OR “Match over! It’s a tie!” 

MODIFY THE PROGRAM BELOW WITH THE PROVIDED INSTRUSTION UP IN just BASICSOFTWARE

‘ *************************************************************************

‘ Script Name: GuessMyNumber.bas (The Guess My Number Game)

‘ Version:     1.0

‘ Author:      Jerry Lee Ford, Jr.

‘ Date:        March 1, 2007

‘ Description: This game is a Just BASIC number guessing game that

‘              challenges players to guess a number between 1 and 100 in

‘              as few guesses as possible.

‘ *************************************************************************

nomainwin   ‘Suppress the display of the default text window

‘Declare global variables used to keep track of game statistics

global secretNumber, avgNoGuesses, noOfGamesPlayed, guessCount, helpOpen$

‘Assign default values to global variables

secretNumber = 0    ‘Keeps track of the game’s randomly generated number

guessCount = 0      ‘Keeps track of the total number of guesses made

avgNoGuesses= 0     ‘Stores the calculated average number of moves per game

noOfGamesPlayed = 0 ‘Keeps track of the total number of games played

helpOpen$ = “False” ‘Keeps track of when the #help window is open

WindowWidth = 510   ‘Set the width of the window to 500 pixels

WindowHeight = 500  ‘Set the height of the window to 500 pixels

ForegroundColor$ = “Darkblue”  ‘Set the window font color to dark blue

‘Define the format of statictext controls displayed on the window

statictext #play.statictext1, “G U E S S   M Y   N U M B E R”, _

  30, 50, 440, 40

statictext #play.statictext2, “Copyright 2007”, 395, 90, 80, 20

statictext #play.statictext3, “Games Played:”, 40, 400, 80, 20

statictext #play.statictext4, “Avg. No. Guesses:”, 265, 400, 90, 20

statictext #play.statictext5, “Enter Your Guess:”, 200, 140, 100, 20

statictext #play.statictext6, “Hint:”, 42, 300, 30, 20

‘Add button controls to the window

button #play.button1 “Guess”, AnalyzeGuess, UL, 210, 225, 80, 30

button #play.button2 “Help”, DisplayHelp, UL, 400, 318, 70, 25

button #play.button3 “Start Game”, StartGame, UL, 400, 288, 70, 25

‘Add three textbox controls and place them inside the groupbox control

textbox #play.textbox1, 200, 160, 100, 50

textbox #play.textbox2, 130, 395, 90, 22

textbox #play.textbox3, 370, 395, 90, 22

textbox #play.textbox4, 40, 320, 340, 22

‘Open the window with no frame and a handle of #play

open “Guess My Number” for window_nf as #play

‘Set up the trapclose event for the window

print #play, “trapclose ClosePlay”

‘Display the appropriate variable values in the following textbox controls

print #play.textbox3, avgNoGuesses

print #play.textbox2, noOfGamesPlayed

‘Set the font type, size, and properties for each of the static controls

print #play.statictext1, “!font Arial 24 bold”

print #play.statictext2, “!font Arial 8”

print #play.statictext5, “!font Arial 8 bold”

print #play.statictext6, “!font Arial 8 bold”

print #play.textbox1, “!font Arial 24”;

print #play.button3, “!setfocus”;  ‘Set focus to the Start Game button

print #play.button1, “!disable”    ‘Disable the Guess button

print #play.textbox1, “!disable”   ‘Disable the input textbox

‘Pause the application to wait for the player’s instruction

wait

‘This subroutine analyzes player guesses and determines when the game

‘has been won

sub AnalyzeGuess handle$

  ‘Retrieve the player’s guess and assign it to a variable

  print #play.textbox1, “!contents? playerGuess”

  ‘Validate that an acceptable value has been entered

  if playerGuess < 1 or playerGuess > 100 then

    ‘Inform the user that an invalid guess has been made

    print #play.textbox4, “Your guess must be between 1 and 100. Try again.”

    print #play.textbox1, “”  ‘Clear out the input textbox

    print #play.textbox1, “!setfocus”;  ‘set focus to the input textbox

    exit sub  ‘Exit the subroutine without processing any remaining

              ‘subroutine statements

  end if

  ‘Determine if the player’s guess is too low

  if playerGuess < secretNumber then

    ‘Increment the variable that tracks the total number of guesses made

    guessCount = guessCount + 1

    ‘Inform the user that the guess was too low

    print #play.textbox4, “Your guess was too low. Try again.”

    print #play.textbox1, “”  ‘Clear out the input textbox

    print #play.textbox1, “!setfocus”;  ‘set focus to the input textbox

    exit sub  ‘Exit the subroutine without processing any remaining

              ‘subroutine statements

  end if

  ‘Determine if the player’s guess is too high

  if playerGuess > secretNumber then

    ‘Increment the variable that tracks the total number of guesses made

    guessCount = guessCount + 1

    ‘Inform the user that the guess was too high

    print #play.textbox4, “Your guess was too high. Try again.”

    print #play.textbox1, “”  ‘Clear out the input textbox

    print #play.textbox1, “!setfocus”;  ‘set focus to the input textbox

    exit sub  ‘Exit the subroutine without processing any remaining

              ‘subroutine statements

  end if

  ‘Determine if the player’s guess was correct

  if playerGuess = secretNumber then

    ‘Let the player know he has won the game

    notice “Guess My Number” + chr$(13) + “Game over! You win!”

    ‘Increment the variable that tracks the total number of guesses made

    guessCount = guessCount + 1

   ‘Increment the variable that tracks the total number of games played

    noOfGamesPlayed = noOfGamesPlayed + 1

    ‘Calculate the average number of guesses per game

    avgNoGuesses = guessCount / noOfGamesPlayed

    ‘Display the appropriate variable values in the following textbox

    ‘controls

    print #play.textbox3, avgNoGuesses

    print #play.textbox2, noOfGamesPlayed

    print #play.textbox1, “”           ‘Clear out the input textbox

    print #play.button3, “!enable”     ‘Enable the Start Game button

    print #play.button3, “!setfocus”;  ‘Set focus to the Start Game button

    print #play.textbox1, “!disable”   ‘Disable the input textbox

    print #play.button1, “!disable”    ‘Disable the Guess button

    print #play.textbox4, “”           ‘Clear out the Hint textbox control

    exit sub  ‘Exit the subroutine without processing any remaining

              ‘subroutine statements

  end if

end sub

‘This subroutine is called when the player clicks on the Start Game button

sub StartGame handle$

  ‘Generate a new random number for the game

  secretNumber = int(rnd(1)*100) + 1

  print #play.button1, “!enable”      ‘Enable the Guess button

  print #play.textbox1, “!enable”     ‘Enable the input textbox

  print #play.button3, “!disable”     ‘Disable the Start Game button

  print #play.textbox1, “!setfocus”;  ‘Set focus to the input textbox

end sub

‘This subroutine is called when the player clicks on the Help button

sub DisplayHelp handle$

  helpOpen$ = “True”  ‘Identify the #help window as being open

  WindowWidth = 400   ‘Set the width of the window to 500 pixels

  WindowHeight = 400  ‘Set the height of the window to 500 pixels

  ‘Use variables to store text strings displayed in the window

  HelpHeader$ = “Game Instructions”

  helpText1$ = “The object of this game is to guess a randomly generated” _

    + ” number in the range of 1 to 100 in as few guesses as possible. ” _

    + “To make a guess, type in a number and click on the Guess button. ” _

    + “A hint will be provided after each move to assist you in making ” _

    + “your next guess. Once you have correctly guessed the game’s secret” _

    + ” number, a popup message will be displayed.”

  helpText2$ = “At the end of each round of play, game statistics are ” _

    + “displayed at the bottom of the game window as an indication of ” _

    + “your progress.”

  ‘Define the format of statictext controls displayed on the window

  statictext #help.helptext1, HelpHeader$, 30, 40, 140, 20

  statictext #help.helptext2, helpText1$, 30, 70, 330, 80

  statictext #help.helptext3, helpText2$, 30, 160, 330, 50

  ‘Add button controls to the window

  button #help.button “Close”, CloseHelpWindow, UL, 280, 310, 80, 30

  ‘Open the window with no frame and a handle of #play

  open “Guess My Number Help” for window_nf as #help

  ‘Set the font type, size, and properties for specified statictext control

  print #help.helptext1, “!font Arial 12 bold”

end sub

‘This subroutine is called when the player closes the #help window

sub CloseHelpWindow handle$

  helpOpen$ = “False”  ‘Identify the #hlp window as being closed

  close #help  ‘Close the #help window

end sub

‘This subroutine is called when the player closes the #play window

‘and is responsible for ending the game

sub ClosePlay handle$

  ‘Get confirmation before terminating program execution

  confirm “Are you sure you want to quit?”; answer$

  if answer$ = “yes” then  ‘The player clicked on Yes

    close #play  ‘Close the #play window

    ‘See if the #help window is open and close it if it is

    if  helpOpen$ = “True” then

      call CloseHelpWindow “X”  ‘Close the #help window

    end if

    end  ‘Terminate the game

  end if

end sub

Share This Post

Email
WhatsApp
Facebook
Twitter
LinkedIn
Pinterest
Reddit

Order a Similar Paper and get 15% Discount on your First Order

Related Questions