« previous next »
Pages: [1]   Go Down

Author Topic: Rock Paper Scissors (Lizard Spock) Game by TempodiBasic  (Read 7666 times)

0 Members and 1 Guest are viewing this topic.

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Rock Paper Scissors (Lizard Spock) Game by TempodiBasic
« 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
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
  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.  
  44.  
  45. SUB __UI_OnLoad
  47.     Caption(LB) = "0000"
  48.     PlayerChoose = 0
  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
  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
  69.  
  70. SUB __UI_BeforeUnload
  71.     'If you set __UI_UnloadSignal = False here you can
  72.     'cancel the user's request to close.
  73.  
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  496.  
  497. SUB __UI_TextChanged (id AS LONG)
  498.     SELECT CASE id
  499.     END SELECT
  501.  
  502. SUB __UI_ValueChanged (id AS LONG)
  503.     SELECT CASE id
  504.     END SELECT
  506.  
  507. SUB __UI_FormResized
  508.  
  510.  

 
RockPaperScissors_Game Working Screenshot.jpg


 
RockPaperScissors_Help Screenshot.jpg

* [Inform] RockPaperScissorsSpockLizardGame.zip (Filesize: 497.33 KB, Downloads: 450)
* [Inform] RockPaperScissorsSpockLizardGame.rar (Filesize: 496.75 KB, Downloads: 488)
« Last Edit: May 01, 2020, 05:11:32 am by Qwerkey »
Logged
Pages: [1]   Go Up
« previous next »