Knight VS Castle

[qb4ever]

Good morning to everybody,

Yesterday I have write some QB lines....

I know, I stayed at the 90s, so I used the QB45 commands .....

You have to imagine a person who in about 1995 enters a time machine and finds himself in 2019 .... for this I still use the QB45.

However I see that the commands are perfectly compatible, but I have to learn the new "magic" commands (those with the underscore _ sign)

I only modified the screen (no screen 13).

It will be a very fast game ......

As soon as I can I will add lines ....

My biggest enemy is the lack of time for work commitments .....

Any suggestion is well accepted!

Have a nice day

Code: QB64: [Select]

1. handle& = _NEWIMAGE(320, 240, 256)
2. SCREEN handle&
3.  
4.  
5.  
6.  
7. LINE (0, 0)-(320, 240), 54, BF
8.  
9. NVX = 50
10. NVY = 50
11. COLN = 15
12.  
13. CIRCLE (NVX - 10, NVY + 5), 5, COLN
14. PAINT (NVX - 10, NVY + 5), COLN
15.  
16. CIRCLE (NVX, NVY), 10, COLN
17. PAINT (NVX, NVY), COLN
18. CIRCLE (NVX + 20, NVY - 10), 14, COLN
19. PAINT (NVX + 20, NVY - 10), COLN
20. CIRCLE (NVX + 40, NVY - 16), 18, COLN
21. PAINT (NVX + 40, NVY - 16), COLN
22. CIRCLE (NVX + 60, NVY - 10), 14, COLN
23. PAINT (NVX + 60, NVY - 10), COLN
24. CIRCLE (NVX + 80, NVY), 10, COLN
25. PAINT (NVX + 80, NVY), COLN
26. CIRCLE (NVX + 90, NVY + 5), 5, COLN
27. PAINT (NVX + 90, NVY + 5), COLN
28.  
29.  
30. LINE (NVX - 10, NVY)-(NVX + 90, NVY + 10), COLN, BF
31. LINE (NVX - 15, NVY + 5)-(NVX + 95, NVY + 10), COLN, BF
32. LINE (NVX - 18, NVY + 11)-(NVX + 98, NVY + 11), COLN
33. LINE (NVX - 24, NVY + 12)-(NVX + 104, NVY + 12), COLN
34. LINE (NVX - 34, NVY + 13)-(NVX + 114, NVY + 13), COLN
35.  
36.  
37. '************** TERRENO
38.  
39. LINE (0, 200)-(320, 240), 262, BF
40. LINE (0, 200)-(320, 208), 2, BF
41. LINE (0, 200)-(320, 202), 10, BF
42.  
43. RANDOMIZE 5
44. FOR T = 1 TO 80
45.     TERX = INT(RND(1) * 320)
46.     TERY = INT(RND(1) * 30) + 210
47.  
48.     LINE (TERX, TERY)-(TERX + 3, TERY + 2), 298, BF
49. NEXT T
50.  
51. '***** castello
52.  
53. CAX = 260
54. CAY = 200
55. CLCAS = 22
56.  
57.  
58. PSET (CAX, CAY)
59. DRAW "C22U100H20U20R20D20R20U20R20D20R20D120L60"
60. PAINT (CAX + 20, CAY - 20), 22
61.  
62. RANDOMIZE 23
63. 'PRZX = INT(RND(1) * 98) + 1
64. 'RZY = INT(RND(1) * 98) + 1
65.  
66.  
67. FOR T = 1 TO 40
68.     PRZX = INT(RND(1) * 80) + 260
69.     PRZY = INT(RND(1) * 100) + 95
70.  
71.     LINE (PRZX, PRZY)-(PRZX + 3, PRZY + 2), 20, BF
72. NEXT T
73.  
74.  
75. ' WINDOWS
76. CIRCLE (CAX + 40, CAY - 70), 8, 0
77. PAINT (CAX + 40, CAY - 70), 0
78. LINE (CAX + 32, CAY - 70)-(CAX + 48, CAY - 55), 0, BF
79.  
80. ' DOOR
81. CIRCLE (CAX + 40, CAY - 25), 14, 0
82. PAINT (CAX + 40, CAY - 25), 0
83. LINE (CAX + 26, CAY - 25)-(CAX + 54, CAY), 0, BF
84.  
85.  
86. LINE (CAX, CAY - 65)-(CAX + 10, CAY - 75), 0, BF
87.  
88.  
89. '***** ATTACCANTE
90.  
91. ' GUN
92. GUNX = 170
93. GUNY = 193
94.  
95. LINE (GUNX - 12, GUNY - 5)-(GUNX + 16, GUNY), 21, BF
96. LINE (GUNX + 16, GUNY - 6)-(GUNX + 17, GUNY + 1), 21, BF
97.  
98.  
99. CIRCLE (GUNX, GUNY), 8, 0
100. PSET (GUNX, GUNY)
101. DRAW "C0U4D8U4R4L8R4E4G8E4F4H8"
102.  
103. FLX = 110
104. FLY = 170
105.  
106. PSET (FLX, FLY)
107.  
108. DRAW "C42R12D18H6G6U18R12"
109. PAINT (FLX + 2, FLY + 2), 42
110.  
111. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 14, BF
112.  
113. FLX = 265
114. FLY = 80
115.  
116. PSET (FLX, FLY)
117.  
118. DRAW "C14R12D18H6G6U18R12"
119. PAINT (FLX + 2, FLY + 2), 14
120.  
121. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 2, BF
122.  
123.  
124. FLX = 305
125. FLY = 80
126.  
127. PSET (FLX, FLY)
128.  
129. DRAW "C14R12D18H6G6U18R12"
130. PAINT (FLX + 2, FLY + 2), 14
131.  
132. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 2, BF
133.  
134.  
135.  
136.  
137.  

