home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 February / PCWorld_2001-02_cd.bin / Software / Vyzkuste / visirc / guess.vsc < prev    next >
Text File  |  1995-07-17  |  732b  |  34 lines
  1. // GUESS.VSC (version 1.00)
  2. // A simple guess-the-number game for ViRC '96 (0.34+)
  3. //
  4. // Simply type "/load guess.vsc" to play!!
  5.  
  6. Name Guess the number game!!
  7.  
  8. @ $num = $rand(1000)
  9. @ $guess = $?="Guess the number. It's between 0 and 999."
  10. @ $tries = 1
  11.  
  12. while ($num != $guess) && ([$guess] != [])
  13.   @ $tries = $($tries + 1)
  14.   if ($num > $guess)
  15.      @ $g2 = $?="The number is higher. Guess again."
  16.   else
  17.     if ($num < $guess)
  18.        @ $g2 = $?="The number is lower. Guess again."
  19.     endif
  20.   endif
  21.   @ $guess = $g2
  22. endwhile
  23.  
  24. if ([$guess] == [])
  25.    MessageBox Only losers give up. =]
  26. else
  27.    MessageBox Congratulations. You got the number in $tries tries.
  28. endif
  29.  
  30. -@ $num
  31. -@ $guess
  32. -@ $tries
  33. -@ $g2
  34.