QB64.org Forum

Active Forums => Programs => Topic started by: johnno56 on October 06, 2020, 08:12:25 pm

Title: hangman64
Post by: johnno56 on October 06, 2020, 08:12:25 pm

This is a conversion of Hangman, that I wrote back in 2016, with sdlbasic. I spent the better part of yesterday converting it. (A day, you may ask. My... keyboard is very slow... lol )

Thanks to the guys here, the 'problems' that I experienced, have been solved.

It is far from finished; the coding is a bit sloppy... ok. a lot...; there maybe a few bugs but it's playable.

The sdlbasic version used the mouse for input. Converting to QB64 caused the 'cursor' to be drawn as the mouse moved. Still working on that... Just use the keyboard... As "Scotty" in Star Trev 4: The Journey home, replied when instructed to use the keyboard, "The keyboard. How quaint."

Any constructive criticism or modifications would be highly appreciated...

J

Title: Re: hangman64
Post by: bplus on October 06, 2020, 08:41:44 pm

Very nice @johnno56 love that opening scene!

Mouse should be easy to work in.

poll it in main loop:

Code: QB64: [Select]

1. WHILE _MOUSEINPUT: WEND
2. mx = _MOUSEX : my = _MOUSEY : mb = _MOUSEBUTTON(1) 'left click

Then you know routine to check for mb (click) and translate mx, my to see if on a letter box.

Once you have a letter box just call the keyhit routine you have written already just translate letter clicked to a keyhit number.

Title: Re: hangman64
Post by: johnno56 on October 06, 2020, 10:17:28 pm

Thanks.

Mouse: Yep. Tried that before using the keyboard. Mouse functioned perfectly. But, when I "put" the cursor (gun) at mx and my, the gun was placed on the screen like a "mouse trail". The "do...loop" that contains the "letter section" routine, does not clear the screen, hence the "trail". No big deal... I will keep working on it...

Sdlbasic uses "mousezone()" to 'create' a box around the letter. Much like an AABB routine. Which can be used in conjunction with a _hitkey() and as you said, everything else is there...

The "word" list is quite limited (testing) at the moment. The "dashes" and "font" kind of limit the number of letters for each word. Adding more is quite easy. I have a much bigger list that I can use once the game is working properly.

Title: Re: hangman64
Post by: bplus on October 06, 2020, 10:50:33 pm

This sets up snap which we will use to store image of the screen while game progresses

Code: QB64: [Select]

1. DIM snap AS LONG
2. snap = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' take pictures of game as it progresses
3.  

This takes a snap shot of screen before start of main loop and before each re-loop around right after _DISPLAY:

Code: QB64: [Select]

1.     _MOUSEHIDE
2.     _PUTIMAGE , 0, snap  'screen to snapshot
3.  

This will "CLS" screen with snap shot right after first DO of inner loop

Code: QB64: [Select]

1.         _PUTIMAGE , snap, 0  ' snap shot to screen
2.         _MOUSESHOW
3.  

Now you can move mouse around without making a mess.

All your letters are evenly spaced between two y heights.

Just take mouse x subtract off where letters start x, divide by letter box width see that click isn't past z = 26

Code: QB64: [Select]

1.             '   Mouse "cursor"?
2.             WHILE _MOUSEINPUT: WEND
3.             mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
4.             'LOCATE 10, 5: PRINT mx, my
5.             '_DISPLAY
6.             IF mb THEN
7.                 IF my >= 700 AND my <= 736 THEN
8.                     'BEEP
9.                     test = INT((mx - 44) / 36) + 1
10.                     'LOCATE 11, 5: PRINT test
11.                     '_DISPLAY
12.                     IF test > 0 AND test < 27 THEN 'good click
13.                         choose = 96 + test
14.                     END IF
15.                 END IF
16.             END IF

That's better than 26 zone tests!

Code: QB64: [Select]

