Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on October 22, 2019, 09:47:35 pm

Title: Animated Walking Man
Post by: SierraKen on October 22, 2019, 09:47:35 pm
This might be my very first animated walking man I ever made, believe it or not. I've tried a few times with QBasic ages ago but could never get it down really good. _DISPLAY really does a great job with anything animated. Feel free to use this code on anything you want. I might use it again later on to make a simple game of some kind. This is just something I threw together tonight. I've been sort of on a break programming lately, giving myself some rest a bit. The first few months of QB64 I went wild as you all know. LOL If you have questions or comments, please do so.
To make him walk, use the left and right arrow keys. He doesn't jump yet. I might add that later sometime.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. start:
  3. 'grass
  4. LINE (0, 300)-(800, 600), _RGB32(127, 255, 127), BF
  5. 'sky
  6. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  7. x = 100: y = 270
  8. m = 1
  9. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  10. FOR sz = .25 TO 5 STEP .25
  11.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  12. NEXT sz
  13. 'hat
  14. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  15. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  16. 'body
  17. LINE (x, y + 5)-(x, y + 15), _RGB32(128, 0, 166)
  18. 'arms
  19. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  20. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  21. 'legs
  22. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  23. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  25.     _LIMIT 500
  26.     a$ = INKEY$
  27.     IF a$ = CHR$(27) THEN END
  28.     'Move Right
  29.     IF a$ = CHR$(0) + CHR$(77) THEN
  30.         m = m + 1: x = x + 5
  31.         IF x > 785 THEN x = 785
  32.         d = 1
  33.         GOSUB check:
  34.     END IF
  35.     'Move Left
  36.     IF a$ = CHR$(0) + CHR$(75) THEN
  37.         m = m - 1: x = x - 5
  38.         IF x < 15 THEN x = 15
  39.         d = 2
  40.         GOSUB check:
  41.     END IF
  43. check:
  44. IF m = 11 THEN m = 1
  45. IF m = 0 THEN m = 10
  46. IF m = 1 THEN GOSUB frame1:
  47. IF m = 2 THEN GOSUB frame2:
  48. IF m = 3 THEN GOSUB frame3:
  49. IF m = 4 THEN GOSUB frame4:
  50. IF m = 5 THEN GOSUB frame5:
  51. IF m = 6 THEN GOSUB frame6:
  52. IF m = 7 THEN GOSUB frame5:
  53. IF m = 8 THEN GOSUB frame4:
  54. IF m = 9 THEN GOSUB frame3:
  55. IF m = 10 THEN GOSUB frame2:
  57. frame1:
  59. 'erase first
  60. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  61. 'head
  62. FOR sz = .25 TO 4 STEP .25
  63.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  64. NEXT sz
  65. 'hat
  66. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  67. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  68. 'body
  69. LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  70. 'arms
  71. LINE (x, y + 10)-(x - 18, y + 20), _RGB32(128, 0, 166)
  72. LINE (x, y + 10)-(x + 18, y + 20), _RGB32(128, 0, 166)
  73. 'legs
  74. LINE (x, y + 15)-(x - 18, y + 29), _RGB32(128, 0, 166)
  75. LINE (x, y + 15)-(x + 18, y + 29), _RGB32(128, 0, 166)
  77. frame2:
  79. 'erase first
  80. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  81. 'head
  82. FOR sz = .25 TO 4 STEP .25
  83.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  84. NEXT sz
  85. 'hat
  86. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  87. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  88. 'body
  89. LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  90. 'arms
  91. LINE (x, y + 10)-(x - 15, y + 20), _RGB32(128, 0, 166)
  92. LINE (x, y + 10)-(x + 15, y + 20), _RGB32(128, 0, 166)
  93. 'legs
  94. LINE (x, y + 15)-(x - 15, y + 29), _RGB32(128, 0, 166)
  95. LINE (x, y + 15)-(x + 15, y + 29), _RGB32(128, 0, 166)
  97. frame3:
  99. 'erase first
  100. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  101. 'head
  102. FOR sz = .25 TO 4 STEP .25
  103.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  104. NEXT sz
  105. 'hat
  106. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  107. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  108. 'body
  109. LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  110. 'arms
  111. LINE (x, y + 10)-(x - 12, y + 20), _RGB32(128, 0, 166)
  112. LINE (x, y + 10)-(x + 12, y + 20), _RGB32(128, 0, 166)
  113. 'legs
  114. LINE (x, y + 15)-(x - 12, y + 29), _RGB32(128, 0, 166)
  115. LINE (x, y + 15)-(x + 12, y + 29), _RGB32(128, 0, 166)
  116.  
  118. frame4:
  120. 'erase first
  121. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  122. 'head
  123. FOR sz = .25 TO 4 STEP .25
  124.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  125. NEXT sz
  126. 'hat
  127. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  128. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  129. 'body
  130. LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  131. 'arms
  132. LINE (x, y + 10)-(x - 9, y + 20), _RGB32(128, 0, 166)
  133. LINE (x, y + 10)-(x + 9, y + 20), _RGB32(128, 0, 166)
  134. 'legs
  135. LINE (x, y + 15)-(x - 9, y + 29), _RGB32(128, 0, 166)
  136. LINE (x, y + 15)-(x + 9, y + 29), _RGB32(128, 0, 166)
  137.  
  139. frame5:
  141. 'erase first
  142. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  143. 'head
  144. FOR sz = .25 TO 4 STEP .25
  145.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  146. NEXT sz
  147. 'hat
  148. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  149. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  150. 'body
  151. LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  152. 'arms
  153. LINE (x, y + 10)-(x - 6, y + 25), _RGB32(128, 0, 166)
  154. LINE (x, y + 10)-(x + 6, y + 25), _RGB32(128, 0, 166)
  155. 'legs
  156. LINE (x, y + 15)-(x - 6, y + 29), _RGB32(128, 0, 166)
  157. LINE (x, y + 15)-(x + 6, y + 29), _RGB32(128, 0, 166)
  159. frame6:
  161. 'erase first
  162. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  163. 'head
  164. FOR sz = .25 TO 4 STEP .25
  165.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  166. NEXT sz
  167. 'hat
  168. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  169. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  170. 'body
  171. LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  172. 'arms
  173. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  174. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  175. 'legs
  176. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  177. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  179.  

