QB64.org Forum

Active Forums => Programs => Topic started by: Prithak on April 13, 2019, 08:23:40 am

Title: Japang!
Post by: Prithak on April 13, 2019, 08:23:40 am

Sorry for the weird name! I'll change it soon enough!

This is a game I made in 2 days:

Code: QB64: [Select]

1. 'First Prototype of my game project!
2. 'Never knew I would get this far!
3. 'A Special thanks to Petr, Pete, bplus, _vince, TempodiBasic, SMcNeil Let me know if I forgot your name here xD
4. '-Prithak
5.  
6. _TITLE "Japang!"
7. SCREEN _NEWIMAGE(800, 600, 32)
8. COLOR _RGB32(0, 0, 0), _RGB32(211, 211, 211)
9. CLS
10. DIM SHARED x AS INTEGER
11. DIM SHARED y AS INTEGER
12. DIM SHARED gravity AS SINGLE
13. DIM SHARED y_change AS SINGLE
14. DIM SHARED oldy AS SINGLE
15. DO
16.     WHILE _MOUSEINPUT: WEND
17.     _PRINTSTRING (600, 100), "Japang!"
18.     _PRINTSTRING (600, 300), "Play"
19.     _PRINTSTRING (600, 400), "Exit"
20.     LINE (570, 290)-(600 + LEN("play") * 16, 325), _RGB32(255, 255, 255), B
21.     LINE (570, 390)-(600 + LEN("exit") * 16, 425), _RGB32(255, 255, 255), B
22.     IF mouseclick(570, 290, 600 + LEN("play") * 16, 325) THEN
23.         game
24.     END IF
25.     IF mouseclick(570, 290, 600 + LEN("play") * 16, 425) THEN
26.         SYSTEM
27.     END IF
28. LOOP
29.  
30.  
31. SUB game
32.     x = 200
33.     y = 200
34.     gravity = 9.8
35.     CLS
36.     DO
37.         CLS
38.         makechar
39.         IF _KEYDOWN(19200) THEN
40.             x = x - 10
41.  
42.         END IF
43.         IF _KEYDOWN(19712) THEN
44.             x = x + 10
45.  
46.         END IF
47.         IF _KEYDOWN(18432) THEN
48.             jump_i = 1
49.         END IF
50.  
51.         IF jump_i = 1 AND y > 100 THEN
52.             y = y - 20
53.             cycle = cycle + 1
54.             IF cycle > 20 THEN cycle = 0: jump_i = -1
55.         END IF
56.  
57.         y = y + gravity
58.         'Blocks
59.         makeobs 100, 400
60.  
61.         LINE (500, 400)-STEP(200, 50), _RGB32(127, 255, 127), BF
62.         IF collision%(x, y, 20, 20, 500, 400, 200, 50) THEN
63.             CLS
64.             _PRINTSTRING (300, 300), "LEVEL 1 COMPLETE!"
65.             _DISPLAY
66.             _DELAY 2
67.             GOTO lvl2
68.             END
69.         END IF
70.         IF y > 600 THEN game
71.  
72.         _DISPLAY
73.         _LIMIT 60
74.     LOOP
75.  
76.     lvl2:
77.     x = 200
78.     y = 400
79.     DO
80.         CLS
81.         makechar
82.         IF _KEYDOWN(19200) THEN
83.             x = x - 10
84.  
85.         END IF
86.         IF _KEYDOWN(19712) THEN
87.             x = x + 10
88.  
89.         END IF
90.         IF _KEYDOWN(18432) THEN
91.             jump_i = 1
92.         END IF
93.  
94.         IF jump_i = 1 AND y > 100 THEN
95.             y = y - 20
96.             cycle = cycle + 1
97.             IF cycle > 20 THEN cycle = 0: jump_i = -1
98.         END IF
99.  
100.         y = y + gravity
101.  
102.         IF y > 600 THEN GOTO lvl2
103.         angle = angle + 5
104.  
105.         rotate _WIDTH / 2, _HEIGHT / 2, angle
106.  
107.  
108.         makeobs 100, 500
109.  
110.         makeobs 500, 500
111.  
112.         IF coins < 1 THEN
113.             CIRCLE (600, 480), 5, _RGB32(255, 255, 17)
114.             PAINT (600, 480), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
115.             IF collision%(x, y, 20, 20, 600, 480, 5, 5) THEN
116.                 coins = coins + 1
117.             END IF
118.         END IF
119.  
120.         LINE (100, 300)-STEP(200, 50), _RGB32(127, 255, 127), BF
121.         IF collision%(x, y, 20, 20, 100, 300, 200, 50) THEN
122.             CLS
123.             _PRINTSTRING (300, 300), "LEVEL 2 COMPLETE!"
124.             _PRINTSTRING (300, 325), "Coins collected: " + STR$(coins)
125.             _DISPLAY
126.             _DELAY 2
127.             GOTO lvl3
128.             END
129.         END IF
130.  
131.         _DISPLAY
132.         _LIMIT 60
133.     LOOP
134.  
135.     lvl3:
136.     x = 100
137.     y = 300
138.     DO
139.         CLS
140.         makechar
141.  
142.         IF _KEYDOWN(19200) THEN
143.             x = x - 10
144.  
145.         END IF
146.         IF _KEYDOWN(19712) THEN
147.             x = x + 10
148.  
149.         END IF
150.         IF _KEYDOWN(18432) THEN
151.             jump_i = 1
152.         END IF
153.  
154.         IF jump_i = 1 AND y > 100 THEN
155.             y = y - 20
156.             cycle = cycle + 1
157.             IF cycle > 20 THEN cycle = 0: jump_i = -1
158.         END IF
159.  
160.         y = y + gravity
161.  
162.         IF coins < 2 THEN
163.             CIRCLE (650, 470), 5, _RGB32(255, 255, 17)
164.             PAINT (650, 470), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
165.             IF collision%(x, y, 20, 20, 650, 470, 5, 5) THEN
166.                 coins = coins + 1
167.             END IF
168.         END IF
169.  
170.  
171.         makesobs 50, 500, 100, 50
172.  
173.         angle = angle + 5
174.  
175.         rotate _WIDTH / 2, 400, angle
176.         rotate _WIDTH / 2, 200, angle
177.  
178.         makesobs 600, 500, 100, 50
179.  
180.         LINE (100, 200)-STEP(200, 50), _RGB32(127, 255, 127), BF
181.         IF collision%(x, y, 20, 20, 100, 50, 200, 50) THEN
182.             CLS
183.             _PRINTSTRING (300, 300), "LEVEL 3 COMPLETE!"
184.             _PRINTSTRING (300, 325), "Total coins: " + STR$(coins)
185.             _DISPLAY
186.             _DELAY 2
187.             END
188.         END IF
189.  
190.         IF y > 600 THEN GOTO lvl3
191.  
192.         _DISPLAY
193.         _LIMIT 60
194.     LOOP
195. END SUB
196.  
197. SUB makechar
198.     'CIRCLE (x, y), 20, _RGB32(100, 150, 255)
199.     'PAINT (x, y), _RGB32(100, 150, 255), _RGB32(100, 150, 255)
200.     LINE (x, y)-STEP(20, 20), _RGB32(100, 150, 255), BF
201. END SUB
202.  
203. FUNCTION collision% (b1x, b1y, b1w, b1h, b2x, b2y, b2w, b2h)
204.     IF (b1y + b1h < b2y) OR (b1y > b2y + b2h) OR (b1x > b2x + b2w) OR (b1x + b1w < b2x) THEN
205.         collision% = 0
206.     ELSE
207.         collision% = 1
208.     END IF
209. END FUNCTION
210.  
211. SUB makeobs (bx, by)
212.     LINE (bx, by)-STEP(200, 50), _RGB32(255, 150, 100), BF
213.     IF collision%(x, y, 20, 20, bx, by, 200, 50) THEN
214.         y = oldy
215.         gravity = 0
216.         y_change = 0
217.     ELSE
218.         oldy = y
219.         gravity = 9.8
220.     END IF
221. END SUB
222.  
223. SUB makesobs (bx, by, w, h)
224.     LINE (bx, by)-STEP(w, h), _RGB32(255, 150, 100), BF
225.     IF collision%(x, y, 20, 20, bx, by, w, h) THEN
226.         y = oldy
227.         gravity = 0
228.         y_change = 0
229.     ELSE
230.         oldy = y
231.         gravity = 9.8
232.     END IF
233. END SUB
234.  
235. SUB rotate (px, py, deg)
236.     px2 = px + COS(_D2R(deg)) * 100
237.     py2 = py + SIN(_D2R(deg)) * 100
238.  
239.     CIRCLE (px2, py2), 10, _RGB32(100, 150, 255)
240.     PAINT (px2, py2), _RGB32(100, 150, 255), _RGB32(100, 150, 255)
241.  
242.     LINE (px, py)-(px2, py2), _RGB32(0, 0, 0)
243.  
244.     IF collision(x, y, 20, 20, px2, py2, 10, 10) THEN
245.         CLS
246.         _PRINTSTRING (300, 300), "GAME OVER!"
247.         _DISPLAY
248.         _DELAY 2
249.         game
250.     END IF
251. END SUB
252.  
253. FUNCTION mouseclick (x1, y1, x2, y2)
254.     mx = _MOUSEX
255.     my = _MOUSEY
256.     mb = _MOUSEBUTTON(1)
257.  
258.     IF mx >= x1 AND mx <= x2 AND my >= y1 AND my <= y2 AND mb THEN
259.         mouseclick = 1
260.     END IF
261. END FUNCTION
262.  

