MOO

[romichess]

This is my first graphics project ever. My only meaningful work so far was writing RomiChess which has received praise from a handful of people due to its playing style and unique learning algorithm labeled as "famous" on the chess programming wiki. Okay, enough of that.

Anyway, my fav game of all time is MOO (Master Of Orion) 1. It is a DOS game from 1993. There have been dozens of attempts to emulate and improve upon it, including MOO 2, MOO 3 and MOO 2016. All add complexity and add to the micromanagement necessities of playing the game, successfully. I personally am of the Risk generation. Risk is a great game because it is super simple and easy to play. And yet one can put in as much deep thought and strategic planning as they want. MOO is a lot like that. Except MOO does have some problems that make it problematic to get a fair starting position. Sometimes one enemy or more are right on top of the players starting position while another enemy has a large portion of the map to themselves. Those games are often over before they begin. The micromanagement was rather simple in MOO but it could still be very time consuming.

My dream ever since the 90's was to create my own space conquest game similar to MOO but in the spirit of Risk, i.e., keep the micromanagement under control. It is to be real time instead of turn based and have a modern GUI. And by modern I mean one of my vision. Even though I taught myself to program in C in 2004 so I could write RomiChess anything more than a console based C application was beyond my ability. The reason for that was the complexity of installing and using graphics libraries with myriads of mind boggling function names and cryptic parameters. I spent months with some packages just to determine that they don't really do what I need to be done.

A couple of weeks ago I stumbled upon QB64. I was not immediately impressed. I have no need nor desire to do anything in less than 1080p. And all the examples were in less than 1080p. Then I stumbled upon a YT vid that was in a 1080p window. That got my attention. The presenter in the vid mentioned that _FULLSCREEN could be used but he'd leave that up to the viewer to implement. Okay, so I had to investigate. I downloaded QB64 and entered the YT presenters code and modified it to run _FULLSCREEN. For the first time ever I had in my hands a tool chain that would do what I wanted to do without exhausting myself trying to understand it. So I started a few days ago writing my game Beyond Sol.

My vision of the GUI is no visible GUI until requested. My example code gives the flavor. It displays the game, not the interface. In the example when a star is moused over it displays the name of the Star. Eventually it will display a panel. The panel will appear and disappear as stars (or fleets) are moused over. The panel will stay displayed if the star is clicked. I got a late start today so I have not cleaned up the code or commented it yet. I will do that next. Then I will find a way to display panels and print to them.

There is one thing I need to know. Does this work on 2k and 4k displays and is the scaling okay. Also any suggestions to make the game or code better are welcome. Even really cool star names would be nice. I just copied star names from a list and made a few up along the way. Can you spot the ones I made up, :)? For those following me on my initial thread I added a micro amount of graphical bling and initiated the 6 starting positions.

Code: QB64: [Select]

