« previous next »
Pages: [1]   Go Down

Author Topic: Flying or Driving Example  (Read 4878 times)

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Flying or Driving Example
« on: September 22, 2019, 08:18:04 pm »
This is simple, but ever since I started QB64 I've kept trying to make this and couldn't get it down, until today. :) So I made this flying/driving example for anyone to use to add to for their own games or programs. You use the arrow keys to move forward, backward, and to each side. It uses small filled in circles and squares on the ground that move as you move. The shapes increase in size slightly as you get closer to them. I might turn this into a game sometime, but I thought I would throw this in here for you guys to have. If you want you can put it in the Toolbox. The sky is blue and the ground is brown. And that's about it. It's just something to add to. Tell me what you think, thanks.

Code: QB64: [Select]
  1. _TITLE "Flying or Driving Example by Ken G. - Use the arrow keys and Esc to quit."
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. speed = 5
  5. go:
  6. DIM x(200), y(200), s(200)
  7. DIM xx(200), yy(200), ss(200)
  8. DIM c2(400), c3(400)
  9. LINE (0, 0)-(800, 300), _RGB32(127, 166, 255), BF
  11. rocks = INT(RND * 30) + 30
  12. FOR r = 1 TO rocks
  14.     x(r) = INT(RND * 800) + 1
  15.     y(r) = INT(RND * 270) + 330
  16.     s(r) = (y(r) / 20) * 1.3
  18.     c2(r) = INT(RND * 200) + 55
  19.     c3(r) = INT(RND * 200) + 55
  20.     CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  21.     PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  23.     xx(r) = INT(RND * 800) + 1
  24.     yy(r) = INT(RND * 270) + 330
  25.     ss(r) = (yy(r) / 50) * 1.3
  26.     LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  27.     PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  30.     _LIMIT 100
  31.     a$ = INKEY$
  32.     IF a$ = CHR$(0) + CHR$(72) THEN speed = speed + 2
  33.     IF a$ = CHR$(0) + CHR$(80) THEN speed = speed - 2
  34.     IF a$ = CHR$(0) + CHR$(77) THEN h = h - 2
  35.     IF a$ = CHR$(0) + CHR$(75) THEN h = h + 2
  36.     IF speed > 20 THEN speed = 20
  37.     IF speed < -20 THEN speed = -20
  38.     IF h > 20 THEN h = 20
  39.     IF h < -20 THEN h = -20
  40.     FOR r = 1 TO rocks
  41.         x(r) = x(r) + h
  42.         y(r) = y(r) + speed
  43.         IF x(r) > 800 THEN GOSUB newrockleft:
  44.         IF x(r) < 0 THEN GOSUB newrockright:
  45.         IF y(r) > 600 THEN GOSUB newrocktop:
  46.         IF y(r) < 330 THEN GOSUB newrockbottom:
  47.         s(r) = (y(r) / 100) * 1.3
  48.         CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  49.         PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  50.         xx(r) = xx(r) + h
  51.         yy(r) = yy(r) + speed
  52.         IF xx(r) > 800 THEN GOSUB newbuildleft:
  53.         IF xx(r) < 0 THEN GOSUB newbuildright:
  54.         IF yy(r) > 600 THEN GOSUB newbuildtop:
  55.         IF yy(r) < 330 THEN GOSUB newbuildbottom:
  56.         ss(r) = (yy(r) / 50) * 1.3
  57.         RANDOMIZE TIMER
  58.         LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  59.         PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  60.     NEXT r
  61.     _DISPLAY
  62.     LINE (0, 301)-(800, 600), _RGB32(127, 127, 0), BF
  64.  
  65. newrockleft:
  67. x(r) = 0
  68. y(r) = INT(RND * 270) + 316
  69. c2(r) = INT(RND * 200) + 55
  70. c3(r) = INT(RND * 200) + 55
  72.  
  73. newrockright:
  74. x(r) = 800
  75. y(r) = INT(RND * 270) + 316
  76. c2(r) = INT(RND * 200) + 55
  77. c3(r) = INT(RND * 200) + 55
  79.  
  80. newrocktop:
  81. x(r) = INT(RND * 800) + 1
  82. y(r) = 330
  83. c2(r) = INT(RND * 200) + 55
  84. c3(r) = INT(RND * 200) + 55
  86.  
  87. newrockbottom:
  88. x(r) = INT(RND * 800) + 1
  89. y(r) = 600
  90. c2(r) = INT(RND * 200) + 55
  91. c3(r) = INT(RND * 200) + 55
  93.  
  94. newbuildleft:
  96. xx(r) = 0
  97. yy(r) = INT(RND * 270) + 316
  98. c2(r) = INT(RND * 200) + 55
  99. c3(r) = INT(RND * 200) + 55
  101.  
  102. newbuildright:
  103. xx(r) = 800
  104. yy(r) = INT(RND * 270) + 316
  105. c2(r) = INT(RND * 200) + 55
  106. c3(r) = INT(RND * 200) + 55
  108.  
  109. newbuildtop:
  110. xx(r) = INT(RND * 800) + 1
  111. yy(r) = 330
  112. c2(r) = INT(RND * 200) + 55
  113. c3(r) = INT(RND * 200) + 55
  115.  
  116. newbuildbottom:
  117. xx(r) = INT(RND * 800) + 1
  118. yy(r) = 600
  119. c2(r) = INT(RND * 200) + 55
  120. c3(r) = INT(RND * 200) + 55
  122.  
