home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / einsteig / heimwerk / spdemo3.bas < prev    next >
Encoding:
BASIC Source File  |  1990-04-09  |  2.1 KB  |  83 lines
  1. '* ------------------------------------------------------- *
  2. '*                      SPDEMO3.BAS                        *
  3. '*    Sprite-Demonstration bei der das Sprite vor bzw.     *
  4. '*          hinter einem anderen Objekt bewegt wird        *
  5. '*              (c) 1990 Kay Glahn & TOOLBOX               *
  6. '* ------------------------------------------------------- *
  7. DIM a(64) AS INTEGER
  8. DIM B(64) AS INTEGER
  9. DIM C(800) AS INTEGER
  10. '* --------------------------------------------------------*
  11. '*      Luftballon zeichnen und in Array speichern         *
  12. SCREEN 2
  13. CIRCLE (19, 9), 15
  14. PAINT (19, 9)
  15. CIRCLE (19, 13), 8
  16. PAINT (19, 15)
  17. PSET (27, 11)
  18. DRAW "g7 f2 l6 e2 h7"
  19. PAINT (20, 17)
  20. PSET (20, 17)
  21. DRAW "l4 g2 d1 g1"
  22. GET (0, 0)-(39, 24), a
  23. '* ------------------------------------------------------- *
  24. '*        Zeichnen der Wolke und in Array speichern        *
  25. CLS
  26. CIRCLE (150, 50), 20
  27. PAINT (150, 50)
  28. CIRCLE (170, 60), 25
  29. PAINT (170, 60)
  30. CIRCLE (200, 50), 30
  31. PAINT (200, 50)
  32. CIRCLE (180, 40), 25
  33. PAINT (180, 40)
  34. CIRCLE (250, 55), 31
  35. PAINT (250, 55)
  36. CIRCLE (220, 40), 18
  37. PAINT (220, 40)
  38. CIRCLE (210, 65), 23
  39. PAINT (210, 65)
  40. CIRCLE (285, 58), 20
  41. PAINT (285, 58)
  42. CIRCLE (265, 43), 23
  43. PAINT (265, 43)
  44. CIRCLE (260, 68), 25
  45. PAINT (260, 68)
  46. GET (130, 30)-(310, 80), C
  47. CLS
  48. '* ------------------------------------------------------- *
  49. '*                       Hauptprogramm                     *
  50. CLS
  51. LINE (0, 0)-(639, 199), , B
  52. PUT (120, 30), C, PSET
  53. PUT (350, 70), C, PSET
  54. PUT (50, 80), C, PSET
  55. PUT (450, 10), C, PSET
  56. x = 320
  57. y = 170
  58. DO WHILE INKEY$ = ""
  59.   GET (x, y)-(x + 39, y + 24), B
  60.   PUT (x, y), a, OR   'bzw. XOR
  61.   RANDOMIZE TIMER
  62.   n = INT(RND * 5)
  63.   SELECT CASE n
  64.     CASE 1
  65.       x = x + 1
  66.     CASE 2
  67.       y = y + 1
  68.     CASE 3
  69.       x = x - 3
  70.     CASE 4
  71.       y = y - 3
  72.   END SELECT
  73.   IF x < 1 OR x > 599 THEN EXIT DO
  74.   IF y < 1 OR y > 174 THEN EXIT DO
  75.   PUT STEP(0, 0), B, PSET
  76. LOOP
  77. WHILE INKEY$ = "": WEND
  78. END
  79. '* ------------------------------------------------------- *
  80. '*                   Ende von SPDEMO4.BAS                  *
  81.  
  82.  
  83.