1. '       HANGMAN
2. '
3. '   Johnno56 15-Dec-16
4. '   (sdlbasic version)
5. '
6. '   07-Oct-20 QB64   w/mouse bplus
7. '
8. xmax = 1024
9. ymax = 768
10. SCREEN _NEWIMAGE(xmax, ymax, 32)
11. _DELAY .25
12. _SCREENMOVE _MIDDLE
13. _PRINTMODE _KEEPBACKGROUND
14. _MOUSEHIDE
15.  
16. RANDOMIZE TIMER
17.  
18. words = 295
19.  
20. DIM SHARED wordlist$(words)
21. DIM SHARED letter(26)
22. DIM SHARED chosen(26)
23. DIM SHARED font50
24. DIM SHARED bground AS _UNSIGNED LONG
25. 'DIM SHARED choose AS INTEGER
26. DIM SHARED a$
27. DIM SHARED blue AS _UNSIGNED LONG
28. DIM SHARED red AS _UNSIGNED LONG
29.  
30. a$ = ""
31.  
32. '
33. '   Load graphics
34. '
35. intro = _LOADIMAGE("assets/title.png")
36. gallowsbase = _LOADIMAGE("assets/base-closed.png")
37. upright = _LOADIMAGE("assets/upright.png")
38. support1 = _LOADIMAGE("assets/support1.png")
39. support2 = _LOADIMAGE("assets/support2.png")
40. support3 = _LOADIMAGE("assets/support3.png")
41. beam = _LOADIMAGE("assets/beam.png")
42. bolts = _LOADIMAGE("assets/bolts.png")
43. rope = _LOADIMAGE("assets/ropesupport.png")
44. victim1 = _LOADIMAGE("assets/victim1.png")
45. victim2 = _LOADIMAGE("assets/victim2.png")
46. hole = _LOADIMAGE("assets/hole.png")
47. bground = _LOADIMAGE("assets/bground.png")
48. grid = _LOADIMAGE("assets/grid.png")
49. gameover = _LOADIMAGE("assets/gameover.png")
50. welldone = _LOADIMAGE("assets/welldone.png")
51. guessed = _LOADIMAGE("assets/x.png")
52. cursor = _LOADIMAGE("assets/gun.png")
53. yes = _LOADIMAGE("assets/y.png")
54. no = _LOADIMAGE("assets/n.png")
55.  
56. '
57. '   Load audio
58. '
59. ropestretch = _SNDOPEN("assets/rope.wav")
60. choke = _SNDOPEN("assets/choke.wav")
61. shot = _SNDOPEN("assets/shot.wav")
62. click = _SNDOPEN("assets/click.wav")
63. clunk = _SNDOPEN("assets/clunk.wav")
64.  
65. music = _SNDOPEN("assets/goodbadugly.wav")
66.  
67. '
68. '   Load Fonts
69. '
70. font35 = _LOADFONT("assets/rubicmono.ttf", 35)
71. font50 = _LOADFONT("assets/rubicmono.ttf", 50)
72.  
73. count = 0
74.  
75.  
76. ' select word from array (or external file?)
77.  
78. filename$ = "assets/words.txt"
79.  
80. OPEN filename$ FOR INPUT AS #1
81. count = 1
82. WHILE NOT EOF(1)
83.     INPUT #1, wordlist$(count)
84.     count = count + 1
85. WEND
86. CLOSE #1
87.  
88. yellow = _RGB32(255, 255, 0)
89. blue = _RGB32(0, 0, 255)
90. green = _RGB32(0, 255, 0)
91. red = _RGB32(255, 0, 0)
92. white = _RGB32(255, 255, 255)
93. black = _RGB32(0, 0, 0)
94.  
95. again = 1
96. i = 0.1
97.  
98. '
99. '   Title screen - here
100. '
101. CLS
102. _PUTIMAGE (0, 0), intro
103. _DISPLAY
104. _DELAY 2
105. _SNDPLAY (shot)
106. _PUTIMAGE (627, 9), hole
107. _DISPLAY
108. _DELAY 5
109.  
110. '
111. '   Start game loop here
112. '
113. DIM snap AS LONG
114. snap = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' take pictures of game as it progresses
115.  
116. WHILE 0 = 0
117.     CLS
118.     _PUTIMAGE (0, 0), bground
119.  
120.     wordtoguess$ = wordlist$(INT(RND * (count - 1)))
121.     'print wordtoguess$
122.     numberoftries = 0
123.     FOR x = 1 TO 26
124.         letter(x) = 0
125.     NEXT
126.  
127.     '
128.     '   Display empty word and letter grid
129.     '
130.     FOR dash = 1 TO LEN(wordtoguess$)
131.         LINE (460 + (dash * 50), 380)-STEP(40, 4), black, BF
132.     NEXT
133.  
134.     _PUTIMAGE (44, 700), grid
135.     _DISPLAY
136.  
137.     counter = 0
138.  
139.     '
140.     '   Letter guess routine - try for mouse input?
141.     '
142.  
143.     '   Clear "chosen" array
144.     '
145.     FOR x = 1 TO 26
146.         chosen(x) = 0
147.     NEXT
148.     choose = 0
149.     '   wait(100)
150.  
151.     _SNDVOL music, i
152.     _SNDLOOP (music)
153.  
154.  
155.     _MOUSEHIDE
156.     _PUTIMAGE , 0, snap
157.  
158.     DO
159.         foundletter = 0
160.  
161.         '
162.         '   Keyboard (or mouse) selection of letters to guess
163.         '
164.  
165.         DO
166.             _PUTIMAGE , snap, 0
167.             _MOUSESHOW
168.  
169.  
170.             choose = 0
171.             '
172.             '   Mouse "cursor"?
173.             WHILE _MOUSEINPUT: WEND
174.             mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
175.             'LOCATE 10, 5: PRINT mx, my
176.             '_DISPLAY
177.             IF mb THEN
178.                 IF my >= 700 AND my <= 736 THEN
179.                     'BEEP
180.                     test = INT((mx - 44) / 36) + 1
181.                     'LOCATE 11, 5: PRINT test
182.                     '_DISPLAY
183.                     IF test > 0 AND test < 27 THEN 'good click
184.                         choose = 96 + test
185.                     END IF
186.                 END IF
187.             END IF
188.  
189.             '
190.  
191.             IF choose = 0 THEN choose = _KEYHIT
192.  
193.             IF choose = 97 AND chosen(1) = 0 THEN
194.                 _SNDPLAY (click)
195.                 a$ = "A"
196.                 chosen(1) = 1
197.                 _PUTIMAGE (44, 700), guessed
198.                 EXIT DO
199.             END IF
200.             IF choose = 98 AND chosen(2) = 0 THEN
201.                 _SNDPLAY (click)
202.                 a$ = "B"
203.                 chosen(2) = 1
204.                 _PUTIMAGE (80, 700), guessed
205.                 EXIT DO
206.             END IF
207.             IF choose = 99 AND chosen(3) = 0 THEN
208.                 _SNDPLAY (click)
209.                 a$ = "C"
210.                 chosen(3) = 1
211.                 _PUTIMAGE (116, 700), guessed
212.                 EXIT DO
213.             END IF
214.             IF choose = 100 AND chosen(4) = 0 THEN
215.                 _SNDPLAY (click)
216.                 a$ = "D"
217.                 chosen(4) = 1
218.                 _PUTIMAGE (152, 700), guessed
219.                 EXIT DO
220.             END IF
221.             IF choose = 101 AND chosen(5) = 0 THEN
222.                 _SNDPLAY (click)
223.                 a$ = "E"
224.                 chosen(5) = 1
225.                 _PUTIMAGE (188, 700), guessed
226.                 EXIT DO
227.             END IF
228.             IF choose = 102 AND chosen(6) = 0 THEN
229.                 _SNDPLAY (click)
230.                 a$ = "F"
231.                 chosen(6) = 1
232.                 _PUTIMAGE (224, 700), guessed
233.                 EXIT DO
234.             END IF
235.             IF choose = 103 AND chosen(7) = 0 THEN
236.                 _SNDPLAY (click)
237.                 a$ = "G"
238.                 chosen(7) = 1
239.                 _PUTIMAGE (260, 700), guessed
240.                 EXIT DO
241.             END IF
242.             IF choose = 104 AND chosen(8) = 0 THEN
243.                 _SNDPLAY (click)
244.                 a$ = "H"
245.                 chosen(8) = 1
246.                 _PUTIMAGE (296, 700), guessed
247.                 EXIT DO
248.             END IF
249.             IF choose = 105 AND chosen(9) = 0 THEN
250.                 _SNDPLAY (click)
251.                 a$ = "I"
252.                 chosen(9) = 1
253.                 _PUTIMAGE (332, 700), guessed
254.                 EXIT DO
255.             END IF
256.             IF choose = 106 AND chosen(10) = 0 THEN
257.                 _SNDPLAY (click)
258.                 a$ = "J"
259.                 chosen(10) = 1
260.                 _PUTIMAGE (368, 700), guessed
261.                 EXIT DO
262.             END IF
263.             IF choose = 107 AND chosen(11) = 0 THEN
264.                 _SNDPLAY (click)
265.                 a$ = "K"
266.                 chosen(11) = 1
267.                 _PUTIMAGE (404, 700), guessed
268.                 EXIT DO
269.             END IF
270.             IF choose = 108 AND chosen(12) = 0 THEN
271.                 _SNDPLAY (click)
272.                 a$ = "L"
273.                 chosen(12) = 1
274.                 _PUTIMAGE (440, 700), guessed
275.                 EXIT DO
276.             END IF
277.             IF choose = 109 AND chosen(13) = 0 THEN
278.                 _SNDPLAY (click)
279.                 a$ = "M"
280.                 chosen(13) = 1
281.                 _PUTIMAGE (476, 700), guessed
282.                 EXIT DO
283.             END IF
284.             IF choose = 110 AND chosen(14) = 0 THEN
285.                 _SNDPLAY (click)
286.                 a$ = "N"
287.                 chosen(14) = 1
288.                 _PUTIMAGE (512, 700), guessed
289.                 EXIT DO
290.             END IF
291.             IF choose = 111 AND chosen(15) = 0 THEN
292.                 _SNDPLAY (click)
293.                 a$ = "O"
294.                 chosen(15) = 1
295.                 _PUTIMAGE (548, 700), guessed
296.                 EXIT DO
297.             END IF
298.             IF choose = 112 AND chosen(16) = 0 THEN
299.                 _SNDPLAY (click)
300.                 a$ = "P"
301.                 chosen(16) = 1
302.                 _PUTIMAGE (584, 700), guessed
303.                 EXIT DO
304.             END IF
305.             IF choose = 113 AND chosen(17) = 0 THEN
306.                 _SNDPLAY (click)
307.                 a$ = "Q"
308.                 chosen(17) = 1
309.                 _PUTIMAGE (620, 700), guessed
310.                 EXIT DO
311.             END IF
312.             IF choose = 114 AND chosen(18) = 0 THEN
313.                 _SNDPLAY (click)
314.                 a$ = "R"
315.                 chosen(18) = 1
316.                 _PUTIMAGE (656, 700), guessed
317.                 EXIT DO
318.             END IF
319.             IF choose = 115 AND chosen(19) = 0 THEN
320.                 _SNDPLAY (click)
321.                 a$ = "S"
322.                 chosen(19) = 1
323.                 _PUTIMAGE (692, 700), guessed
324.                 EXIT DO
325.             END IF
326.             IF choose = 116 AND chosen(20) = 0 THEN
327.                 _SNDPLAY (click)
328.                 a$ = "T"
329.                 chosen(20) = 1
330.                 _PUTIMAGE (728, 700), guessed
331.                 EXIT DO
332.             END IF
333.             IF choose = 117 AND chosen(21) = 0 THEN
334.                 _SNDPLAY (click)
335.                 a$ = "U"
336.                 chosen(21) = 1
337.                 _PUTIMAGE (764, 700), guessed
338.                 EXIT DO
339.             END IF
340.             IF choose = 118 AND chosen(22) = 0 THEN
341.                 _SNDPLAY (click)
342.                 a$ = "V"
343.                 chosen(22) = 1
344.                 _PUTIMAGE (800, 700), guessed
345.                 EXIT DO
346.             END IF
347.             IF choose = 119 AND chosen(23) = 0 THEN
348.                 _SNDPLAY (click)
349.                 a$ = "W"
350.                 chosen(23) = 1
351.                 _PUTIMAGE (836, 700), guessed
352.                 EXIT DO
353.             END IF
354.             IF choose = 120 AND chosen(24) = 0 THEN
355.                 _SNDPLAY (click)
356.                 a$ = "X"
357.                 chosen(24) = 1
358.                 _PUTIMAGE (872, 700), guessed
359.                 EXIT DO
360.             END IF
361.             IF choose = 121 AND chosen(25) = 0 THEN
362.                 _SNDPLAY (click)
363.                 a$ = "Y"
364.                 chosen(25) = 1
365.                 _PUTIMAGE (908, 700), guessed
366.                 EXIT DO
367.             END IF
368.             IF choose = 122 AND chosen(26) = 0 THEN
369.                 _SNDPLAY (click)
370.                 a$ = "Z"
371.                 chosen(26) = 1
372.                 _PUTIMAGE (944, 700), guessed
373.                 EXIT DO
374.             END IF
375.  
376.             IF ky = 27 THEN
377.                 _DELAY 2
378.                 CLS
379.                 END
380.             END IF
381.  
382.             _DISPLAY
383.             _LIMIT 100
384.         LOOP
385.         _SNDPLAY (click)
386.  
387.         SELECT CASE UCASE$(a$)
388.             CASE "A" TO "Z"
389.                 '
390.                 '   Correct letter routine
391.                 '
392.                 IF letter(ASC(a$) - 64) = 0 THEN
393.                     COLOR blue
394.                     _FONT (font35)
395.                     FOR x = 1 TO LEN(wordtoguess$)
396.                         IF UCASE$(MID$(wordtoguess$, x, 1)) = a$ THEN
397.                             _PRINTSTRING (465 + (x * 50), 330), a$
398.                             counter = counter + 1
399.                             foundletter = 1
400.                         END IF
401.                     NEXT
402.                     '
403.                     '   Not so correct letter routine
404.                     '
405.                     IF foundletter = 0 THEN
406.                         numberoftries = numberoftries + 1
407.                         '
408.                         '   Build gallows routine?
409.                         '
410.                         IF numberoftries = 1 THEN
411.                             _PUTIMAGE (70, 505), gallowsbase
412.                         END IF
413.                         IF numberoftries = 2 THEN
414.                             _PUTIMAGE (146, 154), upright
415.                         END IF
416.                         IF numberoftries = 3 THEN
417.                             _PUTIMAGE (125, 461), support1
418.                         END IF
419.                         IF numberoftries = 4 THEN
420.                             _PUTIMAGE (184, 523), support2
421.                         END IF
422.                         IF numberoftries = 5 THEN
423.                             _PUTIMAGE (229, 501), support3
424.                         END IF
425.                         IF numberoftries = 6 THEN
426.                             _PUTIMAGE (116, 134), beam
427.                         END IF
428.                         IF numberoftries = 7 THEN
429.                             _PUTIMAGE (155, 170), bolts
430.                         END IF
431.                         IF numberoftries = 8 THEN
432.                             _PUTIMAGE (209, 140), rope
433.                         END IF
434.                         IF numberoftries = 9 THEN
435.                             _PUTIMAGE (331, 269), victim1
436.                         END IF
437.                         IF numberoftries = 10 THEN
438.                             _SNDPLAY (ropestretch)
439.                             _SNDPLAY (choke)
440.                             _PUTIMAGE (331, 269), victim2
441.                         END IF
442.                     END IF
443.                     letter(ASC(a$) - 64) = -1
444.                 END IF
445.  
446.                 _DISPLAY
447.         END SELECT
448.         '
449.         '   Check for finished game?
450.         '
451.         IF counter = LEN(wordtoguess$) OR numberoftries = 10 THEN
452.             EXIT DO
453.         END IF
454.  
455.         _DISPLAY
456.         _MOUSEHIDE
457.         _PUTIMAGE , 0, snap
458.  
459.         _LIMIT 100
460.     LOOP
461.  
462.     _DELAY 3
463.  
464.     '
465.     '   Winner routine
466.     '
467.     IF counter = LEN(wordtoguess$) THEN
468.         _PUTIMAGE (170, 200), welldone
469.         _DISPLAY
470.         _DELAY 3
471.         CLS
472.         _DISPLAY
473.         playagain
474.         IF a$ = "N" THEN
475.             _SNDPLAY (click)
476.             a$ = ""
477.             _DELAY 1
478.             CLS
479.             _PUTIMAGE (0, 0), gameover
480.             _DISPLAY
481.             _DELAY 4
482.             SYSTEM
483.         END IF
484.         IF a$ = "Y" THEN
485.             _SNDPLAY (click)
486.             a$ = ""
487.             _DELAY 0.2
488.             CLS
489.             _PUTIMAGE (0, 0), bground
490.             _DISPLAY
491.         END IF
492.     ELSE
493.         '
494.         '   Loser routine
495.         '
496.         FOR x = 1 TO LEN(wordtoguess$)
497.             a$ = UCASE$(MID$(wordtoguess$, x, 1))
498.             COLOR red
499.             _FONT (font35)
500.             _PRINTSTRING (465 + (x * 50), 330), a$
501.             _DISPLAY
502.         NEXT
503.         _DELAY 4
504.         CLS
505.         playagain
506.         IF a$ = "Y" THEN
507.             _SNDPLAY (click)
508.             a$ = ""
509.             CLS
510.             _PUTIMAGE (0, 0), bground
511.             _DISPLAY
512.         END IF
513.         IF a$ = "N" THEN
514.             _SNDPLAY (click)
515.             a$ = ""
516.             CLS
517.             _PUTIMAGE (0, 0), gameover
518.             _DISPLAY
519.             _DELAY 3
520.             CLS
521.             _DISPLAY
522.             _DELAY 1
523.             SYSTEM
524.         END IF
525.     END IF
526.  
527.     IF INKEY$ = CHR$(27) THEN
528.         END
529.     END IF
530.  
531.     _DISPLAY
532.     _LIMIT 100
533. WEND
534.  
535. '====================================================
536. SUB playagain
537.     a$ = ""
538.     yn = 0
539.     CLS
540.     _PUTIMAGE (0, 0), bground
541.     _DISPLAY
542.     COLOR blue
543.     _FONT (font50)
544.     WHILE yn <> 121 AND yn <> 110
545.         yn = _KEYHIT
546.         _PRINTSTRING (250, 650), "Again Y or N"
547.         IF yn = 121 THEN
548.             a$ = "Y"
549.             FOR x = 1 TO 26
550.                 chosen(x) = 0
551.             NEXT
552.             choose = 0
553.             _DELAY 1
554.         ELSEIF yn = 110 THEN
555.             a$ = "N"
556.         END IF
557.         _DISPLAY
558.     WEND
559. END SUB
560.  
561.  