1. TYPE stars
2.     n AS STRING * 10
3.     x AS INTEGER
4.     y AS INTEGER
5.     o AS INTEGER
6.     c AS INTEGER
7.     s AS INTEGER
8.     t AS INTEGER
9.     p AS INTEGER
10. END TYPE
11.  
12. DECLARE SUB NewGame
13. DECLARE SUB PutStars
14. DECLARE SUB GiveName
15. DECLARE SUB ShowPanel (i)
16. DECLARE SUB Identify (x, y)
17. declare SUB PutBackground
18.  
19. DIM SHARED sw AS INTEGER
20. DIM SHARED sh AS INTEGER
21. DIM SHARED sww AS INTEGER
22. DIM SHARED swn AS INTEGER
23. DIM SHARED shw AS INTEGER
24. DIM SHARED shn AS INTEGER
25. DIM SHARED nw AS INTEGER
26. DIM SHARED nh AS INTEGER
27. DIM SHARED ratio AS _FLOAT
28. DIM SHARED x AS INTEGER
29. DIM SHARED y AS INTEGER
30. DIM repeat AS INTEGER
31. DIM SHARED star(100) AS stars
32. DIM SHARED i AS INTEGER
33. DIM SHARED j AS INTEGER
34. DIM ch AS STRING * 1
35. DIM SHARED names(200) AS STRING * 10
36. DIM SHARED seed AS INTEGER
37. DIM SHARED home(6) AS INTEGER
38.  
39. repeat = 1
40.  
41. sw = _DESKTOPWIDTH
42. sww = sw / 24
43. swn = sw / 48
44. nw = 1920
45.  
46. ratio = sw / 1920
47.  
48. sh = _DESKTOPHEIGHT
49. shw = sh / 20
50. shn = sh / 40
51. nh = 1080
52.  
53. SCREEN _NEWIMAGE(sw, sh, 256)
54.  
55. _FULLSCREEN
56.  
57. GiveName
58.  
59. NewGame
60.  
61. WHILE repeat
62.  
63.     _LIMIT 60
64.  
65.     CLS
66.  
67.     PutBackground
68.  
69.     PutStars
70.  
71.     WHILE _MOUSEINPUT: WEND
72.  
73.     x = _MOUSEX
74.     y = _MOUSEY
75.     mb = _MOUSEBUTTON(1)
76.  
77.     Identify x, y
78.  
79.     _DISPLAY
80.  
81.     ch = INKEY$
82.     IF ch = CHR$(27) THEN repeat = 0
83.     IF ch = "n" THEN NewGame
84.     ch = ""
85.  
86. WEND
87.  
88. SYSTEM
89.  
90. SUB PutBackground
91.     x = RND * sw
92.     y = RND * sh
93.     c = RND * 14 + 1
94.     PSET (x, y), c
95.     RANDOMIZE USING seed
96.     FOR i = 1 TO 600
97.         x = RND * sw
98.         y = RND * sh
99.         c = RND * 14 + 1
100.         PSET (x, y), c
101.     NEXT
102. END SUB
103.  
104. SUB Identify (x, y)
105.     FOR i = 0 TO 99
106.         dx = star(i).x - x
107.         dy = star(i).y - y
108.         IF ABS(dx) <= star(i).s + 6 AND ABS(dy) <= star(i).s + 6 THEN
109.             ShowPanel i
110.         END IF
111.     NEXT
112. END SUB
113.  
114. SUB ShowPanel (i)
115.     PRINT star(i).n
116. END SUB
117.  
118. SUB PutStars
119.     RANDOMIZE TIMER
120.     FOR i = 0 TO 99
121.         c = star(i).c
122.         x = star(i).x
123.         y = star(i).y
124.         CIRCLE (x, y), (star(i).s + 6) * ratio, c
125.         IF star(i).o > 0 THEN
126.             PAINT (x, y), star(i).o + 8, c
127.         END IF
128.     NEXT
129. END SUB
130.  
131. SUB NewGame
132.     DIM k AS INTEGER
133.     DIM r AS INTEGER
134.     DIM dx AS INTEGER
135.     DIM dy AS INTEGER
136.     DIM n AS STRING * 10
137.     RANDOMIZE TIMER
138.     seed = RND * 1000
139.     star(0).n = "Sol"
140.     star(0).x = RND * (sw - sww) + swn
141.     star(0).y = RND * (sh - shw) + shn
142.     star(0).c = 14
143.     star(0).s = 3
144.     star(0).o = 1
145.     home(0) = 0
146.     FOR i = 1 TO 99
147.         k = 1
148.         WHILE k
149.             k = 0
150.             x = RND * (sw - sww) + swn
151.             y = RND * (sh - shw) + shn
152.             r = INT(RND * 200)
153.             n = names(r)
154.             FOR j = 0 TO i - 1
155.                 dx = x - star(j).x
156.                 dy = y - star(j).y
157.                 IF ABS(dx) < sww AND ABS(dy) < shw THEN
158.                     k = 1
159.                 END IF
160.                 IF n = star(j).n THEN
161.                     k = 1
162.                 END IF
163.             NEXT
164.         WEND
165.         star(i).n = n
166.         star(i).x = x
167.         star(i).y = y
168.         star(i).c = RND * 7 + 9
169.         star(i).s = RND * 5
170.         star(i).o = 0
171.     NEXT
172.     FOR i = 2 TO 6
173.         k = 1
174.         WHILE k
175.             k = 0
176.             r = RND * 100
177.             FOR j = 1 TO i - 1
178.                 IF r = home(j) THEN k = 1
179.                 x = star(0).x
180.                 y = star(0).y
181.                 dx = ABS(star(r).x - x)
182.                 dy = ABS(star(r).y - y)
183.                 IF dx < sw / 4 AND dy < sh / 4 THEN k = 1
184.             NEXT
185.         WEND
186.         home(i) = r
187.         star(r).o = i
188.     NEXT
189. END SUB
190.  
191. ' A lot of star names I made up
192.  
193. SUB GiveName
194.     names(0) = "Acamar"
195.     names(1) = "Arcab"
196.     names(2) = "Acrux"
197.     names(3) = "Adhara"
198.     names(4) = "Arneb"
199.     names(5) = "Antares"
200.     names(6) = "Arcturus"
201.     names(7) = "Atria"
202.     names(8) = "Beid"
203.     names(9) = "Betelgeuse"
204.     names(10) = "Botein"
205.     names(11) = "Beemim"
206.     names(12) = "Bellatrix"
207.     names(13) = "Bharani"
208.     names(14) = "Biham"
209.     names(15) = "Brachium"
210.     names(16) = "Canopus"
211.     names(17) = "Capella"
212.     names(18) = "Castor"
213.     names(19) = "Chara"
214.     names(20) = "Cursa"
215.     names(21) = "Copernicus"
216.     names(22) = "Chalawan"
217.     names(23) = "Chertan"
218.     names(24) = "Dabih"
219.     names(25) = "Dalim"
220.     names(26) = "Deneb"
221.     names(27) = "Denebola"
222.     names(28) = "Diadem"
223.     names(29) = "Diphda"
224.     names(30) = "Dschubba"
225.     names(31) = "Dziban"
226.     names(32) = "Edasich"
227.     names(33) = "Electra"
228.     names(34) = "Elgafar"
229.     names(35) = "Elkurud"
230.     names(36) = "Elnath"
231.     names(37) = "Eltanin"
232.     names(38) = "Enif"
233.     names(39) = "Errai"
234.     names(40) = "Fafnir"
235.     names(41) = "Fang"
236.     names(42) = "Fawaris"
237.     names(43) = "Felis"
238.     names(44) = "Fomalhaut"
239.     names(45) = "Fulu"
240.     names(46) = "Fumal"
241.     names(47) = "Furud"
242.     names(48) = "Garnet"
243.     names(49) = "Giausar"
244.     names(50) = "Gienah"
245.     names(51) = "Ginan"
246.     names(52) = "Gomeisa"
247.     names(53) = "Graffias"
248.     names(54) = "Grumium"
249.     names(55) = "Gudja"
250.     names(56) = "Hadar"
251.     names(57) = "Haedus"
252.     names(58) = "Hamal"
253.     names(59) = "Hassaleh"
254.     names(60) = "Hatysa"
255.     names(61) = "Helvetios"
256.     names(62) = "Heze"
257.     names(63) = "Homan"
258.     names(64) = "Iklil"
259.     names(65) = "Imai"
260.     names(66) = "Intercrus"
261.     names(67) = "Izar"
262.     names(68) = "Iccar"
263.     names(69) = "Inar"
264.     names(70) = "Iaeth"
265.     names(71) = "Imaous"
266.     names(72) = "Jabbah"
267.     names(73) = "Jishui"
268.     names(74) = "Jax"
269.     names(75) = "Jalae"
270.     names(76) = "Jewel"
271.     names(77) = "Jumbo"
272.     names(78) = "Jerue"
273.     names(79) = "Jabear"
274.     names(80) = "Kakkab"
275.     names(81) = "Kang"
276.     names(82) = "Kekouan"
277.     names(83) = "Keid"
278.     names(84) = "Kitalpha"
279.     names(85) = "Kochab"
280.     names(86) = "Kolob"
281.     names(87) = "Kobol"
282.     names(88) = "Larawag"
283.     names(89) = "Lesath"
284.     names(90) = "Libertas"
285.     names(91) = "Lich"
286.     names(92) = "Lilly"
287.     names(93) = "Laddel"
288.     names(94) = "Luminous"
289.     names(95) = "Lasacious"
290.     names(96) = "Mizar"
291.     names(97) = "Markab"
292.     names(98) = "Matar"
293.     names(99) = "Mintaka"
294.     names(100) = "Meleph"
295.     names(101) = "Menkar"
296.     names(102) = "Merga"
297.     names(103) = "Merope"
298.     names(104) = "Nahn"
299.     names(105) = "Naos"
300.     names(106) = "Nashira"
301.     names(107) = "Navi"
302.     names(108) = "Nekkar"
303.     names(109) = "Nembus"
304.     names(110) = "Nihal"
305.     names(111) = "Nunki"
306.     names(112) = "Ogma"
307.     names(113) = "Okab"
308.     names(114) = "Ohmy"
309.     names(115) = "Oragami"
310.     names(116) = "Origen"
311.     names(117) = "Omanii"
312.     names(118) = "Obytewa"
313.     names(119) = "Oglok"
314.     names(120) = "Phact"
315.     names(121) = "Pherkad"
316.     names(122) = "Pleione"
317.     names(122) = "Polaris"
318.     names(123) = "Pollux"
319.     names(124) = "Procyon"
320.     names(125) = "Proxima"
321.     names(126) = "Polis"
322.     names(127) = "Quaint"
323.     names(128) = "Quazzat"
324.     names(129) = "Quetzal"
325.     names(130) = "Qussol"
326.     names(131) = "Quella"
327.     names(132) = "Quyaeo"
328.     names(133) = "Ququdas"
329.     names(134) = "Quekak"
330.     names(135) = "Rasalas"
331.     names(136) = "Regor"
332.     names(137) = "Regulus"
333.     names(138) = "Rigel"
334.     names(139) = "Revati"
335.     names(140) = "Rotenev"
336.     names(141) = "Rukbat"
337.     names(142) = "Rastaban"
338.     names(143) = "Sabik"
339.     names(144) = "Sadr"
340.     names(145) = "Saiph"
341.     names(146) = "Sargas"
342.     names(147) = "Sarin"
343.     names(148) = "Syrma"
344.     names(149) = "Spica"
345.     names(150) = "Sirius"
346.     names(151) = "Tarazed"
347.     names(152) = "Taygeta"
348.     names(153) = "Tejat"
349.     names(154) = "Thabit"
350.     names(155) = "Thuban"
351.     names(156) = "Tiaki"
352.     names(157) = "Toliman"
353.     names(158) = "Torcular"
354.     names(157) = "Umala"
355.     names(158) = "Ulatte"
356.     names(159) = "Ubbessa"
357.     names(160) = "Unoless"
358.     names(161) = "Umaddem"
359.     names(162) = "Ummbra"
360.     names(162) = "Uniqu"
361.     names(163) = "Uzzaal"
362.     names(164) = "Vega"
363.     names(165) = "Veritate"
364.     names(166) = "Vindetrix"
365.     names(167) = "Vedas"
366.     names(168) = "Vergg"
367.     names(169) = "Vacant"
368.     names(170) = "Vucae"
369.     names(171) = "Vicar"
370.     names(172) = "Wasat"
371.     names(173) = "Wazn"
372.     names(174) = "Wezen"
373.     names(175) = "Waiten"
374.     names(176) = "Wachar"
375.     names(177) = "Wheelz"
376.     names(178) = "Whatsp"
377.     names(179) = "Wassand"
378.     names(180) = "Xenno"
379.     names(181) = "Xyphod"
380.     names(182) = "Xu"
381.     names(183) = "Xaal"
382.     names(184) = "Xyross"
383.     names(185) = "Xiggot"
384.     names(186) = "Xirrks"
385.     names(187) = "Yed"
386.     names(188) = "Yildun"
387.     names(189) = "yundun"
388.     names(190) = "Yavyo"
389.     names(191) = "Yotrac"
390.     names(192) = "Yxzoqu"
391.     names(193) = "Ynnot"
392.     names(194) = "Zaniah"
393.     names(195) = "Zaurak"
394.     names(196) = "Zhang"
395.     names(197) = "Zibal"
396.     names(198) = "Zosma"
397.     names(199) = "Zuben"
398. END SUB
399.  
400.  
401.  

[Richard]

Regarding:-

"Does this work on 2k and 4k displays and is the scaling okay?"

I do not know if the following is helpful for you but :-

I ran your program (without any changes what so ever) on my laptop which has 3200 x 1800 display and took a Windows 10 screenshot (attached as 1-3200x1800...)

I then imported this screenshot into Windows Paint and viewed at 800% (maximum), took a screenshot (attached as 2-3200x1800...).

I also imported the original screenshot into Windows Paint3D and viewed at 6400% (maximum), took a screenshot (attached as 3-3200x1800...)

And finally imported the screenshot above (i.e. 3-3200x1800...) into Paint and viewed at 800% (maximum), took a screenshot (attached as 4-3200x1800...)

Windows Paint allowed pixel coordinates of cursor and grid lines - however Windows Paint3D does not (and is a real pain to use because of this).

