Is this at all possible in SCREEN 0?

[Pete]

Beat me to it!

Yeah, the SUB concept is what I was considering. _PUTIMAGE drives me a bit crazy in that if reverses the row column order of LOCATE. Using the sub to do the thinking is a much more comfortable method of handling things at my age. The simple act of blowing my nose creates brain fog these days. Of course, I'd bet it would help if I stopped inhaling all the CO emissions from the charcoal when I'm barbecuing. I'm only guessing, of course, because I used the CO and smoke detectors for kindling, years ago. I could hear my neighbors say... Dammit, there goes Pete again, having another one of his BEEPING barbecues!

Pete 

[Pete]

So here's as far along as I am as of now. :D

Code: QB64: [Select]

1. $COLOR:32
2. Screen0 = _NEWIMAGE(80, 25, 0)
3. SCREEN Screen0
4. swidth = _WIDTH
5.  
6. DIM SHARED Overlay
7. REDIM SHARED hsdata$(5)
8. hsdata$(1) = " 01  AAA  069000  10-18-21 "
9. hsdata$(2) = " 01  BBB  053460  10-17-21 "
10. hsdata$(3) = " 01  CCC  045700  10-17-21 "
11. hsdata$(4) = " 01  DDD  034780  10-16-21 "
12. hsdata$(5) = " 01  EEE  025890  10-12-21 "
13.  
14. DIM SHARED intro%: intro% = -1
15.  
16. skip_intro:
17. DEFINT I
18. DIM SHARED lmargin%, rmargin%, topmargin%, screenwidth%, level, ibk, ileadingrow
19. DIM SHARED irow, icol, inextrnd, imaxalienmissiles, alienforce%, ileadingmax, imaxalienforce, ihits, score$
20.  
21. _SCREENMOVE _MIDDLE
22.  
23. score$ = "000000"
24. imaxalienforce = 6
25. imaxalienmissiles = 3
26. lmargin% = 2
27. rmargin% = 79
28. topmargin% = 3
29. ialiencolstat = 6
30. iwin = 3 ' 3 Levels.
31. screenwidth% = rmargin% - lmargin% + 1
32. ibk = 0 ' Background color
33.  
34. REM Make aliens
35. a1$ = "^^" + CHR$(79) + "^^  "
36. a$ = a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$ + a1$
37. alt1$ = "--" + CHR$(79) + "--  "
38. a$ = a1$ + alt1$ + a1$ + alt1$ + a1$ + alt1$ + a1$ + alt1$ + a1$ + alt1$
39. alt$ = alt1$ + a1$ + alt1$ + a1$ + alt1$ + a1$ + alt1$ + a1$ + alt1$ + a1$
40.  
41. DIM SHARED a(imaxalienforce) AS STRING * 68
42.  
43. CALL qbide
44.  
45. COLOR 8, 0
46. ialiencol = ialiencolstat
47. LOCATE 4, ialiencol
48. FOR i = 1 TO imaxalienforce
49.     IF i MOD 1 = 0 THEN PRINT
50.     LOCATE , ialiencol
51.     IF i = imaxalienforce THEN
52.         ileadingrow = CSRLIN: ileadingmax = ileadingrow
53.     END IF
54.     IF i \ 2 = i / 2 THEN a(i) = a$ ELSE a(i) = alt$
55.     PRINT a(i)
56. NEXT
57. _DELAY 3
58.  
59. Overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
60.  
61. a = 14
62. OUT &H3C8, 0
63. OUT &H3C9, 20 - a
64. OUT &H3C9, 20 - a
65. OUT &H3C9, 20 - a
66.  
67. OUT &H3C8, 8
68. OUT &H3C9, 30 - a
69. OUT &H3C9, 30 - a
70. OUT &H3C9, 30 - a
71.  
72. OUT &H3C8, 7
73. OUT &H3C9, 30 - a
74. OUT &H3C9, 30 - a
75. OUT &H3C9, 30 - a
76.  
77. OUT &H3C8, 3
78. OUT &H3C9, 30 - a
79. OUT &H3C9, 30 - a
80. OUT &H3C9, 30 - a
81.  
82. _DELAY .5
83.  
84. _DEST Overlay
85.  
86. GOSUB pete
87.  
88. _FREEIMAGE Overlay
89. _FONT 16 'select inbuilt 8x16 default font
90. _FREEFONT font
91.  
92. SLEEP
93.  
94. _AUTODISPLAY
95.  
96. _DEST 0 'Reset dest back to the normal screen 0.
97.  
98. WHILE LEN(INKEY$): WEND ' Clear keyboard buffer in case user pressed a key during program run.
99. a$ = INPUT$(1)
100. COLOR 7, 0
101. SCREEN 0
102. CLS
103. _DELAY 1
104. SYSTEM
105.  
106. pete:
107. font = _LOADFONT("lucon.ttf", 20, "monospace")
108. IF font <= 0 THEN font = 16
109. _FONT font
110.  
111. bxy% = 3
112. bxx% = 13 '27
113. COLOR DarkOrange, 0
114. text$ = " " + CHR$(218) + STRING$(27, CHR$(196)) + CHR$(191) + " "
115. PSL bxy%, bxx% - 1, text$
116. FOR i = 1 TO 11
117.     text$ = " " + CHR$(179) + STRING$(27, CHR$(32)) + CHR$(179) + " "
118.     PSL bxy% + i, bxx% - 1, text$
119. NEXT
120. text$ = " " + CHR$(192) + STRING$(27, CHR$(196)) + CHR$(217) + " "
121. PSL bxy% + i, bxx% - 1, text$
122.  
123. COLOR Black, DarkOrange
124. text$ = "    NAME   SCORE    DATE   "
125. PSL bxy% + 1, bxx% + 1, text$
126.  
127. COLOR DarkOrange, 0
128. FOR i = 1 TO 5
129.     text$ = hsdata$(i)
130.     PSL bxy% + 1 + i * 2, bxx% + 1, text$
131. NEXT
132. RETURN
133.  
134. SUB PSL (y, x, text$)
135.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), text$
136.     Overlay_Hardware = _COPYIMAGE(Overlay, 33)
137.  
138.     _PUTIMAGE (0, 0), Overlay_Hardware
139.     _DISPLAY
140.  
141. END SUB
142.  
143. SUB PSLC (y, x, text$)
144.     _PRINTSTRING ((x - 1), (y - 1) * _FONTHEIGHT), text$
145. END SUB
146.  
147. SUB qbide
148.     PALETTE 2, 59
149.     COLOR 15, 0
150.     CLS
151.  
152.     COLOR 0, 7
153.     LOCATE 1, 1
154.     PRINT SPACE$(80)
155.     LOCATE 1, 1: PRINT "   File  Edit  View  Search  Run  Debug  Calls  Options                   Help"
156.  
157.     COLOR 7, 0 ' Black background.
158.  
159.     LOCATE 2, 1: PRINT CHR$(218)
160.     LOCATE 2, 2: PRINT STRING$(78, CHR$(196))
161.     LOCATE 2, 80: PRINT CHR$(191)
162.  
163.     LOCATE 2, 76: PRINT CHR$(180)
164.     LOCATE 2, 78: PRINT CHR$(195)
165.  
166.     COLOR 0, 7
167.     LOCATE 2, 77: PRINT CHR$(24)
168.     LOCATE 2, 36: PRINT " Untitled "
169.  
170.     COLOR 7, 0
171.     FOR Rows = 3 TO 24
172.         LOCATE Rows, 1: PRINT CHR$(179);
173.         LOCATE Rows, 80: PRINT CHR$(179);
174.     NEXT Rows
175.  
176.     COLOR 0, 3: LOCATE 25, 1: PRINT " <Shift+F1=Help> <F6=Window> <F2=Subs> <F5=Run> <F8=Step> ";
177.     LOCATE 25, 59: PRINT SPACE$(4);
178.     COLOR 0, 3
179.     LOCATE 25, 63: PRINT CHR$(179);
180.     LOCATE 25, 64: PRINT SPACE$(6);
181.     LOCATE 25, 68: PRINT "C  00001:001 ";
182.  
183. END SUB
184.  

