home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / graphic / show55a / games.exe / GUESS.SHW < prev    next >
Text File  |  1995-02-01  |  2KB  |  92 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  Guess.SHW                                             ;
  3. ; Revision...:  Feb. 1995, by RMP DATA.                               ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. COLOR BACKGROUND 1
  8. COLOR FOREGROUND 15
  9.  
  10. SCREEN CLEAR
  11. DRAW BOX 79 24
  12.  
  13. COLOR BACKGROUND 4
  14. SET DELAYFACTOR 5
  15. GOXY 14 2 WRITE "W e l l c o m e  t o  G u e s s  a  N u m b e r . . ."
  16. SET DELAYFACTOR 0
  17.  
  18. ; Create variables for input
  19. VARIABLE CREATE times TYPE NUMBER 1
  20. VARIABLE CREATE result TYPE NUMBER 1
  21. VARIABLE CREATE input TYPE NUMBER 1
  22.  
  23. ; Create variables for score keeping
  24. VARIABLE CREATE score TYPE NUMBER 10000
  25. VARIABLE CREATE name TYPE STRING ""
  26.  
  27. IF FILE "guess1.var" DO
  28.    VARIABLE LOAD score FROM "guess1.var"
  29. END
  30.  
  31. IF FILE "guess2.var" DO
  32.    VARIABLE LOAD name FROM "guess2.var"
  33. END
  34.  
  35. GOXY 6 5 WRITE "Best score.....:"
  36. GOXY 6 7 WRITE "Name...........:"
  37. GOXY 24 5
  38. IF score EQ 10000 DO
  39.    WRITE "<None>"
  40.    GOXY 24 7 WRITE "<None>"
  41. END
  42. IF score NE 10000 DO
  43.    WRITE score
  44.    GOXY 24 7 WRITE name
  45. END
  46.  
  47. MATH result = RANDOM(100)
  48.  
  49. GOXY 18 10 WRITE "Guess the secret number between 1 and 100!"
  50.  
  51. MARK 1
  52.  
  53. COLOR BACKGROUND 1
  54. GOXY 30 12 WRITE times+". Guess:"
  55. GOXY 42 12 READ STRING input 3
  56.  
  57. COLOR BACKGROUND 4
  58. GOXY 18 20
  59.  
  60. IF input EQ result DO JUMPMARK 10
  61. IF input LT result DO JUMPMARK 2
  62.  
  63. WRITE "The entered number is higher than the secret."
  64. JUMPMARK 3
  65.  
  66. MARK 2
  67. WRITE "The entered number is lower than the secret. "
  68.  
  69. MARK 3
  70. VARIABLE INCREASE times 1
  71. JUMPMARK 1
  72.  
  73. MARK 10
  74. WRITE "Congratulation... You found the secret number!"
  75. COLOR BACKGROUND 1
  76. GOXY 29 22 WRITE "Number of tries: "+times
  77. WAIT 3
  78.  
  79. IF times LE score DO
  80.    MATH score = times
  81.    VARIABLE SAVE score TO "guess1.var"
  82.    GOXY 7 24
  83.    WRITE "Congratulation! - You've made the honor roll! - Enter your name..."
  84.    GOXY 24 7 READ STRING name 20
  85.    VARIABLE SAVE name TO "guess2.var"
  86. END
  87. IF times GT score DO
  88.    GOXY 8 24
  89.    WRITE "Sorry! - You did not make the honor roll! - Please try again..."
  90.    WAIT 4
  91. END
  92.