My display (3200x1800) is classified as 3k (by some) and in every QB64 graphics application I have wrote etc - I DO NOT GET THE FULL DISPLAY RESOLUTION ( I only seem to get 1600x900 - i.e. all pixels instead of being 1x1 become 2x2 - and alternate pixels are not displayed (in x or y positioning).

As far as I can tell (at this stage) the display electronically appears to be working correctly and when I view say File Explorer page with an actual 10x magnifying glass (not the silly Windows 10 magnifier which seems to optically distort the display image) it would seem to be okay - however it is difficult to find anything that is actually only 1 pixel wide (say) so I cannot confirm if pixels are preserved as 1x1 or that they are converted to 2x2 (which kind of defeats the purpose of having a higher resolution display).

Previously (Page 7 of Discussion) I started a post "3200 x 1800 display problem" which you may want to read. I am still trying to sort out my problem.

In summary, I do not get 1x1 pixel resolution (I get 2x2 pixel resolution) and I may be missing 75% of the "pin point stars" (if they are unlucky to be located on the alternate x and y coordinate positions).

I would be happy to re-run your program if you (slightly) rewrite it to directly access 3200 x 1800 display (as fullscreen) and if you cram various possibilities in say the very extreme top left hand corner (the easiest area for me to access using the silly painful Windows 10 Paint3d at 6400%) and throw in some fixed grid references (so actual pixel coordinates can be confirmed).

From all of above I assumed you were interested in the resolution capabilities of the display to your star maps.

Hope this may be of use to you.

[romichess]

Hi Richard,

Thanks for all the work. Much appreciation! While the game is being developed on a 1080p system it does not set up the graphics for anything other than the native resolution of the users system. The only thing the scaling does is decide how big to draw the circles. The x and y coordinates use the full native range of the users system. That means that when the program starts on your 3200 x 1800 system if that really is the true _DESKTOPWIDTH and _DESKTOPHEIGHT of your monitor as it appears to be because it appears to look and scale correctly.

One thing to consider is the graphics adapter in your system. If it is set to 1600 x 900 it will double the pixel x and y dimensions to fill the monitor. I have seen that problem before. A friend had a monitor with a higher resolution than his graphics card would do. Just some thoughts.

Anyway, thanks again!

 

[romichess]

It took a while to wade through all the information and to find the right combination to do exactly what was needed. And of course there was a couple of hours of frustration trying to figure out what I was doing wrong and why it would not work correctly. However, it works now, yay! The panel is up and working and the star name is on the panel. Next I have to figure out fonts and font sizing. And add a bit more functionality to the panel.

Code: QB64: [Select]

1. TYPE stars
2.     n AS STRING * 10 '                 Name of star
3.     x AS INTEGER '                     x-position
4.     y AS INTEGER '                     y-position
5.     o AS INTEGER '                     Owner
6.     c AS INTEGER '                     Color
7.     s AS INTEGER '                     Size
8.     t AS INTEGER '                     Type of planetary system; terran, frozen, radiated, toxic, etc.
9.     p AS INTEGER '                     Population
10. END TYPE
11.  
12. DECLARE SUB NewGame
13. DECLARE SUB PaintStars
14. DECLARE SUB StarNames
15. DECLARE SUB ShowPanel (i)
16. DECLARE SUB Identify (x, y)
17. DECLARE SUB PaintBackground
18.  
19. ' Global variables shared because they are needed in more than one routine
20. DIM SHARED sw AS INTEGER '             Screen Width
21. DIM SHARED sh AS INTEGER '             Screen Height
22. DIM SHARED sww AS INTEGER '            Screen Width Wide margin
23. DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
24. DIM SHARED shw AS INTEGER '            Screen Height Wide margine
25. DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
26. DIM SHARED nw AS INTEGER '             games Natural screen Width
27. DIM SHARED nh AS INTEGER '             games Natural screen Height
28. DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
29. DIM SHARED star(100) AS stars '        100 stars - may change
30. DIM SHARED names(200) AS STRING * 10 ' 200 star names
31. DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
32. DIM SHARED home(6) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
33.  
34. ' Simple variables
35. DIM x AS INTEGER
36. DIM y AS INTEGER
37. DIM repeat AS INTEGER '                Game loop control variable
38. DIM ch AS STRING * 1 '                 Game loop key input variable
39.  
40. repeat = 1
41.  
42. sw = _DESKTOPWIDTH '                   native video with of syatem
43. sww = sw / 24 '                        margin based on native video width to keep stars away from edge
44. swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
45. nw = 1920
46.  
47. ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
48.  
49. sh = _DESKTOPHEIGHT
50. shw = sh / 20
51. shn = sh / 40
52. nh = 1080
53.  
54. SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
55.  
56. _FULLSCREEN
57.  
58. StarNames '                            Routine to load star names into string array stars(200)
59.  
60. NewGame
61.  
62. WHILE repeat
63.  
64.     _LIMIT 60 '                        Set to 60 frames per second
65.  
66.     CLS
67.  
68.     WHILE _MOUSEINPUT: WEND '          Eat all the mice but keep last mouse to toy with
69.  
70.     x = _MOUSEX
71.     y = _MOUSEY
72.     mb = _MOUSEBUTTON(1)
73.  
74.     PaintBackground
75.  
76.     PaintStars
77.  
78.     Identify x, y '                    Identify star mouse is over if any
79.  
80.     _DISPLAY
81.  
82.     ch = INKEY$
83.     IF ch = CHR$(27) THEN repeat = 0
84.     IF ch = "n" THEN NewGame
85.     ch = ""
86.  
87. WEND
88.  
89. SYSTEM
90.  
91. SUB PaintBackground
92.     x = RND * sw
93.     y = RND * sh
94.     c = RND * 14 + 1
95.     PSET (x, y), c
96.     RANDOMIZE USING seed
97.     FOR i = 1 TO 600 * ratio
98.         x = RND * sw
99.         y = RND * sh
100.         c = RND * 14 + 1
101.         PSET (x, y), c
102.     NEXT
103. END SUB
104.  
105. SUB Identify (x, y)
106.     FOR i = 0 TO 99
107.         dx = star(i).x - x
108.         dy = star(i).y - y
109.         IF ABS(dx) <= star(i).s + 6 AND ABS(dy) <= star(i).s + 6 THEN
110.             ShowPanel i
111.         END IF
112.     NEXT
113. END SUB
114.  
115. SUB ShowPanel (i)
116.     DIM ps AS LONG
117.     DIM x AS INTEGER
118.     DIM y AS INTEGER
119.     x = star(i).x - 420 * ratio
120.     IF star(i).x < sw / 2 THEN x = star(i).x + 20
121.     y = star(i).y
122.     IF y > sh - 540 * ratio THEN y = sh - 540 * ratio
123.     ps = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
124.     _DEST ps
125.     CLS 0, 8
126.     PRINT star(i).n
127.     _PUTIMAGE (x, y), ps, 0, (0, 0)-(400 * ratio, 540 * ratio)
128.     _DEST 0
129. END SUB
130.  
131. SUB PaintStars
132.     RANDOMIZE TIMER
133.     FOR i = 0 TO 99
134.         c = star(i).c
135.         x = star(i).x
136.         y = star(i).y
137.         CIRCLE (x, y), (star(i).s + 6) * ratio, c
138.         IF star(i).o > 0 THEN
139.             PAINT (x, y), star(i).o + 8, c
140.         END IF
141.     NEXT
142. END SUB
143.  
144. SUB NewGame
145.     DIM k AS INTEGER
146.     DIM r AS INTEGER
147.     DIM dx AS INTEGER
148.     DIM dy AS INTEGER
149.     DIM n AS STRING * 10
150.     RANDOMIZE TIMER
151.     seed = RND * 1000
152.     star(0).n = "Sol"
153.     star(0).x = RND * (sw - sww) + swn
154.     star(0).y = RND * (sh - shw) + shn
155.     star(0).c = 14
156.     star(0).s = 3
157.     star(0).o = 1
158.     home(0) = 0
159.     FOR i = 1 TO 99
160.         k = 1
161.         WHILE k
162.             k = 0
163.             x = RND * (sw - sww) + swn
164.             y = RND * (sh - shw) + shn
165.             r = INT(RND * 200)
166.             n = names(r)
167.             FOR j = 0 TO i - 1
168.                 dx = x - star(j).x
169.                 dy = y - star(j).y
170.                 IF ABS(dx) < sww AND ABS(dy) < shw THEN
171.                     k = 1
172.                 END IF
173.                 IF n = star(j).n THEN
174.                     k = 1
175.                 END IF
176.             NEXT
177.         WEND
178.         star(i).n = n
179.         star(i).x = x
180.         star(i).y = y
181.         star(i).c = RND * 7 + 9
182.         star(i).s = RND * 5
183.         star(i).o = 0
184.     NEXT
185.     FOR i = 2 TO 6
186.         k = 1
187.         WHILE k
188.             k = 0
189.             r = RND * 100
190.             FOR j = 1 TO i - 1
191.                 IF r = home(j) THEN k = 1
192.                 x = star(0).x
193.                 y = star(0).y
194.                 dx = ABS(star(r).x - x)
195.                 dy = ABS(star(r).y - y)
196.                 IF dx < sw / 4 AND dy < sh / 4 THEN k = 1
197.             NEXT
198.         WEND
199.         home(i) = r
200.         star(r).o = i
201.     NEXT
202. END SUB
203.  
204. ' A lot of star names I made up
205.  
206. SUB StarNames
207.     names(0) = "Acamar"
208.     names(1) = "Arcab"
209.     names(2) = "Acrux"
210.     names(3) = "Adhara"
211.     names(4) = "Arneb"
212.     names(5) = "Antares"
213.     names(6) = "Arcturus"
214.     names(7) = "Atria"
215.     names(8) = "Beid"
216.     names(9) = "Betelgeuse"
217.     names(10) = "Botein"
218.     names(11) = "Beemim"
219.     names(12) = "Bellatrix"
220.     names(13) = "Bharani"
221.     names(14) = "Biham"
222.     names(15) = "Brachium"
223.     names(16) = "Canopus"
224.     names(17) = "Capella"
225.     names(18) = "Castor"
226.     names(19) = "Chara"
227.     names(20) = "Cursa"
228.     names(21) = "Copernicus"
229.     names(22) = "Chalawan"
230.     names(23) = "Chertan"
231.     names(24) = "Dabih"
232.     names(25) = "Dalim"
233.     names(26) = "Deneb"
234.     names(27) = "Denebola"
235.     names(28) = "Diadem"
236.     names(29) = "Diphda"
237.     names(30) = "Dschubba"
238.     names(31) = "Dziban"
239.     names(32) = "Edasich"
240.     names(33) = "Electra"
241.     names(34) = "Elgafar"
242.     names(35) = "Elkurud"
243.     names(36) = "Elnath"
244.     names(37) = "Eltanin"
245.     names(38) = "Enif"
246.     names(39) = "Errai"
247.     names(40) = "Fafnir"
248.     names(41) = "Fang"
249.     names(42) = "Fawaris"
250.     names(43) = "Felis"
251.     names(44) = "Fomalhaut"
252.     names(45) = "Fulu"
253.     names(46) = "Fumal"
254.     names(47) = "Furud"
255.     names(48) = "Garnet"
256.     names(49) = "Giausar"
257.     names(50) = "Gienah"
258.     names(51) = "Ginan"
259.     names(52) = "Gomeisa"
260.     names(53) = "Graffias"
261.     names(54) = "Grumium"
262.     names(55) = "Gudja"
263.     names(56) = "Hadar"
264.     names(57) = "Haedus"
265.     names(58) = "Hamal"
266.     names(59) = "Hassaleh"
267.     names(60) = "Hatysa"
268.     names(61) = "Helvetios"
269.     names(62) = "Heze"
270.     names(63) = "Homan"
271.     names(64) = "Iklil"
272.     names(65) = "Imai"
273.     names(66) = "Intercrus"
274.     names(67) = "Izar"
275.     names(68) = "Iccar"
276.     names(69) = "Inar"
277.     names(70) = "Iaeth"
278.     names(71) = "Imaous"
279.     names(72) = "Jabbah"
280.     names(73) = "Jishui"
281.     names(74) = "Jax"
282.     names(75) = "Jalae"
283.     names(76) = "Jewel"
284.     names(77) = "Jumbo"
285.     names(78) = "Jerue"
286.     names(79) = "Jabear"
287.     names(80) = "Kakkab"
288.     names(81) = "Kang"
289.     names(82) = "Kekouan"
290.     names(83) = "Keid"
291.     names(84) = "Kitalpha"
292.     names(85) = "Kochab"
293.     names(86) = "Kolob"
294.     names(87) = "Kobol"
295.     names(88) = "Larawag"
296.     names(89) = "Lesath"
297.     names(90) = "Libertas"
298.     names(91) = "Lich"
299.     names(92) = "Lilly"
300.     names(93) = "Laddel"
301.     names(94) = "Luminous"
302.     names(95) = "Lasacious"
303.     names(96) = "Mizar"
304.     names(97) = "Markab"
305.     names(98) = "Matar"
306.     names(99) = "Mintaka"
307.     names(100) = "Meleph"
308.     names(101) = "Menkar"
309.     names(102) = "Merga"
310.     names(103) = "Merope"
311.     names(104) = "Nahn"
312.     names(105) = "Naos"
313.     names(106) = "Nashira"
314.     names(107) = "Navi"
315.     names(108) = "Nekkar"
316.     names(109) = "Nembus"
317.     names(110) = "Nihal"
318.     names(111) = "Nunki"
319.     names(112) = "Ogma"
320.     names(113) = "Okab"
321.     names(114) = "Ohmy"
322.     names(115) = "Oragami"
323.     names(116) = "Origen"
324.     names(117) = "Omanii"
325.     names(118) = "Obytewa"
326.     names(119) = "Oglok"
327.     names(120) = "Phact"
328.     names(121) = "Pherkad"
329.     names(122) = "Pleione"
330.     names(122) = "Polaris"
331.     names(123) = "Pollux"
332.     names(124) = "Procyon"
333.     names(125) = "Proxima"
334.     names(126) = "Polis"
335.     names(127) = "Quaint"
336.     names(128) = "Quazzat"
337.     names(129) = "Quetzal"
338.     names(130) = "Qussol"
339.     names(131) = "Quella"
340.     names(132) = "Quyaeo"
341.     names(133) = "Ququdas"
342.     names(134) = "Quekak"
343.     names(135) = "Rasalas"
344.     names(136) = "Regor"
345.     names(137) = "Regulus"
346.     names(138) = "Rigel"
347.     names(139) = "Revati"
348.     names(140) = "Rotenev"
349.     names(141) = "Rukbat"
350.     names(142) = "Rastaban"
351.     names(143) = "Sabik"
352.     names(144) = "Sadr"
353.     names(145) = "Saiph"
354.     names(146) = "Sargas"
355.     names(147) = "Sarin"
356.     names(148) = "Syrma"
357.     names(149) = "Spica"
358.     names(150) = "Sirius"
359.     names(151) = "Tarazed"
360.     names(152) = "Taygeta"
361.     names(153) = "Tejat"
362.     names(154) = "Thabit"
363.     names(155) = "Thuban"
364.     names(156) = "Tiaki"
365.     names(157) = "Toliman"
366.     names(158) = "Torcular"
367.     names(157) = "Umala"
368.     names(158) = "Ulatte"
369.     names(159) = "Ubbessa"
370.     names(160) = "Unoless"
371.     names(161) = "Umaddem"
372.     names(162) = "Ummbra"
373.     names(162) = "Uniqu"
374.     names(163) = "Uzzaal"
375.     names(164) = "Vega"
376.     names(165) = "Veritate"
377.     names(166) = "Vindetrix"
378.     names(167) = "Vedas"
379.     names(168) = "Vergg"
380.     names(169) = "Vacant"
381.     names(170) = "Vucae"
382.     names(171) = "Vicar"
383.     names(172) = "Wasat"
384.     names(173) = "Wazn"
385.     names(174) = "Wezen"
386.     names(175) = "Waiten"
387.     names(176) = "Wachar"
388.     names(177) = "Wheelz"
389.     names(178) = "Whatsp"
390.     names(179) = "Wassand"
391.     names(180) = "Xenno"
392.     names(181) = "Xyphod"
393.     names(182) = "Xu"
394.     names(183) = "Xaal"
395.     names(184) = "Xyross"
396.     names(185) = "Xiggot"
397.     names(186) = "Xirrks"
398.     names(187) = "Yed"
399.     names(188) = "Yildun"
400.     names(189) = "yundun"
401.     names(190) = "Yavyo"
402.     names(191) = "Yotrac"
403.     names(192) = "Yxzoqu"
404.     names(193) = "Ynnot"
405.     names(194) = "Zaniah"
406.     names(195) = "Zaurak"
407.     names(196) = "Zhang"
408.     names(197) = "Zibal"
409.     names(198) = "Zosma"
410.     names(199) = "Zuben"
411. END SUB
412.  

[SierraKen]

Interesting start of a space simulator game you got there. I've thought of similar things. Back in the 80's I had a store-bought game that let you fly to different planets on my Apple 2e compatible computer. I see you mention GUI's a bit. I don't know if you know, but QB64 does have a GUI add-on if you want to use it. It's called InForm and it's on the main page or directly here: https://www.qb64.org/inform/ I'm just starting out on that myself and I've used QB64 for almost half a year now. There's also a forum area for that as well here: https://www.qb64.org/forum/index.php?board=13.0 with some examples. There's some examples and info on the download page as well.
That's really awesome you made a Chess game. I've never programmed something that intense, but recently I made a Tic-Tac-Toe game against the computer. My website so far has 33 examples of QB64 programs and games if you want to check it out, here: http://www.KensPrograms.com/ Most of them you copy/paste the .txt files to your own QB64 language. That URL is also below on all my forum posts.
I've been using this forum here since I started QB64 in the Summer and there's a lot of great helpers here if you need anything. I've learned that screen size matters a lot if you make specified window sizes. I have my Brick Smasher game on my website that uses _FULLSCREEN which you can check out too. I've seen that people rarely use FULLSCREEN on this forum though, probably because of the ease to turn off a game by clicking X and also the fact that you can use the _TITLE command anywhere in your program to add and change the name of that window in the bar above. Anyway, I won't talk here forever but if you need help or have any questions, please ask. By the way, since I'm an old school programmer from the 80's, I don't usually do a lot of what everyone else does, like DIM all of the variables and use SUB's. Although I am slowly learning I think. 

[SierraKen]

I just tried your second post with the panels, great job! If you want to add text to any graphic coordinate area, I would use _PRINTSTRING which can be found here: https://qb64.org/wiki/PRINTSTRING

[romichess]

I just tried your second post with the panels, great job! If you want to add text to any graphic coordinate area, I would use _PRINTSTRING which can be found here: https://qb64.org/wiki/PRINTSTRING

Oh wow! Thank you for the information, kind words and encouragement. I too am torn about all the DIM's. I find myself getting lazy and not using them everywhere. In C it is mandatory practice. C is strongly type checked which prevents tricky bugs that are hard to find. I think that my philosophy if I were writing a compiler is that INTEGERS never need DIM and everything else does. Thank you for the invite to ask questions. I will surely take advantage of that offer when I get stuck! :))

[OldMoses]

For printing text in graphics areas, there is one that Petr made that I use frequently in my projects. It's quite versatile for spacing, both horizontal and vertical, as well as resizing. Thought you might find it interesting.

He posted the code here.
https://www.qb64.org/forum/index.php?topic=498.msg3458#msg3458

[romichess]

For printing text in graphics areas, there is one that Petr made that I use frequently in my projects. It's quite versatile for spacing, both horizontal and vertical, as well as resizing. Thought you might find it interesting.

He posted the code here.
https://www.qb64.org/forum/index.php?topic=498.msg3458#msg3458

Yes! Very helpful link. Thank you.

[bplus]

I am kind of curious, for a new QB64 program why limit yourself to 256 color system? why not 32 bit color system 16 million colors with Alpha transparencies.

[romichess]

I am kind of curious, for a new QB64 program why limit yourself to 256 color system? why not 32 bit color system 16 million colors with Alpha transparencies.

Fair question! It is because I am a new QB64 programmer and 32 bit color adds a level of complexity. Also this is just a rough draft, proof of concept, build and 256 colors is more than enough. And to be honest I do not see this program ever needing more than 256 colors. And I already know how to do pallette cycling animations.

[romichess]

Some rather nice progress showing better how the GUI will work. Also pressing 't' will toggle the star names on and off underneath the stars. Now when a star is clicked the panel will stay on the screen. Clicking inside the panel will call the ProcessPanel routine. Nothing happens yet except the panel remains on screen. Clicking anywhere else and the panel will close. Next a right click anywhere will be added that brings up a game panel for loading, saving, quitting, etc.
 
Once I get the GUI portion complete to the point that I understand all the necessities of the system I'll being doing a rewrite using longer variable names and a cleaner design. Please let me know what you think of "the feel" of the interface. Suggestions welcomed!

Code: QB64: [Select]

1. TYPE stars
2.     n AS STRING * 10 '                 Name of star
3.     x AS INTEGER '                     x-position
4.     y AS INTEGER '                     y-position
5.     o AS INTEGER '                     Owner
6.     c AS INTEGER '                     Color
7.     s AS INTEGER '                     Size
8.     t AS INTEGER '                     Type of planetary system; terran, frozen, radiated, toxic, etc.
9.     p AS INTEGER '                     Population
10. END TYPE
11.  
12. DECLARE SUB NewGame
13. DECLARE SUB PaintStars
14. DECLARE SUB StarNames
15. DECLARE SUB ShowPanel (i)
16. DECLARE SUB Identify (x, y)
17. DECLARE SUB PaintBackground
18. DECLARE SUB GetInput
19.  
20. ' Global variables shared because they are needed in more than one routine
21. DIM SHARED sw AS INTEGER '             Screen Width
22. DIM SHARED sh AS INTEGER '             Screen Height
23. DIM SHARED sww AS INTEGER '            Screen Width Wide margin
24. DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
25. DIM SHARED shw AS INTEGER '            Screen Height Wide margine
26. DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
27. DIM SHARED nw AS INTEGER '             games Natural screen Width
28. DIM SHARED nh AS INTEGER '             games Natural screen Height
29. DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
30. DIM SHARED star(100) AS stars '        100 stars - may change
31. DIM SHARED names(200) AS STRING * 10 ' 200 star names
32. DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
33. DIM SHARED home(6) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
34. DIM SHARED f1 AS LONG '                Font 1
35. DIM SHARED tt AS INTEGER '             tt = 0 star names displayed, tt = 0 star names not didplayed
36. DIM SHARED x AS INTEGER
37. DIM SHARED y AS INTEGER
38. DIM SHARED cx AS INTEGER
39. DIM SHARED cy AS INTEGER
40. DIM SHARED cp AS INTEGER
41. DIM SHARED ps AS LONG
42. DIM SHARED clk AS LONG
43. DIM SHARED h AS INTEGER
44. DIM SHARED ar AS INTEGER
45. DIM SHARED ax AS INTEGER
46. DIM SHARED x1 AS INTEGER
47. DIM SHARED y1 AS INTEGER
48. DIM SHARED x2 AS INTEGER
49. DIM SHARED y2 AS INTEGER
50. DIM SHARED ch AS STRING * 1 '                 Game loop key input variable
51. DIM SHARED repeat AS INTEGER '                Game loop control variable
52.  
53. repeat = 1
54.  
55.  
56. sw = _DESKTOPWIDTH '                   native video with of syatem
57. sww = sw / 24 '                        margin based on native video width to keep stars away from edge
58. swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
59. nw = 1920
60.  
61. ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
62.  
63. sh = _DESKTOPHEIGHT
64. shw = sh / 20
65. shn = sh / 40
66. nh = 1080
67.  
68. tt = 0
69. cx = sw
70. cp = 100
71. h = 100
72. ar = 0
73.  
74. SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
75.  
76. _FULLSCREEN
77.  
78. f1 = _LOADFONT("C:\Windows\Fonts\Ebrima.ttf", 12, "BOLD")
79.  
80. ps = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
81.  
82. StarNames '                            Routine to load star names into string array stars(200)
83.  
84. NewGame
85.  
86. WHILE repeat
87.  
88.     _LIMIT 60 '                        Set to 60 frames per second
89.  
90.     CLS
91.  
92.     PaintBackground
93.  
94.     PaintStars
95.  
96.     GetInput
97.  
98.     Identify x, y '                    Identify star mouse is over if any
99.  
100.     _DISPLAY
101.  
102. WEND
103.  
104. SYSTEM
105.  
106. SUB GetInput
107.     WHILE _MOUSEINPUT: WEND '          Eat all the mice but keep last mouse to toy with
108.  
109.     x = _MOUSEX
110.     y = _MOUSEY
111.     mb = _MOUSEBUTTON(1)
112.     clk = 0
113.  
114.     IF mb = -1 AND cx = sw THEN
115.         cx = x
116.         cy = y
117.     END IF
118.  
119.     IF mb = 0 AND cx < sw THEN
120.         IF ABS(x - cx) < 4 AND ABS(y - cy) < 4 THEN
121.             clk = 1
122.         END IF
123.         cx = sw
124.     END IF
125.  
126.     ch = INKEY$
127.     IF ch = CHR$(27) THEN repeat = 0
128.     IF ch = "n" THEN NewGame
129.     IF ch = "t" THEN tt = 1 - tt
130.     ch = ""
131.  
132. END SUB
133.  
134. SUB PaintBackground
135.     RANDOMIZE TIMER
136.     x = RND * sw
137.     y = RND * sh
138.     c = RND * 14 + 1
139.     PSET (x, y), c
140.     RANDOMIZE USING seed
141.     FOR i = 1 TO 600 * ratio
142.         x = RND * sw
143.         y = RND * sh
144.         c = RND * 14 + 1
145.         PSET (x, y), c
146.     NEXT
147. END SUB
148.  
149. SUB ProcessPanel
150.  
151. END SUB
152.  
153. SUB Identify (x, y)
154.     IF ar = 1 THEN
155.         ShowPanel h
156.         IF clk THEN
157.             IF x >= x1 AND x <= x2 AND y >= y1 AND y <= y2 THEN
158.                 ProcessPanel
159.             ELSE
160.                 ar = 0
161.             END IF
162.         END IF
163.     END IF
164.     IF ar = 0 THEN
165.         FOR i = 0 TO 99
166.             dx = star(i).x - x
167.             dy = star(i).y - y
168.             IF ABS(dx) <= star(i).s + 6 AND ABS(dy) <= star(i).s + 6 THEN
169.                 ShowPanel i
170.                 IF clk THEN
171.                     clk = 0
172.                     h = i
173.                     ar = 1
174.                     ax = x
175.                 END IF
176.             END IF
177.         NEXT
178.     END IF
179. END SUB
180.  
181. SUB ShowPanel (i)
182.     DIM x AS INTEGER
183.     DIM y AS INTEGER
184.     x1 = star(i).x - 420 * ratio
185.     IF star(i).x < sw / 2 THEN x1 = star(i).x + 20
186.     x2 = x1 + 400 * ratio
187.     y1 = star(i).y
188.     IF y1 > sh - 560 * ratio THEN y1 = sh - 560 * ratio
189.     y2 = y1 + 540 * ratio
190.     _DEST ps
191.     CLS 0, 8
192.     PRINT star(i).n
193.     _PUTIMAGE (x1, y1), ps, 0, (0, 0)-(400 * ratio, 540 * ratio)
194.     _DEST 0
195. END SUB
196.  
197. SUB PaintStars
198.     FOR i = 0 TO 99
199.         c = star(i).c
200.         x = star(i).x
201.         y = star(i).y
202.         o = star(i).o
203.         CIRCLE (x, y), (star(i).s + 6) * ratio, c
204.         COLOR 15
205.         IF o > 0 THEN
206.             PAINT (x, y), o + 8, c
207.             COLOR o + 8
208.         END IF
209.         IF tt THEN
210.             _FONT f1
211.             _PRINTSTRING (x - 10, y + 12), star(i).n, 0
212.         END IF
213.     NEXT
214. END SUB
215.  
216. SUB NewGame
217.     DIM k AS INTEGER
218.     DIM r AS INTEGER
219.     DIM dx AS INTEGER
220.     DIM dy AS INTEGER
221.     DIM n AS STRING * 10
222.     RANDOMIZE TIMER
223.     seed = RND * 1000
224.     star(0).n = "Sol"
225.     star(0).x = RND * (sw - sww) + swn
226.     star(0).y = RND * (sh - shw) + shn
227.     star(0).c = 14
228.     star(0).s = 3
229.     star(0).o = 1
230.     home(0) = 0
231.     FOR i = 1 TO 99
232.         k = 1
233.         WHILE k
234.             k = 0
235.             x = RND * (sw - sww) + swn
236.             y = RND * (sh - shw) + shn
237.             r = INT(RND * 200)
238.             n = names(r)
239.             FOR j = 0 TO i - 1
240.                 dx = x - star(j).x
241.                 dy = y - star(j).y
242.                 IF ABS(dx) < sww AND ABS(dy) < shw THEN
243.                     k = 1
244.                 END IF
245.                 IF n = star(j).n THEN
246.                     k = 1
247.                 END IF
248.             NEXT
249.         WEND
250.         star(i).n = n
251.         star(i).x = x
252.         star(i).y = y
253.         star(i).c = RND * 6 + 9
254.         star(i).s = RND * 5
255.         star(i).o = 0
256.     NEXT
257.     FOR i = 2 TO 6
258.         k = 1
259.         WHILE k
260.             k = 0
261.             r = RND * 100
262.             FOR j = 1 TO i - 1
263.                 IF r = home(j) THEN k = 1
264.                 x = star(0).x
265.                 y = star(0).y
266.                 dx = ABS(star(r).x - x)
267.                 dy = ABS(star(r).y - y)
268.                 IF dx < sw / 4 AND dy < sh / 4 THEN k = 1
269.             NEXT
270.         WEND
271.         home(i) = r
272.         star(r).o = i
273.     NEXT
274. END SUB
275.  
276. ' A lot of star names I made up
277.  
278. SUB StarNames
279.     names(0) = "Acamar"
280.     names(1) = "Arcab"
281.     names(2) = "Acrux"
282.     names(3) = "Adhara"
283.     names(4) = "Arneb"
284.     names(5) = "Antares"
285.     names(6) = "Arcturus"
286.     names(7) = "Atria"
287.     names(8) = "Beid"
288.     names(9) = "Betelgeuse"
289.     names(10) = "Botein"
290.     names(11) = "Beemim"
291.     names(12) = "Bellatrix"
292.     names(13) = "Bharani"
293.     names(14) = "Biham"
294.     names(15) = "Brachium"
295.     names(16) = "Canopus"
296.     names(17) = "Capella"
297.     names(18) = "Castor"
298.     names(19) = "Chara"
299.     names(20) = "Cursa"
300.     names(21) = "Copernicus"
301.     names(22) = "Chalawan"
302.     names(23) = "Chertan"
303.     names(24) = "Dabih"
304.     names(25) = "Dalim"
305.     names(26) = "Deneb"
306.     names(27) = "Denebola"
307.     names(28) = "Diadem"
308.     names(29) = "Diphda"
309.     names(30) = "Dschubba"
310.     names(31) = "Dziban"
311.     names(32) = "Edasich"
312.     names(33) = "Electra"
313.     names(34) = "Elgafar"
314.     names(35) = "Elkurud"
315.     names(36) = "Elnath"
316.     names(37) = "Eltanin"
317.     names(38) = "Enif"
318.     names(39) = "Errai"
319.     names(40) = "Fafnir"
320.     names(41) = "Fang"
321.     names(42) = "Fawaris"
322.     names(43) = "Felis"
323.     names(44) = "Fomalhaut"
324.     names(45) = "Fulu"
325.     names(46) = "Fumal"
326.     names(47) = "Furud"
327.     names(48) = "Garnet"
328.     names(49) = "Giausar"
329.     names(50) = "Gienah"
330.     names(51) = "Ginan"
331.     names(52) = "Gomeisa"
332.     names(53) = "Graffias"
333.     names(54) = "Grumium"
334.     names(55) = "Gudja"
335.     names(56) = "Hadar"
336.     names(57) = "Haedus"
337.     names(58) = "Hamal"
338.     names(59) = "Hassaleh"
339.     names(60) = "Hatysa"
340.     names(61) = "Helvetios"
341.     names(62) = "Heze"
342.     names(63) = "Homan"
343.     names(64) = "Iklil"
344.     names(65) = "Imai"
345.     names(66) = "Intercrus"
346.     names(67) = "Izar"
347.     names(68) = "Iccar"
348.     names(69) = "Inar"
349.     names(70) = "Iaeth"
350.     names(71) = "Imaous"
351.     names(72) = "Jabbah"
352.     names(73) = "Jishui"
353.     names(74) = "Jax"
354.     names(75) = "Jalae"
355.     names(76) = "Jewel"
356.     names(77) = "Jumbo"
357.     names(78) = "Jerue"
358.     names(79) = "Jabear"
359.     names(80) = "Kakkab"
360.     names(81) = "Kang"
361.     names(82) = "Kekouan"
362.     names(83) = "Keid"
363.     names(84) = "Kitalpha"
364.     names(85) = "Kochab"
365.     names(86) = "Kolob"
366.     names(87) = "Kobol"
367.     names(88) = "Larawag"
368.     names(89) = "Lesath"
369.     names(90) = "Libertas"
370.     names(91) = "Lich"
371.     names(92) = "Lilly"
372.     names(93) = "Laddel"
373.     names(94) = "Luminous"
374.     names(95) = "Lasacious"
375.     names(96) = "Mizar"
376.     names(97) = "Markab"
377.     names(98) = "Matar"
378.     names(99) = "Mintaka"
379.     names(100) = "Meleph"
380.     names(101) = "Menkar"
381.     names(102) = "Merga"
382.     names(103) = "Merope"
383.     names(104) = "Nahn"
384.     names(105) = "Naos"
385.     names(106) = "Nashira"
386.     names(107) = "Navi"
387.     names(108) = "Nekkar"
388.     names(109) = "Nembus"
389.     names(110) = "Nihal"
390.     names(111) = "Nunki"
391.     names(112) = "Ogma"
392.     names(113) = "Okab"
393.     names(114) = "Ohmy"
394.     names(115) = "Oragami"
395.     names(116) = "Origen"
396.     names(117) = "Omanii"
397.     names(118) = "Obytewa"
398.     names(119) = "Oglok"
399.     names(120) = "Phact"
400.     names(121) = "Pherkad"
401.     names(122) = "Pleione"
402.     names(122) = "Polaris"
403.     names(123) = "Pollux"
404.     names(124) = "Procyon"
405.     names(125) = "Proxima"
406.     names(126) = "Polis"
407.     names(127) = "Quaint"
408.     names(128) = "Quazzat"
409.     names(129) = "Quetzal"
410.     names(130) = "Qussol"
411.     names(131) = "Quella"
412.     names(132) = "Quyaeo"
413.     names(133) = "Ququdas"
414.     names(134) = "Quekak"
415.     names(135) = "Rasalas"
416.     names(136) = "Regor"
417.     names(137) = "Regulus"
418.     names(138) = "Rigel"
419.     names(139) = "Revati"
420.     names(140) = "Rotenev"
421.     names(141) = "Rukbat"
422.     names(142) = "Rastaban"
423.     names(143) = "Sabik"
424.     names(144) = "Sadr"
425.     names(145) = "Saiph"
426.     names(146) = "Sargas"
427.     names(147) = "Sarin"
428.     names(148) = "Syrma"
429.     names(149) = "Spica"
430.     names(150) = "Sirius"
431.     names(151) = "Tarazed"
432.     names(152) = "Taygeta"
433.     names(153) = "Tejat"
434.     names(154) = "Thabit"
435.     names(155) = "Thuban"
436.     names(156) = "Tiaki"
437.     names(157) = "Toliman"
438.     names(158) = "Torcular"
439.     names(157) = "Umala"
440.     names(158) = "Ulatte"
441.     names(159) = "Ubbessa"
442.     names(160) = "Unoless"
443.     names(161) = "Umaddem"
444.     names(162) = "Ummbra"
445.     names(162) = "Uniqu"
446.     names(163) = "Uzzaal"
447.     names(164) = "Vega"
448.     names(165) = "Veritate"
449.     names(166) = "Vindetrix"
450.     names(167) = "Vedas"
451.     names(168) = "Vergg"
452.     names(169) = "Vacant"
453.     names(170) = "Vucae"
454.     names(171) = "Vicar"
455.     names(172) = "Wasat"
456.     names(173) = "Wazn"
457.     names(174) = "Wezen"
458.     names(175) = "Waiten"
459.     names(176) = "Wachar"
460.     names(177) = "Wheelz"
461.     names(178) = "Whatsp"
462.     names(179) = "Wassand"
463.     names(180) = "Xenno"
464.     names(181) = "Xyphod"
465.     names(182) = "Xu"
466.     names(183) = "Xaal"
467.     names(184) = "Xyross"
468.     names(185) = "Xiggot"
469.     names(186) = "Xirrks"
470.     names(187) = "Yed"
471.     names(188) = "Yildun"
472.     names(189) = "yundun"
473.     names(190) = "Yavyo"
474.     names(191) = "Yotrac"
475.     names(192) = "Yxzoqu"
476.     names(193) = "Ynnot"
477.     names(194) = "Zaniah"
478.     names(195) = "Zaurak"
479.     names(196) = "Zhang"
480.     names(197) = "Zibal"
481.     names(198) = "Zosma"
482.     names(199) = "Zuben"
483. END SUB
484.  

[romichess]

I forgot about the likely font issue. I'm using the Ebrima.ttf bold font because it is very easy to read. So if one does not have that font pressing 't' to toggle the star names won't work. I will fix that problem right now.

[romichess]

For this prototype version I'll just stick to the default font. It's not all that bad. :)