« Last Edit: September 22, 2019, 08:23:17 pm by SierraKen »
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Flying or Driving Example
« Reply #1 on: September 22, 2019, 08:49:22 pm »
Not sure where the flicker comes from but this looks a bit more fake-3d:

Code: QB64: [Select]
  1. _TITLE "Flying or Driving Example by Ken G. - Use the arrow keys and Esc to quit."
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. speed = 5
  5. go:
  6. DIM x(200), y(200), s(200)
  7. DIM xx(200), yy(200), ss(200)
  8. DIM c2(400), c3(400)
  9. LINE (0, 0)-(800, 300), _RGB32(127, 166, 255), BF
  11. rocks = INT(RND * 30) + 30
  12. FOR r = 1 TO rocks
  14.     x(r) = INT(RND * 800) + 1
  15.     y(r) = INT(RND * 270) + 330
  16.     s(r) = (y(r) / 20) * 1.3
  18.     c2(r) = INT(RND * 200) + 55
  19.     c3(r) = INT(RND * 200) + 55
  20.     CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  21.     PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  23.     xx(r) = INT(RND * 800) + 1
  24.     yy(r) = INT(RND * 270) + 330
  25.     ss(r) = (yy(r) / 50) * 1.3
  26.     LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  27.     PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  30.     _LIMIT 100
  31.     a$ = INKEY$
  32.     IF a$ = CHR$(0) + CHR$(72) THEN speed = speed + 2
  33.     IF a$ = CHR$(0) + CHR$(80) THEN speed = speed - 2
  34.     IF a$ = CHR$(0) + CHR$(77) THEN h = h - 2
  35.     IF a$ = CHR$(0) + CHR$(75) THEN h = h + 2
  36.     IF speed > 20 THEN speed = 20
  37.     IF speed < -20 THEN speed = -20
  38.     IF h > 20 THEN h = 20
  39.     IF h < -20 THEN h = -20
  40.     FOR r = 1 TO rocks
  41.         x(r) = x(r) + .01 * (x(r) - 400)
  42.         y(r) = y(r) + 50 * speed / (601 - y(r))
  43.  
  44.         IF x(r) > 800 THEN GOSUB newrockleft:
  45.         IF x(r) < 0 THEN GOSUB newrockright:
  46.         IF y(r) > 600 THEN GOSUB newrocktop:
  47.         IF y(r) < 330 THEN GOSUB newrockbottom:
  48.         s(r) = (y(r) / 100) * 1.3
  49.         CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  50.         PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  51.         xx(r) = xx(r) + .01 * (xx(r) - 400)
  52.         yy(r) = yy(r) + 50 * speed / (601 - yy(r))
  53.         IF xx(r) > 800 THEN GOSUB newbuildleft:
  54.         IF xx(r) < 0 THEN GOSUB newbuildright:
  55.         IF yy(r) > 600 THEN GOSUB newbuildtop:
  56.         IF yy(r) < 330 THEN GOSUB newbuildbottom:
  57.         ss(r) = (yy(r) / 50) * 1.3
  58.         RANDOMIZE TIMER
  59.         LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  60.         PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  61.     NEXT r
  62.     _DISPLAY
  63.     LINE (0, 301)-(800, 600), _RGB32(127, 127, 0), BF
  65.  
  66. newrockleft:
  68. x(r) = 0
  69. y(r) = INT(RND * 270) + 316
  70. c2(r) = INT(RND * 200) + 55
  71. c3(r) = INT(RND * 200) + 55
  73.  
  74. newrockright:
  75. x(r) = 800
  76. y(r) = INT(RND * 270) + 316
  77. c2(r) = INT(RND * 200) + 55
  78. c3(r) = INT(RND * 200) + 55
  80.  
  81. newrocktop:
  82. x(r) = INT(RND * 800) + 1
  83. y(r) = 330
  84. c2(r) = INT(RND * 200) + 55
  85. c3(r) = INT(RND * 200) + 55
  87.  
  88. newrockbottom:
  89. x(r) = INT(RND * 800) + 1
  90. y(r) = 600
  91. c2(r) = INT(RND * 200) + 55
  92. c3(r) = INT(RND * 200) + 55
  94.  
  95. newbuildleft:
  97. xx(r) = 0
  98. yy(r) = INT(RND * 270) + 316
  99. c2(r) = INT(RND * 200) + 55
  100. c3(r) = INT(RND * 200) + 55
  102.  
  103. newbuildright:
  104. xx(r) = 800
  105. yy(r) = INT(RND * 270) + 316
  106. c2(r) = INT(RND * 200) + 55
  107. c3(r) = INT(RND * 200) + 55
  109.  
  110. newbuildtop:
  111. xx(r) = INT(RND * 800) + 1
  112. yy(r) = 330
  113. c2(r) = INT(RND * 200) + 55
  114. c3(r) = INT(RND * 200) + 55
  116.  
  117. newbuildbottom:
  118. xx(r) = INT(RND * 800) + 1
  119. yy(r) = 600
  120. c2(r) = INT(RND * 200) + 55
  121. c3(r) = INT(RND * 200) + 55
  123.  
  124.  