Need to find the loop that is making the CPU run hot, I have tried 2 _LIMITs of 100 and still the fan is running.

Update: found it, 3's a charm :) running quiet now.

Title: Re: hangman64
Post by: bplus on October 07, 2020, 12:51:45 am

Put the code on a diet:

Code: QB64: [Select]

1. '       HANGMAN
2. '
3. '   Johnno56 15-Dec-16
4. '   (sdlbasic version)
5. '
6. '   07-Oct-20 QB64   w/mouse bplus  cut some lines of code
7. '
8. xmax = 1024
9. ymax = 768
10. SCREEN _NEWIMAGE(xmax, ymax, 32)
11. _DELAY .25
12. _SCREENMOVE _MIDDLE
13. _PRINTMODE _KEEPBACKGROUND
14. _MOUSEHIDE
15.  
16. RANDOMIZE TIMER
17.  
18. words = 295
19.  
20. DIM SHARED wordlist$(words)
21. DIM SHARED letter(26)
22. DIM SHARED chosen(26)
23. DIM SHARED font50
24. DIM SHARED bground AS _UNSIGNED LONG
25. 'DIM SHARED choose AS INTEGER
26. DIM SHARED a$
27. DIM SHARED blue AS _UNSIGNED LONG
28. DIM SHARED red AS _UNSIGNED LONG
29.  
30. a$ = ""
31.  
32. '
33. '   Load graphics
34. '
35. intro = _LOADIMAGE("assets/title.png")
36. gallowsbase = _LOADIMAGE("assets/base-closed.png")
37. upright = _LOADIMAGE("assets/upright.png")
38. support1 = _LOADIMAGE("assets/support1.png")
39. support2 = _LOADIMAGE("assets/support2.png")
40. support3 = _LOADIMAGE("assets/support3.png")
41. beam = _LOADIMAGE("assets/beam.png")
42. bolts = _LOADIMAGE("assets/bolts.png")
43. rope = _LOADIMAGE("assets/ropesupport.png")
44. victim1 = _LOADIMAGE("assets/victim1.png")
45. victim2 = _LOADIMAGE("assets/victim2.png")
46. hole = _LOADIMAGE("assets/hole.png")
47. bground = _LOADIMAGE("assets/bground.png")
48. grid = _LOADIMAGE("assets/grid.png")
49. gameover = _LOADIMAGE("assets/gameover.png")
50. welldone = _LOADIMAGE("assets/welldone.png")
51. guessed = _LOADIMAGE("assets/x.png")
52. cursor = _LOADIMAGE("assets/gun.png")
53. yes = _LOADIMAGE("assets/y.png")
54. no = _LOADIMAGE("assets/n.png")
55.  
56. '
57. '   Load audio
58. '
59. ropestretch = _SNDOPEN("assets/rope.wav")
60. choke = _SNDOPEN("assets/choke.wav")
61. shot = _SNDOPEN("assets/shot.wav")
62. click = _SNDOPEN("assets/click.wav")
63. clunk = _SNDOPEN("assets/clunk.wav")
64.  
65. music = _SNDOPEN("assets/goodbadugly.wav")
66.  
67. '
68. '   Load Fonts
69. '
70. font35 = _LOADFONT("assets/rubicmono.ttf", 35)
71. font50 = _LOADFONT("assets/rubicmono.ttf", 50)
72.  
73. ' select word from array (or external file?)
74.  
75. filename$ = "assets/words.txt"
76.  
77. OPEN filename$ FOR INPUT AS #1
78. count = 1
79. WHILE NOT EOF(1)
80.     INPUT #1, wordlist$(count)
81.     count = count + 1
82. WEND
83. CLOSE #1
84.  
85. blue = _RGB32(0, 0, 255)
86. red = _RGB32(255, 0, 0)
87. black = _RGB32(0, 0, 0)
88.  
89. again = 1
90. i = 0.1
91.  
92. '
93. '   Title screen - here
94. '
95. CLS
96. _PUTIMAGE (0, 0), intro
97. _DISPLAY
98. _DELAY 2
99. _SNDPLAY (shot)
100. _PUTIMAGE (627, 9), hole
101. _DISPLAY
102. _DELAY 5
103.  
104. '
105. '   Start game loop here
106. '
107. DIM snap AS LONG
108. snap = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' take pictures of game as it progresses
109.  
110. WHILE 0 = 0
111.     CLS
112.     _PUTIMAGE (0, 0), bground
113.  
114.     wordtoguess$ = wordlist$(INT(RND * (count - 1)))
115.     'print wordtoguess$
116.     numberoftries = 0
117.     FOR x = 1 TO 26
118.         letter(x) = 0
119.     NEXT
120.  
121.     '
122.     '   Display empty word and letter grid
123.     '
124.     FOR dash = 1 TO LEN(wordtoguess$)
125.         LINE (460 + (dash * 50), 380)-STEP(40, 4), black, BF
126.     NEXT
127.  
128.     _PUTIMAGE (44, 700), grid
129.     _DISPLAY
130.  
131.     counter = 0
132.  
133.     '
134.     '   Letter guess routine - try for mouse input?
135.     '
136.  
137.     '   Clear "chosen" array
138.     '
139.     FOR x = 1 TO 26
140.         chosen(x) = 0
141.     NEXT
142.     _SNDVOL music, i
143.     _SNDLOOP (music)
144.     _MOUSEHIDE
145.     _PUTIMAGE , 0, snap
146.     DO
147.         foundletter = 0
148.  
149.         '
150.         '   Keyboard (or mouse) selection of letters to guess
151.         '
152.  
153.         DO
154.             _PUTIMAGE , snap, 0
155.             _MOUSESHOW
156.             choose = 0
157.             '
158.             '   Mouse "cursor"?
159.             WHILE _MOUSEINPUT: WEND
160.             mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
161.             'LOCATE 10, 5: PRINT mx, my
162.             '_DISPLAY
163.             IF mb THEN
164.                 IF my >= 700 AND my <= 736 THEN
165.                     'BEEP
166.                     test = INT((mx - 44) / 36) + 1
167.                     'LOCATE 11, 5: PRINT test
168.                     '_DISPLAY
169.                     IF test > 0 AND test < 27 THEN 'good click
170.                         choose = 96 + test
171.                     END IF
172.                 END IF
173.             END IF
174.  
175.             ' Check Keypress if not mouse
176.             IF choose = 0 THEN choose = _KEYHIT
177.  
178.             ' Handle choose
179.             IF choose > 96 AND choose < 123 THEN
180.                 IF chosen(choose - 96) = 0 THEN
181.                     a$ = UCASE$(CHR$(choose))
182.                     chosen(choose - 96) = 1
183.                     _PUTIMAGE ((choose - 96) * 36 + 8, 700), guessed
184.                     EXIT DO
185.                 END IF
186.             END IF
187.  
188.             ' Escape to quit?
189.             IF ky = 27 THEN
190.                 _DELAY 2
191.                 CLS
192.                 END
193.             END IF
194.  
195.             _DISPLAY
196.             _LIMIT 100
197.         LOOP
198.         _SNDPLAY (click)
199.  
200.         '
201.         '   Correct letter routine
202.         '
203.         IF letter(ASC(a$) - 64) = 0 THEN
204.             COLOR blue
205.             _FONT (font35)
206.             FOR x = 1 TO LEN(wordtoguess$)
207.                 IF UCASE$(MID$(wordtoguess$, x, 1)) = a$ THEN
208.                     _PRINTSTRING (465 + (x * 50), 330), a$
209.                     counter = counter + 1
210.                     foundletter = 1
211.                 END IF
212.             NEXT
213.             '
214.             '   Not so correct letter routine
215.             '
216.             IF foundletter = 0 THEN
217.                 numberoftries = numberoftries + 1
218.                 '
219.                 '   Build gallows routine?
220.                 '
221.  
222.                 SELECT CASE numberoftries
223.                     CASE 1: _PUTIMAGE (70, 505), gallowsbase
224.                     CASE 2: _PUTIMAGE (146, 154), upright
225.                     CASE 3: _PUTIMAGE (125, 461), support1
226.                     CASE 4: _PUTIMAGE (184, 523), support2
227.                     CASE 5: _PUTIMAGE (229, 501), support3
228.                     CASE 6: _PUTIMAGE (116, 134), beam
229.                     CASE 7: _PUTIMAGE (155, 170), bolts
230.                     CASE 8: _PUTIMAGE (209, 140), rope
231.                     CASE 9: _PUTIMAGE (331, 269), victim1
232.                     CASE 10: _SNDPLAY (ropestretch)
233.                         _SNDPLAY (choke)
234.                         _PUTIMAGE (331, 269), victim2
235.                 END SELECT
236.             END IF
237.             letter(ASC(a$) - 64) = -1
238.         END IF
239.         _DISPLAY
240.  
241.         '
242.         '   Check for finished game?
243.         '
244.         IF counter = LEN(wordtoguess$) OR numberoftries = 10 THEN
245.             EXIT DO
246.         END IF
247.         _DISPLAY
248.         _MOUSEHIDE
249.         _PUTIMAGE , 0, snap
250.         _LIMIT 100
251.     LOOP
252.  
253.     _DELAY 3
254.  
255.     '
256.     '   Winner routine
257.     '
258.     IF counter = LEN(wordtoguess$) THEN
259.         _PUTIMAGE (170, 200), welldone
260.         _DISPLAY
261.         _DELAY 3
262.         CLS
263.         _DISPLAY
264.         playagain
265.         IF a$ = "N" THEN
266.             _SNDPLAY (click)
267.             a$ = ""
268.             _DELAY 1
269.             CLS
270.             _PUTIMAGE (0, 0), gameover
271.             _DISPLAY
272.             _DELAY 4
273.             SYSTEM
274.         END IF
275.         IF a$ = "Y" THEN
276.             _SNDPLAY (click)
277.             a$ = ""
278.             _DELAY 0.2
279.             CLS
280.             _PUTIMAGE (0, 0), bground
281.             _DISPLAY
282.         END IF
283.     ELSE
284.         '
285.         '   Loser routine
286.         '
287.         FOR x = 1 TO LEN(wordtoguess$)
288.             a$ = UCASE$(MID$(wordtoguess$, x, 1))
289.             COLOR red
290.             _FONT (font35)
291.             _PRINTSTRING (465 + (x * 50), 330), a$
292.             _DISPLAY
293.         NEXT
294.         _DELAY 4
295.         CLS
296.         playagain
297.         IF a$ = "Y" THEN
298.             _SNDPLAY (click)
299.             a$ = ""
300.             CLS
301.             _PUTIMAGE (0, 0), bground
302.             _DISPLAY
303.         END IF
304.         IF a$ = "N" THEN
305.             _SNDPLAY (click)
306.             a$ = ""
307.             CLS
308.             _PUTIMAGE (0, 0), gameover
309.             _DISPLAY
310.             _DELAY 3
311.             CLS
312.             _DISPLAY
313.             _DELAY 1
314.             SYSTEM
315.         END IF
316.     END IF
317.     IF INKEY$ = CHR$(27) THEN END
318.     _DISPLAY
319.     _LIMIT 100
320. WEND
321.  
322. SUB playagain
323.     a$ = ""
324.     yn = 0
325.     CLS
326.     _PUTIMAGE (0, 0), bground
327.     _DISPLAY
328.     COLOR blue
329.     _FONT (font50)
330.     WHILE yn <> 121 AND yn <> 110
331.         yn = _KEYHIT
332.         _PRINTSTRING (250, 650), "Again Y or N"
333.         IF yn = 121 THEN
334.             a$ = "Y"
335.             FOR x = 1 TO 26
336.                 chosen(x) = 0
337.             NEXT
338.             choose = 0
339.             _DELAY 1
340.         ELSEIF yn = 110 THEN
341.             a$ = "N"
342.         END IF
343.         _DISPLAY
344.     WEND
345. END SUB
346.  
347.  

