home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / maj / 2179 / examples.exe / MATHWIZZ.SHW < prev    next >
Text File  |  1994-06-01  |  3KB  |  142 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  MathWizz.SHW                                          ;
  3. ; Revision...:  1.1, Apr. 1994, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. ; Create all global variables
  8. VARIABLE CREATE var1 TYPE NUMBER 0
  9. VARIABLE CREATE var2 TYPE NUMBER 0
  10. VARIABLE CREATE soundit TYPE NUMBER 0
  11. VARIABLE CREATE result TYPE NUMBER 0
  12. VARIABLE CREATE input TYPE NUMBER 0
  13. VARIABLE CREATE inkey TYPE KEY
  14.  
  15. SHOW SCREEN "mathwiz1.scr" TXT
  16. WAIT 3
  17.  
  18. VARIABLE CREATE answer TYPE STRING ""
  19. goxy 20 11 draw box 40 2
  20. goxy 21 12 write "Do you wish sounds in this game (Y/N) "
  21. MARK 1
  22. GOXY 59 12 READ STRING UPPER answer 1
  23. CASE STRING answer "Y" DO JUMPMARK 2
  24. CASE STRING answer "N" DO JUMPMARK 2
  25. JUMPMARK 1
  26. MARK 2
  27. CASE STRING answer "Y" DO MATH soundit = 1
  28. VARIABLE RELEASE answer
  29.  
  30. ; Starting point for addition puzzles
  31. MARK 10
  32.  
  33. SHOW SCREEN "mathwiz2.scr" TXT
  34.  
  35. math var1 = random(100)
  36. math var2 = random(100)
  37. math result = var1 + var2
  38.  
  39. goxy 30 10 write var1
  40. goxy 30 11 write "+"
  41. goxy 30 12 write var2
  42.  
  43. goxy 30 13 write "--------"
  44. goxy 30 15 write "--------"
  45. goxy 30 14 READ STRING input 4
  46.  
  47. IF input EQ result DO JUMPMARK 11
  48.  
  49. goxy 30 17 write "Wrong result..."
  50. goxy 30 19 write "The result was: "+result
  51. IF soundit EQ 1 DO
  52.    SPEAK "W-R-OH-N-G"
  53.    WAIT 1
  54.    SPEAK "R-EE-S-UH-L-T"
  55.    SPEAK "EE-S"
  56.    WAIT 1
  57.    SPEAK result
  58. END
  59.  
  60. JUMPMARK 12
  61.  
  62. MARK 11
  63.  
  64. goxy 30 17 write "CONGRATULATION!!!"
  65. IF soundit EQ 1 DO
  66.    SPEAK "K-OH-R-EH-K-T"
  67. END
  68.  
  69. MARK 12
  70.  
  71. goxy 4 25
  72. write "Q = Quit, PgDn = New Operator, Any other key = Continue this puzzle"
  73.  
  74. READ KEY inkey
  75.  
  76. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  77. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  78. CASE KEY inkey 481 DO JUMPMARK 20    ; 'PgDn'
  79.  
  80. ; Jump back to starting point
  81. JUMPMARK 10
  82.  
  83. ; Starting point for multiplication puzzles
  84. MARK 20
  85.  
  86. SHOW SCREEN "mathwiz2.scr" TXT
  87.  
  88. math var1 = random(100)
  89. math var2 = random(100)
  90. math result = var1 * var2
  91.  
  92. goxy 30 10 write var1
  93. goxy 30 11 write "*"
  94. goxy 30 12 write var2
  95.  
  96. goxy 30 13 write "--------"
  97. goxy 30 15 write "--------"
  98. goxy 30 14 READ STRING input 4
  99.  
  100. IF input EQ result DO JUMPMARK 21
  101.  
  102. goxy 30 17 write "Wrong result..."
  103. goxy 30 19 write "The result was: "+result
  104. IF soundit EQ 1 DO
  105.    SPEAK "W-R-OH-N-G"
  106.    WAIT 1
  107.    SPEAK "R-EE-S-UH-L-T"
  108.    SPEAK "EE-S"
  109.    WAIT 1
  110.    SPEAK result
  111. END
  112.  
  113. JUMPMARK 22
  114.  
  115. MARK 21
  116.  
  117. goxy 30 17 write "CONGRATULATION!!!"
  118. IF soundit EQ 1 DO
  119.    SPEAK "K-OH-R-EH-K-T"
  120. END
  121.  
  122. MARK 22
  123.  
  124. goxy 4 25
  125. write "Q = Quit, Any other key = Continue this puzzle"
  126.  
  127. READ KEY inkey
  128.  
  129. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  130. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  131.  
  132. JUMPMARK 20
  133.  
  134. ; End the script
  135. MARK 100
  136.  
  137. COLOR BACKGROUND 0
  138. SCREEN CLEAR
  139. WRITE "THANK YOU FOR USING MATHWIZARD..."
  140. WAIT 2
  141. QUIT
  142.