Competition

[Pete]

I helped shed light on the difference with how the SCREEN function cannot function as perfectly in graphics screens ass it does in screen 0. The ability to store the color and character in a graphics project requires mapping with a matrix. I made a graphics GUI using that approach. Maybe someday I'll see why it displayed correctly in the SDL version, but had a slight misalignment problem when we switched to GL.

So for this overlay idea, I took Steve's code and modified it a bit, to get a little bit closer to what I'm thinking about as a use.

Code: QB64: [Select]

1. $COLOR:32
2. Screen0 = _NEWIMAGE(80, 25, 0)
3. SCREEN Screen0
4.  
5. 'font = _LOADFONT("courbd.ttf", 48, "monospace")
6. 'IF font <= 0 THEN font = 16
7. '_FONT font
8.  
9. 'This is going to be the screen I use as an overlay.
10. Overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
11.  
12. COLOR 0, 7
13. FOR x = 1 TO 25
14.     LOCATE x, 1: PRINT STRING$(80, 176);
15. NEXT
16.  
17. 'Now the above is just Pete's background in Screen0.
18. 'Now I'm going to create the Overly
19.  
20. _DEST Overlay
21. COLOR MidnightBlue, 0
22. 'IF font <= 0 THEN font = 16
23. '_FONT font
24. text$ = "This is text wrote over the background"
25. _PRINTSTRING ((_WIDTH - _PRINTWIDTH(text$)) \ 2, _HEIGHT \ 2), text$
26.  
27. _DEST 0 'reset our dest back to the normal screen 0 screen
28.  
29. 'Turn our software overlay into a hardware image
30. Overlay_Hardware = _COPYIMAGE(Overlay, 33)
31.  
32. 'And then my impressive main program to toggle between showing and not
33. 'showing the overlay.
34. DO
35.     k = _KEYHIT
36.     IF k = 32 THEN Show_Overlay = NOT Show_Overlay
37.     IF Show_Overlay THEN _PUTIMAGE (0, 0), Overlay_Hardware
38.     _DISPLAY
39.     _LIMIT 30
40. LOOP UNTIL k = 27
41.  
42. SYSTEM
43.  

That's pretty cool how the overlay effect, using hardware imaging, does not disturb the screen 0 screen contents.

Pete

[bplus]

@Pete 

I found the stuff I was talking about and it turns out graphics screen using _PrintMode. But I think this game of yours might have you ready to grad-e-ate to graphics :) screen 12 might be a gentle transition. If you need to know what characters you have printed on screen you can keep am array to track. If you need to know if a chr$(32) or a chr$(255) then I have to ask why? ;-))

[Pete]

LOL @ "grad-e-ate" You used the term improperly, though. Every varmint knows ya sez, "Ain't ya grad-e-ate your breakfast!"

 - Sam

[jack]

Pete, there's a problem in line 350, illegal function call
the error happened in second wave about half way trough

[Pete]

That's the part where the aliens have landed.

        FOR i = j TO 1 STEP -1
            LOCATE , ialiencol + INSTR(a(i), CHR$(79)) - 2
            PRINT LTRIM$(RTRIM$(a(i)));
            LOCATE CSRLIN - 2
        NEXT

The error line:  LOCATE , ialiencol + INSTR(a(i), CHR$(79)) - 2

This may be some instance where the variable ialiencol = 2 and the INSTR() function is not detecting CHR$(79) in the array. That would make the equation 2 + 0 - 2, leaving a zero in the LOCATE statement, and thus the error. I'll have to run a few tests.

Can you recall how many alien ships (bats) were in the bottom row of the screen when it errored out?

Thanks,

Pete

[jack]

no, mayby less than half

[Pete]

Okay, fixed the bug Jack found and finished switching out the hardware overlay scoreboard.

https://www.qb64.org/forum/index.php?topic=4245.msg137017#msg137017

Pete

[bplus]

Hi @Pete

Assuming reply #102 in this thread is latest, I tested last night and this morning and am having a very hard time getting initials correct. It seems you have to hold alt key down to move letters at all and I am always going past letter stop by one and am getting farther and farther right having to backspace a bunch. At one point I swear the backspace never appears! Anyway result is always wrong or quit. Shouldn't it be press alt key one to move up letter one time? I press once and no move, again once and no move, I have to hold down for it to cycle letters. Just some feed back, luv everything else, the look of the High Score Dialog is great!