[Pete]

Did you do the artwork yourself? I really like it. It looks like a professionally done screen for some type of 1990s Nintendo game. I put a bunch of SLEEP statements in the code you posted, just so I could see it being drawn step by step.

I have no talent for graphics, so I cannot comment as to how you might improve on what you are doing. I can tell you with QB64 there are many more color combinations available, with color blending and other features, but for what you are building, I doubt you would need to learn those.

I have a friend at my forum, Bob, who is great with computer art. You are welcome to check his stuff out in the QB64 samples files, inside your QB64 folder you downloaded, under "TheBOB".  Oh, there's a "Pete" in that samples folder, too, but that's that "other" Pete. He's a friend from another QB forum site, Pete's QB Forum. Anyway, if you ever want to stop by and chat with TheBOB, he posts at: https://www.tapatalk.com/groups/qbasic/

Again, great stuff so far and I know it's time consuming. You are always welcome to ask for help, especially when you are willing to share the code. It is a thousand times easier to help people when we get to see how they are putting a project together.

Pete

[qb4ever]

Thanks Pete,

second step: fire !

Code: QB64: [Select]

1. handle& = _NEWIMAGE(320, 240, 256)
2. SCREEN handle&
3.  
4.  
5.  
6.  
7. LINE (0, 0)-(320, 240), 54, BF
8.  
9. NVX = 50
10. NVY = 50
11. COLN = 15
12.  
13. CIRCLE (NVX - 10, NVY + 5), 5, COLN
14. PAINT (NVX - 10, NVY + 5), COLN
15.  
16. CIRCLE (NVX, NVY), 10, COLN
17. PAINT (NVX, NVY), COLN
18. CIRCLE (NVX + 20, NVY - 10), 14, COLN
19. PAINT (NVX + 20, NVY - 10), COLN
20. CIRCLE (NVX + 40, NVY - 16), 18, COLN
21. PAINT (NVX + 40, NVY - 16), COLN
22. CIRCLE (NVX + 60, NVY - 10), 14, COLN
23. PAINT (NVX + 60, NVY - 10), COLN
24. CIRCLE (NVX + 80, NVY), 10, COLN
25. PAINT (NVX + 80, NVY), COLN
26. CIRCLE (NVX + 90, NVY + 5), 5, COLN
27. PAINT (NVX + 90, NVY + 5), COLN
28.  
29.  
30. LINE (NVX - 10, NVY)-(NVX + 90, NVY + 10), COLN, BF
31. LINE (NVX - 15, NVY + 5)-(NVX + 95, NVY + 10), COLN, BF
32. LINE (NVX - 18, NVY + 11)-(NVX + 98, NVY + 11), COLN
33. LINE (NVX - 24, NVY + 12)-(NVX + 104, NVY + 12), COLN
34. LINE (NVX - 34, NVY + 13)-(NVX + 114, NVY + 13), COLN
35.  
36.  
37. '************** TERRENO
38.  
39. LINE (0, 200)-(320, 240), 262, BF
40. LINE (0, 200)-(320, 208), 2, BF
41. LINE (0, 200)-(320, 202), 10, BF
42.  
43. RANDOMIZE 5
44. FOR T = 1 TO 80
45.     TERX = INT(RND(1) * 320)
46.     TERY = INT(RND(1) * 30) + 210
47.  
48.     LINE (TERX, TERY)-(TERX + 3, TERY + 2), 298, BF
49. NEXT T
50.  
51. '***** castello
52.  
53. CAX = 260
54. CAY = 200
55. CLCAS = 22
56.  
57.  
58. PSET (CAX, CAY)
59. DRAW "C22U100H20U20R20D20R20U20R20D20R20D120L60"
60. PAINT (CAX + 20, CAY - 20), 22
61.  
62. RANDOMIZE 23
63. 'PRZX = INT(RND(1) * 98) + 1
64. 'RZY = INT(RND(1) * 98) + 1
65.  
66.  
67. FOR T = 1 TO 40
68.     PRZX = INT(RND(1) * 80) + 260
69.     PRZY = INT(RND(1) * 100) + 95
70.  
71.     LINE (PRZX, PRZY)-(PRZX + 3, PRZY + 2), 20, BF
72. NEXT T
73.  
74.  
75. ' WINDOWS
76. CIRCLE (CAX + 40, CAY - 70), 8, 0
77. PAINT (CAX + 40, CAY - 70), 0
78. LINE (CAX + 32, CAY - 70)-(CAX + 48, CAY - 55), 0, BF
79.  
80. ' DOOR
81. CIRCLE (CAX + 40, CAY - 25), 14, 0
82. PAINT (CAX + 40, CAY - 25), 0
83. LINE (CAX + 26, CAY - 25)-(CAX + 54, CAY), 0, BF
84.  
85.  
86. LINE (CAX, CAY - 65)-(CAX + 10, CAY - 75), 0, BF
87.  
88.  
89. '***** ATTACCANTE
90.  
91. ' GUN
92. GUNX = 100
93. GUNY = 193
94.  
95. LINE (GUNX - 12, GUNY - 5)-(GUNX + 16, GUNY), 21, BF
96. LINE (GUNX + 16, GUNY - 6)-(GUNX + 17, GUNY + 1), 21, BF
97.  
98.  
99. CIRCLE (GUNX, GUNY), 8, 0
100. PSET (GUNX, GUNY)
101. DRAW "C0U4D8U4R4L8R4E4G8E4F4H8"
102.  
103. FLX = 40
104. FLY = 170
105.  
106. PSET (FLX, FLY)
107.  
108. DRAW "C42R12D18H6G6U18R12"
109. PAINT (FLX + 2, FLY + 2), 42
110.  
111. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 14, BF
112.  
113. FLX = 265
114. FLY = 80
115.  
116. PSET (FLX, FLY)
117.  
118. DRAW "C14R12D18H6G6U18R12"
119. PAINT (FLX + 2, FLY + 2), 14
120.  
121. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 2, BF
122.  
123.  
124. FLX = 305
125. FLY = 80
126.  
127. PSET (FLX, FLY)
128.  
129. DRAW "C14R12D18H6G6U18R12"
130. PAINT (FLX + 2, FLY + 2), 14
131.  
132. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 2, BF
133.  
134. ' ********* LIFE BAR CASTLE
135. LBCX = 260
136. LBCY = 35
137. LINE (LBCX, LBCY)-(LBCX + 42, LBCY + 7), 0, BF
138. LINE (LBCX + 1, LBCY + 1)-(LBCX + 41, LBCY + 6), 2, BF
139.  
140.  
141.  
142. ' *********+ SHOT
143. _DELAY 1
144. ALX = 95
145. ALY = 207
146.  
147.  
148. X = ALX + 20: Y = ALY - 20
149. FOR T = 1 TO 15
150.     X = X + 10
151.     CIRCLE (X, Y), 3, 42
152.     PAINT (X, Y), 42
153.     CIRCLE (X, Y), 2, 41
154.     PAINT (X, Y), 41
155.     CIRCLE (X, Y), 1, 40
156.     PAINT (X, Y), 40
157.  
158.     _DELAY 0.2
159.  
160.     CIRCLE (X, Y), 6, 54
161.     PAINT (X, Y), 54
162. NEXT T
163.  
164.  
165.  
166.  

