menu screen 3-in-1 program
Author |
Message |
crazygurl
|
Posted: Sat Apr 09, 2005 5:29 pm Post subject: menu screen 3-in-1 program |
|
|
i need some help, i have a program where you have the option of playing two games. right now everytime someone plays and selects the games they want, they can play it. The problem is that when the game they have chosen is done, the menu screen where you choose to play game 1 or 2 doesn't come up, it only lets the play play that one game over and over. Is there a way where i could make it so that the menu comes up when the game is done..
thanks
Description: |
my program, can someone fix it 4 me.....plz |
|
Download |
Filename: |
GAME2.T |
Filesize: |
9.85 KB |
Downloaded: |
137 Time(s) |
|
|
|
|
|
|
Sponsor Sponsor
|
|
|
AsianSensation
|
Posted: Sat Apr 09, 2005 5:45 pm Post subject: (No subject) |
|
|
Alright, let me first apologize for not responding to your email. I just checked it today, so I didn't get a chance to fix your problem before. Sorry about that.
anyways, on to the problem. The problem is actually very simple. If you check your procedures game1 and game2, you'll find that you have 2 infinite loop inside each procedure. This causes the procedure to never finish running, because you only exited the inner loop. So take off a loop and end loop statement in both procedures and you should be fine.
Ex: instead of
Turing: | proc game1
loop
var number : int
var count : int := 1
var guess : int
setscreen ("graphics:vga")
setscreen ("nocursor")
cls
locate (12, 36)
color (2)
put "WELCOME TO NUMBERS"
.
.
.
end loop
end game1
|
take off the first loop statement:
Turing: | proc game1
var number : int
var count : int := 1
var guess : int
setscreen ("graphics:vga")
setscreen ("nocursor")
cls
locate (12, 36)
color (2)
put "WELCOME TO NUMBERS"
.
.
.
end game1
|
|
|
|
|
|
|
|
|