That's right. I've gone completely batty! 🦇🦇🦇🦇🦇

Pete

Edited to remove Error 5 caused by incorrectly named variable in _FREEIMAGE statement. Thanks Jack!

[jack]

Pete it look good but there's a problem, as soon as I press a key I get

Code: [Select]

---------------------------
Unhandled Error #5 - untitled.exe
---------------------------
Line: 94 (in main module)
Illegal function call
Continue?
---------------------------
Yes   No   
---------------------------


[Pete]

I'll have a look....

Found it, _FREEIMAGE Overlay_Hardware at line 94.

I said this stuff was making me batty...

Ah, I should have coded that as: _FREEIMAGE Overlay

I'll edit that in the code.

Thanks Jack!

Pete 

[jack]

Pete, no crash but the game won't play
or was this only to show the transparency and not the game itself ?

[Pete]

You have to put a quarter in, first.

Right, it's just to show the effect, which I haven't substituted into the game yet. I still have to convert using _PRINTSTRING with the alt key input routine to accomplish that.

The game, which does include a SCREEN 0 scoreboard and 5-highest scores database, is here in the "Competition" thread: https://www.qb64.org/forum/index.php?topic=4245.msg137017#msg137017

Pete 

[Pete]

@SMcNeill Hey Steve, thanks again for sharing this technique. I know @Cobalt has a similar overlay method, too. He just augmented Marks Connect 4 project with a replica of the Connect 4 board, used as an overlay.