[Qwerkey]

Knight vs. Castle: not the deep chess problem that I was expecting!

[Pete]

Knight vs. Castle: not the deep chess problem that I was expecting!

I know, right? I had to look at the code before I realized it wasn't a chess project. Here's a screen shot of the first code submission.

 

[qb4ever]

Knight vs. Castle: not the deep chess problem that I was expecting!

True Qwerkey : D

I have to get familiar with the QB....

[qb4ever]

I must say that the _delay command is really fantastic.
25 years ago I used a empty cycle for next .... but delay changed with the speed of the computer CPU ....

[qb4ever]

In the third step, Castle will reply with a fire ball....

[Pete]

See if you like this cannon ball fire animation a bit better. Just added _LIMIT and changed delay from .2 to .1, which smooths out the animation.

Code: QB64: [Select]

1. FOR T = 1 TO 15
2.     _LIMIT 10
3.     X = X + 10
4.     CIRCLE (X, Y), 3, 42
5.     PAINT (X, Y), 42
6.     CIRCLE (X, Y), 2, 41
7.     PAINT (X, Y), 41
8.     CIRCLE (X, Y), 1, 40
9.     PAINT (X, Y), 40
10.  
11.     _DELAY 0.1
12.  
13.     CIRCLE (X, Y), 6, 54
14.     PAINT (X, Y), 54
15. NEXT T