Title: Re: Animated Walking Man
Post by: Ashish on October 23, 2019, 10:21:02 am
Good job!
Title: Re: Animated Walking Man
Post by: TempodiBasic on October 23, 2019, 03:32:14 pm
Hi SierraKen
I find it very fine! The colors and the movement of the character!

Indeed I see that do you like old programming style with GOTO and GOSUB!

Moreover I have thought that your slim man walking is only half of the universe... and "per par condicio" I post this little mod : big man walking (sorry I have more comfort using closed block of code for my way to code)!
Thanks to share

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. start:
  3. 'grass
  4. LINE (0, 300)-(800, 600), _RGB32(127, 255, 127), BF
  5. 'sky
  6. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  7. x = 100: y = 270
  8. m = 1
  9. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  10. FOR sz = .25 TO 5 STEP .25
  11.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  12. NEXT sz
  13. 'hat
  14. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  15. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  16. 'body
  17. 'LINE (x, y + 5)-(x, y + 15), _RGB32(128, 0, 166)
  18. body x, y
  19. 'arms
  20. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  21. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  22. 'legs
  23. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  24. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  26.     _LIMIT 500
  27.     a$ = INKEY$
  28.     IF a$ = CHR$(27) THEN END
  29.     'Move Right
  30.     IF a$ = CHR$(0) + CHR$(77) THEN
  31.         m = m + 1: x = x + 5
  32.         IF x > 785 THEN x = 785
  33.         d = 1
  34.         GOSUB check:
  35.     END IF
  36.     'Move Left
  37.     IF a$ = CHR$(0) + CHR$(75) THEN
  38.         m = m - 1: x = x - 5
  39.         IF x < 15 THEN x = 15
  40.         d = 2
  41.         GOSUB check:
  42.     END IF
  44. check:
  45. IF m = 11 THEN m = 1
  46. IF m = 0 THEN m = 10
  47. IF m = 1 THEN GOSUB frame1:
  48. IF m = 2 THEN GOSUB frame2:
  49. IF m = 3 THEN GOSUB frame3:
  50. IF m = 4 THEN GOSUB frame4:
  51. IF m = 5 THEN GOSUB frame5:
  52. IF m = 6 THEN GOSUB frame6:
  53. IF m = 7 THEN GOSUB frame5:
  54. IF m = 8 THEN GOSUB frame4:
  55. IF m = 9 THEN GOSUB frame3:
  56. IF m = 10 THEN GOSUB frame2:
  58. frame1:
  60. 'erase first
  61. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  62. 'head
  63. FOR sz = .25 TO 4 STEP .25
  64.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  65. NEXT sz
  66. 'hat
  67. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  68. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  69. 'body
  70. 'LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  71. body x, y
  72. 'arms
  73. LINE (x, y + 10)-(x - 18, y + 20), _RGB32(128, 0, 166)
  74. LINE (x, y + 10)-(x + 18, y + 20), _RGB32(128, 0, 166)
  75. 'legs
  76. LINE (x, y + 15)-(x - 18, y + 29), _RGB32(128, 0, 166)
  77. LINE (x, y + 15)-(x + 18, y + 29), _RGB32(128, 0, 166)
  79. frame2:
  81. 'erase first
  82. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  83. 'head
  84. FOR sz = .25 TO 4 STEP .25
  85.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  86. NEXT sz
  87. 'hat
  88. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  89. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  90. 'body
  91. 'LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  92. body x, y
  93. 'arms
  94. LINE (x, y + 10)-(x - 15, y + 20), _RGB32(128, 0, 166)
  95. LINE (x, y + 10)-(x + 15, y + 20), _RGB32(128, 0, 166)
  96. 'legs
  97. LINE (x, y + 15)-(x - 15, y + 29), _RGB32(128, 0, 166)
  98. LINE (x, y + 15)-(x + 15, y + 29), _RGB32(128, 0, 166)
  100. frame3:
  102. 'erase first
  103. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  104. 'head
  105. FOR sz = .25 TO 4 STEP .25
  106.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  107. NEXT sz
  108. 'hat
  109. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  110. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  111. 'body
  112. 'LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  113. body x, y
  114. 'arms
  115. LINE (x, y + 10)-(x - 12, y + 20), _RGB32(128, 0, 166)
  116. LINE (x, y + 10)-(x + 12, y + 20), _RGB32(128, 0, 166)
  117. 'legs
  118. LINE (x, y + 15)-(x - 12, y + 29), _RGB32(128, 0, 166)
  119. LINE (x, y + 15)-(x + 12, y + 29), _RGB32(128, 0, 166)
  120.  
  122. frame4:
  124. 'erase first
  125. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  126. 'head
  127. FOR sz = .25 TO 4 STEP .25
  128.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  129. NEXT sz
  130. 'hat
  131. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  132. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  133. 'body
  134. 'LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  135. body x, y
  136. 'arms
  137. LINE (x, y + 10)-(x - 9, y + 20), _RGB32(128, 0, 166)
  138. LINE (x, y + 10)-(x + 9, y + 20), _RGB32(128, 0, 166)
  139. 'legs
  140. LINE (x, y + 15)-(x - 9, y + 29), _RGB32(128, 0, 166)
  141. LINE (x, y + 15)-(x + 9, y + 29), _RGB32(128, 0, 166)
  142.  
  144. frame5:
  146. 'erase first
  147. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  148. 'head
  149. FOR sz = .25 TO 4 STEP .25
  150.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  151. NEXT sz
  152. 'hat
  153. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  154. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  155. 'body
  156. 'LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  157. body x, y
  158. 'arms
  159. LINE (x, y + 10)-(x - 6, y + 25), _RGB32(128, 0, 166)
  160. LINE (x, y + 10)-(x + 6, y + 25), _RGB32(128, 0, 166)
  161. 'legs
  162. LINE (x, y + 15)-(x - 6, y + 29), _RGB32(128, 0, 166)
  163. LINE (x, y + 15)-(x + 6, y + 29), _RGB32(128, 0, 166)
  165. frame6:
  167. 'erase first
  168. LINE (0, 0)-(800, 299), _RGB32(127, 127, 255), BF
  169. 'head
  170. FOR sz = .25 TO 4 STEP .25
  171.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  172. NEXT sz
  173. 'hat
  174. LINE (x - 8, y - 4)-(x + 8, y - 4), _RGB32(155, 177, 61)
  175. LINE (x - 5, y - 7)-(x + 5, y - 4), _RGB32(155, 177, 61), BF
  176. 'body
  177. 'LINE (x, y + 4)-(x, y + 15), _RGB32(128, 0, 166)
  178. body x, y
  179. 'arms
  180. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  181. LINE (x, y + 10)-(x, y + 25), _RGB32(128, 0, 166)
  182. 'legs
  183. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  184. LINE (x, y + 15)-(x, y + 29), _RGB32(128, 0, 166)
  186.  
  187. SUB body (x, y)
  188.     CIRCLE (x, y + 10), 7, _RGB32(128, 0, 166), , , 1.3
  189.     PAINT (x, y + 10), _RGB32(128, 0, 166), _RGB32(128, 0, 166)