So I put a centering routine and non-centering routine in subs like you recommened. It helps me see what's going on in my head a lot better. The _FONTWIDTH and _FONTHEIGHT conversions make that easy.

Here's my keeper for the demo...

For versions 1.4 and up.

Code: QB64: [Select]

1. $COLOR:32
2. Screen0 = _NEWIMAGE(80, 25, 0)
3. SCREEN Screen0
4.  
5. overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
6.  
7. COLOR 0, 7
8. FOR x = 1 TO 25
9.     LOCATE x, 1: PRINT STRING$(80, 176);
10. NEXT
11.  
12. _DEST overlay
13. COLOR MidnightBlue, 0
14.  
15. REDIM text$(5)
16. text$(1) = "This is a SCREEN 0 overlay method"
17. text$(2) = "used by the Amazing Steve and"
18. text$(3) = "modified by me to create a simple"
19. text$(4) = "text to screen overlay on a dotted"
20. text$(5) = "SCREEN 0 background!"
21.  
22. font = _LOADFONT("lucon.ttf", 25, "monospace")
23. IF font <= 0 THEN font = 16
24. _FONT font
25. _DELAY 1
26.  
27. startrow = 3
28. FOR k = 1 TO 5
29.     t$ = text$(k)
30.     y = startrow + k * 2 - 1 ' Double space.
31.  
32.     pslc y, t$, overlay, Overlay_hardware
33.  
34.     _DELAY .5
35. NEXT
36.  
37. _FONT 16 'select inbuilt 8x16 default font
38. _FREEFONT font ' Must be placed after the font is changed.
39.  
40. COLOR Black, 0
41. msg$ = "Press space bar to toggle overlay. Press Esc to end."
42.  
43. psl 25, 1, msg$, overlay, Overlay_hardware
44.  
45. DO
46.     _LIMIT 30
47.     b$ = INKEY$
48.     IF LEN(b$) THEN
49.         IF b$ = CHR$(27) THEN EXIT DO
50.         IF Show_Overlay THEN _PUTIMAGE (0, 0), Overlay_hardware
51.         Show_Overlay = NOT Show_Overlay
52.         _DISPLAY
53.     END IF
54. LOOP
55.  
56. _FREEIMAGE Overlay_hardware
57. _DEST 0 'Reset dest back to the normal screen 0.
58. _AUTODISPLAY
59. COLOR 0, 7
60. _DELAY .75
61. CLS
62. COLOR 1, 7
63. LOCATE 2, 2
64. PRINT "Hi, back in SCREEN 0. Bye!"
65. _DELAY 2.25
66. SYSTEM
67.  
68. SUB psl (y, x, t$, overlay, Overlay_hardware)
69.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
70.     Overlay_hardware = _COPYIMAGE(overlay, 33)
71.     _PUTIMAGE (0, 0), Overlay_hardware
72.     _DISPLAY
73. END SUB
74.  
75. SUB pslc (y, t$, overlay, Overlay_hardware)
76.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(t$)) \ 2, (y - 1) * _FONTHEIGHT), t$
77.     Overlay_hardware = _COPYIMAGE(overlay, 33)
78.     _PUTIMAGE (0, 0), Overlay_hardware
79.     _DISPLAY
80. END SUB