Title: Re: hangman64
Post by: johnno56 on October 07, 2020, 06:35:42 am

Did you manage to complete playing the game (either win or lose)?

I might get about 3 to 6 letter selections and the mouse no longer clicks. But, a couple of times, the program aborts - no errors - just ends. On a rare occasion the mouse will move but will not click.

I did attempt to add the gun "_putimage(mx,my),cursor" and the gun indeed moved with the mouse... But, clicking on a letter, left a copy of the gun when clicked... So I removed it... Well, it worked better than how I coded it... lol

It's not all 'gloom and doom'. After all... You did get the mouse working and reduced the size of program...

I have attached the original sdlbasic version. There's not a lot of difference. (No 'play again' if you lose) Only translated to QB64 where needed... But you might want to check just in case I didn't do it right... lol

But a huge thanks for your efforts so far!!

Title: Re: hangman64
Post by: bplus on October 07, 2020, 11:31:20 am

Quote

Did you manage to complete playing the game (either win or lose)?

Yeah the code worked fine for me? I've played game after game, do have to use y or n for play again because that is not mouse supported yet.

I will check a copy / paste of code to see if works from forum. Yep, fine! I even checked for memory leaks last night.

So you want to use the gun for a pointer, sounds good!

Could try a _delay of .1 to .25 after a MB (click) detection, in case mouse click is not clearing?? (I doubt, but have no idea what else it could be, obviously some weird thing with mouse detection.)

