Sorry your browser is not supported!

sync on:cls:sync rate 30

gosub opening_talks


opening_talks:
 text 0,100, "Hello all, Zombie here. I've revised this number game from a tut."
 text 0,120,"Its really fun to do this and I hope it all works out, so um..enjoy"
  wait 3000
  cls
 return



Print "I have thought of a number between 1 and 100. See how quickly you can guess it!"
 Print "But first I would like to know your name" 
  Input "Please what is your name?";name$
   Print "Hello there ";name$
   Print "Lets have some fun today okay?"
    wait 3000

Randomize Timer(): Rem Initialise the random number generator
Start:
MyNumber=Rnd(99)+1: Rem Select a random number between 1 and 100

Do: Rem Main Program Loop
 cls
 

  
   
 Print
  Input "What is your guess? ",Guess
  Print
  
 
 If Guess < MyNumber: Rem If chosen number is lower than computer's number
 
 circle 200,200,50
circle 180,180,10
circle 220,180,10
ellipse 200,220,20,15
 
 text 300,300, "Teh Asweomezz!!"
 Print "Your guess was too low. Try again."
    Sleep 2000
  Endif
  
If Guess > MyNumber: Rem If chosen number is higher than computer's number
    Print "Your guess was too high. Try again."
    Sleep 2000
  Endif
 
 If Guess = MyNumber: Rem If chosen number is equal to computer's number
    Print "Your guess was correct. Well done!!"
    Print
    Print "Do you want to play again (Y/N)?"
   
 Repeat: Rem Repeat...Until loop repeats until Y or N key is pressed
      I$=Upper$(Inkey$()): Rem Read the keyboard for keypresses
    Until I$="Y" or I$="N"
    If I$="Y": Rem If Y was pressed
      Goto Start: Rem Jump to Start label at beginning of program
    Else
     
 CLS

  Print "Goodbye...thanks for playing!! " 
      End
    Endif
  Endif
Loop

number = rnd(49)+1

repeat
   input "guess?",guess 
   if guess < number then print "You guessed too low!"
   if guess > number then print "You guessed too high!"
   suspend for key
   cls
until guess = number

print "Teh Asweomezz!!"

end

number = rnd(49)+1

repeat
   input "guess?",guess 
   if guess < number 
      print "You guessed too low!"
      rem INSERT TOO LOW CODE HERE
   endif
   if guess > number
      print "You guessed too high!"
      rem INSERT TOO HIGH CODE HERE
   endif
   suspend for key
   cls
until guess = number

print "Teh Asweomezz!!"
rem INSERT TEH ASWEOMEZZ CODE HERE

end

 sync on:cls:sync rate 30

Input "Please give us your name ";name$
 Print "Alright ",name$," could you help us out real quick?"
 Text 110,100, "All we need you to do is press the right arrowkey."

 
   wait 2000
 cls

do 

while rightkey()=1 
 print "you are pressing the rightkey"

circle 200,200,50
circle 180,180,10
circle 220,180,10
ellipse 200,220,20,15
 
 text 300,300, "Teh Asweomezz!!"

 endwhile

sync 
 loop