QB64.org Forum

Active Forums => Programs => Topic started by: Primal on April 02, 2021, 08:11:05 am

Title: advaced battle robot
Post by: Primal on April 02, 2021, 08:11:05 am

Hello everyone

I started several months ago a personal challage to create a very simple game and then recreate it slightly differently in other programming languages, using only assets created with the programming language itself, no extenal graphic files, no sound files (only exception are fonts).
I also used the original quick basic to create a dos binary just for fun.

Working with qb64 was fun and probaly the easiest programig language to work with.

I first started with Javascript/html, then C with SDL, then python with pygame and now QB64.
My itch.io page https://fildubek.itch.io/abr (https://fildubek.itch.io/abr)
Google drive with binaries https://cutt.ly/bzR3wmS (https://cutt.ly/bzR3wmS)
My git link https://github.com/fildubek/abr (https://github.com/fildubek/abr)

Title: Re: advaced battle robot
Post by: bplus on April 02, 2021, 01:20:44 pm

Welcome Primal,

Screen 2, ;-)) how old is this?

Code: QB64: [Select]

1. CLS
2. SCREEN 2
3. CLS
4. lives = 3
5. robot = 0
6. missile = 0
7. REM Loop through the story message until enter is pressed
8. DO
9.     CLS
10.     PRINT "We managed to build our own robot, so now we can fight back"
11.     PRINT " "
12.     PRINT "Press ENTER to continue"
13.     SLEEP 1
14. LOOP UNTIL INKEY$ = CHR$(13)
15. DO
16.     REM DRAW EVERYTHING IN LOOP
17.     CLS
18.     BEEP
19.     REM DRAW GAME SCREEN
20.     LINE (0, 0)-(610, 180), , B
21.     LINE (530, 0)-(530, 180)
22.     LINE (530, 70)-(610, 70), , B
23.     REM WRITE INFO TEXT
24.     LOCATE 3, 45
25.     PRINT "AREA LEADER"
26.     REM CALL ROBOT HEAD
27.     robotHead
28.     REM CALL LIVEBRARS
29.     liveBars (lives)
30.     REM CALL GRID
31.     grid
32.     REM CALL EVIL ROBOT BOSS
33.     robotBoss (robot)
34.     REM CALL MISSILE OPTIONS
35.     missile = missileOptions
36.     IF robot = 0 THEN
37.         IF missile = 5 THEN
38.             robot = success(robot)
39.         ELSE
40.             lives = failure(lives)
41.         END IF
42.  
43.     ELSEIF robot = 1 THEN
44.         IF missile = 2 THEN
45.             robot = success(robot)
46.         ELSE
47.             lives = failure(lives)
48.         END IF
49.     ELSE
50.         IF missile = 6 THEN
51.             robot = success(robot)
52.         ELSE
53.             lives = failure(lives)
54.         END IF
55.     END IF
56.  
57.     SLEEP 5
58.  
59. LOOP UNTIL INKEY$ = CHR$(27)
60.  
61.  
62. FUNCTION missileOptions
63.     LOCATE 20, 4
64.     PRINT "1. MISSILE RED | 2. MISSILE BLACK | 3. MISSILE SILVER"
65.     LOCATE 21, 4
66.     PRINT "4. MISSILE GREEN | 5. MISSILE BLUE | 6. MISSILE YELLOW"
67.     LOCATE 22, 4
68.     INPUT "Enter a Missile: ", missile
69.     missileOptions = missile
70. END FUNCTION
71.  
72.  
73. SUB robotHead
74.  
75.     LINE (550, 30)-(590, 30)
76.     LINE (550, 30)-(570, 15)
77.     LINE (590, 30)-(570, 15)
78.     LINE (565, 30)-(565, 38)
79.     REM EYES AND NOSE
80.     LINE (575, 30)-(575, 38)
81.     LINE (565, 38)-(575, 38)
82.     LINE (570, 30)-(570, 38)
83.     LINE (558, 30)-(558, 33)
84.     LINE (558, 33)-(565, 33)
85.     LINE (582, 30)-(582, 33)
86.     LINE (582, 33)-(575, 33)
87.     REM FACE LINES
88.     LINE (565, 38)-(555, 42)
89.     LINE (575, 38)-(585, 42)
90.  
91.     LINE (555, 42)-(555, 47)
92.     LINE (585, 42)-(585, 47)
93.     REM MOUTH
94.     LINE (565, 43)-(575, 43)
95.     LINE (565, 45)-(575, 45)
96.     LINE (565, 43)-(565, 45)
97.     LINE (575, 43)-(575, 45)
98.     REM FACE LINES
99.     LINE (555, 47)-(585, 47)
100.     LINE (555, 47)-(550, 47)
101.     LINE (575, 47)-(590, 47)
102.     LINE (550, 47)-(555, 42)
103.     LINE (590, 47)-(585, 42)
104.     LINE (550, 47)-(550, 30)
105.     LINE (590, 47)-(590, 30)
106.     LINE (552, 30)-(555, 42)
107.     LINE (588, 30)-(585, 42)
108.     REM HORNS
109.     LINE (550, 40)-(537, 24)
110.     LINE (537, 24)-(537, 15)
111.     LINE (537, 15)-(546, 20)
112.     LINE (546, 20)-(546, 24)
113.     LINE (546, 24)-(550, 30)
114.  
115.     LINE (590, 40)-(603, 24)
116.     LINE (603, 24)-(603, 15)
117.     LINE (603, 15)-(594, 20)
118.     LINE (594, 20)-(594, 24)
119.     LINE (594, 24)-(590, 30)
120. END SUB
121.  
122. SUB liveBars (lives)
123.     x = 0
124.     FOR i = 0 TO lives - 1
125.         LOCATE 12, 70
126.         PRINT "LIVES"
127.         LINE (545 + x, 110)-(555 + x, 150), , B
128.         PAINT (546 + x, 111), 3, 3
129.         x = x + 20
130.     NEXT i
131. END SUB
132.  
133. SUB grid
134.     x = 0
135.     x2 = 0
136.     FOR i = 0 TO 10
137.         LINE (10 + x, 150)-(30 + x - x2, 75)
138.         LINE (490 - x, 150)-(470 - x + x2, 75)
139.         x = x + 20
140.         x2 = x2 + 1
141.     NEXT i
142.  
143.     LINE (230, 150)-(230, 75)
144.     LINE (250, 150)-(250, 75)
145.     LINE (270, 150)-(270, 75)
146.  
147.     x = 0
148.     y = 0
149.     FOR j = 0 TO 4
150.         LINE (10 + x, 150 - y)-(490 - x, 150 - y)
151.         x = x + 5
152.         y = y + 19
153.  
154.     NEXT j
155.  
156. END SUB
157.  
158. SUB robotBoss (robot)
159.  
160.     IF robot = 0 THEN
161.         LOCATE 5, 4
162.         PRINT "WEAKNESS DETECTED"
163.         LOCATE 6, 4
164.         PRINT "0, 0, 255"
165.     END IF
166.  
167.     IF robot = 1 THEN
168.         LOCATE 5, 4
169.         PRINT "NEW WEAKNESS DETECTED"
170.         LOCATE 6, 4
171.         PRINT "#000000"
172.     END IF
173.     IF robot = 2 THEN
174.         LOCATE 5, 4
175.         PRINT "NEW WEAKNESS DETECTED"
176.         LOCATE 6, 4
177.         PRINT "0%, 0%, 100%, 0%"
178.     END IF
179.  
180.  
181.  
182.     LINE (200, 10)-(240, 5)
183.     LINE -(280, 10)
184.     LINE -(280, 30)
185.     LINE -(240, 25)
186.     LINE -(200, 30)
187.     LINE -(200, 10)
188.     LINE (200, 30)-(200, 50)
189.     LINE -(220, 55)
190.     LINE -(220, 70)
191.     LINE (280, 30)-(280, 50)
192.     LINE -(260, 55)
193.     LINE -(260, 70)
194.     LINE (210, 35)-(225, 35)
195.     LINE -(218, 40)
196.     LINE -(210, 35)
197.     LINE (270, 35)-(255, 35)
198.     LINE -(262, 40)
199.     LINE -(270, 35)
200.     LINE (235, 30)-(235, 45)
201.     LINE -(245, 45)
202.     LINE -(245, 30)
203.     REM FACE LINES
204.     LINE (235, 45)-(230, 55)
205.     LINE -(200, 40)
206.     LINE (230, 55)-(230, 70)
207.     LINE (245, 45)-(250, 55)
208.     LINE -(280, 40)
209.     LINE (250, 55)-(250, 70)
210.     REM MOUTH
211.     LINE (233, 62)-(247, 62)
212.     LINE -(250, 65)
213.     LINE (233, 62)-(230, 65)
214.  
215. END SUB
216.  
217. FUNCTION success (robot)
218.     SOUND 70, 10
219.     IF robot < 2 THEN
220.         robot = robot + 1
221.         LOCATE 5, 40
222.         PRINT "DIRECT HIT!"
223.     ELSE
224.         LOCATE 5, 40
225.         PRINT "DIRECT HIT! CONGRATULATIONS"
226.         LOCATE 6, 40
227.         PRINT "AREA LEADER DEFEATED,"
228.         LOCATE 7, 40
229.         PRINT "RECEIVING UPGRADES"
230.         SLEEP 3000
231.         SYSTEM
232.     END IF
233.     success = robot
234. END FUNCTION
235.  
236. FUNCTION failure (lives)
237.     SOUND 300, 10
238.     LOCATE 5, 40
239.     PRINT "WRONG MISSILE,"
240.     LOCATE 6, 40
241.     PRINT "COUNTER HIT DAMAGE"
242.     IF lives > 0 THEN
243.         lives = lives - 1
244.     ELSE
245.         LOCATE 5, 40
246.         PRINT "LOST ALL YOUR LIVES"
247.         LOCATE 6, 40
248.         PRINT "YOU HAVE BEEN DEFEATED,"
249.         SLEEP 3000
250.         SYSTEM
251.     END IF
252.     failure = lives
253. END FUNCTION
254.  

Works but apparently I keep entering wrong missile. Some instructions might be helpful.

Title: Re: advaced battle robot
Post by: bplus on April 02, 2021, 02:27:51 pm

Quote

REM Loop through the story message until enter is pressed
DO
    CLS
    PRINT "We managed to build our own robot, so now we can fight back"
    PRINT " "
    PRINT "Press ENTER to continue"
    SLEEP 1
LOOP UNTIL INKEY$ = CHR$(13)

Ah maybe there was something in story message that didn't get finished or was cut?

Title: Re: advaced battle robot
Post by: Primal on April 03, 2021, 06:51:07 am

Like a said I wanted it to run also on Dos, that is why I use screen 2.

As for the message it is not cut, but each version of the game contains part of it.

Text Only | Text with Attachments