home *** CD-ROM | disk | FTP | other *** search
/ Kids Cube / 1_Art.iso / mmm21 / example5.bat < prev    next >
DOS Batch File  |  1993-01-11  |  3KB  |  139 lines
  1. @echo off
  2.  
  3. : EDUCATIONAL EXAMPLE WITH TEXT ON GRAPHIC
  4. cls
  5. echo.
  6. echo.
  7. echo                  Welcome to the interactive talking test
  8. echo.
  9. echo.
  10. echo Please enter your name:
  11. name
  12. echo.
  13. echo Todays date:
  14. name
  15. echo.
  16. echo Your class #:
  17. name
  18.  
  19. SAY-SB THANKYOU.VOC
  20.  if errorlevel 1 say thankyou.pc
  21. echo.
  22. echo.
  23. echo     The test results will be stored in the ANSWER.TXT file.
  24. delay-kb 4
  25. :review
  26. show-pcx JUPITER.pcx SLIDE
  27. gtext "  JUPITER - Largest planet in our" 1 0 16 200
  28. gtext "  ~~~~~~~   solar system." 2 0 16 200
  29. say-sb jupiter.voc
  30.  if errorlevel 1 say jupiter.pc
  31.  
  32. gtext "JUPITER TAKES ALMOST" 8 20 8 160  
  33. gtext "12 YEARS TO REVOLVE" 9 20 8 160  
  34. gtext "AROUND THE SUN." 10 20 8 160  
  35.  
  36. gtext "The most notable " 12 20 8 160  
  37. gtext "marking on Jupiter" 13 20 8 160  
  38. gtext "is a large, oval" 14 20 8 160  
  39. gtext "spot, the so-called" 15 20 8 160  
  40. gtext "Great Red Spot," 16 20 8 160  
  41. gtext "which is 7,000 " 17 20 8 160  
  42. gtext "miles wide and" 18 20 8 160  
  43. gtext "25,000 miles long." 19 20 8 160  
  44. gtext "This spot is a" 21 20 8 160  
  45. gtext "drifting storm." 22 20 8 160  
  46. gtext "     *WOW*" 23 20 8 160  
  47. delay-kb 4
  48. GTEXT "»»»════════»" 17 1 8 207 260
  49. delay-kb 6
  50. clear jupiter.pcx weave slow
  51.  
  52. : QUESTION EXAMPLE
  53.  
  54. show-pcx jupiter.pcx blind R
  55. gtext "How long does Jupiter take" 1 5 16 180
  56. gtext "to revolve around the Sun ?" 2 5 16 180
  57. gtext "1 - 1 year" 5 21 14 200
  58. gtext "2 - Almost 6 years" 6 21 14 200
  59. gtext "3 - Almost 12 years" 7 21 14 200
  60. gtext "4 - 22 years" 8 21 14 200
  61. gtext "Please enter 1-4 ?" 9 21 16 180
  62.  
  63. KEY 1234
  64. IF ERRORLEVEL 4 GOTO NO
  65. IF ERRORLEVEL 3 GOTO YES
  66. IF ERRORLEVEL 2 GOTO NO
  67. IF ERRORLEVEL 1 GOTO NO
  68.  
  69. :YES
  70. gtext "3 - Almost 12 years" 7 21 14 100  
  71. gtext "EXCELLENT" 11 21 16 100  
  72. SAY-SB EXCELLEN.VOC
  73.  if errorlevel 1 say excellen.pc
  74. SAY-SB CLAP.VOC
  75. store 1_right
  76. clear jupiter.pcx RANDOM
  77. GOTO NEXT1
  78.  
  79. :NO
  80. SAY-SB sfx5.voc
  81.  if errorlevel 1 say sfx5.pc
  82. gtext "ALMOST" 10 21 16 200
  83. SAY-SB ALMOST.VOC
  84.  if errorlevel 1 say almost.pc
  85. gtext "Lets review it again." 11 10 16 200  
  86. store 1_wrong
  87. delay 2
  88. clear jupiter.pcx CRUSH r
  89. goto review
  90.  
  91. :NEXT1
  92. show-pcx jupiter.pcx slide
  93. gtext "The spot on jupiter" 1 5 16 180  
  94. gtext "is called ?" 2 5 16 180  
  95. gtext "1 - The Great Eye" 5 21 14 200  
  96. gtext "2 - The Great Red" 6 21 14 200  
  97. gtext "    Spot" 7 21 14 200  
  98. gtext "3 - The Great Storm" 8 21 14 200  
  99. gtext "4 - The Red Eye" 9 21 14 200  
  100. GTEXT "»»»════════»" 17 1 8 207 260
  101. delay
  102. GTEXT "»»»════════»" 17 1 8 107 260
  103. delay
  104. GTEXT "»»»════════»" 17 1 8 207 260
  105.  
  106. gtext "Please enter 1-4 ?" 9 21 16 180  
  107.  
  108. KEY 1234
  109. IF ERRORLEVEL 4 GOTO NO1
  110. IF ERRORLEVEL 3 GOTO NO1
  111. IF ERRORLEVEL 2 GOTO YES1
  112. IF ERRORLEVEL 1 GOTO NO1
  113.  
  114. :YES1
  115. gtext "2 - The Great Red" 6 21 14 100  
  116. gtext "    Spot" 7 21 14 100  
  117. gtext "EXCELLENT" 11 21 16 100  
  118. SAY-SB EXCELLEN.VOC
  119.  if errorlevel 1 say excellen.pc
  120. play-cmf intro.cmf
  121. store 2_right
  122. clear jupiter.pcx crush slow
  123. GOTO EXIT:
  124.  
  125. :NO1
  126. SAY-SB sfx5.voc
  127.  if errorlevel 1 say sfx5.pc
  128. gtext "ALMOST" 10 21 16 200
  129. SAY-SB ALMOST.VOC
  130.  if errorlevel 1 say almost.pc
  131. gtext "Lets review it again." 11 10 16 200  
  132. delay 2
  133. store 2_wrong
  134. clear jupiter.pcx SPIRAL R
  135. goto review
  136.  
  137. :EXIT
  138. rem cleanup
  139. store ----------------------