89 lines
2.1 KiB
Text
89 lines
2.1 KiB
Text
Dim Shared As Byte ganador = 1, accion = 2, perdedor = 3, wp, wc
|
|
Dim Shared As String word(10, 3)
|
|
For n As Byte = 0 To 9
|
|
Read word(n, ganador), word(n, accion), word(n, perdedor)
|
|
Next n
|
|
|
|
Sub SimonSay(n As Byte)
|
|
Print Using "\ \ \ \ "; word(n, ganador); word(n, accion); word(n, perdedor)
|
|
End Sub
|
|
|
|
Sub Puntuacion()
|
|
Print !"\nPlayer = "; wp; !"\tComputer = "; wc; !"\n"
|
|
End Sub
|
|
|
|
Dim As Byte n
|
|
Dim As String*1 k
|
|
Dim As String eleccionCPU, eleccionJUG
|
|
Randomize Timer
|
|
Do
|
|
Cls
|
|
eleccionCPU = word(Rnd *10, ganador)
|
|
|
|
Print !"'Rock, Paper, Scissors, Lizard, Spock!' rules are:\n"
|
|
For n = 0 To 9
|
|
SimonSay(n)
|
|
Next n
|
|
|
|
Print !"\nType your choice letter:"
|
|
Input !"(R)ock, (P)aper, (S)cissors, (L)izard, Spoc(K), (Q)uit ", k
|
|
|
|
k = Ucase(k)
|
|
Select Case k
|
|
Case "Q"
|
|
Exit Do
|
|
Case "R"
|
|
eleccionJUG = "Rock"
|
|
Case "P"
|
|
eleccionJUG = "Paper"
|
|
Case "S"
|
|
eleccionJUG = "Scissors"
|
|
Case "L"
|
|
eleccionJUG = "Lizard"
|
|
Case "K"
|
|
eleccionJUG = "Spock"
|
|
End Select
|
|
|
|
Print !"\nPlayer chose "; eleccionJUG; " and Computer chose "; eleccionCPU
|
|
For n = 0 To 9
|
|
If word(n, ganador) = eleccionJUG And word(n, perdedor) = eleccionCPU Then
|
|
SimonSay(n)
|
|
Print !"\nWinner was Player"
|
|
wp += 1
|
|
Exit For
|
|
Elseif word(n, ganador) = eleccionCPU And word(n, perdedor) = eleccionJUG Then
|
|
SimonSay(n)
|
|
Print !"\nWinner was Computer"
|
|
wc += 1
|
|
Exit For
|
|
End If
|
|
Next n
|
|
If n = 10 Then Print !"\nOuch!"
|
|
|
|
Puntuacion()
|
|
Print "Press <SPACE> to continue"
|
|
Sleep
|
|
Loop Until(k = "Q")
|
|
|
|
Cls
|
|
Puntuacion()
|
|
If wp > wc Then
|
|
Print "Player win"
|
|
Elseif wc > wp Then
|
|
Print "Computer win"
|
|
Else
|
|
Print "Tie"
|
|
End If
|
|
Sleep
|
|
End
|
|
|
|
Data "Scissors","cuts","Paper"
|
|
Data "Paper","covers","Rock"
|
|
Data "Rock","crushes","Lizard"
|
|
Data "Lizard","poisons","Spock"
|
|
Data "Spock","smashes","Scissors"
|
|
Data "Scissors","decapites","Lizard"
|
|
Data "Lizard","eats","Paper"
|
|
Data "Paper","disproves","Spock"
|
|
Data "Spock","vaporizes","Rock"
|
|
Data "Rock","blunts","Scissors"
|