home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1090 / examples.exe / SHOWXMAS.SHW < prev    next >
Encoding:
Text File  |  1994-02-01  |  886 b   |  54 lines
  1. COLOR BACKGROUND 0
  2. COLOR FOREGROUND 15
  3. COLOR ATTRIBUTE 15
  4. SCREEN WIPE RIGHT
  5.  
  6. SHOW SCREEN "XMAS.SCR" TXT
  7.  
  8. VARIABLE CREATE count TYPE NUMBER 1
  9. VARIABLE CREATE x TYPE NUMBER 1
  10. VARIABLE CREATE y TYPE NUMBER 1
  11. VARIABLE CREATE char TYPE STRING " "
  12. VARIABLE CREATE def TYPE NUMBER 0
  13. VARIABLE CREATE hit TYPE NUMBER 0
  14.  
  15. MARK 1
  16. MATH x = RANDOM(79)
  17. MATH y = RANDOM(24)
  18. IF x IN 1 15 DO JUMPMARK 2
  19. IF x IN 58 79 DO JUMPMARK 3
  20. JUMPMARK 1
  21.  
  22. MARK 2
  23. IF y IN 7 10 DO
  24.    GOXY x y WRITE char
  25.    MATH hit = 1
  26. END
  27. JUMPMARK 4
  28.  
  29. MARK 3
  30. IF y IN 3 7 DO
  31.    GOXY x y WRITE char
  32.    MATH hit = 1
  33. END
  34.  
  35. MARK 4
  36. IF hit EQ 0 DO JUMPMARK 1
  37. MATH hit = 0
  38.  
  39. IF def EQ 1 DO
  40.    MATH def = 0
  41.    VARIABLE VALUE char " "
  42. ELSE
  43.    MATH def = 1
  44.    VARIABLE VALUE char "°"
  45. END
  46.  
  47. MATH count = count+1
  48. IF count LT 100 DO JUMPMARK 1
  49.  
  50. MUSIC PROCESS "JINGLE.SND" SND
  51. WAIT 2
  52.  
  53. EFFECT GLITTER
  54.