Logged
You're not done when it works, you're done when it's right.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flying or Driving Example
« Reply #2 on: September 22, 2019, 08:59:02 pm »
(deleted by poster)
« Last Edit: September 22, 2019, 09:22:22 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flying or Driving Example
« Reply #3 on: September 22, 2019, 09:01:06 pm »
(deleted by poster)
« Last Edit: September 22, 2019, 09:22:10 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flying or Driving Example
« Reply #4 on: September 22, 2019, 09:07:51 pm »
(deleted by poster)
« Last Edit: September 22, 2019, 09:21:56 pm by SierraKen »
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Flying or Driving Example
« Reply #5 on: September 22, 2019, 10:16:07 pm »
Fake 3D is exactly what it sounds like
Logged
You're not done when it works, you're done when it's right.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Flying or Driving Example
« Reply #6 on: September 22, 2019, 10:36:07 pm »
Fake 3D or not.... It's a start. What's next?
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flying or Driving Example
« Reply #7 on: September 22, 2019, 10:41:49 pm »
Static, I apologize for thinking you were calling my program a big fake. I just am not having a good afternoon. I know you are trying to help and I'm sorry. This program itself is just something close to me that I've worked off and on for months and finally am close to something. I am adding clouds right now.
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Flying or Driving Example
« Reply #8 on: September 22, 2019, 10:46:01 pm »
Hey Ken, nice array work!

I think StxAxTIC was just attempting to show more realistic perspective.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flying or Driving Example
« Reply #9 on: September 22, 2019, 10:54:32 pm »
Thanks B+ :). Clouds are pretty tough lol.. might not be able to get them done tonight.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flying or Driving Example
« Reply #10 on: September 22, 2019, 11:13:57 pm »
OK I did it. I got the clouds moving. I spoofed it up some too by making the land shapes bigger and not as many.
Use the arrow keys to move forward, backward, side-to-side.

