Paper, Rock, Scissors - Challenge

[guinness]

Challenge: Create the smallest number lines of AutoIt code to create a paper, rock, scissors game in which you ask for the user's choice and generate a random result for the computer.

Good luck.

Note: Mat can't play in this game. Sorry!

If this needs to be moved then by all means move it to an appropriate location. Thanks.

[gottygolly]

its not that good but I figured I do it. I spent like 10 minutes on it I might try to make a better one

expandcollapse popup

$gamegui = GUICreate("Main",300,200)

$rock = GUICtrlCreateButton("Rock",0,0,100,30)
$paper = GUICtrlCreateButton("Paper",100,0,100,30)
$scissor = GUICtrlCreateButton("Scissors",200,0,100,30)

GUISetState()

while 1
   $msg = GUIGetMsg(1)
   Switch $msg[1]
Case $gamegui
   Switch $msg[0]
Case $rock
   $npc = Random(1,3,1)
   MsgBox(4096,"Rock","You have chosen Rock. Goodluck!")
   $rockval = 1
   If $npc = 1 Then
              MsgBox(4096,"","Npc has chosen: Rock")
              $npcrock = 1
           Else
              If $npc = 2 Then
                      MsgBox(4096,"","Npc has chosen: Paper")
                      $npcpaper = 2
                   Else
                      If $npc = 3 Then
                              MsgBox(4096,"","Npc has chosen: Scissor")
                              $npcscissor = 3
                           EndIf
                        EndIf
                     EndIf
   If $npc = 1 And $rockval = 1 Then
   MsgBox(4096,"Tie!","You have tied!")
Else
   $paperval = 2
   $scissorval = 3
   If $npc = 1 And $scissorval = 3 or $paperval = 2 Then
   MsgBox(4096,"Winner","You won!")
   EndIf
EndIf

Case $paper
   $npc = Random(1,3,1)
   MsgBox(4096,"Paper","You have chosen Paper. Goodluck!")
   $paperval = 2
   If $npc = 1 Then
              MsgBox(4096,"","Npc has chosen: Rock")
              $npcrock = 1
           Else
              If $npc = 2 Then
                      MsgBox(4096,"","Npc has chosen: Paper")
                      $npcpaper = 2
                   Else
                      If $npc = 3 Then
                              MsgBox(4096,"","Npc has chosen: Scissor")
                              $npcscissor = 3
                           EndIf
                        EndIf
                     EndIf
   If $npc = 2 And $paperval = 2 Then
   MsgBox(4096,"Tie!","You have tied!")
Else
   $rockval = 1
   $scissorval = 3
   If $npc = 1 And $rockval = 1 or $scissorval = 3 Then
   MsgBox(4096,"Winner","You won!")
   EndIf
EndIf
Case $scissor
   $npc = Random(1,3,1)
   MsgBox(4096,"Scissor","You have chosen Scissor. Goodluck!")
   $scissorval = 3
   If $npc = 1 Then
              MsgBox(4096,"","Npc has chosen: Rock")
              $npcrock = 1
           Else
              If $npc = 2 Then
                      MsgBox(4096,"","Npc has chosen: Paper")
                      $npcpaper = 2
                   Else
                      If $npc = 3 Then
                              MsgBox(4096,"","Npc has chosen: Scissor")
                              $npcscissor = 3
                           EndIf
                        EndIf
                     EndIf
   If $npc = 3 And $scissorval = 3 Then
   MsgBox(4096,"Tie!","You have tied!")
Else
   $paperval = 2
   $rockval = 1
   If $npc = 1 And $rockval = 1 or $paperval = 2 Then
   MsgBox(4096,"Winner","You won!")
   EndIf
EndIf
Case -3
   Exit
   EndSwitch
   EndSwitch
   WEnd

[guinness]

Great. You could use just InputBox() and ConsoleWrite(). Try to think outside the box.

[Wiliat87]