I will be making more of this! AT LEAST 10 LEVELS! Until then, play this!

-Prithak

Title: Re: Japang!
Post by: TempodiBasic on April 13, 2019, 05:14:49 pm

Fine! Well suited. Very fast!

Please add <Help> button with instructions for keys active and a little story or the goal.

Negative Feedback:
Aargh! There is a big big big mistake at line code 25...

Code: QB64: [Select]

1. IF mouseclick(570, 290, 600 + LEN("play") * 16, 425) THEN
2. SYSTEM

you use LEN("play")! Aargh! you must use LEN("quit")!!!!
:-)
:-P what do you think of this joke?

Title: Re: Japang!
Post by: Prithak on April 13, 2019, 09:19:32 pm

Quote from: TempodiBasic on April 13, 2019, 05:14:49 pm

Fine! Well suited. Very fast!

Please add <Help> button with instructions for keys active and a little story or the goal.

Negative Feedback:
Aargh! There is a big big big mistake at line code 25...

Code: QB64: [Select]

1. IF mouseclick(570, 290, 600 + LEN("play") * 16, 425) THEN
2. SYSTEM

you use LEN("play")! Aargh! you must use LEN("quit")!!!!
:-)
:-P what do you think of this joke?

Lol! The length of "play" and the length of "quit" is the same is it not? Yeah, The help button will be added along with setting on the next update! I won't be able to code today but tomorrow? That might be a nice time!

Title: Re: Japang!
Post by: TempodiBasic on April 14, 2019, 01:02:00 pm

Ah!
you're right!: 
PLAY
QUIT<---  not this, I must wash better my glasses :-)
EXIT
HELP
SAVE
LOAD
PRINT
FIND
KILL
OPEN
NAME
STOP
BACK
...
...
mmmh all in 4 :-)
 doesn't it seem a trick of old times, does it?
it seems to catch back from '80 the names of command of menu of a program...

Title: Re: Japang!
Post by: SMcNeill on April 14, 2019, 01:13:34 pm

Quote from: TempodiBasic on April 14, 2019, 01:02:00 pm

Ah!
you're right!: 
PLAY
QUIT
EXIT
HELP
SAVE
LOAD
PRINT
FIND
KILL
OPEN
NAME
STOP
BACK
...
...
mmmh all in 4 :-)
 doesn't it seem a trick of old times, does it?
it seems to catch back from '80 the names of command of menu of a program...

Sorry.  PRNT is 5 letters.  😉

Title: Re: Japang!
Post by: TempodiBasic on April 14, 2019, 01:39:11 pm

You're right Steve
Thanks for feedback!

Now I correct previous post.

Text Only | Text with Attachments