Sorry your browser is not supported!

set display mode 800,600,16
print "Guess what number I'm thinking of by NiK Dietrich"
print "press any key"
wait key
startlabel:
print "Take a guess and type in your number,it's between 1 and 7"
var_number = rnd(6)+1
input var_guess
if var_guess = var_number
winlabel:
print "Winner!That was AWESOME YOU READ MY FRICKIN MIND!"
print "Press any key to try again,or escape to close"
wait key
goto startlabel
else
loselabel:
print "Hard luck,have another shot"
endif
input var_guess
if var_guess = var_number
goto winlabel
else
goto loselabel
endif

Do
   Set Cursor 0,0
   Print "Guess the number!"
   Input "> ", Guessed$

   NumberToGuess = rnd(10)

   If Val(Guessed$) = NumberToGuess
         // Guessed right!
         Cls
         Print "You guessed it..."
         Wait 1000
         Print "RIGHT!"
         Wait 3000
         CLS
   Else
         // Guessed wrong.
         Cls
         Print "You guessed it..."
         Wait 1000
         Print "WRONG!"
         Wait 3000
         CLS
   Endif
Loop

Do : Set Cursor 0,0 : Print "Guess the number!" : Input "> ", Guessed$ : NumberToGuess = rnd(10) : If Val(Guessed$) = NumberToGuess : Cls : Print "You guessed it..." : Wait 1000 : Print "RIGHT!" : Wait 3000 : CLS : Else : Cls : Print "You guessed it..." : Wait 1000 : Print "WRONG!" : Wait 3000 : CLS : Endif : Loop

randomize timer()

hide mouse
randomize timer()
ink 65280,0 :`"Green" for short.

rem === POINT OF NO RETURN ===
Do
  yourn = 0
  cpun = 0
  n = rnd(99)+1
  cls
  print "NUMLORD:> I've chosen a number. Guess which one."
  print "NUMLORD:> It's not 1 by the way... or is it? Probably not."
  wait key

  rem Keep going until one of you gets it right.
  repeat
    print "NUMLORD:> What is your guess?"
    input "YOU:> "; yourn
    if yourn = n
      print "NUMLORD:> What? How did you get that?"
    else
      print "NUMLORD:> That's not it."
    endif
    wait 1000

    print "NUMLORD:> Now it's the T1000's turn."
    wait 1000
    if cpun>n then cpun=cpun-(100-cpun)/2 else cpun=cpun+(100-cpun)/2
    print "T1000:> By my calculations the number is ";cpun
    if cpun = n
      print "NUMLORD:> The T1000 has won!"
      print "T1000:> Oh sweet! *ehem* I mean, affirmative."
    else
      print "NUMLORD:> Wrong. You'd think AI stands for Absence of Intelligence!"
    endif
  Until yourn=n or cpun=n
Loop

Randomize timer()

Do
   Set Cursor 0,0
   Print "Guess the number!"
   Input "> ", Guessed$

   NumberToGuess = rnd(10)

   cls
   Print "You guessed it..."
   Wait 1000
   Print check(val(Guessed$),NumberToGuess)
   Wait 3000
   cls

Loop

function check(Guess,NumberToGuess)
if Guess=NumberToGuess : a$="RIGHT!" : else : a$="WRONG!" : endif
endfunction a$