Title: Re: hangman64
Post by: bplus on October 07, 2020, 12:23:27 pm

OK use the top left gun barrel as mouse point of the pointer when you click a letter:

Code: QB64: [Select]

1. '       HANGMAN
2. '
3. '   Johnno56 15-Dec-16
4. '   (sdlbasic version)
5. '
6. '   07-Oct-20 QB64   w/mouse bplus  cut some lines of code
7. '
8. xmax = 1024
9. ymax = 768
10. SCREEN _NEWIMAGE(xmax, ymax, 32)
11. _DELAY .25
12. _SCREENMOVE _MIDDLE
13. _PRINTMODE _KEEPBACKGROUND
14. _MOUSEHIDE
15.  
16. RANDOMIZE TIMER
17.  
18. words = 295
19.  
20. DIM SHARED wordlist$(words)
21. DIM SHARED letter(26)
22. DIM SHARED chosen(26)
23. DIM SHARED font50
24. DIM SHARED bground AS _UNSIGNED LONG
25. 'DIM SHARED choose AS INTEGER
26. DIM SHARED a$
27. DIM SHARED blue AS _UNSIGNED LONG
28. DIM SHARED red AS _UNSIGNED LONG
29.  
30. a$ = ""
31.  
32. '
33. '   Load graphics
34. '
35. intro = _LOADIMAGE("assets/title.png")
36. gallowsbase = _LOADIMAGE("assets/base-closed.png")
37. upright = _LOADIMAGE("assets/upright.png")
38. support1 = _LOADIMAGE("assets/support1.png")
39. support2 = _LOADIMAGE("assets/support2.png")
40. support3 = _LOADIMAGE("assets/support3.png")
41. beam = _LOADIMAGE("assets/beam.png")
42. bolts = _LOADIMAGE("assets/bolts.png")
43. rope = _LOADIMAGE("assets/ropesupport.png")
44. victim1 = _LOADIMAGE("assets/victim1.png")
45. victim2 = _LOADIMAGE("assets/victim2.png")
46. hole = _LOADIMAGE("assets/hole.png")
47. bground = _LOADIMAGE("assets/bground.png")
48. grid = _LOADIMAGE("assets/grid.png")
49. gameover = _LOADIMAGE("assets/gameover.png")
50. welldone = _LOADIMAGE("assets/welldone.png")
51. guessed = _LOADIMAGE("assets/x.png")
52. gun = _LOADIMAGE("assets/gun.png")
53. yes = _LOADIMAGE("assets/y.png")
54. no = _LOADIMAGE("assets/n.png")
55.  
56. '
57. '   Load audio
58. '
59. ropestretch = _SNDOPEN("assets/rope.wav")
60. choke = _SNDOPEN("assets/choke.wav")
61. shot = _SNDOPEN("assets/shot.wav")
62. click = _SNDOPEN("assets/click.wav")
63. clunk = _SNDOPEN("assets/clunk.wav")
64.  
65. music = _SNDOPEN("assets/goodbadugly.wav")
66.  
67. '
68. '   Load Fonts
69. '
70. font35 = _LOADFONT("assets/rubicmono.ttf", 35)
71. font50 = _LOADFONT("assets/rubicmono.ttf", 50)
72.  
73. ' select word from array (or external file?)
74.  
75. filename$ = "assets/words.txt"
76.  
77. OPEN filename$ FOR INPUT AS #1
78. count = 1
79. WHILE NOT EOF(1)
80.     INPUT #1, wordlist$(count)
81.     count = count + 1
82. WEND
83. CLOSE #1
84.  
85. blue = _RGB32(0, 0, 255)
86. red = _RGB32(255, 0, 0)
87. black = _RGB32(0, 0, 0)
88.  
89. again = 1
90. i = 0.1
91.  
92. '
93. '   Title screen - here
94. '
95. CLS
96. _PUTIMAGE (0, 0), intro
97. _DISPLAY
98. _DELAY 2
99. _SNDPLAY (shot)
100. _PUTIMAGE (627, 9), hole
101. _DISPLAY
102. _DELAY 5
103.  
104. '
105. '   Start game loop here
106. '
107. DIM snap AS LONG
108. snap = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' take pictures of game as it progresses
109.  
110. WHILE 0 = 0
111.     CLS
112.     _PUTIMAGE (0, 0), bground
113.  
114.     wordtoguess$ = wordlist$(INT(RND * (count - 1)))
115.     'print wordtoguess$
116.     numberoftries = 0
117.     FOR x = 1 TO 26
118.         letter(x) = 0
119.     NEXT
120.  
121.     '
122.     '   Display empty word and letter grid
123.     '
124.     FOR dash = 1 TO LEN(wordtoguess$)
125.         LINE (460 + (dash * 50), 380)-STEP(40, 4), black, BF
126.     NEXT
127.  
128.     _PUTIMAGE (44, 700), grid
129.     _DISPLAY
130.  
131.     counter = 0
132.  
133.     '
134.     '   Letter guess routine - try for mouse input?
135.     '
136.  
137.     '   Clear "chosen" array
138.     '
139.     FOR x = 1 TO 26
140.         chosen(x) = 0
141.     NEXT
142.     _SNDVOL music, i
143.     _SNDLOOP (music)
144.     _MOUSEHIDE
145.     _PUTIMAGE , 0, snap
146.     DO
147.         foundletter = 0
148.  
149.         '
150.         '   Keyboard (or mouse) selection of letters to guess
151.         '
152.  
153.         DO
154.             _PUTIMAGE , snap, 0
155.             '_MOUSESHOW
156.             choose = 0
157.             '
158.             '   Mouse "cursor"?
159.             WHILE _MOUSEINPUT: WEND
160.             mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
161.             _PUTIMAGE (mx, my), gun, 0
162.             IF mb THEN
163.                 IF my >= 700 AND my <= 736 THEN
164.                     'BEEP
165.                     test = INT((mx - 44) / 36) + 1
166.                     'LOCATE 11, 5: PRINT test
167.                     '_DISPLAY
168.                     IF test > 0 AND test < 27 THEN 'good click
169.                         choose = 96 + test
170.                     END IF
171.                 END IF
172.             END IF
173.  
174.             ' Check Keypress if not mouse
175.             IF choose = 0 THEN choose = _KEYHIT
176.  
177.             ' Handle choose
178.             IF choose > 96 AND choose < 123 THEN
179.                 IF chosen(choose - 96) = 0 THEN
180.                     a$ = UCASE$(CHR$(choose))
181.                     chosen(choose - 96) = 1
182.                     _PUTIMAGE , snap, 0 'hide gun
183.                     _PUTIMAGE ((choose - 96) * 36 + 8, 700), guessed
184.                     EXIT DO
185.                 END IF
186.             END IF
187.  
188.             ' Escape to quit?
189.             IF ky = 27 THEN
190.                 _DELAY 2
191.                 CLS
192.                 END
193.             END IF
194.  
195.             _DISPLAY
196.             _LIMIT 100
197.         LOOP
198.         _SNDPLAY (click)
199.  
200.         '
201.         '   Correct letter routine
202.         '
203.         IF letter(ASC(a$) - 64) = 0 THEN
204.             COLOR blue
205.             _FONT (font35)
206.             FOR x = 1 TO LEN(wordtoguess$)
207.                 IF UCASE$(MID$(wordtoguess$, x, 1)) = a$ THEN
208.                     _PRINTSTRING (465 + (x * 50), 330), a$
209.                     counter = counter + 1
210.                     foundletter = 1
211.                 END IF
212.             NEXT
213.             '
214.             '   Not so correct letter routine
215.             '
216.             IF foundletter = 0 THEN
217.                 numberoftries = numberoftries + 1
218.                 '
219.                 '   Build gallows routine?
220.                 '
221.  
222.                 SELECT CASE numberoftries
223.                     CASE 1: _PUTIMAGE (70, 505), gallowsbase
224.                     CASE 2: _PUTIMAGE (146, 154), upright
225.                     CASE 3: _PUTIMAGE (125, 461), support1
226.                     CASE 4: _PUTIMAGE (184, 523), support2
227.                     CASE 5: _PUTIMAGE (229, 501), support3
228.                     CASE 6: _PUTIMAGE (116, 134), beam
229.                     CASE 7: _PUTIMAGE (155, 170), bolts
230.                     CASE 8: _PUTIMAGE (209, 140), rope
231.                     CASE 9: _PUTIMAGE (331, 269), victim1
232.                     CASE 10: _SNDPLAY (ropestretch)
233.                         _SNDPLAY (choke)
234.                         _PUTIMAGE (331, 269), victim2
235.                 END SELECT
236.             END IF
237.             letter(ASC(a$) - 64) = -1
238.         END IF
239.         _DISPLAY
240.  
241.         '
242.         '   Check for finished game?
243.         '
244.         IF counter = LEN(wordtoguess$) OR numberoftries = 10 THEN
245.             EXIT DO
246.         END IF
247.         _DISPLAY
248.  
249.         _PUTIMAGE , 0, snap
250.         _LIMIT 100
251.     LOOP
252.  
253.     _DELAY 3
254.  
255.     '
256.     '   Winner routine
257.     '
258.     IF counter = LEN(wordtoguess$) THEN
259.         _PUTIMAGE (170, 200), welldone
260.         _DISPLAY
261.         _DELAY 3
262.         CLS
263.         _DISPLAY
264.         playagain
265.         IF a$ = "N" THEN
266.             _SNDPLAY (click)
267.             a$ = ""
268.             _DELAY 1
269.             CLS
270.             _PUTIMAGE (0, 0), gameover
271.             _DISPLAY
272.             _DELAY 4
273.             SYSTEM
274.         END IF
275.         IF a$ = "Y" THEN
276.             _SNDPLAY (click)
277.             a$ = ""
278.             _DELAY 0.2
279.             CLS
280.             _PUTIMAGE (0, 0), bground
281.             _DISPLAY
282.         END IF
283.     ELSE
284.         '
285.         '   Loser routine
286.         '
287.         FOR x = 1 TO LEN(wordtoguess$)
288.             a$ = UCASE$(MID$(wordtoguess$, x, 1))
289.             COLOR red
290.             _FONT (font35)
291.             _PRINTSTRING (465 + (x * 50), 330), a$
292.             _DISPLAY
293.         NEXT
294.         _DELAY 4
295.         CLS
296.         playagain
297.         IF a$ = "Y" THEN
298.             _SNDPLAY (click)
299.             a$ = ""
300.             CLS
301.             _PUTIMAGE (0, 0), bground
302.             _DISPLAY
303.         END IF
304.         IF a$ = "N" THEN
305.             _SNDPLAY (click)
306.             a$ = ""
307.             CLS
308.             _PUTIMAGE (0, 0), gameover
309.             _DISPLAY
310.             _DELAY 3
311.             CLS
312.             _DISPLAY
313.             _DELAY 1
314.             SYSTEM
315.         END IF
316.     END IF
317.     IF INKEY$ = CHR$(27) THEN END
318.     _DISPLAY
319.     _LIMIT 100
320. WEND
321.  
322. SUB playagain
323.     a$ = ""
324.     yn = 0
325.     CLS
326.     _PUTIMAGE (0, 0), bground
327.     _DISPLAY
328.     COLOR blue
329.     _FONT (font50)
330.     WHILE yn <> 121 AND yn <> 110
331.         yn = _KEYHIT
332.         _PRINTSTRING (250, 650), "Again Y or N"
333.         IF yn = 121 THEN
334.             a$ = "Y"
335.             FOR x = 1 TO 26
336.                 chosen(x) = 0
337.             NEXT
338.             choose = 0
339.             _DELAY 1
340.         ELSEIF yn = 110 THEN
341.             a$ = "N"
342.         END IF
343.         _DISPLAY
344.     WEND
345. END SUB
346.  