Title: Re: Animated Walking Man
Post by: johnno56 on October 23, 2019, 03:51:45 pm
GOTO's, GOSUB's or not, I find animation performed without sprites fascinating. Apart from the diminutive size of the main character in both examples, which gave these old eyes a workout, you both did a marvellous job. Thank you.
Title: Re: Animated Walking Man
Post by: SierraKen on October 23, 2019, 04:14:47 pm
Wow thank you everyone! TempodiBasic, I like how you made him. I think next I'll change it from stopping at the ends of the window to just appearing on the other side of the window to have a non-stop walking man. I think I'll be slowly turning this into a simple game. :)
Title: Re: Animated Walking Man
Post by: Petr on October 23, 2019, 04:34:03 pm
Nice work, SierraKen
Title: Re: Animated Walking Man
Post by: SierraKen on October 24, 2019, 12:46:21 am
Thanks Petr!

This is a game in progress now. Tonight I made another personal breakthrough and figured out how to make him jump in both directions! I used that same Fun With Math program I made months ago but changed it to make an arch angle for X. I also made him larger so he's easier to see and added a funny sound when you jump. Plus I added a face to his head that looks in the direction you are moving. And as I stated before, I changed it so he can walk past the screen now in both directions and end up on another screen. Next I plan on making shapes to jump over.

Here is my work-in-progress. I added a title bar saying how to use the game and that it's at version 0.5 right now.