Code: QB64: [Select]
  1. _TITLE "Flying or Driving Example by Ken G. - Use the arrow keys and Esc to quit."
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. speed = 5
  5. go:
  6. DIM x(200), y(200), s(200)
  7. DIM xx(200), yy(200), ss(200)
  8. DIM c2(400), c3(400)
  9. DIM cx(100), cy(100), sss(100)
  11. rocks = INT(RND * 10) + 10
  12. FOR r = 1 TO rocks
  14.     x(r) = INT(RND * 800) + 1
  15.     y(r) = INT(RND * 270) + 330
  16.     s(r) = (y(r) / 20)
  18.     c2(r) = INT(RND * 200) + 55
  19.     c3(r) = INT(RND * 200) + 55
  20.     CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  21.     PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  23.     xx(r) = INT(RND * 800) + 1
  24.     yy(r) = INT(RND * 270) + 330
  25.     ss(r) = (yy(r) / 20)
  26.     LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  27.     PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  30. clouds = INT(RND * 20) + 1
  31. FOR cc = 1 TO clouds
  33.     cx(cc) = INT(RND * 700) + 100
  34.     cy(cc) = INT(RND * 250) + 1
  35.     sss(cc) = (cy(cc) / 5)
  36.     CIRCLE (cx(cc), cy(cc)), sss(cc), _RGB32(255, 255, 255), , , .5
  37. NEXT cc
  39.     _LIMIT 100
  40.     a$ = INKEY$
  41.     IF a$ = CHR$(0) + CHR$(72) THEN speed = speed + 2
  42.     IF a$ = CHR$(0) + CHR$(80) THEN speed = speed - 2
  43.     IF a$ = CHR$(0) + CHR$(77) THEN h = h - 2
  44.     IF a$ = CHR$(0) + CHR$(75) THEN h = h + 2
  45.     IF speed > 20 THEN speed = 20
  46.     IF speed < -20 THEN speed = -20
  47.     IF h > 20 THEN h = 20
  48.     IF h < -20 THEN h = -20
  49.     FOR r = 1 TO rocks
  50.         x(r) = x(r) + h
  51.         y(r) = y(r) + speed
  52.         IF x(r) > 800 THEN GOSUB newrockleft:
  53.         IF x(r) < 0 THEN GOSUB newrockright:
  54.         IF y(r) > 600 THEN GOSUB newrocktop:
  55.         IF y(r) < 330 THEN GOSUB newrockbottom:
  56.         s(r) = (y(r) / 20)
  57.         CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  58.         PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  59.         xx(r) = xx(r) + h
  60.         yy(r) = yy(r) + speed
  61.         IF xx(r) > 800 THEN GOSUB newbuildleft:
  62.         IF xx(r) < 0 THEN GOSUB newbuildright:
  63.         IF yy(r) > 600 THEN GOSUB newbuildtop:
  64.         IF yy(r) < 330 THEN GOSUB newbuildbottom:
  65.         ss(r) = (yy(r) / 20)
  66.         LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  67.         PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  68.     NEXT r
  69.     FOR cc = 1 TO clouds
  70.         cx(cc) = cx(cc) + h
  71.         cy(cc) = cy(cc) - speed
  72.         IF cx(cc) > 800 THEN GOSUB newcloudleft:
  73.         IF cx(cc) < 0 THEN GOSUB newcloudright:
  74.         IF cy(cc) > 275 THEN GOSUB newcloudtop:
  75.         IF cy(cc) < 0 THEN GOSUB newcloudbottom:
  76.         sss(cc) = cy(cc) / 5
  77.         FOR sz = .25 TO sss(cc)
  78.             CIRCLE (cx(cc), cy(cc)), sz, _RGB32(255, 255, 255), , , .5
  79.         NEXT sz
  80.     NEXT cc
  81.     _DISPLAY
  82.     LINE (0, 301)-(800, 600), _RGB32(127, 127, 0), BF
  83.     LINE (0, 0)-(800, 300), _RGB32(127, 166, 255), BF
  85.  
  86. newrockleft:
  88. x(r) = 0
  89. y(r) = INT(RND * 270) + 316
  90. c2(r) = INT(RND * 200) + 55
  91. c3(r) = INT(RND * 200) + 55
  93.  
  94. newrockright:
  95. x(r) = 800
  96. y(r) = INT(RND * 270) + 316
  97. c2(r) = INT(RND * 200) + 55
  98. c3(r) = INT(RND * 200) + 55
  100.  
  101. newrocktop:
  102. x(r) = INT(RND * 800) + 1
  103. y(r) = 330
  104. c2(r) = INT(RND * 200) + 55
  105. c3(r) = INT(RND * 200) + 55
  107.  
  108. newrockbottom:
  109. x(r) = INT(RND * 800) + 1
  110. y(r) = 600
  111. c2(r) = INT(RND * 200) + 55
  112. c3(r) = INT(RND * 200) + 55
  114.  
  115. newbuildleft:
  117. xx(r) = 0
  118. yy(r) = INT(RND * 270) + 316
  119. c2(r) = INT(RND * 200) + 55
  120. c3(r) = INT(RND * 200) + 55
  122.  
  123. newbuildright:
  124. xx(r) = 800
  125. yy(r) = INT(RND * 270) + 316
  126. c2(r) = INT(RND * 200) + 55
  127. c3(r) = INT(RND * 200) + 55
  129.  
  130. newbuildtop:
  131. xx(r) = INT(RND * 800) + 1
  132. yy(r) = 330
  133. c2(r) = INT(RND * 200) + 55
  134. c3(r) = INT(RND * 200) + 55
  136.  
  137. newbuildbottom:
  138. xx(r) = INT(RND * 800) + 1
  139. yy(r) = 600
  140. c2(r) = INT(RND * 200) + 55
  141. c3(r) = INT(RND * 200) + 55
  143.  
  144. newcloudleft:
  146. cx(cc) = 0
  147. cy(cc) = INT(RND * 270) + 316
  149.  
  150. newcloudright:
  151. cx(cc) = 800
  152. cy(cc) = INT(RND * 270) + 316
  154.  
  155. newcloudtop:
  156. cx(cc) = INT(RND * 800) + 1
  157. cy(cc) = 0
  159.  
  160. newcloudbottom:
  161. cx(cc) = INT(RND * 800) + 1
  162. cy(cc) = 275
  164.  
  165.  
