Guessing Game

We all know that simple game called "What number im thingking at?"

Here is a bit modified version of it. At start, program randoms 5 numbers between 1 to 100. Then it ask's you to guess number.
If your guess is bigger, it prints Number in yellow, and if your guess is smaller, it prints Number in red.
If number is allready guessed correctly, it prints Number in green.

You dont see any numbers, not even correctly guessed ones until all 5 numbers are guessed correctly.
At the end, program shows you all numbers, and how many rounds you have played. My best recors is 19 rounds. There is somthing for you to beat. ;D

' UPDATE: 7'th Nov. 2007 for FB .18
' Guess what number. Version 0.001
' Simple stuff, just compile and run.
' you get the thrill.
' Created by E.K.Virtanen. Copy, modifye, edit, eat, drink or what ever with this

' You can quit, by goin over Max or under Min values.
' Basicly its 0 or > 100

Randomize Timer
CLS

' Lets set Min and Max values just to make code look bit better
Dim AS INTEGER Min, Max, i
    Min = 1 : Max = 100

' 5 randomed numbers on array. These are what we are tying to guess.
DIM Numbers(5,2) AS INTEGER
   For i = 1 TO 5
      Numbers(i,1) = INT(RND * 100) + 1
      Numbers(i,2) = 1
   Next i

' This is what player types at each round and how many rounds played. Guessed is number of correctly guessed numbers.
Dim AS INTEGER Guess, Rounds, Guessed
      Rounds = 0 : Guessed = 0
DO
Rounds = Rounds + 1 : Guessed = 0
   Color 15
   LOCATE 18,10 : Print "Round playing now:"; Rounds
   LOCATE 20,10 : Input "Enter your guess. Between 1 to 100";Guess
   CLS
     IF Guess < Min OR Guess > Max Then END

   For i = 1 TO 5
      IF Guess = Numbers(i,1) Then Numbers(i,2) = 0
      IF Numbers(i,1) < Guess Then Color 14
      IF Numbers(i,1) > Guess Then Color 12
      IF Numbers(i,2) = 0 Then
      Color 10 : Guessed = Guessed + 1
      END IF
           LOCATE i+5, 15 : Print "Number:"; i;
   Next i
        IF Guessed = 5 Then EXIT DO
Loop

CLS
For i = 1 TO 5
   LOCATE i,5, 15 : Print "Number:"; i ; " was "; Numbers(i,1);
Next i
Locate 15,15 : Print "Total rounds needed:"; Rounds
Sleep
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.