[Pete]

That's a really valid criticism of the enter your initials part. Okay, let's scrap that crap, and how about giving this a go...

Input routine demo only. Not the game. Tap the alt key to advance initials. Leave it unpressed for 2 seconds, and the initial showing will be automatically input. If you make a mistake, hold the Alt key down for a short time, and you can redo from start. It finishes when the last initial is input, and starts flashing your initials for 2.5 seconds. Press the Alt key anytime while initials flash to redo from start; otherwise, just wait until they stop flashing, and your initials are entered.

Oh, and for Mark, it will rerun after ending...
 

Code: QB64: [Select]

1. DIM SHARED rank: rank = 1
2. $COLOR:32
3. _SCREENMOVE _MIDDLE
4.  
5. DIM SHARED intro%: intro% = -1
6.  
7. skip_intro:
8. RANDOMIZE TIMER
9. DEFINT I
10. DIM SHARED Overlay, font
11. DIM SHARED lmargin%, rmargin%, topmargin%, screenwidth%, level, ibk, ileadingrow
12. DIM SHARED irow, icol, inextrnd, imaxalienmissiles, alienforce%, ileadingmax, imaxalienforce, ihits, score$
13.  
14. SCREEN 0, 0, 0, 0
15. swidth = _WIDTH
16.  
17. score$ = "000000"
18. imaxalienforce = 6
19. imaxalienmissiles = 3
20. lmargin% = 2
21. rmargin% = 79
22. topmargin% = 3
23. ialiencolstat = 6
24. iwin = 3 ' 3 Levels.
25. screenwidth% = rmargin% - lmargin% + 1
26. ibk = 0 ' Background color
27.  
28. DIM SHARED a(imaxalienforce) AS STRING * 68
29.  
30. 'fontpath$ = ENVIRON$("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path.
31. 'font& = _LOADFONT(fontpath$, 25, "monospace")
32. '_FONT font&
33.  
34. score$ = "069000": CALL displayhighscores: RUN
35.  
36. SUB displayhighscores
37.  
38.     COLOR 0, 3
39.     LOCATE 25, 68: PRINT "Score "; score$;
40.  
41.     DIM hs AS STRING * 25
42.     REDIM highscore$(6), hsdata$(6)
43.     DO
44.         ''' IF _FILEEXISTS("ascii-invaders-high-score.dat") THEN
45.         ''' OPEN "ascii-invaders-high-score.dat" FOR RANDOM AS #1 LEN = 25
46.         ''' FOR i = 1 TO 5
47.         ''' GET #1, i, hs
48.         ''' highscore$(i) = MID$(hs, 10, 6): hsdata$(i) = hs
49.         ''' NEXT
50.         ''' CLOSE #1
51.         ''' ELSE
52.         FOR i = 1 TO 5
53.             hsdata$(i) = SPACE$(25)
54.         NEXT
55.         ''' END IF
56.  
57.         IF VAL(score$) > VAL(highscore$(5)) THEN
58.  
59.             IF VAL(score$) > VAL(highscore$(1)) THEN
60.                 msg$ = " HIGH SCORE / Enter Your Initials! "
61.             ELSE
62.                 msg$ = " Top 5 Score. Enter Your Initials! "
63.             END IF
64.  
65.             GOSUB hiscore
66.  
67.             a = 14
68.             OUT &H3C8, 0
69.             OUT &H3C9, 20 - a
70.             OUT &H3C9, 20 - a
71.             OUT &H3C9, 20 - a
72.  
73.             OUT &H3C8, 8
74.             OUT &H3C9, 30 - a
75.             OUT &H3C9, 30 - a
76.             OUT &H3C9, 30 - a
77.  
78.             OUT &H3C8, 7
79.             OUT &H3C9, 30 - a
80.             OUT &H3C9, 30 - a
81.             OUT &H3C9, 30 - a
82.  
83.             OUT &H3C8, 3
84.             OUT &H3C9, 30 - a
85.             OUT &H3C9, 30 - a
86.             OUT &H3C9, 30 - a
87.  
88.             GOSUB hardware_overlay
89.  
90.             _FONT 16
91.  
92.             COLOR White, 0
93.             t$ = msg$
94.             PSLC 4.6, 41 - LEN(msg$) \ 2, t$
95.  
96.             font = _LOADFONT("lucon.ttf", 20, "monospace")
97.             IF font <= 0 THEN font = 16
98.             _FONT font
99.  
100.             DEF SEG = 0
101.             delay = .4
102.             lscr = 19
103.             z3 = TIMER
104.             DO
105.                 initials$ = "": i = 0: nxt = 0
106.                 COLOR , _RGB(24, 24, 24): t$ = "   " ' Blank initials for redo. Okay to blank at start.
107.                 PSL 5 + rank * 2, lscr, t$
108.                 _DISPLAY
109.                 DO
110.                     _LIMIT 60
111.                     IF ABS(z3 - TIMER) > .3 AND kflag > -2 THEN
112.                         underline 5 + rank * 2, lscr + nxt, 0
113.                         _DISPLAY
114.                         z3 = TIMER
115.                     END IF
116.  
117.                     SELECT CASE kflag
118.                         CASE 0
119.                             IF ABS(z1 - TIMER) > 1.5 AND i AND nxt < 3 THEN
120.                                 SOUND 1500, 1
121.                                 underline 5 + rank * 2, lscr + nxt, -1: uflag = 0
122.                                 _DISPLAY
123.                                 initials$ = initials$ + CHR$(64 + i)
124.                                 nxt = nxt + 1 ' Next initial
125.                                 i = 0 ' Reset alphabet.
126.                                 z1 = TIMER
127.                                 IF nxt = 3 THEN
128.                                     kflag = -2 ' All 3 initials have been input.
129.                                     underline 5 + rank * 2, lscr + nxt, -1: uflag = 0
130.                                     _DISPLAY
131.                                 END IF
132.                             END IF
133.  
134.                             IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
135.                                 kflag = -1 ' Alt key pressed.
136.                                 z1 = TIMER: z2 = TIMER
137.                                 i = i + 1: IF i > 26 THEN i = 1
138.                                 COLOR , _RGB(24, 24, 24): t$ = " "
139.                                 PSL 5 + rank * 2, lscr + nxt, t$
140.                                 COLOR DarkOrange: t$ = CHR$(64 + i)
141.                                 SOUND 1000, .1
142.                                 PSL 5 + rank * 2, lscr + nxt, t$
143.                                 underline 5 + rank * 2, lscr + nxt, 0
144.                                 _DISPLAY
145.                             END IF
146.                         CASE -1
147.                             IF ABS(z2 - TIMER) > 2 THEN ' Key down long enough to indicate redo input.
148.                                 IF nxt > 0 THEN ' Redo last initial input.
149.                                     SOUND 300, .5
150.                                     FOR nxt = 0 TO 3
151.                                         underline 5 + rank * 2, lscr + nxt, -1: uflag = 0
152.                                     NEXT
153.                                     nxt = 0: i = 0
154.                                     initials$ = ""
155.                                     COLOR , _RGB(24, 24, 24): t$ = "   "
156.                                     PSL 5 + rank * 2, lscr, t$
157.                                     _DISPLAY
158.                                     z1 = TIMER ' Reset enter timer.
159.                                 ELSE
160.                                     SOUND 300, .5
161.                                     i = 0
162.                                     COLOR , _RGB(24, 24, 24): t$ = " "
163.                                     PSL 5 + rank * 2, lscr, t$
164.                                     _DISPLAY
165.                                     z1 = TIMER ' Reset enter timer.
166.                                 END IF
167.                                 z2 = TIMER
168.                             END IF
169.  
170.                             IF PEEK(1047) MOD 16 <> 7 AND PEEK(1047) MOD 16 <> 8 THEN ' Alt key was released.
171.                                 kflag = 0 ' Alt key up
172.                                 z1 = TIMER
173.                             END IF
174.                         CASE -2 ' Finished. Initials will flash until confirmed by 2-second timer.
175.                             z1 = TIMER: z2 = TIMER
176.                             j = 0
177.                             DO
178.                                 IF ABS(z1 - TIMER) > .3 THEN j = -j - 1: z1 = TIMER
179.                                 IF j THEN
180.                                     COLOR DarkOrange: t$ = initials$
181.                                     PSL 5 + rank * 2, lscr, t$
182.                                     _DISPLAY
183.                                 ELSE
184.                                     COLOR _RGB(24, 24, 24): t$ = initials$
185.                                     PSL 5 + rank * 2, lscr, t$
186.                                     _DISPLAY
187.                                 END IF
188.  
189.                                 IF ABS(z2 - TIMER) > 2.5 AND j THEN
190.                                     kflag = -3
191.                                     EXIT DO
192.                                 END IF
193.  
194.                                 IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
195.                                     BEEP
196.                                     kflag = -4
197.                                     EXIT DO
198.                                 END IF
199.                             LOOP
200.                         CASE -3
201.                             _DELAY 1
202.                             l$ = "8"
203.                             n$ = "n24": PLAY "L" + l$ + n$
204.                             n$ = "n28": PLAY "L" + l$ + n$
205.                             n$ = "n28": PLAY "L" + l$ + n$
206.                             l$ = "7"
207.                             n$ = "n31": PLAY "L" + l$ + n$
208.                             l$ = "9"
209.                             n$ = "n28": PLAY "L" + l$ + n$
210.                             l$ = "3"
211.                             n$ = "n31": PLAY "L" + l$ + n$
212.                             kflag = 1
213.                             _DELAY 1: EXIT DO
214.                         CASE -4
215.                             kflag = 0 ' Repeat enter initials
216.                             nxt = 0
217.                             i = 0
218.                             EXIT DO
219.                     END SELECT
220.                 LOOP
221.                 IF kflag > 0 THEN kflag = 0: EXIT DO ' Exit routine.
222.             LOOP
223.             DEF SEG
224.  
225.             hsname$ = initials$
226.  
227.             MID$(hsdata$(rank), 5, 3) = hsname$ + SPACE$(3 - LEN(hsname$))
228.             '''OPEN "ascii-invaders-high-score.dat" FOR RANDOM AS #1 LEN = 25
229.             '''FOR i = 1 TO 5
230.             ''' hs = hsdata$(i)
231.             '''IF LEFT$(hs, 1) = "" THEN MID$(hs, 1, 2) = "0" + LTRIM$(STR$(i))
232.             '''PUT #1, i, hs
233.             '''NEXT
234.             '''CLOSE #1
235.  
236.             _DELAY 1
237.             _DISPLAY ' Remove scoreboard.
238.             _DELAY 1
239.             _FREEIMAGE Overlay
240.             _FONT 16 'select inbuilt 8x16 default font
241.             _FREEFONT font
242.  
243.             _DEST 0 'Reset dest back to the normal screen 0.
244.  
245.             _AUTODISPLAY
246.             COLOR 6, 0
247.             msg$ = SPACE$(40)
248.             LOCATE 4, 41 - LEN(msg$) \ 2
249.             PRINT msg$;
250.             PALETTE
251.             _DELAY 1
252.  
253.             EXIT DO
254.         ELSE
255.             EXIT DO ' Not in the top 5 highest scores so exit sub.
256.         END IF
257.     LOOP
258.     EXIT SUB
259.  
260.     hardware_overlay:
261.     Overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
262.  
263.     _DEST Overlay
264.     _DISPLAY ' Turn autodisplay off.
265.  
266.     font = _LOADFONT("lucon.ttf", 20, "monospace")
267.     IF font <= 0 THEN font = 16
268.     _FONT font
269.  
270.     bxy% = 3
271.     bxx% = 13
272.     COLOR DarkOrange, 0
273.     t$ = " " + CHR$(218) + STRING$(27, CHR$(196)) + CHR$(191) + " "
274.     PSL bxy%, bxx% - 1, t$
275.     FOR i = 1 TO 12
276.         t$ = " " + CHR$(179) + STRING$(27, CHR$(32)) + CHR$(179) + " "
277.         PSL bxy% + i, bxx% - 1, t$
278.     NEXT
279.     t$ = " " + CHR$(192) + STRING$(27, CHR$(196)) + CHR$(217) + " "
280.     PSL bxy% + i, bxx% - 1, t$
281.  
282.     bxy% = 4
283.     COLOR Black, DarkOrange
284.     t$ = "    NAME   SCORE    DATE   "
285.     PSL bxy% + 1, bxx% + 1, t$
286.  
287.     COLOR DarkOrange, 0
288.     FOR i = 1 TO 5
289.         t$ = hsdata$(i)
290.         PSL bxy% + 1 + i * 2, bxx% + 2, t$
291.     NEXT
292.  
293.     _DISPLAY
294.  
295.     RETURN
296.  
297.     hiscore:
298.     FOR i = 1 TO 5
299.         IF VAL(score$) > VAL(highscore$(i)) THEN rank = i: EXIT FOR
300.     NEXT
301.  
302.     hsdata$(6) = SPACE$(25)
303.     MID$(hsdata$(6), 10, 6) = score$
304.     MID$(hsdata$(6), 18, 8) = MID$(DATE$, 1, 6) + MID$(DATE$, 9, 2)
305.     highscore$(6) = score$
306.     FOR i = 1 TO 6
307.         FOR j = 1 TO 6
308.             IF i <> j THEN
309.                 IF VAL(highscore$(i)) > VAL(highscore$(j)) THEN
310.                     SWAP highscore$(i), highscore$(j)
311.                     SWAP hsdata$(i), hsdata$(j)
312.                 END IF
313.             END IF
314.         NEXT
315.     NEXT
316.     FOR i = 1 TO 5
317.         MID$(hsdata$(i), 1, 2) = "0" + LTRIM$(STR$(i))
318.     NEXT
319.  
320.     RETURN
321.  
322. END SUB
323.  
324. SUB PSLC (y, x, t$)
325.     _PRINTSTRING ((x - 1) * 8, (y - 1) * 16), t$
326. END SUB
327.  
328. SUB PSL (y, x, t$)
329.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
330.     Overlay_Hardware = _COPYIMAGE(Overlay, 33)
331.     _PUTIMAGE (0, 0), Overlay_Hardware
332. END SUB
333.  
334. SUB underline (y, x, uflag)
335.     STATIC ucnt
336.     ucnt = -ucnt - 1
337.     IF ucnt OR uflag THEN
338.         LINE ((x - 1) * _FONTWIDTH, y * _FONTHEIGHT)-((x - 1) * _FONTWIDTH + 12, y * _FONTHEIGHT), _RGB(24, 24, 24), BF
339.     ELSE
340.         LINE ((x - 1) * _FONTWIDTH, y * _FONTHEIGHT)-((x - 1) * _FONTWIDTH + 12, y * _FONTHEIGHT), DarkOrange, BF
341.     END IF
342.  
343.     Overlay_Hardware = _COPYIMAGE(Overlay, 33)
344.     _PUTIMAGE (0, 0), Overlay_Hardware
345. END SUB

Pete

[bplus]

OK Pete what did you edit? :)

I tested before edit and was going to request you cycle back through capital letters if missed on first run through, you are or were cycling through all of ASCII yikes!

But I was able to get my initials a couple of times if I was careful not to accidently go past the letter to wait on, I would say much improved but more tweaks ahead.

Also I put the call to sub in loop and it never looped around again and again for practice, just one run in sub and it quits.

[Pete]

Yeah, I noticed that loop situation and edited it, along with a couple of other small tweaks. I'm thinking of having it flash the initials once the last one is input, and if the user doesn't engage the Alt key while flashing, it finishes. If the user does engage the Alt key, it does a redo.

Pete

[Pete]

Okay, see newly edited and revised version with flashing 3-initials at end of input so user can press Alt to redo.

Pete

[bplus]

Yes that's working for me, just need to remember if it's flashing and correct to leave it alone. Good by me.

[Pete]

I added one more small tweak, the ability to redo the first initial if you go past it.

Yes, this one-button challenge is certainly doable, but waiting as input instead of action for input is a bit hard to get used to at first.

Thanks for taking it for a test run!

Pete

[jack]

Pete, that last initials routine works really well