"Have gun will travel."

Title: Re: hangman64
Post by: johnno56 on October 07, 2020, 06:01:31 pm

Ok. Where do I begin?

Ha. I know 'exactly' where... The game (including the gun cursor) worked flawlessly!! I'm going over that code with a 'fine-toothed comb' to see what I did wrong.... lol

The Y and N... The sprites are in the assets folder but hadn't got around to coding it... lol It does make it a little awkward switching to keyboard at the end of the game... I can fix that... I promise not to muck things up... lol

Many thanks for the fix... Just think... When this game tops #1 on the 'Best Game' sales list... You will be in line for a serious percentage!!  How do you think the market will handle a 'Snake' remake?  At least we couldn't do any worse than Atari's ET... lol

Well... I'm going to make our coffee's then I'm going to fix the Y/N issue...

Have a great day!

Title: Re: hangman64
Post by: bplus on October 07, 2020, 06:06:53 pm

Quote

The game (including the gun cursor) worked flawlessly!!

Ah! good to hear :)

Title: Re: hangman64
Post by: johnno56 on October 07, 2020, 08:25:16 pm

"Again" now works with both mouse and keyboard. Slightly modified the 'playagain' routine to display the 'gun' without 'trails'. There is probably a better way to do it... lol

I will attach the code and the extra sprite (Again? Y or N)

Code: QB64: [Select]

