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