Global $sU = StringLeft(StringLower(StringStripWS(InputBox("Paper, Rock, Scissors - Challenge", "Type paper/rock/scissors"), 8)), 1)
If StringRegExp($sU, "^[prs]", 1) = 0 Then Exit MsgBox("", "", "Error")
Global $sC = (Random(0, 1, 1) ? (Random(0, 1, 1) ? (Random(0, 1, 1) ? "p" : "r") : "s") : (Random(0, 1, 1) ? (Random(0, 1, 1) ? "p" : "r") : "s"))
Select
    Case $sU = $sC
        MsgBox("", $sU & " vs. " & $sC, "tie")
    Case ($sU = "p" And $sC = "r") Or ($sU = "r" And $sC = "s") Or ($sU = "s" And $sC = "p")
        MsgBox("", $sU & " vs. " & $sC, "You win")
    Case ($sC = "p" And $sU = "r") Or ($sC = "r" And $sU = "s") Or ($sC = "s" And $sU = "p")
        MsgBox("", $sU & " vs. " & $sC, "You lose")
EndSelect

[guinness]

Great. That's on the right track. Thanks for your submission.

Edit: I notice just by looking it will accept price/scary/rubber as valid choices too.

Edited March 5, 2014 by guinness

[guinness]

Oh, and before someone accuses me of being lazy I already have something, but am laying off presenting it until entries stop.

[JLogan3o13]

You said nothing about good coding practice

Edit: I swiped gottygolly's code

Test.au3

Edited March 5, 2014 by JLogan3o13

[guinness]

I knew I should have mentioned the no executing as a "separate script" JLogan3o13.

[Melba23]

guinness,

My offering:

$iUser = String(InputBox("Choose your move", "0 = Paper; 1 = Rock, 2 = Scissors"))
If $iUser = "0" Or $iUser = "1" Or $iUser = "2" Then
    $iOpponent = Random(0, 2, 1)
    ConsoleWrite("You: " & $iUser & " vs " & $iOpponent & " :Computer = " & ( ($iUser = $iOpponent) ? ("A Draw") : ( ($iOpponent = Mod($iUser + 2, 3)) ? ("Comp Wins") : ("You Win")  ) ) & @CRLF)
EndIf

If you want it a bit more "user-friendly" then you need an extra line:

Global $aItem[3] = ["Paper", "Rock", "Scissors"]
$iUser = String(InputBox("Choose your move", "0 = Paper; 1 = Rock, 2 = Scissors"))
If $iUser = "0" Or $iUser = "1" Or $iUser = "2" Then
    $iOpponent = Random(0, 2, 1)
    ConsoleWrite("You: " & $aItem[$iUser] & " vs " & $aItem[$iOpponent] & " :Computer = " & ( ($iUser = $iOpponent) ? ("A Draw") : ( ($iOpponent = Mod($iUser + 2, 3)) ? ("Comp Wins") : ("You Win")  ) ) & @CRLF)
EndIf

M23

[guinness]

Now we're talking Thanks Melba23 & rindeal.

You can have multiple selections but I will take your last submission as being your final.

[Wiliat87]

Global $aItem[3] = ["Paper", "Rock", "Scissors"], $iUser = String(InputBox("Choose your move", "0 = Paper; 1 = Rock, 2 = Scissors")),$iOpponent = Random(0, 2, 1), $sResult=($iUser = "0" Or $iUser = "1" Or $iUser = "2") ? MsgBox("", "You: " & $aItem[$iUser] & " vs " & $aItem[$iOpponent] & " :Computer", (($iUser = $iOpponent) ? ("A Draw") : (($iOpponent = Mod($iUser + 2, 3)) ? ("Comp Wins") : ("You Win"))) & @CRLF) : MsgBox("", "", "Error")

I've just found out that it can be oneliner

Edited March 5, 2014 by rindeal

[JohnQSmith]

I did something similar to M23.

$player = InputBox("","Rock (4), Paper (2), or Scissors (1)")
$computer = Random(1,3,1)
If $computer=3 Then $computer=4
$test = $player - $computer
MsgBox(0,"","You " & (($test = 0)?("tie") :(($test=1)or($test=2)or($test=-3))?("win") :("lose")))

[guinness]

Global $aItem[3] = ["Paper", "Rock", "Scissors"], $iUser = String(InputBox("Choose your move", "0 = Paper; 1 = Rock, 2 = Scissors")),$iOpponent = Random(0, 2, 1), $sResult=($iUser = "0" Or $iUser = "1" Or $iUser = "2") ? MsgBox("", "You: " & $aItem[$iUser] & " vs " & $aItem[$iOpponent] & " :Computer", (($iUser = $iOpponent) ? ("A Draw") : (($iOpponent = Mod($iUser + 2, 3)) ? ("Comp Wins") : ("You Win"))) & @CRLF) : MsgBox("", "", "Error")