1. '       HANGMAN
2. '
3. '   Johnno56 15-Dec-16
4. '   (sdlbasic version)
5. '
6. '   07-Oct-20 QB64   w/mouse bplus  cut some lines of code
7. '
8. xmax = 1024
9. ymax = 768
10. SCREEN _NEWIMAGE(xmax, ymax, 32)
11. _DELAY .25
12. _SCREENMOVE _MIDDLE
13. _PRINTMODE _KEEPBACKGROUND
14. _MOUSEHIDE
15.  
16. RANDOMIZE TIMER
17.  
18. words = 295
19.  
20. DIM SHARED wordlist$(words)
21. DIM SHARED letter(26)
22. DIM SHARED chosen(26)
23. DIM SHARED font50
24. DIM SHARED bground AS _UNSIGNED LONG
25. 'DIM SHARED choose AS INTEGER
26. DIM SHARED a$
27. DIM SHARED blue AS _UNSIGNED LONG
28. DIM SHARED red AS _UNSIGNED LONG
29. DIM SHARED click
30. DIM SHARED yesno AS LONG
31. DIM SHARED mx
32. DIM SHARED my
33. DIM SHARED mb
34. DIM SHARED gun AS LONG
35.  
36. a$ = ""
37.  
38. '
39. '   Load graphics
40. '
41. intro = _LOADIMAGE("assets/title.png")
42. gallowsbase = _LOADIMAGE("assets/base-closed.png")
43. upright = _LOADIMAGE("assets/upright.png")
44. support1 = _LOADIMAGE("assets/support1.png")
45. support2 = _LOADIMAGE("assets/support2.png")
46. support3 = _LOADIMAGE("assets/support3.png")
47. beam = _LOADIMAGE("assets/beam.png")
48. bolts = _LOADIMAGE("assets/bolts.png")
49. rope = _LOADIMAGE("assets/ropesupport.png")
50. victim1 = _LOADIMAGE("assets/victim1.png")
51. victim2 = _LOADIMAGE("assets/victim2.png")
52. hole = _LOADIMAGE("assets/hole.png")
53. bground = _LOADIMAGE("assets/bground.png")
54. grid = _LOADIMAGE("assets/grid.png")
55. gameover = _LOADIMAGE("assets/gameover.png")
56. welldone = _LOADIMAGE("assets/welldone.png")
57. guessed = _LOADIMAGE("assets/x.png")
58. gun = _LOADIMAGE("assets/gun.png")
59. yesno = _LOADIMAGE("assets/yesno.png")
60.  
61. '
62. '   Load audio
63. '
64. ropestretch = _SNDOPEN("assets/rope.wav")
65. choke = _SNDOPEN("assets/choke.wav")
66. shot = _SNDOPEN("assets/shot.wav")
67. click = _SNDOPEN("assets/click.wav")
68. clunk = _SNDOPEN("assets/clunk.wav")
69.  
70. music = _SNDOPEN("assets/goodbadugly.wav")
71.  
72. '
73. '   Load Fonts
74. '
75. font35 = _LOADFONT("assets/rubicmono.ttf", 35)
76. font50 = _LOADFONT("assets/rubicmono.ttf", 50)
77.  
78. ' select word from array (or external file?)
79.  
80. filename$ = "assets/words.txt"
81.  
82. OPEN filename$ FOR INPUT AS #1
83. count = 1
84. WHILE NOT EOF(1)
85.     INPUT #1, wordlist$(count)
86.     count = count + 1
87. WEND
88. CLOSE #1
89.  
90. blue = _RGB32(0, 0, 255)
91. red = _RGB32(255, 0, 0)
92. black = _RGB32(0, 0, 0)
93.  
94. again = 1
95. i = 0.1
96.  
97. '
98. '   Title screen - here
99. '
100. CLS
101. _PUTIMAGE (0, 0), intro
102. _DISPLAY
103. _DELAY 2
104. _SNDPLAY (shot)
105. _PUTIMAGE (627, 9), hole
106. _DISPLAY
107. _DELAY 5
108.  
109. '
110. '   Start game loop here
111. '
112. DIM snap AS LONG
113. snap = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' take pictures of game as it progresses
114.  
115. WHILE 0 = 0
116.     CLS
117.     _PUTIMAGE (0, 0), bground
118.  
119.     wordtoguess$ = wordlist$(INT(RND * (count - 1)))
120.     'print wordtoguess$
121.     numberoftries = 0
122.     FOR x = 1 TO 26
123.         letter(x) = 0
124.     NEXT
125.  
126.     '
127.     '   Display empty word and letter grid
128.     '
129.     FOR dash = 1 TO LEN(wordtoguess$)
130.         LINE (460 + (dash * 50), 380)-STEP(40, 4), black, BF
131.     NEXT
132.  
133.     _PUTIMAGE (44, 700), grid
134.     _DISPLAY
135.  
136.     counter = 0
137.  
138.     '
139.     '   Letter guess routine - try for mouse input?
140.     '
141.  
142.     '   Clear "chosen" array
143.     '
144.     FOR x = 1 TO 26
145.         chosen(x) = 0
146.     NEXT
147.     _SNDVOL music, i
148.     _SNDLOOP (music)
149.     _MOUSEHIDE
150.     _PUTIMAGE , 0, snap
151.     DO
152.         foundletter = 0
153.  
154.         '
155.         '   Keyboard (or mouse) selection of letters to guess
156.         '
157.  
158.         DO
159.             _PUTIMAGE , snap, 0
160.             '_MOUSESHOW
161.             choose = 0
162.             '
163.             '   Mouse "cursor"?
164.             WHILE _MOUSEINPUT: WEND
165.             mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
166.             _PUTIMAGE (mx, my), gun, 0
167.             IF mb THEN
168.                 IF my >= 700 AND my <= 736 THEN
169.                     'BEEP
170.                     test = INT((mx - 44) / 36) + 1
171.                     'LOCATE 11, 5: PRINT test
172.                     '_DISPLAY
173.                     IF test > 0 AND test < 27 THEN 'good click
174.                         choose = 96 + test
175.                     END IF
176.                 END IF
177.             END IF
178.  
179.             ' Check Keypress if not mouse
180.             IF choose = 0 THEN choose = _KEYHIT
181.  
182.             ' Handle choose
183.             IF choose > 96 AND choose < 123 THEN
184.                 IF chosen(choose - 96) = 0 THEN
185.                     a$ = UCASE$(CHR$(choose))
186.                     chosen(choose - 96) = 1
187.                     _PUTIMAGE , snap, 0 'hide gun
188.                     _PUTIMAGE ((choose - 96) * 36 + 8, 700), guessed
189.                     EXIT DO
190.                 END IF
191.             END IF
192.  
193.             ' Escape to quit?
194.             IF ky = 27 THEN
195.                 _DELAY 2
196.                 CLS
197.                 END
198.             END IF
199.  
200.             _DISPLAY
201.             _LIMIT 100
202.         LOOP
203.         _SNDPLAY (click)
204.  
205.         '
206.         '   Correct letter routine
207.         '
208.         IF letter(ASC(a$) - 64) = 0 THEN
209.             COLOR blue
210.             _FONT (font35)
211.             FOR x = 1 TO LEN(wordtoguess$)
212.                 IF UCASE$(MID$(wordtoguess$, x, 1)) = a$ THEN
213.                     _PRINTSTRING (465 + (x * 50), 330), a$
214.                     counter = counter + 1
215.                     foundletter = 1
216.                 END IF
217.             NEXT
218.             '
219.             '   Not so correct letter routine
220.             '
221.             IF foundletter = 0 THEN
222.                 numberoftries = numberoftries + 1
223.                 '
224.                 '   Build gallows routine?
225.                 '
226.  
227.                 SELECT CASE numberoftries
228.                     CASE 1: _PUTIMAGE (70, 505), gallowsbase
229.                     CASE 2: _PUTIMAGE (146, 154), upright
230.                     CASE 3: _PUTIMAGE (125, 461), support1
231.                     CASE 4: _PUTIMAGE (184, 523), support2
232.                     CASE 5: _PUTIMAGE (229, 501), support3
233.                     CASE 6: _PUTIMAGE (116, 134), beam
234.                     CASE 7: _PUTIMAGE (155, 170), bolts
235.                     CASE 8: _PUTIMAGE (209, 140), rope
236.                     CASE 9: _PUTIMAGE (331, 269), victim1
237.                     CASE 10: _SNDPLAY (ropestretch)
238.                         _SNDPLAY (choke)
239.                         _PUTIMAGE (331, 269), victim2
240.                 END SELECT
241.             END IF
242.             letter(ASC(a$) - 64) = -1
243.         END IF
244.         _DISPLAY
245.  
246.         '
247.         '   Check for finished game?
248.         '
249.         IF counter = LEN(wordtoguess$) OR numberoftries = 10 THEN
250.             EXIT DO
251.         END IF
252.         _DISPLAY
253.  
254.         _PUTIMAGE , 0, snap
255.         _LIMIT 100
256.     LOOP
257.  
258.     _DELAY 3
259.  
260.     '
261.     '   Winner routine
262.     '
263.     IF counter = LEN(wordtoguess$) THEN
264.         _PUTIMAGE (170, 200), welldone
265.         _DISPLAY
266.         _DELAY 3
267.         CLS
268.         _DISPLAY
269.         playagain
270.         IF a$ = "N" THEN
271.             a$ = ""
272.             _DELAY 1
273.             CLS
274.             _PUTIMAGE (0, 0), gameover
275.             _DISPLAY
276.             _DELAY 4
277.             SYSTEM
278.         END IF
279.         IF a$ = "Y" THEN
280.             a$ = ""
281.             _DELAY 0.2
282.             CLS
283.             _PUTIMAGE (0, 0), bground
284.             _DISPLAY
285.         END IF
286.     ELSE
287.         '
288.         '   Loser routine
289.         '
290.         FOR x = 1 TO LEN(wordtoguess$)
291.             a$ = UCASE$(MID$(wordtoguess$, x, 1))
292.             COLOR red
293.             _FONT (font35)
294.             _PRINTSTRING (465 + (x * 50), 330), a$
295.             _DISPLAY
296.         NEXT
297.         _DELAY 4
298.         CLS
299.         playagain
300.         IF a$ = "Y" THEN
301.             a$ = ""
302.             CLS
303.             _PUTIMAGE (0, 0), bground
304.             _DISPLAY
305.         END IF
306.         IF a$ = "N" THEN
307.             _SNDPLAY (click)
308.             a$ = ""
309.             CLS
310.             _PUTIMAGE (0, 0), gameover
311.             _DISPLAY
312.             _DELAY 3
313.             CLS
314.             _DISPLAY
315.             _DELAY 1
316.             SYSTEM
317.         END IF
318.     END IF
319.     IF INKEY$ = CHR$(27) THEN END
320.     _DISPLAY
321.     _LIMIT 100
322. WEND
323.  
324. SUB playagain
325.     a$ = ""
326.     yn = 0
327.     WHILE (yn <> 121 AND yn <> 110) AND (a$ <> "Y" AND a$ <> "N")
328.         CLS
329.         _PUTIMAGE (0, 0), bground
330.         yn = _KEYHIT
331.         WHILE _MOUSEINPUT = 0: WEND
332.         mx = _MOUSEX
333.         my = _MOUSEY
334.         mb = _MOUSEBUTTON(1)
335.         '        LOCATE 1, 1: PRINT mx
336.         '        LOCATE 2, 1: PRINT my
337.         '        LOCATE 3, 1: PRINT mb
338.         _PUTIMAGE (250, 650), yesno
339.         _PUTIMAGE (mx, my), gun
340.         '_PRINTSTRING (250, 650), "Again Y or N"
341.         IF yn = 121 OR (mx > 548 AND mx < 583 AND my > 650 AND my < 685 AND mb = -1) THEN
342.             _SNDPLAY (click)
343.             a$ = "Y"
344.             FOR x = 1 TO 26
345.                 chosen(x) = 0
346.             NEXT
347.             choose = 0
348.             _DELAY 1
349.         ELSEIF yn = 110 OR (mx > 725 AND mx < 760 AND my > 650 AND my < 685 AND mb = -1) THEN
350.             _SNDPLAY (click)
351.             a$ = "N"
352.         END IF
353.         _DISPLAY
354.     WEND
355. END SUB
356.  