Code: QB64: [Select]

1. TYPE stars
2.     n AS STRING * 10 '                 Name of star
3.     x AS INTEGER '                     x-position
4.     y AS INTEGER '                     y-position
5.     o AS INTEGER '                     Owner
6.     c AS INTEGER '                     Color
7.     s AS INTEGER '                     Size
8.     t AS INTEGER '                     Type of planetary system; terran, frozen, radiated, toxic, etc.
9.     p AS INTEGER '                     Population
10. END TYPE
11.  
12. DECLARE SUB NewGame
13. DECLARE SUB PaintStars
14. DECLARE SUB StarNames
15. DECLARE SUB ShowPanel (i)
16. DECLARE SUB Identify (x, y)
17. DECLARE SUB PaintBackground
18. DECLARE SUB GetInput
19.  
20. ' Global variables shared because they are needed in more than one routine
21. DIM SHARED sw AS INTEGER '             Screen Width
22. DIM SHARED sh AS INTEGER '             Screen Height
23. DIM SHARED sww AS INTEGER '            Screen Width Wide margin
24. DIM SHARED swn AS INTEGER '            Screen Width Narrow adjustment
25. DIM SHARED shw AS INTEGER '            Screen Height Wide margine
26. DIM SHARED shn AS INTEGER '            Screen Height Narrow adjustment
27. DIM SHARED nw AS INTEGER '             games Natural screen Width
28. DIM SHARED nh AS INTEGER '             games Natural screen Height
29. DIM SHARED ratio AS _FLOAT '           the Ratio of the games natural screen width to the actual
30. DIM SHARED star(100) AS stars '        100 stars - may change
31. DIM SHARED names(200) AS STRING * 10 ' 200 star names
32. DIM SHARED seed AS INTEGER '           Seed to prime the Randomizer to display identical background each frame
33. DIM SHARED home(6) AS INTEGER '        The starting star for each player. The human always has star(0), Sol
34. DIM SHARED tt AS INTEGER '             tt = 0 star names displayed, tt = 0 star names not didplayed
35. DIM SHARED x AS INTEGER
36. DIM SHARED y AS INTEGER
37. DIM SHARED cx AS INTEGER
38. DIM SHARED cy AS INTEGER
39. DIM SHARED cp AS INTEGER
40. DIM SHARED ps AS LONG
41. DIM SHARED clk AS LONG
42. DIM SHARED h AS INTEGER
43. DIM SHARED ar AS INTEGER
44. DIM SHARED ax AS INTEGER
45. DIM SHARED x1 AS INTEGER
46. DIM SHARED y1 AS INTEGER
47. DIM SHARED x2 AS INTEGER
48. DIM SHARED y2 AS INTEGER
49. DIM SHARED ch AS STRING * 1 '                 Game loop key input variable
50. DIM SHARED repeat AS INTEGER '                Game loop control variable
51.  
52. repeat = 1
53.  
54.  
55. sw = _DESKTOPWIDTH '                   native video with of syatem
56. sww = sw / 24 '                        margin based on native video width to keep stars away from edge
57. swn = sw / 48 '                        adjustment that works with sww to keep stars away from left and top of screen
58. nw = 1920
59.  
60. ratio = sw / 1920 '                    Used to adjust distances and sizes for various screen modes
61.  
62. sh = _DESKTOPHEIGHT
63. shw = sh / 20
64. shn = sh / 40
65. nh = 1080
66.  
67. tt = 0
68. cx = sw
69. cp = 100
70. h = 100
71. ar = 0
72.  
73. SCREEN _NEWIMAGE(sw, sh, 256) '        creates a screen the resolution of the users native system
74.  
75. _FULLSCREEN
76.  
77. ps = _NEWIMAGE(400 * ratio, 540 * ratio, 256)
78.  
79. StarNames '                            Routine to load star names into string array stars(200)
80.  
81. NewGame
82.  
83. WHILE repeat
84.  
85.     _LIMIT 60 '                        Set to 60 frames per second
86.  
87.     CLS
88.  
89.     PaintBackground
90.  
91.     PaintStars
92.  
93.     GetInput
94.  
95.     Identify x, y '                    Identify star mouse is over if any
96.  
97.     _DISPLAY
98.  
99. WEND
100.  
101. SYSTEM
102.  
103. SUB GetInput
104.     WHILE _MOUSEINPUT: WEND '          Eat all the mice but keep last mouse to toy with
105.  
106.     x = _MOUSEX
107.     y = _MOUSEY
108.     mb = _MOUSEBUTTON(1)
109.     clk = 0
110.  
111.     IF mb = -1 AND cx = sw THEN
112.         cx = x
113.         cy = y
114.     END IF
115.  
116.     IF mb = 0 AND cx < sw THEN
117.         IF ABS(x - cx) < 4 AND ABS(y - cy) < 4 THEN
118.             clk = 1
119.         END IF
120.         cx = sw
121.     END IF
122.  
123.     ch = INKEY$
124.     IF ch = CHR$(27) THEN repeat = 0
125.     IF ch = "n" THEN NewGame
126.     IF ch = "t" THEN tt = 1 - tt
127.     ch = ""
128.  
129. END SUB
130.  
131. SUB PaintBackground
132.     RANDOMIZE TIMER
133.     x = RND * sw
134.     y = RND * sh
135.     c = RND * 14 + 1
136.     PSET (x, y), c
137.     RANDOMIZE USING seed
138.     FOR i = 1 TO 600 * ratio
139.         x = RND * sw
140.         y = RND * sh
141.         c = RND * 14 + 1
142.         PSET (x, y), c
143.     NEXT
144. END SUB
145.  
146. SUB ProcessPanel
147.  
148. END SUB
149.  
150. SUB Identify (x, y)
151.     IF ar = 1 THEN
152.         ShowPanel h
153.         IF clk THEN
154.             IF x >= x1 AND x <= x2 AND y >= y1 AND y <= y2 THEN
155.                 ProcessPanel
156.             ELSE
157.                 ar = 0
158.             END IF
159.         END IF
160.     END IF
161.     IF ar = 0 THEN
162.         FOR i = 0 TO 99
163.             dx = star(i).x - x
164.             dy = star(i).y - y
165.             IF ABS(dx) <= star(i).s + 6 AND ABS(dy) <= star(i).s + 6 THEN
166.                 ShowPanel i
167.                 IF clk THEN
168.                     clk = 0
169.                     h = i
170.                     ar = 1
171.                     ax = x
172.                 END IF
173.             END IF
174.         NEXT
175.     END IF
176. END SUB
177.  
178. SUB ShowPanel (i)
179.     DIM x AS INTEGER
180.     DIM y AS INTEGER
181.     x1 = star(i).x - 420 * ratio
182.     IF star(i).x < sw / 2 THEN x1 = star(i).x + 20
183.     x2 = x1 + 400 * ratio
184.     y1 = star(i).y
185.     IF y1 > sh - 560 * ratio THEN y1 = sh - 560 * ratio
186.     y2 = y1 + 540 * ratio
187.     _DEST ps
188.     CLS 0, 8
189.     PRINT star(i).n
190.     _PUTIMAGE (x1, y1), ps, 0, (0, 0)-(400 * ratio, 540 * ratio)
191.     _DEST 0
192. END SUB
193.  
194. SUB PaintStars
195.     FOR i = 0 TO 99
196.         c = star(i).c
197.         x = star(i).x
198.         y = star(i).y
199.         o = star(i).o
200.         CIRCLE (x, y), (star(i).s + 6) * ratio, c
201.         COLOR 15
202.         IF o > 0 THEN
203.             PAINT (x, y), o + 8, c
204.             COLOR o + 8
205.         END IF
206.         IF tt THEN
207.             _PRINTSTRING (x - 10, y + 12), star(i).n, 0
208.         END IF
209.     NEXT
210. END SUB
211.  
212. SUB NewGame
213.     DIM k AS INTEGER
214.     DIM r AS INTEGER
215.     DIM dx AS INTEGER
216.     DIM dy AS INTEGER
217.     DIM n AS STRING * 10
218.     RANDOMIZE TIMER
219.     seed = RND * 1000
220.     star(0).n = "Sol"
221.     star(0).x = RND * (sw - sww) + swn
222.     star(0).y = RND * (sh - shw) + shn
223.     star(0).c = 14
224.     star(0).s = 3
225.     star(0).o = 1
226.     home(0) = 0
227.     FOR i = 1 TO 99
228.         k = 1
229.         WHILE k
230.             k = 0
231.             x = RND * (sw - sww) + swn
232.             y = RND * (sh - shw) + shn
233.             r = INT(RND * 200)
234.             n = names(r)
235.             FOR j = 0 TO i - 1
236.                 dx = x - star(j).x
237.                 dy = y - star(j).y
238.                 IF ABS(dx) < sww AND ABS(dy) < shw THEN
239.                     k = 1
240.                 END IF
241.                 IF n = star(j).n THEN
242.                     k = 1
243.                 END IF
244.             NEXT
245.         WEND
246.         star(i).n = n
247.         star(i).x = x
248.         star(i).y = y
249.         star(i).c = RND * 6 + 9
250.         star(i).s = RND * 5
251.         star(i).o = 0
252.     NEXT
253.     FOR i = 2 TO 6
254.         k = 1
255.         WHILE k
256.             k = 0
257.             r = RND * 100
258.             FOR j = 1 TO i - 1
259.                 IF r = home(j) THEN k = 1
260.                 x = star(0).x
261.                 y = star(0).y
262.                 dx = ABS(star(r).x - x)
263.                 dy = ABS(star(r).y - y)
264.                 IF dx < sw / 4 AND dy < sh / 4 THEN k = 1
265.             NEXT
266.         WEND
267.         home(i) = r
268.         star(r).o = i
269.     NEXT
270. END SUB
271.  
272. ' A lot of star names I made up
273.  
274. SUB StarNames
275.     names(0) = "Acamar"
276.     names(1) = "Arcab"
277.     names(2) = "Acrux"
278.     names(3) = "Adhara"
279.     names(4) = "Arneb"
280.     names(5) = "Antares"
281.     names(6) = "Arcturus"
282.     names(7) = "Atria"
283.     names(8) = "Beid"
284.     names(9) = "Betelgeuse"
285.     names(10) = "Botein"
286.     names(11) = "Beemim"
287.     names(12) = "Bellatrix"
288.     names(13) = "Bharani"
289.     names(14) = "Biham"
290.     names(15) = "Brachium"
291.     names(16) = "Canopus"
292.     names(17) = "Capella"
293.     names(18) = "Castor"
294.     names(19) = "Chara"
295.     names(20) = "Cursa"
296.     names(21) = "Copernicus"
297.     names(22) = "Chalawan"
298.     names(23) = "Chertan"
299.     names(24) = "Dabih"
300.     names(25) = "Dalim"
301.     names(26) = "Deneb"
302.     names(27) = "Denebola"
303.     names(28) = "Diadem"
304.     names(29) = "Diphda"
305.     names(30) = "Dschubba"
306.     names(31) = "Dziban"
307.     names(32) = "Edasich"
308.     names(33) = "Electra"
309.     names(34) = "Elgafar"
310.     names(35) = "Elkurud"
311.     names(36) = "Elnath"
312.     names(37) = "Eltanin"
313.     names(38) = "Enif"
314.     names(39) = "Errai"
315.     names(40) = "Fafnir"
316.     names(41) = "Fang"
317.     names(42) = "Fawaris"
318.     names(43) = "Felis"
319.     names(44) = "Fomalhaut"
320.     names(45) = "Fulu"
321.     names(46) = "Fumal"
322.     names(47) = "Furud"
323.     names(48) = "Garnet"
324.     names(49) = "Giausar"
325.     names(50) = "Gienah"
326.     names(51) = "Ginan"
327.     names(52) = "Gomeisa"
328.     names(53) = "Graffias"
329.     names(54) = "Grumium"
330.     names(55) = "Gudja"
331.     names(56) = "Hadar"
332.     names(57) = "Haedus"
333.     names(58) = "Hamal"
334.     names(59) = "Hassaleh"
335.     names(60) = "Hatysa"
336.     names(61) = "Helvetios"
337.     names(62) = "Heze"
338.     names(63) = "Homan"
339.     names(64) = "Iklil"
340.     names(65) = "Imai"
341.     names(66) = "Intercrus"
342.     names(67) = "Izar"
343.     names(68) = "Iccar"
344.     names(69) = "Inar"
345.     names(70) = "Iaeth"
346.     names(71) = "Imaous"
347.     names(72) = "Jabbah"
348.     names(73) = "Jishui"
349.     names(74) = "Jax"
350.     names(75) = "Jalae"
351.     names(76) = "Jewel"
352.     names(77) = "Jumbo"
353.     names(78) = "Jerue"
354.     names(79) = "Jabear"
355.     names(80) = "Kakkab"
356.     names(81) = "Kang"
357.     names(82) = "Kekouan"
358.     names(83) = "Keid"
359.     names(84) = "Kitalpha"
360.     names(85) = "Kochab"
361.     names(86) = "Kolob"
362.     names(87) = "Kobol"
363.     names(88) = "Larawag"
364.     names(89) = "Lesath"
365.     names(90) = "Libertas"
366.     names(91) = "Lich"
367.     names(92) = "Lilly"
368.     names(93) = "Laddel"
369.     names(94) = "Luminous"
370.     names(95) = "Lasacious"
371.     names(96) = "Mizar"
372.     names(97) = "Markab"
373.     names(98) = "Matar"
374.     names(99) = "Mintaka"
375.     names(100) = "Meleph"
376.     names(101) = "Menkar"
377.     names(102) = "Merga"
378.     names(103) = "Merope"
379.     names(104) = "Nahn"
380.     names(105) = "Naos"
381.     names(106) = "Nashira"
382.     names(107) = "Navi"
383.     names(108) = "Nekkar"
384.     names(109) = "Nembus"
385.     names(110) = "Nihal"
386.     names(111) = "Nunki"
387.     names(112) = "Ogma"
388.     names(113) = "Okab"
389.     names(114) = "Ohmy"
390.     names(115) = "Oragami"
391.     names(116) = "Origen"
392.     names(117) = "Omanii"
393.     names(118) = "Obytewa"
394.     names(119) = "Oglok"
395.     names(120) = "Phact"
396.     names(121) = "Pherkad"
397.     names(122) = "Pleione"
398.     names(122) = "Polaris"
399.     names(123) = "Pollux"
400.     names(124) = "Procyon"
401.     names(125) = "Proxima"
402.     names(126) = "Polis"
403.     names(127) = "Quaint"
404.     names(128) = "Quazzat"
405.     names(129) = "Quetzal"
406.     names(130) = "Qussol"
407.     names(131) = "Quella"
408.     names(132) = "Quyaeo"
409.     names(133) = "Ququdas"
410.     names(134) = "Quekak"
411.     names(135) = "Rasalas"
412.     names(136) = "Regor"
413.     names(137) = "Regulus"
414.     names(138) = "Rigel"
415.     names(139) = "Revati"
416.     names(140) = "Rotenev"
417.     names(141) = "Rukbat"
418.     names(142) = "Rastaban"
419.     names(143) = "Sabik"
420.     names(144) = "Sadr"
421.     names(145) = "Saiph"
422.     names(146) = "Sargas"
423.     names(147) = "Sarin"
424.     names(148) = "Syrma"
425.     names(149) = "Spica"
426.     names(150) = "Sirius"
427.     names(151) = "Tarazed"
428.     names(152) = "Taygeta"
429.     names(153) = "Tejat"
430.     names(154) = "Thabit"
431.     names(155) = "Thuban"
432.     names(156) = "Tiaki"
433.     names(157) = "Toliman"
434.     names(158) = "Torcular"
435.     names(157) = "Umala"
436.     names(158) = "Ulatte"
437.     names(159) = "Ubbessa"
438.     names(160) = "Unoless"
439.     names(161) = "Umaddem"
440.     names(162) = "Ummbra"
441.     names(162) = "Uniqu"
442.     names(163) = "Uzzaal"
443.     names(164) = "Vega"
444.     names(165) = "Veritate"
445.     names(166) = "Vindetrix"
446.     names(167) = "Vedas"
447.     names(168) = "Vergg"
448.     names(169) = "Vacant"
449.     names(170) = "Vucae"
450.     names(171) = "Vicar"
451.     names(172) = "Wasat"
452.     names(173) = "Wazn"
453.     names(174) = "Wezen"
454.     names(175) = "Waiten"
455.     names(176) = "Wachar"
456.     names(177) = "Wheelz"
457.     names(178) = "Whatsp"
458.     names(179) = "Wassand"
459.     names(180) = "Xenno"
460.     names(181) = "Xyphod"
461.     names(182) = "Xu"
462.     names(183) = "Xaal"
463.     names(184) = "Xyross"
464.     names(185) = "Xiggot"
465.     names(186) = "Xirrks"
466.     names(187) = "Yed"
467.     names(188) = "Yildun"
468.     names(189) = "yundun"
469.     names(190) = "Yavyo"
470.     names(191) = "Yotrac"
471.     names(192) = "Yxzoqu"
472.     names(193) = "Ynnot"
473.     names(194) = "Zaniah"
474.     names(195) = "Zaurak"
475.     names(196) = "Zhang"
476.     names(197) = "Zibal"
477.     names(198) = "Zosma"
478.     names(199) = "Zuben"
479. END SUB
480.  
481.  
482.  
483.  

[bplus]

Hi Mike,

Quick tip, in Toolbox board there is a really nice circle fill routine you might want to pickup, first entry I think.