Oh, and this for Version 1.3 (No $COLOR:32)

Code: QB64: [Select]

1. Screen0 = _NEWIMAGE(80, 25, 0)
2. SCREEN Screen0
3.  
4. overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
5.  
6. COLOR 0, 7
7. FOR x = 1 TO 25
8.     LOCATE x, 1: PRINT STRING$(80, 176);
9. NEXT
10.  
11. _DEST overlay
12. COLOR _RGB(0, 0, 102), 0
13.  
14. REDIM text$(5)
15. text$(1) = "This is a SCREEN 0 overlay method"
16. text$(2) = "used by the Amazing Steve and"
17. text$(3) = "modified by me to create a simple"
18. text$(4) = "text to screen overlay on a dotted"
19. text$(5) = "SCREEN 0 background!"
20.  
21. font = _LOADFONT("lucon.ttf", 25, "monospace")
22. IF font <= 0 THEN font = 16
23. _FONT font
24. _DELAY 1
25.  
26. startrow = 3
27. FOR k = 1 TO 5
28.     t$ = text$(k)
29.     y = startrow + k * 2 - 1 ' Double space.
30.  
31.     pslc y, t$, overlay, Overlay_hardware
32.  
33.     _DELAY .5
34. NEXT
35.  
36. _FONT 16 'select inbuilt 8x16 default font
37. _FREEFONT font ' Must be placed after the font is changed.
38.  
39. COLOR _RGB(20, 20, 20), 0
40. msg$ = "Press space bar to toggle overlay. Press Esc to end."
41.  
42. psl 25, 1, msg$, overlay, Overlay_hardware
43.  
44. DO
45.     _LIMIT 30
46.     b$ = INKEY$
47.     IF LEN(b$) THEN
48.         IF b$ = CHR$(27) THEN EXIT DO
49.         IF Show_Overlay THEN _PUTIMAGE (0, 0), Overlay_hardware
50.         Show_Overlay = NOT Show_Overlay
51.         _DISPLAY
52.     END IF
53. LOOP
54.  
55. _FREEIMAGE Overlay_hardware
56. _DEST 0 'Reset dest back to the normal screen 0.
57. _AUTODISPLAY
58. COLOR 0, 7
59. _DELAY .75
60. CLS
61. COLOR 1, 7
62. LOCATE 2, 2
63. PRINT "Hi, back in SCREEN 0. Bye!"
64. _DELAY 2.25
65. SYSTEM
66.  
67. SUB psl (y, x, t$, overlay, Overlay_hardware)
68.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
69.     Overlay_hardware = _COPYIMAGE(overlay, 33)
70.     _PUTIMAGE (0, 0), Overlay_hardware
71.     _DISPLAY
72. END SUB
73.  
74. SUB pslc (y, t$, overlay, Overlay_hardware)
75.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(t$)) \ 2, (y - 1) * _FONTHEIGHT), t$
76.     Overlay_hardware = _COPYIMAGE(overlay, 33)
77.     _PUTIMAGE (0, 0), Overlay_hardware
78.     _DISPLAY
79. END SUB
80.  

Pete