QB64.org Forum

Samples Gallery & Reference => Games => Topic started by: Qwerkey on May 01, 2020, 05:09:04 am

Title: Rock Paper Scissors (Lizard Spock) Game by TempodiBasic
Post by: Qwerkey on May 01, 2020, 05:09:04 am

[Inform] Rock Paper Scissors (Lizard Spock) Game

Author: @TempodiBasic - Developed on the suggestion of Pete & Bplus
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=682.0 (https://www.qb64.org/forum/index.php?topic=682.0)
Version: 2
Tags: [InForm], [Game of Chance]

Description:
The Inform version of Rock Paper Scissor (Lizard Spock variant). Building it in Inform has been interesting to re-think some ideas under the light of event-driven coding.

Source Code:
Code given here for reference.  You will need all the files in the zip/rar.

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - Beta version 7
3. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - [member=2]FellippeHeitor[/member]
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. REM NOTICE: THIS FORM HAS BEEN RECENTLY EDITED
9. '>> The controls in the list below may have been added or renamed,
10. '>> and previously existing controls may have been deleted since
11. '>> this program's structure was first generated.
12. '>> Make sure to check your code in the events SUBs so that
13. '>> you can take your recent edits into consideration.
14. ': ---------------------------------------------------------------------------------
15.  
16. CONST paper = 1, rock = 2, scissor = 3, spok = 4, lizard = 5, draws = 2, looses = 3, wins = 1
17. DIM SHARED PlayerChoose AS INTEGER ' flag for user choice
18. DIM SHARED RockHandScissor AS LONG
19. DIM SHARED Frame1 AS LONG
20. DIM SHARED Frame2 AS LONG
21. DIM SHARED ScoreLB AS LONG
22. DIM SHARED StartBT AS LONG
23. DIM SHARED ExitBT AS LONG
24. DIM SHARED HelpBT AS LONG
25. DIM SHARED LB AS LONG
26. DIM SHARED ROCKPAPERSCISSORGAMELB AS LONG
27. DIM SHARED ChooseYourMoveAndWaitAIsOneLB AS LONG
28. DIM SHARED assetscartajpegPX AS LONG
29. DIM SHARED assetssassojpegPX AS LONG
30. DIM SHARED assetsforbicepngPX AS LONG
31. DIM SHARED assetsRPSLS_helpjpgPX AS LONG
32. DIM SHARED assetsspokpngPX AS LONG
33. DIM SHARED assetslizardpngPX AS LONG
34.  
35.  
36. '$INCLUDE:'InForm\InForm.ui'
37. '$INCLUDE:'InForm\xp.uitheme'
38. '$INCLUDE:'RockHandScissor.frm'
39.  
40. ': Event procedures: ---------------------------------------------------------------
41. SUB __UI_BeforeInit
42.  
43. END SUB
44.  
45. SUB __UI_OnLoad
46.     _SCREENMOVE _MIDDLE
47.     Caption(LB) = "0000"
48.     PlayerChoose = 0
49.     RANDOMIZE TIMER
50.     Control(ChooseYourMoveAndWaitAIsOneLB).Hidden = True ' hide help label
51.     Control(ChooseYourMoveAndWaitAIsOneLB).Disabled = True
52.     Control(Frame2).Hidden = True ' hide frame2
53.     Control(Frame2).Disabled = True
54. END SUB
55.  
56. SUB __UI_BeforeUpdateDisplay
57.     'This event occurs at approximately 30 frames per second.
58.     'You can change the update frequency by calling SetFrameRate DesiredRate%
59.  
60.  
61.     IF PlayerChoose = 20 THEN ' wait 2 sec
62.         in! = TIMER
63.         DO WHILE TIMER - in! < 2
64.         LOOP
65.         restoreGame
66.     END IF
67.     IF PlayerChoose THEN PlayerChoose = PlayerChoose + 1 ' here we pass one time(20 frames) into sub_Display before to reset the game
68. END SUB
69.  
70. SUB __UI_BeforeUnload
71.     'If you set __UI_UnloadSignal = False here you can
72.     'cancel the user's request to close.
73.  
74. END SUB
75.  
76. SUB __UI_Click (id AS LONG)
77.     SELECT CASE id
78.         CASE assetscartajpegPX
79.             ' user chooses to play paper
80.             Control(assetssassojpegPX).Disabled = True ' hide images of rock and scissor
81.             Control(assetsforbicepngPX).Disabled = True
82.             Control(assetsspokpngPX).Disabled = True
83.             Control(assetslizardpngPX).Disabled = True
84.             Control(assetssassojpegPX).Hidden = True
85.             Control(assetsforbicepngPX).Hidden = True
86.             Control(assetsspokpngPX).Hidden = True
87.             Control(assetslizardpngPX).Hidden = True
88.             Control(assetsRPSLS_helpjpgPX).Disabled = True ' hide AI's choice
89.             Control(assetsRPSLS_helpjpgPX).Hidden = True
90.             playAI paper
91.         CASE assetssassojpegPX
92.             ' user chooses to play rock
93.             Control(assetscartajpegPX).Disabled = True ' hide paper and scissor
94.             Control(assetsforbicepngPX).Disabled = True
95.             Control(assetsspokpngPX).Disabled = True
96.             Control(assetslizardpngPX).Disabled = True
97.             Control(assetsspokpngPX).Hidden = True
98.             Control(assetslizardpngPX).Hidden = True
99.             Control(assetscartajpegPX).Hidden = True
100.             Control(assetsforbicepngPX).Hidden = True
101.             Control(assetsRPSLS_helpjpgPX).Disabled = True ' hide AI's choice
102.             Control(assetsRPSLS_helpjpgPX).Hidden = True
103.             playAI rock
104.         CASE assetsforbicepngPX
105.             'user chooses to play scissor
106.             Control(assetssassojpegPX).Disabled = True ' hide  rock and paper
107.             Control(assetscartajpegPX).Disabled = True
108.             Control(assetsspokpngPX).Disabled = True
109.             Control(assetslizardpngPX).Disabled = True
110.             Control(assetsspokpngPX).Hidden = True
111.             Control(assetslizardpngPX).Hidden = True
112.             Control(assetssassojpegPX).Hidden = True
113.             Control(assetscartajpegPX).Hidden = True
114.             Control(assetsRPSLS_helpjpgPX).Disabled = True ' hide AI's choice
115.             Control(assetsRPSLS_helpjpgPX).Hidden = True
116.             playAI scissor
117.         CASE assetsspokpngPX
118.             Control(assetssassojpegPX).Disabled = True ' hide  rock and paper
119.             Control(assetscartajpegPX).Disabled = True
120.             Control(assetsforbicepngPX).Disabled = True
121.             Control(assetslizardpngPX).Disabled = True
122.             Control(assetsforbicepngPX).Hidden = True
123.             Control(assetslizardpngPX).Hidden = True
124.             Control(assetssassojpegPX).Hidden = True
125.             Control(assetscartajpegPX).Hidden = True
126.             playAI spok
127.         CASE assetslizardpngPX
128.             Control(assetssassojpegPX).Disabled = True ' hide  rock and paper
129.             Control(assetscartajpegPX).Disabled = True
130.             Control(assetsspokpngPX).Disabled = True
131.             Control(assetsforbicepngPX).Disabled = True
132.             Control(assetsspokpngPX).Hidden = True
133.             Control(assetsforbicepngPX).Hidden = True
134.             Control(assetssassojpegPX).Hidden = True
135.             Control(assetscartajpegPX).Hidden = True
136.             playAI lizard
137.         CASE RockHandScissor
138.  
139.         CASE ScoreLB
140.  
141.         CASE Frame1
142.  
143.         CASE StartBT
144.             Control(HelpBT).Disabled = True
145.             Control(Frame2).Hidden = False ' show frame2
146.             Control(Frame2).Disabled = False
147.             Control(assetssassojpegPX).Disabled = False ' show and activate 3 image buttons for user
148.             Control(assetsforbicepngPX).Disabled = False
149.             Control(assetscartajpegPX).Disabled = False
150.             Control(assetsspokpngPX).Disabled = False
151.             Control(assetslizardpngPX).Disabled = False
152.             Control(assetssassojpegPX).Hidden = False
153.             Control(assetsforbicepngPX).Hidden = False
154.             Control(assetscartajpegPX).Hidden = False
155.             Control(assetsspokpngPX).Hidden = False
156.             Control(assetslizardpngPX).Hidden = False
157.  
158.             Control(assetsRPSLS_helpjpgPX).Hidden = True ' hide help/AI image
159.             Control(assetsRPSLS_helpjpgPX).Disabled = True
160.             Control(ChooseYourMoveAndWaitAIsOneLB).Hidden = True ' hide help label
161.             Control(ChooseYourMoveAndWaitAIsOneLB).Disabled = True
162.  
163.         CASE ExitBT
164.             SYSTEM ' exit from program
165.         CASE HelpBT
166.  
167.             IF Control(ChooseYourMoveAndWaitAIsOneLB).Disabled = False THEN
168.                 ' here we reactivate the game
169.                 Control(StartBT).Disabled = False
170.                 Control(ChooseYourMoveAndWaitAIsOneLB).Hidden = True ' hide help label
171.                 Control(ChooseYourMoveAndWaitAIsOneLB).Disabled = True
172.                 Caption(ChooseYourMoveAndWaitAIsOneLB) = "Choose your move and wait AI's one"
173.                 Control(Frame2).Hidden = True ' hide frame2
174.                 Control(Frame2).Disabled = True
175.                 Control(assetssassojpegPX).Disabled = False ' activate 5 image button for user
176.                 Control(assetsforbicepngPX).Disabled = False
177.                 Control(assetscartajpegPX).Disabled = False
178.                 Control(assetsspokpngPX).Disabled = False
179.                 Control(assetslizardpngPX).Disabled = False
180.                 Control(assetssassojpegPX).Hidden = False
181.                 Control(assetsforbicepngPX).Hidden = False
182.                 Control(assetscartajpegPX).Hidden = False
183.                 Control(assetsspokpngPX).Hidden = False
184.                 Control(assetslizardpngPX).Hidden = False
185.  
186.             ELSE
187.                 ' here we show the help
188.                 Control(StartBT).Disabled = True 'disable help button
189.                 Caption(ChooseYourMoveAndWaitAIsOneLB) = "Choose your move and wait AI's one"
190.                 Control(ChooseYourMoveAndWaitAIsOneLB).Hidden = False ' show help label
191.                 Control(ChooseYourMoveAndWaitAIsOneLB).Disabled = False
192.                 Control(assetssassojpegPX).Disabled = True ' hide 5 image button for user
193.                 Control(assetsforbicepngPX).Disabled = True
194.                 Control(assetscartajpegPX).Disabled = True
195.                 Control(assetsspokpngPX).Disabled = True
196.                 Control(assetslizardpngPX).Disabled = True
197.                 Control(assetssassojpegPX).Hidden = True
198.                 Control(assetsforbicepngPX).Hidden = True
199.                 Control(assetscartajpegPX).Hidden = True
200.                 Control(assetsspokpngPX).Hidden = True
201.                 Control(assetslizardpngPX).Hidden = True
202.                 Control(Frame2).Hidden = False 'show frame2
203.                 Control(Frame2).Disabled = False
204.                 LoadImage Control(assetsRPSLS_helpjpgPX), "assets\RPSLS_help.jpg" ' load and show help picture
205.                 Control(assetsRPSLS_helpjpgPX).Redraw = True
206.             END IF
207.         CASE LB
208.  
209.         CASE ROCKHANDSCISSORGAMELB
210.  
211.         CASE ChooseYourMoveAndWaitAIsOneLB
212.  
213.     END SELECT
214. END SUB
215.  
216. SUB restoreGame
217.     Control(assetssassojpegPX).Disabled = False 'activate 5 image buttons for user
218.     Control(assetsforbicepngPX).Disabled = False
219.     Control(assetscartajpegPX).Disabled = False
220.     Control(assetsspokpngPX).Disabled = False
221.     Control(assetslizardpngPX).Disabled = False
222.     Control(assetsspokpngPX).Hidden = False
223.     Control(assetslizardpngPX).Hidden = False
224.     Control(assetssassojpegPX).Hidden = False
225.     Control(assetsforbicepngPX).Hidden = False
226.     Control(assetscartajpegPX).Hidden = False
227.     Control(HelpBT).Disabled = False ' activate help button
228.     Control(assetsRPSLS_helpjpgPX).Redraw = True ' force to show AI's choice
229.     PlayerChoose = 0 ' reset the chooser game
230. END SUB
231.  
232. SUB results (result AS INTEGER)
233.     'here there is the output sound + images for user
234.     ' and adjourn  score of game
235.     Control(assetsRPSLS_helpjpgPX).Hidden = False ' show image of ai's choice
236.     Control(assetsRPSLS_helpjpgPX).Disabled = False
237.     Control(assetsRPSLS_helpjpgPX).Redraw = True ' force to show image of ai's choice
238.     SELECT CASE result
239.         CASE wins
240.             Caption(LB) = STR$(VAL(Caption(LB)) + 10)
241.             Caption(ChooseYourMoveAndWaitAIsOneLB) = " YOU WIN!! "
242.         CASE draws
243.             Caption(LB) = STR$(VAL(Caption(LB)) + 5)
244.             Caption(ChooseYourMoveAndWaitAIsOneLB) = " YOU DRAW!! "
245.         CASE looses
246.             Caption(LB) = STR$(VAL(Caption(LB)) - 10)
247.             Caption(ChooseYourMoveAndWaitAIsOneLB) = " YOU LOOSE!! "
248.     END SELECT
249.     Control(ChooseYourMoveAndWaitAIsOneLB).Hidden = False 'show result as text in helplabel
250.     Control(ChooseYourMoveAndWaitAIsOneLB).Disabled = False
251. END SUB
252.  
253. SUB playAI (choose AS INTEGER)
254.     PlayerChoose = 1 ' the user has made his choice
255.     DIM choosen AS INTEGER
256.     choosen = INT(RND * 5) + 1 ' ai chooses
257.     Control(ChooseYourMoveAndWaitAIsOneLB).Hidden = True ' hide help label
258.     Control(ChooseYourMoveAndWaitAIsOneLB).Disabled = True
259.     LoadImage Control(assetsRPSLS_helpjpgPX), "" ' reset to null image of ai's choice
260.  
261.     SELECT CASE choosen
262.         CASE paper
263.             ' AI chooses to play paper
264.             LoadImage Control(assetsRPSLS_helpjpgPX), "assets\carta.jpg"
265.             SELECT CASE choose
266.                 CASE paper
267.                     'draw
268.                     results draws
269.                 CASE rock
270.                     ' failure
271.                     results looses
272.                 CASE scissor
273.                     ' victory
274.                     results wins
275.                 CASE spok
276.                     ' failure
277.                     results looses
278.                 CASE lizard
279.                     ' victory
280.                     results wins
281.             END SELECT
282.  
283.         CASE rock
284.             ' AI chooses to play rock
285.             LoadImage Control(assetsRPSLS_helpjpgPX), "assets\sasso.jpg"
286.             SELECT CASE choose
287.                 CASE paper
288.                     'victory
289.                     results wins
290.                 CASE rock
291.                     ' draw
292.                     results draws
293.                 CASE scissor
294.                     ' loose
295.                     results looses
296.                 CASE spok
297.                     'victory
298.                     results wins
299.                 CASE lizard
300.                     ' loose
301.                     results looses
302.             END SELECT
303.  
304.         CASE scissor
305.             ' AI chooses to play scissor
306.             LoadImage Control(assetsRPSLS_helpjpgPX), "assets\forbice.png"
307.             SELECT CASE choose
308.                 CASE paper
309.                     'failure
310.                     results looses
311.                 CASE rock
312.                     ' victory
313.                     results wins
314.                 CASE scissor
315.                     ' draw
316.                     results draws
317.                 CASE spok
318.                     ' victory
319.                     results wins
320.                 CASE lizard
321.                     'failure
322.                     results looses
323.             END SELECT
324.         CASE spok
325.             ' AI chooses to play spok
326.             LoadImage Control(assetsRPSLS_helpjpgPX), "assets\Spok.png"
327.             SELECT CASE choose
328.                 CASE paper
329.                     ' victory
330.                     results wins
331.                 CASE rock
332.                     'failure
333.                     results looses
334.                 CASE scissor
335.                     'failure
336.                     results looses
337.                 CASE spok
338.                     ' draw
339.                     results draws
340.                 CASE lizard
341.                     ' victory
342.                     results wins
343.             END SELECT
344.         CASE lizard
345.             'AI chooses to play lizard
346.             LoadImage Control(assetsRPSLS_helpjpgPX), "assets\lizard.png"
347.             SELECT CASE choose
348.                 CASE paper
349.                     'failure
350.                     results looses
351.                 CASE rock
352.                     ' victory
353.                     results wins
354.                 CASE scissor
355.                     ' victory
356.                     results wins
357.                 CASE spok
358.                     'failure
359.                     results looses
360.                 CASE lizard
361.                     ' draw
362.                     results draws
363.             END SELECT
364.     END SELECT
365. END SUB
366.  
367.  
368. SUB __UI_MouseEnter (id AS LONG)
369.     SELECT CASE id
370.         CASE RockHandScissor
371.  
372.         CASE ScoreLB
373.  
374.         CASE Frame1
375.  
376.         CASE StartBT
377.  
378.         CASE ExitBT
379.  
380.         CASE HelpBT
381.  
382.         CASE ScoreNLB
383.  
384.         CASE ROCKHANDSCISSORGAMELB
385.  
386.  
387.  
388.     END SELECT
389. END SUB
390.  
391. SUB __UI_MouseLeave (id AS LONG)
392.     SELECT CASE id
393.         CASE RockHandScissor
394.  
395.         CASE ScoreLB
396.  
397.         CASE Frame1
398.  
399.         CASE StartBT
400.  
401.         CASE ExitBT
402.  
403.         CASE HelpBT
404.  
405.         CASE ScoreNLB
406.  
407.         CASE ROCKHANDSCISSORGAMELB
408.  
409.         CASE ChooseYourMoveAndWaitAIsOneLB
410.  
411.     END SELECT
412. END SUB
413.  
414. SUB __UI_FocusIn (id AS LONG)
415.     SELECT CASE id
416.         CASE StartBT
417.  
418.         CASE ExitBT
419.  
420.         CASE HelpBT
421.  
422.     END SELECT
423. END SUB
424.  
425. SUB __UI_FocusOut (id AS LONG)
426.     'This event occurs right before a control loses focus.
427.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
428.     SELECT CASE id
429.         CASE StartBT
430.  
431.         CASE ExitBT
432.  
433.         CASE HelpBT
434.  
435.     END SELECT
436. END SUB
437.  
438. SUB __UI_MouseDown (id AS LONG)
439.     SELECT CASE id
440.         CASE RockHandScissor
441.  
442.         CASE ScoreLB
443.  
444.         CASE Frame1
445.  
446.         CASE StartBT
447.  
448.         CASE ExitBT
449.  
450.         CASE HelpBT
451.  
452.         CASE ScoreNLB
453.  
454.         CASE ROCKHANDSCISSORGAMELB
455.  
456.         CASE HelpHLB
457.  
458.     END SELECT
459. END SUB
460.  
461. SUB __UI_MouseUp (id AS LONG)
462.     SELECT CASE id
463.         CASE RockHandScissor
464.  
465.         CASE ScoreLB
466.  
467.         CASE Frame1
468.  
469.         CASE StartBT
470.  
471.         CASE ExitBT
472.  
473.         CASE HelpBT
474.  
475.         CASE ScoreNLB
476.  
477.         CASE ROCKHANDSCISSORGAMELB
478.  
479.         CASE HelpHLB
480.  
481.     END SELECT
482. END SUB
483.  
484. SUB __UI_KeyPress (id AS LONG)
485.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
486.     'You can change it and even cancel it by making it = 0
487.     SELECT CASE id
488.         CASE StartBT
489.  
490.         CASE ExitBT
491.  
492.         CASE HelpBT
493.  
494.     END SELECT
495. END SUB
496.  
497. SUB __UI_TextChanged (id AS LONG)
498.     SELECT CASE id
499.     END SELECT
500. END SUB
501.  
502. SUB __UI_ValueChanged (id AS LONG)
503.     SELECT CASE id
504.     END SELECT
505. END SUB
506.  
507. SUB __UI_FormResized
508.  
509. END SUB
510.  

 

 

Text Only | Text with Attachments