(Edit: There's an updated version after this post on this forum page.)

Code: QB64: [Select]
  1. _TITLE "Walking Man by Ken G. v.0.5 | Use Arrow Keys and Space Bar to Jump"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. start:
  4. 'grass
  5. LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  6. 'sky
  7. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  8. x = 100: y = 211
  9. m = 1
  10. d = 1
  11. 'head
  12. FOR sz = .25 TO 8 STEP .25
  13.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  14. NEXT sz
  15. 'hat
  16. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  17. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  18. 'body
  19. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  20. 'arms
  21. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  22. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  23. 'legs
  24. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  25. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  26. 'face
  27. FOR sz = .25 TO 1 STEP .25
  28.     CIRCLE (x + 4, y - 1), sz, _RGB32(127, 255, 127)
  29. NEXT sz
  30. LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(127, 255, 127), BF
  32.     _LIMIT 500
  33.     a$ = INKEY$
  34.     IF a$ = CHR$(27) THEN END
  35.     'Move Right
  36.     IF a$ = CHR$(0) + CHR$(77) THEN
  37.         m = m + 1: x = x + 5
  38.         IF x > 785 THEN x = 15
  39.         d = 1
  40.         GOSUB check:
  41.     END IF
  42.     'Move Left
  43.     IF a$ = CHR$(0) + CHR$(75) THEN
  44.         m = m - 1: x = x - 5
  45.         IF x < 15 THEN x = 785
  46.         d = 2
  47.         GOSUB check:
  48.     END IF
  49.     IF a$ = " " THEN
  50.         IF d = 1 THEN GOSUB jumpright:
  51.         IF d = 2 THEN GOSUB jumpleft:
  52.     END IF
  54. check:
  55. IF m = 11 THEN m = 1
  56. IF m = 0 THEN m = 10
  57. IF m = 1 THEN GOSUB frame1:
  58. IF m = 2 THEN GOSUB frame2:
  59. IF m = 3 THEN GOSUB frame3:
  60. IF m = 4 THEN GOSUB frame4:
  61. IF m = 5 THEN GOSUB frame5:
  62. IF m = 6 THEN GOSUB frame6:
  63. IF m = 7 THEN GOSUB frame5:
  64. IF m = 8 THEN GOSUB frame4:
  65. IF m = 9 THEN GOSUB frame3:
  66. IF m = 10 THEN GOSUB frame2:
  68. frame1:
  70. 'erase first
  71. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  72. 'head
  73. FOR sz = .25 TO 8 STEP .25
  74.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  75. NEXT sz
  76. GOSUB face:
  77. 'hat
  78. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  79. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  80. 'body
  81. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  82. 'arms
  83. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  84. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  85. 'legs
  86. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  87. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  89. frame2:
  91. 'erase first
  92. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  93. 'head
  94. FOR sz = .25 TO 8 STEP .25
  95.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  96. NEXT sz
  97. GOSUB face:
  98. 'hat
  99. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  100. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  101. 'body
  102. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  103.  
  104. 'arms
  105. LINE (x, y + 20)-(x - 30, y + 40), _RGB32(128, 0, 166)
  106. LINE (x, y + 20)-(x + 30, y + 40), _RGB32(128, 0, 166)
  107. 'legs
  108. LINE (x, y + 30)-(x - 30, y + 58), _RGB32(128, 0, 166)
  109. LINE (x, y + 30)-(x + 30, y + 58), _RGB32(128, 0, 166)
  111. frame3:
  113. 'erase first
  114. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  115. 'head
  116. FOR sz = .25 TO 8 STEP .25
  117.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  118. NEXT sz
  119. GOSUB face:
  120. 'hat
  121. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  122. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  123. 'body
  124. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  125.  
  126. 'arms
  127. LINE (x, y + 20)-(x - 24, y + 40), _RGB32(128, 0, 166)
  128. LINE (x, y + 20)-(x + 24, y + 40), _RGB32(128, 0, 166)
  129. 'legs
  130. LINE (x, y + 30)-(x - 24, y + 58), _RGB32(128, 0, 166)
  131. LINE (x, y + 30)-(x + 24, y + 58), _RGB32(128, 0, 166)
  132.  
  134. frame4:
  136. 'erase first
  137. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  138. 'head
  139. FOR sz = .25 TO 8 STEP .25
  140.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  141. NEXT sz
  142. GOSUB face:
  143. 'hat
  144. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  145. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  146. 'body
  147. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  148. 'arms
  149. LINE (x, y + 20)-(x - 18, y + 40), _RGB32(128, 0, 166)
  150. LINE (x, y + 20)-(x + 18, y + 40), _RGB32(128, 0, 166)
  151. 'legs
  152. LINE (x, y + 30)-(x - 18, y + 58), _RGB32(128, 0, 166)
  153. LINE (x, y + 30)-(x + 18, y + 58), _RGB32(128, 0, 166)
  154.  
  156. frame5:
  158. 'erase first
  159. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  160. 'head
  161. FOR sz = .25 TO 8 STEP .25
  162.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  163. NEXT sz
  164. GOSUB face:
  165. 'hat
  166. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  167. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  168. 'body
  169. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  170. 'arms
  171. LINE (x, y + 20)-(x - 12, y + 50), _RGB32(128, 0, 166)
  172. LINE (x, y + 20)-(x + 12, y + 50), _RGB32(128, 0, 166)
  173. 'legs
  174. LINE (x, y + 30)-(x - 12, y + 58), _RGB32(128, 0, 166)
  175. LINE (x, y + 30)-(x + 12, y + 58), _RGB32(128, 0, 166)
  177. frame6:
  179. 'erase first
  180. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  181. 'head
  182. FOR sz = .25 TO 8 STEP .25
  183.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  184. NEXT sz
  185. GOSUB face:
  186. 'hat
  187. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  188. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  189. 'body
  190. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  191. 'arms
  192. LINE (x, y + 20)-(x, y + 50), _RGB32(128, 0, 166)
  193. LINE (x, y + 20)-(x, y + 50), _RGB32(128, 0, 166)
  194. 'legs
  195. LINE (x, y + 30)-(x, y + 58), _RGB32(128, 0, 166)
  196. LINE (x, y + 30)-(x, y + 58), _RGB32(128, 0, 166)
  198. 'Face
  199. face:
  200. IF d = 1 THEN
  201.     FOR sz = .25 TO 1 STEP .25
  202.         CIRCLE (x + 4, y - 1), sz, _RGB32(127, 255, 127)
  203.     NEXT sz
  204.     LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(127, 255, 127), BF
  206. IF d = 2 THEN
  207.     FOR sz = .25 TO 1 STEP .25
  208.         CIRCLE (x - 4, y - 1), sz, _RGB32(127, 255, 127)
  209.     NEXT sz
  210.     LINE (x - 3, y + 4)-(x - 6, y + 5), _RGB32(127, 255, 127), BF
  213. jumpright:
  214. 'erase first
  215. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  216. seconds = 45
  217. xxx = x
  218. yyy = y
  219. t = 200
  220. one:
  222. t = t + 5
  223. SOUND t, .25
  224. _DELAY .05
  225. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  226. seconds = seconds + .5
  227. s = (60 - seconds) * 6 + 180
  228. x = INT(SIN(s / 180 * 3.141592) * 180) + xxx + 180
  229. y = INT(COS(s / 180 * 3.141592) * 180) + yyy
  230. IF x > 785 THEN x = 15
  231. 'head
  232. FOR sz = .25 TO 8 STEP .25
  233.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  234. NEXT sz
  235. 'hat
  236. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  237. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  238. 'body
  239. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  240. 'arms
  241. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  242. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  243. 'legs
  244. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  245. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  246. 'face
  247. FOR sz = .25 TO 1 STEP .25
  248.     CIRCLE (x + 4, y - 1), sz, _RGB32(127, 255, 127)
  249. NEXT sz
  250. LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(127, 255, 127), BF
  251. IF seconds = 75 THEN
  252.     y = 211
  253.     t = 0
  254.     LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  255.     GOSUB frame1:
  256.     RETURN
  258. GOTO one:
  259. jumpleft:
  260. 'erase first
  261. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  262. seconds = 75
  263. xxx = x
  264. yyy = y
  265. t = 200
  266. one2:
  268. t = t + 5
  269. SOUND t, .25
  270. _DELAY .05
  271. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  272. seconds = seconds - .5
  273. s = (60 - seconds) * 6 + 180
  274. x = INT(SIN(s / 180 * 3.141592) * 180) + xxx - 180
  275. y = INT(COS(s / 180 * 3.141592) * 180) + yyy
  276. IF x < 15 THEN x = 785
  277. 'head
  278. FOR sz = .25 TO 8 STEP .25
  279.     CIRCLE (x, y), sz, _RGB32(128, 0, 166)
  280. NEXT sz
  281. 'hat
  282. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  283. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  284. 'body
  285. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  286. 'arms
  287. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  288. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  289. 'legs
  290. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  291. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  292. 'face
  293. FOR sz = .25 TO 1 STEP .25
  294.     CIRCLE (x - 4, y - 1), sz, _RGB32(127, 255, 127)
  295. NEXT sz
  296. LINE (x - 3, y + 4)-(x - 6, y + 5), _RGB32(127, 255, 127), BF
  297. IF seconds = 45 THEN
  298.     y = 211
  299.     t = 0
  300.     LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  301.     GOSUB frame1:
  302.     RETURN
  304. GOTO one2:
  306.  
Title: Re: Animated Walking Man
Post by: SierraKen on October 24, 2019, 01:18:15 am
I decided to change his head color a bit to be a little bit more my own ethnicity. I didn't want to offend anyone by making him different than I am. Although I'm sure he is fine either way.
The eyes and mouth I just changed to black so it stands out as a computer graphic. Being such a small face it's hard to make out such features without heavy contrast. 
I also fixed the jumping sound to match the jump better.
Here is the updated version:

Code: QB64: [Select]
  1. _TITLE "Walking Man by Ken G. v.0.5 | Use Arrow Keys and Space Bar to Jump"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. start:
  4. 'grass
  5. LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  6. 'sky
  7. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  8. x = 100: y = 211
  9. m = 1
  10. d = 1
  11. 'head
  12. FOR sz = .25 TO 8 STEP .25
  13.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  14. NEXT sz
  15. 'hat
  16. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  17. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  18. 'body
  19. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  20. 'arms
  21. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  22. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  23. 'legs
  24. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  25. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  26. 'face
  27. FOR sz = .25 TO 1 STEP .25
  28.     CIRCLE (x + 4, y - 1), sz, _RGB32(0, 0, 0)
  29. NEXT sz
  30. LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(0, 0, 0), BF
  32.     _LIMIT 500
  33.     a$ = INKEY$
  34.     IF a$ = CHR$(27) THEN END
  35.     'Move Right
  36.     IF a$ = CHR$(0) + CHR$(77) THEN
  37.         m = m + 1: x = x + 5
  38.         IF x > 785 THEN x = 15
  39.         d = 1
  40.         GOSUB check:
  41.     END IF
  42.     'Move Left
  43.     IF a$ = CHR$(0) + CHR$(75) THEN
  44.         m = m - 1: x = x - 5
  45.         IF x < 15 THEN x = 785
  46.         d = 2
  47.         GOSUB check:
  48.     END IF
  49.     IF a$ = " " THEN
  50.         IF d = 1 THEN GOSUB jumpright:
  51.         IF d = 2 THEN GOSUB jumpleft:
  52.     END IF
  54. check:
  55. IF m = 11 THEN m = 1
  56. IF m = 0 THEN m = 10
  57. IF m = 1 THEN GOSUB frame1:
  58. IF m = 2 THEN GOSUB frame2:
  59. IF m = 3 THEN GOSUB frame3:
  60. IF m = 4 THEN GOSUB frame4:
  61. IF m = 5 THEN GOSUB frame5:
  62. IF m = 6 THEN GOSUB frame6:
  63. IF m = 7 THEN GOSUB frame5:
  64. IF m = 8 THEN GOSUB frame4:
  65. IF m = 9 THEN GOSUB frame3:
  66. IF m = 10 THEN GOSUB frame2:
  68. frame1:
  70. 'erase first
  71. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  72. 'head
  73. FOR sz = .25 TO 8 STEP .25
  74.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  75. NEXT sz
  76. GOSUB face:
  77. 'hat
  78. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  79. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  80. 'body
  81. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  82. 'arms
  83. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  84. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  85. 'legs
  86. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  87. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  89. frame2:
  91. 'erase first
  92. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  93. 'head
  94. FOR sz = .25 TO 8 STEP .25
  95.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  96. NEXT sz
  97. GOSUB face:
  98. 'hat
  99. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  100. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  101. 'body
  102. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  103.  
  104. 'arms
  105. LINE (x, y + 20)-(x - 30, y + 40), _RGB32(128, 0, 166)
  106. LINE (x, y + 20)-(x + 30, y + 40), _RGB32(128, 0, 166)
  107. 'legs
  108. LINE (x, y + 30)-(x - 30, y + 58), _RGB32(128, 0, 166)
  109. LINE (x, y + 30)-(x + 30, y + 58), _RGB32(128, 0, 166)
  111. frame3:
  113. 'erase first
  114. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  115. 'head
  116. FOR sz = .25 TO 8 STEP .25
  117.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  118. NEXT sz
  119. GOSUB face:
  120. 'hat
  121. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  122. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  123. 'body
  124. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  125.  
  126. 'arms
  127. LINE (x, y + 20)-(x - 24, y + 40), _RGB32(128, 0, 166)
  128. LINE (x, y + 20)-(x + 24, y + 40), _RGB32(128, 0, 166)
  129. 'legs
  130. LINE (x, y + 30)-(x - 24, y + 58), _RGB32(128, 0, 166)
  131. LINE (x, y + 30)-(x + 24, y + 58), _RGB32(128, 0, 166)
  132.  
  134. frame4:
  136. 'erase first
  137. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  138. 'head
  139. FOR sz = .25 TO 8 STEP .25
  140.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  141. NEXT sz
  142. GOSUB face:
  143. 'hat
  144. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  145. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  146. 'body
  147. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  148. 'arms
  149. LINE (x, y + 20)-(x - 18, y + 40), _RGB32(128, 0, 166)
  150. LINE (x, y + 20)-(x + 18, y + 40), _RGB32(128, 0, 166)
  151. 'legs
  152. LINE (x, y + 30)-(x - 18, y + 58), _RGB32(128, 0, 166)
  153. LINE (x, y + 30)-(x + 18, y + 58), _RGB32(128, 0, 166)
  154.  
  156. frame5:
  158. 'erase first
  159. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  160. 'head
  161. FOR sz = .25 TO 8 STEP .25
  162.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  163. NEXT sz
  164. GOSUB face:
  165. 'hat
  166. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  167. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  168. 'body
  169. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  170. 'arms
  171. LINE (x, y + 20)-(x - 12, y + 50), _RGB32(128, 0, 166)
  172. LINE (x, y + 20)-(x + 12, y + 50), _RGB32(128, 0, 166)
  173. 'legs
  174. LINE (x, y + 30)-(x - 12, y + 58), _RGB32(128, 0, 166)
  175. LINE (x, y + 30)-(x + 12, y + 58), _RGB32(128, 0, 166)
  177. frame6:
  179. 'erase first
  180. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  181. 'head
  182. FOR sz = .25 TO 8 STEP .25
  183.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  184. NEXT sz
  185. GOSUB face:
  186. 'hat
  187. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  188. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  189. 'body
  190. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  191. 'arms
  192. LINE (x, y + 20)-(x, y + 50), _RGB32(128, 0, 166)
  193. LINE (x, y + 20)-(x, y + 50), _RGB32(128, 0, 166)
  194. 'legs
  195. LINE (x, y + 30)-(x, y + 58), _RGB32(128, 0, 166)
  196. LINE (x, y + 30)-(x, y + 58), _RGB32(128, 0, 166)
  198. 'Face
  199. face:
  200. IF d = 1 THEN
  201.     FOR sz = .25 TO 1 STEP .25
  202.         CIRCLE (x + 4, y - 1), sz, _RGB32(0, 0, 0)
  203.     NEXT sz
  204.     LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(0, 0, 0), BF
  206. IF d = 2 THEN
  207.     FOR sz = .25 TO 1 STEP .25
  208.         CIRCLE (x - 4, y - 1), sz, _RGB32(0, 0, 0)
  209.     NEXT sz
  210.     LINE (x - 3, y + 4)-(x - 6, y + 5), _RGB32(0, 0, 0), BF
  213. jumpright:
  214. 'erase first
  215. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  216. seconds = 45
  217. xxx = x
  218. yyy = y
  219. t = 200
  220. one:
  222. t = t + 5
  223. IF seconds > 70 THEN GOTO nex1:
  224. SOUND t, .25
  225. nex1:
  226. _DELAY .05
  227. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  228. seconds = seconds + .5
  229. s = (60 - seconds) * 6 + 180
  230. x = INT(SIN(s / 180 * 3.141592) * 180) + xxx + 180
  231. y = INT(COS(s / 180 * 3.141592) * 180) + yyy
  232. IF x > 785 THEN x = 15
  233. 'head
  234. FOR sz = .25 TO 8 STEP .25
  235.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  236. NEXT sz
  237. 'hat
  238. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  239. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  240. 'body
  241. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  242. 'arms
  243. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  244. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  245. 'legs
  246. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  247. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  248. 'face
  249. FOR sz = .25 TO 1 STEP .25
  250.     CIRCLE (x + 4, y - 1), sz, _RGB32(0, 0, 0)
  251. NEXT sz
  252. LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(0, 0, 0), BF
  253. IF seconds = 75 THEN
  254.     y = 211
  255.     t = 0
  256.     LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  257.     GOSUB frame1:
  258.     RETURN
  260. GOTO one:
  261. jumpleft:
  262. 'erase first
  263. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  264. seconds = 75
  265. xxx = x
  266. yyy = y
  267. t = 200
  268. one2:
  270. t = t + 5
  271. IF seconds < 50 THEN GOTO nex2:
  272. SOUND t, .25
  273. nex2:
  274. _DELAY .05
  275. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  276. seconds = seconds - .5
  277. s = (60 - seconds) * 6 + 180
  278. x = INT(SIN(s / 180 * 3.141592) * 180) + xxx - 180
  279. y = INT(COS(s / 180 * 3.141592) * 180) + yyy
  280. IF x < 15 THEN x = 785
  281. 'head
  282. FOR sz = .25 TO 8 STEP .25
  283.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  284. NEXT sz
  285. 'hat
  286. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  287. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  288. 'body
  289. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  290. 'arms
  291. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  292. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  293. 'legs
  294. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  295. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  296. 'face
  297. FOR sz = .25 TO 1 STEP .25
  298.     CIRCLE (x - 4, y - 1), sz, _RGB32(0, 0, 0)
  299. NEXT sz
  300. LINE (x - 3, y + 4)-(x - 6, y + 5), _RGB32(0, 0, 0), BF
  301. IF seconds = 45 THEN
  302.     y = 211
  303.     t = 0
  304.     LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  305.     GOSUB frame1:
  306.     RETURN
  308. GOTO one2:
  310.  
Title: Re: Animated Walking Man
Post by: johnno56 on October 24, 2019, 08:14:25 am
Nicely done!
Title: Re: Animated Walking Man
Post by: SierraKen on October 24, 2019, 04:43:17 pm
Here is what I got so far. 3 screens of little hills to jump over. If you land on a hill you get stuck and have to jump out of it. It will tell you that as well. I removed the jumping sound and made the jump shorter. I'm not sure what else to add to this since I haven't made gravity, ladders, or the ability to land on top of an object. All of those things can take a considerably amount of time to program so I'm not sure yet if I will add them. The sticking point on that is the way I made the jumping as an arch angle, so I'm not sure if I can stop that mid-flight. I tried to with the small hills but can't do it yet. And I don't want to tear apart the code I have already. So anyways, we'll see what makes of this later on if I think of something. Here is what I have now:

Code: QB64: [Select]
  1. _TITLE "Walking Man by Ken G. v.0.5 | Use Arrow Keys and Space Bar to Jump"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. start:
  4. 'grass
  5. LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  6. 'sky
  7. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  8. l = 1
  9. GOSUB objects:
  10. x = 100: y = 211
  11. m = 1
  12. d = 1
  13. 'head
  14. FOR sz = .25 TO 8 STEP .25
  15.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  16. NEXT sz
  17. 'hat
  18. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  19. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  20. 'body
  21. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  22. 'arms
  23. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  24. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  25. 'legs
  26. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  27. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  28. 'face
  29. FOR sz = .25 TO 1 STEP .25
  30.     CIRCLE (x + 4, y - 1), sz, _RGB32(0, 0, 0)
  31. NEXT sz
  32. LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(0, 0, 0), BF
  34.     _LIMIT 500
  35.     a$ = INKEY$
  36.     IF a$ = CHR$(27) THEN END
  37.     'Move Right
  38.     IF a$ = CHR$(0) + CHR$(77) THEN
  39.         oldx = x
  40.         m = m + 1: x = x + 5
  41.         IF x > 785 THEN x = 15: l = l + 1
  42.         d = 1
  43.         GOSUB check:
  44.     END IF
  45.     'Move Left
  46.     IF a$ = CHR$(0) + CHR$(75) THEN
  47.         oldx = x
  48.         m = m - 1: x = x - 5
  49.         IF x < 15 THEN x = 785: l = l - 1
  50.         d = 2
  51.         GOSUB check:
  52.     END IF
  53.     IF a$ = " " THEN
  54.         IF d = 1 THEN GOSUB jumpright:
  55.         IF d = 2 THEN GOSUB jumpleft:
  56.     END IF
  58. check:
  59. 'Assign animation frames to walking man.
  60. IF m = 11 THEN m = 1
  61. IF m = 0 THEN m = 10
  62. IF m = 1 THEN GOSUB frame1:
  63. IF m = 2 THEN GOSUB frame2:
  64. IF m = 3 THEN GOSUB frame3:
  65. IF m = 4 THEN GOSUB frame4:
  66. IF m = 5 THEN GOSUB frame5:
  67. IF m = 6 THEN GOSUB frame6:
  68. IF m = 7 THEN GOSUB frame5:
  69. IF m = 8 THEN GOSUB frame4:
  70. IF m = 9 THEN GOSUB frame3:
  71. IF m = 10 THEN GOSUB frame2:
  72. 'Check to see if you hit an object.
  73. IF POINT(x + 36, y + 30) = _RGB32(127, 255, 126) OR POINT(x - 36, y + 30) = _RGB32(127, 255, 126) THEN
  74.     x = oldx
  77. frame1:
  79. 'erase first
  80. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  81. GOSUB objects:
  82. 'head
  83. FOR sz = .25 TO 8 STEP .25
  84.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  85. NEXT sz
  86. GOSUB face:
  87. 'hat
  88. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  89. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  90. 'body
  91. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  92. 'arms
  93. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  94. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  95. 'legs
  96. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  97. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  99. frame2:
  101. 'erase first
  102. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  103. GOSUB objects:
  104. 'head
  105. FOR sz = .25 TO 8 STEP .25
  106.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  107. NEXT sz
  108. GOSUB face:
  109. 'hat
  110. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  111. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  112. 'body
  113. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  114. 'arms
  115. LINE (x, y + 20)-(x - 30, y + 40), _RGB32(128, 0, 166)
  116. LINE (x, y + 20)-(x + 30, y + 40), _RGB32(128, 0, 166)
  117. 'legs
  118. LINE (x, y + 30)-(x - 30, y + 58), _RGB32(128, 0, 166)
  119. LINE (x, y + 30)-(x + 30, y + 58), _RGB32(128, 0, 166)
  121. frame3:
  123. 'erase first
  124. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  125. GOSUB objects:
  126. 'head
  127. FOR sz = .25 TO 8 STEP .25
  128.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  129. NEXT sz
  130. GOSUB face:
  131. 'hat
  132. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  133. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  134. 'body
  135. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  136. 'arms
  137. LINE (x, y + 20)-(x - 24, y + 40), _RGB32(128, 0, 166)
  138. LINE (x, y + 20)-(x + 24, y + 40), _RGB32(128, 0, 166)
  139. 'legs
  140. LINE (x, y + 30)-(x - 24, y + 58), _RGB32(128, 0, 166)
  141. LINE (x, y + 30)-(x + 24, y + 58), _RGB32(128, 0, 166)
  143. frame4:
  145. 'erase first
  146. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  147. GOSUB objects:
  148. 'head
  149. FOR sz = .25 TO 8 STEP .25
  150.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  151. NEXT sz
  152. GOSUB face:
  153. 'hat
  154. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  155. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  156. 'body
  157. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  158. 'arms
  159. LINE (x, y + 20)-(x - 18, y + 40), _RGB32(128, 0, 166)
  160. LINE (x, y + 20)-(x + 18, y + 40), _RGB32(128, 0, 166)
  161. 'legs
  162. LINE (x, y + 30)-(x - 18, y + 58), _RGB32(128, 0, 166)
  163. LINE (x, y + 30)-(x + 18, y + 58), _RGB32(128, 0, 166)
  165. frame5:
  167. 'erase first
  168. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  169. GOSUB objects:
  170. 'head
  171. FOR sz = .25 TO 8 STEP .25
  172.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  173. NEXT sz
  174. GOSUB face:
  175. 'hat
  176. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  177. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  178. 'body
  179. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  180. 'arms
  181. LINE (x, y + 20)-(x - 12, y + 50), _RGB32(128, 0, 166)
  182. LINE (x, y + 20)-(x + 12, y + 50), _RGB32(128, 0, 166)
  183. 'legs
  184. LINE (x, y + 30)-(x - 12, y + 58), _RGB32(128, 0, 166)
  185. LINE (x, y + 30)-(x + 12, y + 58), _RGB32(128, 0, 166)
  187. frame6:
  189. 'erase first
  190. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  191. GOSUB objects:
  192. 'head
  193. FOR sz = .25 TO 8 STEP .25
  194.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  195. NEXT sz
  196. GOSUB face:
  197. 'hat
  198. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  199. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  200. 'body
  201. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  202. 'arms
  203. LINE (x, y + 20)-(x, y + 50), _RGB32(128, 0, 166)
  204. LINE (x, y + 20)-(x, y + 50), _RGB32(128, 0, 166)
  205. 'legs
  206. LINE (x, y + 30)-(x, y + 58), _RGB32(128, 0, 166)
  207. LINE (x, y + 30)-(x, y + 58), _RGB32(128, 0, 166)
  209. 'Face
  210. face:
  211. IF d = 1 THEN
  212.     FOR sz = .25 TO 1 STEP .25
  213.         CIRCLE (x + 4, y - 1), sz, _RGB32(0, 0, 0)
  214.     NEXT sz
  215.     LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(0, 0, 0), BF
  217. IF d = 2 THEN
  218.     FOR sz = .25 TO 1 STEP .25
  219.         CIRCLE (x - 4, y - 1), sz, _RGB32(0, 0, 0)
  220.     NEXT sz
  221.     LINE (x - 3, y + 4)-(x - 6, y + 5), _RGB32(0, 0, 0), BF
  224. jumpright:
  225. 'erase first
  226. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  227. GOSUB objects:
  228. seconds = 45
  229. xxx = x
  230. yyy = y
  231. one:
  233. _DELAY .02
  234. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  235. GOSUB objects:
  236. seconds = seconds + .5
  237. s = (60 - seconds) * 6 + 180
  238. x = INT(SIN(s / 180 * 3.141592) * 90) + xxx + 90
  239. y = INT(COS(s / 180 * 3.141592) * 90) + yyy
  240. 'head
  241. FOR sz = .25 TO 8 STEP .25
  242.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  243. NEXT sz
  244. 'hat
  245. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  246. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  247. 'body
  248. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  249. 'arms
  250. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  251. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  252. 'legs
  253. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  254. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  255. 'face
  256. FOR sz = .25 TO 1 STEP .25
  257.     CIRCLE (x + 4, y - 1), sz, _RGB32(0, 0, 0)
  258. NEXT sz
  259. LINE (x + 3, y + 4)-(x + 6, y + 5), _RGB32(0, 0, 0), BF
  260. IF seconds = 75 THEN
  261.     y = 211
  262.     t = 0
  263.     LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  264.     'Check to see if you hit an object.
  265.     IF POINT(x + 36, y + 30) = _RGB32(127, 255, 126) OR POINT(x - 36, y + 30) = _RGB32(127, 255, 126) THEN
  266.         LOCATE 22, 5: COLOR _RGB32(0, 0, 0), _RGB32(127, 255, 127): PRINT "I'm stuck! Jump to get me out of this."
  267.     END IF
  268.     IF x > 785 THEN x = 15: l = l + 1: GOSUB objects:
  269.     GOSUB frame1:
  270.     RETURN
  272. GOTO one:
  273. jumpleft:
  274. 'erase first
  275. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  276. GOSUB objects:
  277. seconds = 75
  278. xxx = x
  279. yyy = y
  280. one2:
  282. _DELAY .02
  283. LINE (0, 0)-(800, 269), _RGB32(127, 127, 255), BF
  284. GOSUB objects:
  285. seconds = seconds - .5
  286. s = (60 - seconds) * 6 + 180
  287. x = INT(SIN(s / 180 * 3.141592) * 90) + xxx - 90
  288. y = INT(COS(s / 180 * 3.141592) * 90) + yyy
  289. 'head
  290. FOR sz = .25 TO 8 STEP .25
  291.     CIRCLE (x, y), sz, _RGB32(255, 139, 6)
  292. NEXT sz
  293. 'hat
  294. LINE (x - 16, y - 8)-(x + 16, y - 8), _RGB32(155, 177, 61)
  295. LINE (x - 10, y - 14)-(x + 10, y - 8), _RGB32(155, 177, 61), BF
  296. 'body
  297. LINE (x, y + 8)-(x, y + 30), _RGB32(128, 0, 166)
  298. 'arms
  299. LINE (x, y + 20)-(x - 36, y + 40), _RGB32(128, 0, 166)
  300. LINE (x, y + 20)-(x + 36, y + 40), _RGB32(128, 0, 166)
  301. 'legs
  302. LINE (x, y + 30)-(x - 36, y + 58), _RGB32(128, 0, 166)
  303. LINE (x, y + 30)-(x + 36, y + 58), _RGB32(128, 0, 166)
  304. 'face
  305. FOR sz = .25 TO 1 STEP .25
  306.     CIRCLE (x - 4, y - 1), sz, _RGB32(0, 0, 0)
  307. NEXT sz
  308. LINE (x - 3, y + 4)-(x - 6, y + 5), _RGB32(0, 0, 0), BF
  309. IF seconds = 45 THEN
  310.     y = 211
  311.     t = 0
  312.     LINE (0, 270)-(800, 600), _RGB32(127, 255, 127), BF
  313.     'Check to see if you hit an object.
  314.     IF POINT(x + 36, y + 30) = _RGB32(127, 255, 126) OR POINT(x - 36, y + 30) = _RGB32(127, 255, 126) THEN
  315.         LOCATE 22, 5: COLOR _RGB32(0, 0, 0), _RGB32(127, 255, 127): PRINT "I'm stuck! Jump to get me out of this."
  316.     END IF
  317.     IF x < 15 THEN x = 785: l = l - 1: GOSUB objects:
  318.     GOSUB frame1:
  319.     RETURN
  321. GOTO one2:
  323. objects:
  324. IF l = 1 THEN
  325.     CIRCLE (400, 270), 40, _RGB32(127, 255, 126)
  326.     PAINT (400, 265), _RGB32(127, 255, 126)
  328. IF l = 2 THEN
  329.     CIRCLE (200, 270), 30, _RGB32(127, 255, 126)
  330.     PAINT (200, 265), _RGB32(127, 255, 126)
  331.     CIRCLE (400, 270), 30, _RGB32(127, 255, 126)
  332.     PAINT (400, 265), _RGB32(127, 255, 126)
  334. IF l = 3 THEN
  335.     CIRCLE (200, 270), 30, _RGB32(127, 255, 126)
  336.     PAINT (200, 265), _RGB32(127, 255, 126)
  337.     CIRCLE (400, 270), 30, _RGB32(127, 255, 126)
  338.     PAINT (400, 265), _RGB32(127, 255, 126)
  339.     CIRCLE (600, 270), 30, _RGB32(127, 255, 126)
  340.     PAINT (600, 265), _RGB32(127, 255, 126)
  343.  
Text Only | Text with Attachments