The Number Game...which freezes - GameCreators Forum

Author

Message

Yodaman Jer

User Banned

Posted: 5th Nov 2007 18:43 Edited at: 5th Nov 2007 21:55

TDK, first off I have to compliment you on the great tutorial on Variables! You made it so easy to understand them. Thanks!
Now, I took up your 'test' about making the number game, modified it to be what I wanted, and had a blast making it!
Problem is, it freezes up after the player guesses the right number.
I can't find anything that looks suspicious about the code...is it supposed to freeze and I have to figure it out? If so, no problem.
Here's the code just in case it's NOT supposed to do that...

Rem Setup Sync
Sync On
Sync Rate 30

Rem create menu
CLS rgb(0,0,0)
Set Text Font "Denmark"
Set Text Size 20
Set Text Transparent
ink rgb(255,255,255),0
Text 220,0, "The Number Game"
Sync

Set Text Font "Denmark"
Set Text Size 20
Set Text Transparent
ink rgb(255,255,255),0
Text 200,12, "Press Any Key to Continue!"
Sync
Wait Key

Rem please type in your name
CLS rgb(0,0,0)
Print "Please Type in your name: ";
Input Name$
CLS
Print "Hello "; Name$ ;"! Welcome to the Number Game!"
Rem Start Game
CLS rgb(0,0,0)
Randomize Timer(): Rem Initialise the random number generator
Start:
MyNumber=Rnd(9)+1: Rem Select a random number between 1 and 10
Do: Rem Main Program Loop
  CLS: Rem Clear the screen
  Print Name$ ;" , I have thought of a number between 1 and 10. See how quickly you can guess it!"
  Print
  Input "What is your guess? ",Guess
  Print
  If Guess < MyNumber: Rem If chosen number is lower than computer's number
    Print "Your guess was too low, "; Name$ ;".  Try again."
    Sleep 2000
  Endif
  If Guess > MyNumber: Rem If chosen number is higher than computer's number
    Print Name$ ;", your guess was too high. You LOSE!! Just Kidding!"
    Sleep 2700
  Endif
  If Guess = MyNumber: Rem If chosen number is equal to computer's number
    Print "Your guess was correct. Well done!!"
    Print "Do you want to play again (Y/N)?"
    Repeat: Rem Repeat...Until loop repeats until Y or N key is pressed
      I$=Upper$(Inkey$()): Rem Read the keyboard for keypresses
    Until I$="Y" or I$="N"
    If I$="Y": Rem If Y was pressed
      Goto Start: Rem Jump to Start label at beginning of program
    Else
      CLS: Rem Clear the screen
      Print "Goodbye,"; Name$ : Rem Print Goodbye message
      End: Rem End the program
    Endif
  Endif
Loop

+ Code Snippet

Rem Setup Sync
Sync On
Sync Rate 30

Rem create menu
CLS rgb(0,0,0)
Set Text Font "Denmark"
Set Text Size 20
Set Text Transparent
ink rgb(255,255,255),0
Text 220,0, "The Number Game"
Sync

Set Text Font "Denmark"
Set Text Size 20
Set Text Transparent
ink rgb(255,255,255),0
Text 200,12, "Press Any Key to Continue!"
Sync
Wait Key

Rem please type in your name
CLS rgb(0,0,0)
Print "Please Type in your name: ";
Input Name$
CLS
Print "Hello "; Name$ ;"! Welcome to the Number Game!"
Rem Start Game
CLS rgb(0,0,0)
Randomize Timer(): Rem Initialise the random number generator
Start:
MyNumber=Rnd(9)+1: Rem Select a random number between 1 and 10
Do: Rem Main Program Loop
  CLS: Rem Clear the screen
  Print Name$ ;" , I have thought of a number between 1 and 10. See how quickly you can guess it!"
  Print
  Input "What is your guess? ",Guess
  Print
  If Guess < MyNumber: Rem If chosen number is lower than computer's number
    Print "Your guess was too low, "; Name$ ;".  Try again."
    Sleep 2000
  Endif
  If Guess > MyNumber: Rem If chosen number is higher than computer's number
    Print Name$ ;", your guess was too high. You LOSE!! Just Kidding!"
    Sleep 2700
  Endif
  If Guess = MyNumber: Rem If chosen number is equal to computer's number
    Print "Your guess was correct. Well done!!"
    Print "Do you want to play again (Y/N)?"
    Repeat: Rem Repeat...Until loop repeats until Y or N key is pressed
      I$=Upper$(Inkey$()): Rem Read the keyboard for keypresses
    Until I$="Y" or I$="N"
    If I$="Y": Rem If Y was pressed
      Goto Start: Rem Jump to Start label at beginning of program
    Else
      CLS: Rem Clear the screen
      Print "Goodbye,"; Name$ : Rem Print Goodbye message
      End: Rem End the program
    Endif
  Endif
Loop

