home *** CD-ROM | disk | FTP | other *** search
/ World of Graphics / WOGRAPH.BIN / 658.EXAMPLES.EXE / WORDWIZZ.SHW < prev    next >
Text File  |  1993-02-01  |  1KB  |  80 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  WordWizz.SHW                                          ;
  3. ; Date.......:  1st. Feb. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. ; Note: This script could easily be turned into the game hangman.
  8. ;       With a counter for number of errors and graphics...
  9.  
  10. ; Starting point for word puzzles
  11. MARK 10
  12.  
  13. ; Create all variables
  14. VARIABLE CREATE inkey TYPE KEY
  15. VARIABLE CREATE input TYPE STRING ""
  16.  
  17. SHOW SCREEN "wordwizz.scr" TXT
  18.  
  19. DO "wordrand.shw"
  20.  
  21. goxy 30 10
  22. write var1
  23.  
  24. goxy 30 11
  25. write ""
  26.  
  27. goxy 30 12
  28. write var2
  29.  
  30. goxy 30 13
  31. write "--------"
  32.  
  33. goxy 30 15
  34. write "--------"
  35.  
  36. goxy 30 14
  37. READ STRING input 10
  38.  
  39. CASE STRING input result DO JUMPMARK 11
  40.  
  41. goxy 30 17
  42. write "Wrong result..."
  43.  
  44. goxy 30 19
  45. write "The result was:"
  46.  
  47. goxy 56 19
  48. write result
  49.  
  50. JUMPMARK 12
  51.  
  52. MARK 11
  53.  
  54. goxy 30 17
  55. write "CONGRATULATION!!!"
  56.  
  57. MARK 12
  58.  
  59. goxy 4 25
  60. write "Q = Quit, Any other key = Continue with word puzzles"
  61.  
  62. READ KEY inkey
  63.  
  64. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  65. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  66.  
  67. VARIABLE RELEASE ALL
  68.  
  69. ; Jump back to starting point
  70. JUMPMARK 10
  71.  
  72. ; End the script
  73. MARK 100
  74.  
  75. COLOR BACKGROUND 0
  76. SCREEN CLEAR
  77. WRITE "THANK YOU FOR USING WORD WIZZARD..."
  78. WAIT 2
  79. QUIT
  80.