[SMcNeill]

Pete, this is silly code:

Code: QB64: [Select]

1. FOR T = 1 TO 15
2.     _LIMIT 10
3.     _DELAY 0.1
4. NEXT T

I’ve seen you do things like this several times already, indicating that you don’t understand the two commands very well...

_LIMIT says, “This loop won’t run more than this number of times per second.”
_DELAY says, “Pause the program for this set amount of time.”

You don’t need to put both commands in the same loop...

FOR I = 1 TO 100
    _DELAY 0.1
LOOP

A 1/10 second delay in the above is going to make that loop take 10 seconds to execute.

FOR I = 1 TO 100
    _LIMIT 10
NEXT

Since the above loop only runs 10 times per second, it’ll take 10 seconds to execute.

No need to mix the two commands, as they’re both used for controlling execution speed...


So what’s the biggest difference in the two commands??

_DELAY is a hard pause, _LIMIT is an automatically adjustable pause.

FOR I = 1 TO 100
   PRINT “HELLO WORLD”
   _DELAY 0.1
NEXT

The above will take 10 seconds to run from the delay, PLUS the time it takes to print to the screen 10 times.

FOR I = 1 TO 100
    PRINT “HELLO WORLD”
    _LIMIT 10
NEXT

While the above will take 10 seconds to run.  _LIMIT will count the time it takes to perform the print and then pause 0.0997 seconds (or whatever is needed) to maintain the 10 loops per second limit you set.

_DELAY is a hard pause of a set time.
_LIMIT is an adjustable pause with a maximum number of loops being executed each second.

[Pete]

The point is you can mix them, and vary the results of the animation, but I agree that you  don't need both, just the best value for _DELAY would do as well. I usually just use _LIMIT to reduce CPU usage in keyboard input loops, but it was fun to use it in this animation, well, until some party pooper came along, that is. In this example, lowering the frames rate below 10 will change the animation speed, although I do agree just adding to the delay would achieve much the same results. If it was a loop for a much longer use, like most video games, I would certainly want to limit the frames rate to save CPU usage. For this example, the _LIMIT could be removed and the results, with the smaller delay, would be comparable. Basically I just introduced a new QB64 statement to the user, but it isn't introducing it at its best. I hope he does know that he can use various delays like .12, .104, etc., up to 7 digits. That gives a lot animation potential.

So as for what the commands do,  I know what they are for.  Now go be a dear and find some of those "many" examples, so I can have a look at them.

Pete

[qb4ever]

Thanks for your suggestions SMcNeill and Pete.

I will study the command _LIMIT and all other QB64 undescored commands (as soon as possible...)

Have a nice morning/afternoon/evening

[Pete]

Only one question. Can I borrow your cannon? I want to take another shot at that castle; that's with a silent "c", right? Sorry Steve, I couldn't _LIMIT resist. :D

OK, kidding between Steve and me aside, I'm curious if you are planning to make this into some type of game, or using it to reacquaint yourself with QB graphics programming. Maybe both? I mean it would be a lot of work, but the obvious game would be where you can maneuver your cannon back and forth and adjust the trajectory. Each strike could blow out a certain amount of bricks in the castle, and you'd need an algorithm to determine when enough damage was done to cause structural failure (sees castle tipping over). The AI strikes from the castle (fire balls) could take out the player before this is achieved. The player / AI could likewise be switched. Is that what you are "shooting" for? Pun intended.

Pete

[qb4ever]

Hi Pete,
Just a try.
However, the fun is sharing code in the forum.
The algorithm is not a problem.

[TempodiBasic]

HI qb4ever

this graphic let me remember a mini game made in java. In this you fire with a cannon setting force and angle of the fire, moreover you set the type of potion that you fire to defend you laboratory, and there is also a wall as barrier to stop the zombies or skeleton or monsters that comes towards laboratory to destroy it!
sorry but I don't remember the exact name to post the link of this game.