QB64.org Forum

Active Forums => Programs => Topic started by: Virtusoroca on May 10, 2020, 06:46:46 pm

Title: ASCII Animation Code | Not efficient but easy and informative
Post by: Virtusoroca on May 10, 2020, 06:46:46 pm

To be integrated in ASCII Terrain Egine 1.3

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 800, 256)
2.  
3. PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
4. PRINT "º ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ      ASCII TERRAIN ENGINE     ÛÛßßÛÛ ÛÛßßÛÛ º"
5. PRINT "º ÛÛ     Û     ÛÛ      ® Animation Module ¯     ÛÛ ÞÛÛ ÛÛÛÛÛ  º"
6. PRINT "º ÛÛ  Û  Û  Û  ÛÛ  (to be integreated in v.1.3) ÛÛÜÞÛÛ ÛÛÜÜÛÛ º"
7. PRINT "º    Û  Û  Û    Not efficient but informative   ßß          º"
8. PRINT "º ÛÛ  Û  Û  Û  ÛÛ          ------------         ÛÛßßßß ÛÛ  ÛÛ º"
9. PRINT "º ÛÛ  Û     Û  ÛÛ  By Virtusoroca-Brazil, 2020  ÛÛßßÛÛ ÛÛÜÜÛÛ º"
10. PRINT "º ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ          Made in QB64         ÛÛÜÜÛÛ     ÛÛ º"
11. PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
12.  
13. TYPE Players: x AS INTEGER: y AS INTEGER: END TYPE
14. DIM SHARED Player(1) AS Players
15. DIM SHARED KeyPress AS STRING
16. Player(1).x = 25: Player(1).y = 40
17. COLOR 7
18.  
19. DO UNTIL KeyPress = "Q"
20.     _LIMIT 30
21.     KeyPress = UCASE$(INKEY$)
22.     PCOPY _DISPLAY, 1
23.     MovePlayer
24.     CheckLimit
25.     _DISPLAY
26.     PCOPY 1, _DISPLAY
27. LOOP: CLS: END
28.  
29.  
30. SUB MovePlayer
31.     SELECT CASE KeyPress
32.         CASE CHR$(0) + CHR$(72): Player(1).x = Player(1).x - 1: IF (Player(1).x MOD 2) = 0 THEN FrameU1: ELSE FrameU2
33.         CASE CHR$(0) + CHR$(80): Player(1).x = Player(1).x + 1: IF (Player(1).x MOD 2) = 0 THEN FrameD1: ELSE FrameD2
34.         CASE CHR$(0) + CHR$(75): Player(1).y = Player(1).y - 1: IF (Player(1).y MOD 2) = 0 THEN FrameL1: ELSE FrameL2
35.         CASE CHR$(0) + CHR$(77): Player(1).y = Player(1).y + 1: IF (Player(1).y MOD 2) = 0 THEN FrameR1: ELSE FrameR2
36.         CASE "": FrameS
37.     END SELECT
38. END SUB
39.  
40.  
41. SUB FrameS 'STILL
42.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ "
43.     LOCATE Player(1).x + 1, Player(1).y: PRINT "³Û³"
44.     LOCATE Player(1).x + 2, Player(1).y: PRINT " º "
45. END SUB
46. SUB FrameU1 'UP
47.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ|"
48.     LOCATE Player(1).x + 1, Player(1).y: PRINT "³° "
49.     LOCATE Player(1).x + 2, Player(1).y: PRINT " Þ "
50. END SUB
51. SUB FrameU2 'UP
52.     LOCATE Player(1).x + 0, Player(1).y: PRINT "|þ "
53.     LOCATE Player(1).x + 1, Player(1).y: PRINT " °³"
54.     LOCATE Player(1).x + 2, Player(1).y: PRINT " Ý ":
55. END SUB
56. SUB FrameD1 'DOWN
57.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ "
58.     LOCATE Player(1).x + 1, Player(1).y: PRINT "|Û "
59.     LOCATE Player(1).x + 2, Player(1).y: PRINT " Þ "
60. END SUB
61. SUB FrameD2 'DOWN
62.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ "
63.     LOCATE Player(1).x + 1, Player(1).y: PRINT " Û|"
64.     LOCATE Player(1).x + 2, Player(1).y: PRINT " Ý "
65. END SUB
66. SUB FrameL1 'LEFT
67.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ "
68.     LOCATE Player(1).x + 1, Player(1).y: PRINT ".Û "
69.     LOCATE Player(1).x + 2, Player(1).y: PRINT " Ý\"
70. END SUB
71. SUB FrameL2 'LEFT
72.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ "
73.     LOCATE Player(1).x + 1, Player(1).y: PRINT " Û "
74.     LOCATE Player(1).x + 2, Player(1).y: PRINT "<Þ"
75. END SUB
76. SUB FrameR1 'RIGHT
77.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ "
78.     LOCATE Player(1).x + 1, Player(1).y: PRINT " Û."
79.     LOCATE Player(1).x + 2, Player(1).y: PRINT "/Þ "
80. END SUB
81. SUB FrameR2 'RIGHT
82.     LOCATE Player(1).x + 0, Player(1).y: PRINT " þ "
83.     LOCATE Player(1).x + 1, Player(1).y: PRINT " Û "
84.     LOCATE Player(1).x + 2, Player(1).y: PRINT " Ý>"
85. END SUB
86.  
87.  
88. SUB CheckLimit
89.     IF Player(1).x <= 2 THEN Player(1).x = 2
90.     IF Player(1).x >= 45 THEN Player(1).x = 45
91.     IF Player(1).y <= 2 THEN Player(1).y = 2
92.     IF Player(1).y >= 85 THEN Player(1).y = 85
93. END SUB

Text Only | Text with Attachments