Thanks for pointing me in the direction of the tutorials!
EDIT: Found out it was supposed to happen...lol.

Back to top

Profile

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 6th Nov 2007 00:14

Link

The program was freezing because there is no SYNC call in the main loop. When you set SYNC ON you must tell the computer when to update the screen.

I also tidied up the top part of the code; you only need to set formatting once and it will apply to all further text (unless you change it again of course).
Also, RGB(0,0,0) means no reds, no greens and no blues; no nothing!

which is the same as giving 0.

Font sizes in DB v1.2 are different ("bigger") so you'll have to take that into account when using old tutorials

Rem Setup Sync
Sync On
Sync Rate 30

Rem create menu
CLS 0
Set Text Font "Denmark"
Set Text Size 20
Set Text Transparent
ink rgb(255,255,255),0
Text 220,0, "The Number Game"
Text 200,12, "Press Any Key to Continue!"
Sync
Wait Key

Rem please type in your name
CLS rgb(0,0,0)
Print "Please Type in your name: ";
Input Name$
CLS
Print "Hello "; Name$ ;"! Welcome to the Number Game!"
Rem Start Game
CLS rgb(0,0,0)
Randomize Timer(): Rem Initialise the random number generator
Start:
MyNumber=Rnd(9)+1: Rem Select a random number between 1 and 10
Do: Rem Main Program Loop
  CLS: Rem Clear the screen
  Print Name$ ;" , I have thought of a number between 1 and 10. See how quickly you can guess it!"
  Print
  Input "What is your guess? ",Guess
  Print
  If Guess < MyNumber: Rem If chosen number is lower than computer's number
    Print "Your guess was too low, "; Name$ ;".  Try again."
    Sleep 2000
  Endif
  If Guess > MyNumber: Rem If chosen number is higher than computer's number
    Print Name$ ;", your guess was too high. You LOSE!! Just Kidding!"
    Sleep 2700
  Endif
  If Guess = MyNumber: Rem If chosen number is equal to computer's number
    Print "Your guess was correct. Well done!!"
    Print "Do you want to play again (Y/N)?"
    Repeat: Rem Repeat...Until loop repeats until Y or N key is pressed
      I$=Upper$(Inkey$()): Rem Read the keyboard for keypresses
      sync
    Until I$="Y" or I$="N"
    If I$="Y": Rem If Y was pressed
      Goto Start: Rem Jump to Start label at beginning of program
    Else
      CLS: Rem Clear the screen
      Print "Goodbye,"; Name$ : Rem Print Goodbye message
      End: Rem End the program
    Endif
  Endif
  sync
Loop

+ Code Snippet

Rem Setup Sync
Sync On
Sync Rate 30

Rem create menu
CLS 0
Set Text Font "Denmark"
Set Text Size 20
Set Text Transparent
ink rgb(255,255,255),0
Text 220,0, "The Number Game"
Text 200,12, "Press Any Key to Continue!"
Sync
Wait Key

Rem please type in your name
CLS rgb(0,0,0)
Print "Please Type in your name: ";
Input Name$
CLS
Print "Hello "; Name$ ;"! Welcome to the Number Game!"
Rem Start Game
CLS rgb(0,0,0)
Randomize Timer(): Rem Initialise the random number generator
Start:
MyNumber=Rnd(9)+1: Rem Select a random number between 1 and 10
Do: Rem Main Program Loop
  CLS: Rem Clear the screen
  Print Name$ ;" , I have thought of a number between 1 and 10. See how quickly you can guess it!"
  Print
  Input "What is your guess? ",Guess
  Print
  If Guess < MyNumber: Rem If chosen number is lower than computer's number
    Print "Your guess was too low, "; Name$ ;".  Try again."
    Sleep 2000
  Endif
  If Guess > MyNumber: Rem If chosen number is higher than computer's number
    Print Name$ ;", your guess was too high. You LOSE!! Just Kidding!"
    Sleep 2700
  Endif
  If Guess = MyNumber: Rem If chosen number is equal to computer's number
    Print "Your guess was correct. Well done!!"
    Print "Do you want to play again (Y/N)?"
    Repeat: Rem Repeat...Until loop repeats until Y or N key is pressed
      I$=Upper$(Inkey$()): Rem Read the keyboard for keypresses
      sync
    Until I$="Y" or I$="N"
    If I$="Y": Rem If Y was pressed
      Goto Start: Rem Jump to Start label at beginning of program
    Else
      CLS: Rem Clear the screen
      Print "Goodbye,"; Name$ : Rem Print Goodbye message
      End: Rem End the program
    Endif
  Endif
  sync
Loop

Now I got it working it's not too bad

Now see if you can get it to work without that nasty GOTO!

That can seem quite difficult to do as a newbie but once you learn how to make your programs loop naturally everything will run much smoother and be easier on the eyes

Keep up the good work

"You must be someone's friend to make comments about them." - MySpace lied.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / The Number Game...which freezes