home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1090 / examples.exe / WORDWIZZ.SHW < prev    next >
Encoding:
Text File  |  1994-02-01  |  1.4 KB  |  63 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  WordWizz.SHW                                          ;
  3. ; Date.......:  1st. Feb. 1994, 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 write var1
  22. goxy 30 11 write ""
  23. goxy 30 12 write var2
  24.  
  25. goxy 30 13 write "--------"
  26. goxy 30 15 write "--------"
  27. goxy 30 14 READ STRING input 10
  28.  
  29. CASE STRING UPPER input result DO JUMPMARK 11
  30.  
  31. goxy 30 17 write "Wrong result..."
  32. goxy 30 19 write "The result was: "+result
  33.  
  34. JUMPMARK 12
  35.  
  36. MARK 11
  37.  
  38. goxy 30 17 write "CONGRATULATION!!!"
  39.  
  40. MARK 12
  41.  
  42. goxy 4 25
  43. write "Q = Quit, Any other key = Continue with word puzzles"
  44.  
  45. READ KEY inkey
  46.  
  47. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  48. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  49.  
  50. VARIABLE RELEASE ALL
  51.  
  52. ; Jump back to starting point
  53. JUMPMARK 10
  54.  
  55. ; End the script
  56. MARK 100
  57.  
  58. COLOR BACKGROUND 0
  59. SCREEN CLEAR
  60. WRITE "THANK YOU FOR USING WORD WIZZARD..."
  61. WAIT 2
  62. QUIT
  63.