Title: Re: hangman64
Post by: bplus on October 07, 2020, 10:52:53 pm

Hey Johnno,

I tried out the new code and got a very weird response from the mouse, it kept moving with a mind of it's own when I got to the new Y or N part. Made 2 changes and it works solid as a rock now:

Code: QB64: [Select]

1. SUB playagain
2.     a$ = ""
3.     yn = 0
4.     WHILE (yn <> 121 AND yn <> 110) AND (a$ <> "Y" AND a$ <> "N")
5.         CLS
6.         _PUTIMAGE (0, 0), bground
7.         yn = _KEYHIT
8.         WHILE _MOUSEINPUT: WEND ' <<<<<<<<<<<<<<<<<<  not while _mouseinput = 0
9.         mx = _MOUSEX
10.         my = _MOUSEY
11.         mb = _MOUSEBUTTON(1)
12.         '        LOCATE 1, 1: PRINT mx
13.         '        LOCATE 2, 1: PRINT my
14.         '        LOCATE 3, 1: PRINT mb
15.         _PUTIMAGE (250, 650), yesno
16.         _PUTIMAGE (mx, my), gun
17.         '_PRINTSTRING (250, 650), "Again Y or N"
18.         IF yn = 121 OR (mx > 548 AND mx < 583 AND my > 650 AND my < 685 AND mb = -1) THEN
19.             _SNDPLAY (click)
20.             a$ = "Y"
21.             FOR x = 1 TO 26
22.                 chosen(x) = 0
23.             NEXT
24.             choose = 0
25.             _DELAY 1
26.         ELSEIF yn = 110 OR (mx > 725 AND mx < 760 AND my > 650 AND my < 685 AND mb = -1) THEN
27.             _SNDPLAY (click)
28.             a$ = "N"
29.         END IF
30.         _DISPLAY
31.         _LIMIT 100 '<  save the fan!
32.     WEND
33. END SUB
34.  

It's nice to have the mouse working here now too!

Title: Re: hangman64
Post by: johnno56 on October 08, 2020, 02:37:28 am

As you said, "Solid as a rock."  Very cool indeed...

The one thing I didn't do was to code the title... Don't forget to put your name in there... wink, wink...

Many thanks for the assist... Time to play some mind numbing shootem ups... Before thinking about another 'classic'. I'm thinking of tackling 1945... Done one for sdlbasic and rcbasic... Maybe it's QB's turn?

Title: Re: hangman64
Post by: bplus on October 08, 2020, 10:58:27 am

I was thinking you might throw in a word list with a Western Theme or offer an assortment of lists.

Title: Re: hangman64
Post by: johnno56 on October 08, 2020, 04:41:20 pm

Good reminder. I did say that I would add a larger list. The 'Vocabulary' game I made has a word list of over 15,000 words. Of course not all the words can be used... Length limit. A western theme you say... I wonder how many types of cactii and tumbleweeds there are? lol

Title: Re: hangman64
Post by: johnno56 on October 08, 2020, 05:21:58 pm

Ok. I cheated....

I grabbed a list of "west" words and hopefully removed all the words longer than 10 chars... and yes... tumbleweed is listed... lol

J

(about 290 words)

Title: Re: hangman64
Post by: bplus on October 08, 2020, 05:23:25 pm

Thanks I will check out.

Title: Re: hangman64
Post by: johnno56 on October 08, 2020, 06:40:59 pm

Here is the complete wordlist (10 chars or less) from the Vocab program. (about 11,927 words)

Title: Re: hangman64
Post by: johnno56 on October 08, 2020, 07:26:54 pm

I have made a slight modification to the game.

Game now checks for the existence of the word list. Counts the number of words. Dimension's wordlist$() accordingly then inputs the word list. Text message displayed if file does not exist...

It works but probably could be coded better... It's what i know... lol

J

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: hangman64
Post by: SMcNeill on October 08, 2020, 07:32:59 pm

Might want to use DATA statements to embed a minimal set of words into the program.  Then, if the text file is missing, or corrupted, the game can still be played, with a reduced difficulty.  ;)

Title: Re: hangman64
Post by: bplus on October 08, 2020, 07:38:39 pm

Quote from: johnno56 on October 08, 2020, 06:40:59 pm

Here is the complete wordlist (10 chars or less) from the Vocab program. (about 11,927 words)

Oh man I remember way back a certain list of unheard of unspellable words ;-))

Yep! first 2 words were: "decadist", "urinator"

Title: Re: hangman64
Post by: johnno56 on October 08, 2020, 09:27:14 pm

Steve,

Good idea. Sounds like a plan.

Bplus,

All the word in there are real. But, I think, 11k+ words may be a bit of an overkill... lol
I think a smaller file and Steve's idea may be the way to go...

Wouldn't it be cool to have a choice (or random selection) of multiple word lists and multiple themes? I've seen differently themed Hangman games but not multi-themed in one game... Could be fun... Might put it on "the wish list"...

Time for coffee with a lunch chaser...

J

Title: Re: hangman64
Post by: bplus on October 08, 2020, 09:32:05 pm

Quote

Might put it on "the wish list"...

A Star Trek Themed version. Oh hey do you remember the Next Generation episode were they found themselves in a bar room from the old west?

Title: Re: hangman64
Post by: johnno56 on October 09, 2020, 12:34:44 am

"A fist full of Datas" - Season 6 Episode 8...

Title: Re: hangman64
Post by: bplus on October 09, 2020, 10:59:32 am

OMG they have figurines from that Episode!

Oh it was from the Original Star Trek, Spectre of the Gun, that I am remembering, I think?

Title: Re: hangman64
Post by: johnno56 on October 09, 2020, 06:29:11 pm

25th Oct 1968... Season 3 Episode 6... Good memory!

Text Only | Text with Attachments