I've just found out that it can be oneliner

That's what I did kind of. Though you're lucky AutoIt uses a variant datatype as in C# that would across more than one line (see Dev section for my C# submission.)

Edited March 5, 2014 by guinness

[Bert]

Note: Mat can't play in this game. Sorry!

(he would win too!)

[FireFox]

This can be shorter but I wanted to make a square :

Local $0 = "rock", $1 = "paper", _
$2 = "scissors", $4 = 0, $5 = 1, _
$8 = 2, $z = Random(0, 2, 1), $x _
= InputBox("choice ?", $0 & ", " _
& $1 & " or " & $2 & " :"), $v = _
Eval, $w = $v(StringLen($x)), $u _
= MsgBox(0, "res", $x & " vs " & _
Eval($z) & ":" & (($x = Eval($z) _
) ? " draw" : ($w + 1 = $z Or $w _
-2 = $z) ? " lose" : " win"))

I can't do better than Melba with his Mod trick

[guinness]

I win!

 

One line and one declaration only! (I said check out my C# example!.)

#AutoIt3Wrapper_Run_Au3Check=N
Local $aAnswers[] = [InputBox("Paper, Rock, Scissors by guinness (c) 2014", "1 = Rock, 2 = Paper, 3 = Scissors"), "Rock", "Paper", "Scissors", String(Random(1, 3, 1)), MsgBox(4096, "Paper, Rock, Scissors by guinness (c) 2014", (($aAnswers[0] <> "1" And $aAnswers[0] <> "2" And $aAnswers[0] <> "3") ? "Please enter a valid value next time." : "You chose " & $aAnswers[Int($aAnswers[0])] & " and the computer chose " & $aAnswers[Int($aAnswers[4])] & " with an outcome of " & (($aAnswers[0] == $aAnswers[4]) ? "the same" : ((($aAnswers[0] == "1" And $aAnswers[4] == "3") Or ($aAnswers[0] == "2" And $aAnswers[4] == "1") Or ($aAnswers[0] == "3" And $aAnswers[4] == "2")) ? "winning" : "losing"))) & @CRLF)]

Or this even >>

 

#AutoIt3Wrapper_Run_Au3Check=N
Local $aAnswers[] = [Int(InputBox("Paper, Rock, Scissors by guinness (c) 2014", "1 = Rock, 2 = Paper, 3 = Scissors")), "Rock", "Paper", "Scissors", Int(Random(1, 3, 1)), MsgBox(4096, "Paper, Rock, Scissors by guinness (c) 2014", ((StringRegExp($aAnswers[0], "^[123]{1}$") = 0) ? "Please enter a valid value next time." : "You chose " & $aAnswers[$aAnswers[0]] & " and the computer chose " & $aAnswers[$aAnswers[4]] & " with an outcome of " & (($aAnswers[0] = $aAnswers[4]) ? "the same" : ((($aAnswers[0] = 1 And $aAnswers[4] = 3) Or ($aAnswers[0] = 2 And $aAnswers[4] = 1) Or ($aAnswers[0] = 3 And $aAnswers[4] = 2)) ? "winning" : "losing"))) & @CRLF)]

What I mean by the one declaration is I am only using one variable, whereas I see most are taking advantage of AutoIt's use of the variant datatype. Edited March 5, 2014 by guinness

[Wiliat87]

Wow, I didn't know that this

$aArray[]=["foo",$aArray[0]]

is possible...

[guinness]

Wow, I didn't know that this

$aArray[]=["foo",$aArray[0]]

is possible...

So what do you say? Fill in the missing word... guinness you are ..... Edited March 5, 2014 by guinness

[mikell]

guinness,

With your 2nd version using a regex you'd rather use this one

StringRegExp($aAnswers[0], "([^123])|(.{2,})")

Cause if you actually type "12" you get a nice crash 

[guinness]

guinness,

With your 2nd version using a regex you'd rather use this one

StringRegExp($aAnswers[0], "([^123])|(.{2,})")

Cause if you actually type "12" you get a nice crash 

Fixed. See my regexp as your version is a little over complex.

Edit: StringRegExp($aAnswers[0], "^[123]{1}$") = 0 is all it should be.

Edited March 5, 2014 by guinness