simple but addictive (guess that number) game

[a random person]

this is a game I therw togather in under 5 minutes, forgive me for the simplicity but ive been only working with turing for about a couple of weeks. now that i got you all hyped I will now give you the code.

code:

var c, u, g : int var p : string loop     g := 0     randint (c, 1, 100)     put "pick a number 1-100"     get u     for i : 1 .. 5         if c < u then             g := g + 1             put "lower"             get u         elsif c > u then             g := g + 1             put "higher"             get u         else         end if         exit when c = u     end for     if c = u then         put "you win in ", g, " guesses"     else         put "I win"         put "the correct number was ", c     end if     put "play again, (y)es or (n)o?"     get p     if p = "y" then         cls     else         exit when p = "n"     end if end loop

I hope you have fun and please give me feed back

[jrblast]

this type of game is fun and unlike with realy people, you wont have a number greater than 80 and less than 20 o.O

[jamonathin]

you know you're really missing one thing in your title.

Simple, stupid, and addicting.

Notice I didn't take out the addicting part. I actually played it a few times (surprisingly) where my best was four. It's stupid that it's addicting. . lol.

[MysticVegeta]

jamonathin wrote:

stupid

Isnt that a little bit harsh for new people?

[a random person]

jamonathin, if you think your so good then, make a better guessing game
that is not "stupid" and post it on this thread.

plz give feedback and rate it out of 10

[Tony]

it would be good to use meaningful names and perhaps comments.. espectially when other people are looking at your code (and since you posted it here, you must have expected someone to read it).

looking at

code:

if p = "y" then

I have no idea what's going on. P and Y are different letters, why should this ever be true?

[[Gandalf]]

a random person wrote:

if you think your so good then, make a better guessing game

Ok Well, since goodness is relative, I'll make it shorter heh...

code:

var randomNumber : int := Rand.Int (1, 100) var guessedNumber : int var guessesUsed : int := 0 loop     put "Enter your guess: " ..     get guessedNumber     guessesUsed += 1     if guessedNumber > randomNumber then         put "Too high!"     elsif guessedNumber < randomNumber then         put "Too low!"     end if     exit when guessedNumber = randomNumber end loop put "You won!  It took you ", guessesUsed, " tries to get the number ", randomNumber, "."

One slightly different thing about your game is that it has a guess limit - great!

[Tony]

[Gandalf] wrote:

Ok Well, since goodness is relative, I'll make it shorter heh...

Gandalf, stop showing off. Besides, a guessing game could be done in 8 lines

Turing:

var guessedNumber, randomNumber : int := Rand.Int (1, 100) for guessCount : 1 .. maxint     put "Enter your guess #(", guessCount, "): " ..     get guessedNumber     put "Saying that your guess is 'too high' is: ", guessedNumber > randomNumber     exit when guessedNumber = randomNumber end for put "You won!"

[jamonathin]

a random person wrote:

jamonathin, if you think your so good then, make a better guessing game
that is not "stupid" and post it on this thread.

plz give feedback and rate it out of 10

code:

setscreen ("msdos") var numb, guess : int := Rand.Int (128, 254) loop     put "Enter your number guess for:\n\n             ", chr (numb), "\n\n         (128-254)\n\n"     get guess     cls     exit when numb = guess end loop

Take an educated guess.

I give it a 3/10.

[[Gandalf]]

Tony wrote:

Gandalf, stop showing off. Besides, a guessing game could be done in 8 lines

I wasn't going for as short as possible, the main point of my program was to show him using good variable names, functions instead of procs, etc.

I wouldn't show off making a guessing game in Turing. If I wanted to do that, I'd have to make it in Python

Besides, if you want less lines, I'd make it in 1:

code:

var guessedNumber, randomNumber : int := Rand.Int (1, 10) for guessCount : 1 .. maxint put "Guess #(", guessCount, ")? " .. get guessedNumber put guessedNumber = randomNumber exit when guessedNumber = randomNumber end for

[Tony]

[Gandalf] wrote:

Besides, if you want less lines, I'd make it in 1:

We count the number of lines after Turing's F2 indent. It makes your a 7, and only because you took out that last put "you win" statement

[a random person]

Quote:

jamonathin, if you think your so good then, make a better guessing game
that is not "stupid" and post it on this thread.

there i quoted myself, jamonathen, didn't i say a game that is not stupid.

this isn't the pot calling the kettle black here, if you realy want you can retry.

and guys, great job condensing my game.

[Cervantes]

Let's not let things get out of control.

Locked.