home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / LAND.LST < prev    next >
File List  |  1987-04-22  |  3KB  |  85 lines
  1. ' ****************************************************************************
  2. ' *                                                                          *
  3. ' *       G F A  V 2.0     S C R O L L I N G   L A N D S C A P E             *
  4. ' *                                 by                                       *
  5. ' *                       A D A M   M E D L E Y                              *
  6. ' *                                                                          *
  7. ' ****************************************************************************
  8. '
  9. '
  10. '
  11. '
  12. For F=0 To 15                              !Set all colours to black
  13.   Setcolor F,0,0,0
  14. Next F
  15. '
  16. Data 0,2,3,6,4,7,5,8,9,10,11,14,12,15,13,1 !In GFA the command setcolor N does
  17. Dim C(15)                                  !not affect color N, but some other
  18. For X=0 To 15                              !colour. These 5 lines set up the
  19.   Read C(X)                                !field C(N) (with N being the color)
  20. Next X                                     !to set the correct colour.
  21. Dim A$(12)                                 !set up a field to contain each frame
  22. '
  23. Deffill C(1),0,1                           !define the fill used by Pbox command
  24. '
  25. For Z=0 To 60 Step 5                       !this part of the program draws and
  26.   Color C(1)                               !grabs the frames.
  27.   Cls
  28.   Pbox 0,110,319,199                       !pbox is used to cls half the screen
  29.   K=200+3.4*Z                              !k is the distance between the lines
  30.   For F=0 To 20                            !parallel to the horizon. This part
  31.     Draw 0,K+110 To 319,K+110              !draws those lines and moves each one
  32.     K=K/2                                  !closer together (k=k/2)
  33.   Next F
  34.   For F=-1000 To 1000 Step 60              !This draws the lines that recede into
  35.     Draw F+Z,199 To 160,90                 !the distance.
  36.   Next F
  37.   Get 0,110,319,199,A$(Z/5)                !This grabs each frame.
  38. Next Z
  39. '
  40. Cls                                        !This section draws the sky.
  41. K=42                                       !K allows each band to get thicker as
  42. For F=5 To 10                              !it gets lighter.
  43.   Color C(F)
  44.   For N=K To K+F+3
  45.     Draw 0,N To 319,N
  46.     K=K+1
  47.   Next N
  48. Next F
  49. '
  50. Setcolor 0,0,0,0                           !Sets up all the colours used
  51. Setcolor 1,0,6,6
  52. Setcolor 2,0,0,1
  53. Setcolor 5,0,2,7
  54. Setcolor 6,0,3,7
  55. Setcolor 7,0,4,7
  56. Setcolor 8,0,5,7
  57. Setcolor 9,0,6,7
  58. Setcolor 10,0,7,7
  59. '
  60. Do                                         !The loop that displays the frames
  61.   '
  62.   For Z=1 To 20                            !Plays them forward slowly ( shows
  63.     For F=1 To 12                          !frame )
  64.       Put 0,110,A$(F)
  65.     Next F
  66.   Next Z
  67.   '
  68.   For Z=0 To 20                            !plays them forward fast ( shows
  69.     For F=1 To 12 Step 2                   !every other frame )
  70.       Put 0,110,A$(F)
  71.     Next F
  72.   Next Z
  73.   '
  74.   For Z=0 To 20                            !The same as above except the frames
  75.     For F=12 To 1 Step -1                  !are played backwards.
  76.       Put 0,110,A$(F)
  77.     Next F
  78.   Next Z
  79.   For Z=0 To 20
  80.     For F=12 To 1 Step -2
  81.       Put 0,110,A$(F)
  82.     Next F
  83.   Next Z
  84. Loop
  85.