Logged
Marked as best answer by SierraKen on September 22, 2019, 07:18:27 pm

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flying or Driving Example
« Reply #11 on: September 22, 2019, 11:18:04 pm »
Woops, I forgot 1 key thing, the step command to fill each cloud. I wondered why they weren't getting filled 100%. lol At first I tried PAINT but when they overlap, there's a problem filling them in.
So I did my old loop trick again.

Code: QB64: [Select]
  1. _TITLE "Flying or Driving Example by Ken G. - Use the arrow keys and Esc to quit."
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. speed = 5
  5. go:
  6. DIM x(200), y(200), s(200)
  7. DIM xx(200), yy(200), ss(200)
  8. DIM c2(400), c3(400)
  9. DIM cx(100), cy(100), sss(100)
  11. rocks = INT(RND * 10) + 10
  12. FOR r = 1 TO rocks
  14.     x(r) = INT(RND * 800) + 1
  15.     y(r) = INT(RND * 270) + 330
  16.     s(r) = (y(r) / 20)
  18.     c2(r) = INT(RND * 200) + 55
  19.     c3(r) = INT(RND * 200) + 55
  20.     CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  21.     PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  23.     xx(r) = INT(RND * 800) + 1
  24.     yy(r) = INT(RND * 270) + 330
  25.     ss(r) = (yy(r) / 20)
  26.     LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  27.     PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  30. clouds = INT(RND * 20) + 1
  31. FOR cc = 1 TO clouds
  33.     cx(cc) = INT(RND * 700) + 100
  34.     cy(cc) = INT(RND * 250) + 1
  35.     sss(cc) = (cy(cc) / 5)
  36.     CIRCLE (cx(cc), cy(cc)), sss(cc), _RGB32(255, 255, 255), , , .5
  37. NEXT cc
  39.     _LIMIT 100
  40.     a$ = INKEY$
  41.     IF a$ = CHR$(0) + CHR$(72) THEN speed = speed + 2
  42.     IF a$ = CHR$(0) + CHR$(80) THEN speed = speed - 2
  43.     IF a$ = CHR$(0) + CHR$(77) THEN h = h - 2
  44.     IF a$ = CHR$(0) + CHR$(75) THEN h = h + 2
  45.     IF speed > 20 THEN speed = 20
  46.     IF speed < -20 THEN speed = -20
  47.     IF h > 20 THEN h = 20
  48.     IF h < -20 THEN h = -20
  49.     FOR r = 1 TO rocks
  50.         x(r) = x(r) + h
  51.         y(r) = y(r) + speed
  52.         IF x(r) > 800 THEN GOSUB newrockleft:
  53.         IF x(r) < 0 THEN GOSUB newrockright:
  54.         IF y(r) > 600 THEN GOSUB newrocktop:
  55.         IF y(r) < 330 THEN GOSUB newrockbottom:
  56.         s(r) = (y(r) / 20)
  57.         CIRCLE (x(r), y(r)), s(r), _RGB32(0, c2(r), c3(r))
  58.         PAINT (x(r), y(r)), _RGB32(0, c2(r), c3(r))
  59.         xx(r) = xx(r) + h
  60.         yy(r) = yy(r) + speed
  61.         IF xx(r) > 800 THEN GOSUB newbuildleft:
  62.         IF xx(r) < 0 THEN GOSUB newbuildright:
  63.         IF yy(r) > 600 THEN GOSUB newbuildtop:
  64.         IF yy(r) < 330 THEN GOSUB newbuildbottom:
  65.         ss(r) = (yy(r) / 20)
  66.         LINE (xx(r), yy(r))-(xx(r) + ss(r), yy(r) + ss(r)), _RGB32(0, c2(r), c3(r)), B
  67.         PAINT (xx(r) + 1, yy(r) + 1), _RGB32(0, c2(r), c3(r))
  68.     NEXT r
  69.     FOR cc = 1 TO clouds
  70.         cx(cc) = cx(cc) + h
  71.         cy(cc) = cy(cc) - speed
  72.         IF cx(cc) > 800 THEN GOSUB newcloudleft:
  73.         IF cx(cc) < 0 THEN GOSUB newcloudright:
  74.         IF cy(cc) > 275 THEN GOSUB newcloudtop:
  75.         IF cy(cc) < 0 THEN GOSUB newcloudbottom:
  76.         sss(cc) = cy(cc) / 5
  77.         FOR sz = .25 TO sss(cc) STEP .25
  78.             CIRCLE (cx(cc), cy(cc)), sz, _RGB32(255, 255, 255), , , .5
  79.         NEXT sz
  80.     NEXT cc
  81.     _DISPLAY
  82.     LINE (0, 301)-(800, 600), _RGB32(127, 127, 0), BF
  83.     LINE (0, 0)-(800, 300), _RGB32(127, 166, 255), BF
  85.  
  86. newrockleft:
  88. x(r) = 0
  89. y(r) = INT(RND * 270) + 316
  90. c2(r) = INT(RND * 200) + 55
  91. c3(r) = INT(RND * 200) + 55
  93.  
  94. newrockright:
  95. x(r) = 800
  96. y(r) = INT(RND * 270) + 316
  97. c2(r) = INT(RND * 200) + 55
  98. c3(r) = INT(RND * 200) + 55
  100.  
  101. newrocktop:
  102. x(r) = INT(RND * 800) + 1
  103. y(r) = 330
  104. c2(r) = INT(RND * 200) + 55
  105. c3(r) = INT(RND * 200) + 55
  107.  
  108. newrockbottom:
  109. x(r) = INT(RND * 800) + 1
  110. y(r) = 600
  111. c2(r) = INT(RND * 200) + 55
  112. c3(r) = INT(RND * 200) + 55
  114.  
  115. newbuildleft:
  117. xx(r) = 0
  118. yy(r) = INT(RND * 270) + 316
  119. c2(r) = INT(RND * 200) + 55
  120. c3(r) = INT(RND * 200) + 55
  122.  
  123. newbuildright:
  124. xx(r) = 800
  125. yy(r) = INT(RND * 270) + 316
  126. c2(r) = INT(RND * 200) + 55
  127. c3(r) = INT(RND * 200) + 55
  129.  
  130. newbuildtop:
  131. xx(r) = INT(RND * 800) + 1
  132. yy(r) = 330
  133. c2(r) = INT(RND * 200) + 55
  134. c3(r) = INT(RND * 200) + 55
  136.  
  137. newbuildbottom:
  138. xx(r) = INT(RND * 800) + 1
  139. yy(r) = 600
  140. c2(r) = INT(RND * 200) + 55
  141. c3(r) = INT(RND * 200) + 55
  143.  
  144. newcloudleft:
  146. cx(cc) = 0
  147. cy(cc) = INT(RND * 270) + 316
  149.  
  150. newcloudright:
  151. cx(cc) = 800
  152. cy(cc) = INT(RND * 270) + 316
  154.  
  155. newcloudtop:
  156. cx(cc) = INT(RND * 800) + 1
  157. cy(cc) = 0
  159.  
  160. newcloudbottom:
  161. cx(cc) = INT(RND * 800) + 1
  162. cy(cc) = 275
  164.  
  165.  
Logged
Pages: [1]   Go Up
« previous next »