Dim Player1 As String
Dim Player2 As String
Dim Weapon As Integer
Private Sub Command1_Click()
Weapon = Int(3 * Rnd) + 1
Do
Player1 = InputBox("Choose Scissors Paper or Stone.", "Player1")
If Player1 <> "Scissors" And Player1 <> "Paper" And Player1 <> "Stone" Then
Print MsgBox("Either you cant spell or you are not using capitals, please obey!!")
End If
Loop Until (Player1 = "Scissors" Or Player1 = "Paper" Or Player1 = "Stone")
If Weapon = 1 Then
Player2 = "Scissors"
ElseIf Weapon = 2 Then
Player2 = "Paper"
ElseIf Weapon = 3 Then
Player2 = "Stone"
End If
If Player1 = "Scissors" And Player2 = "Scissors" Then
Print MsgBox("Its a Draw, the computer chose Scissors")
ElseIf Player1 = "Scissors" And Player2 = "Paper" Then
Print MsgBox("Player1 Wins!! The computer chose Paper")
ElseIf Player1 = "Scissors" And Player2 = "Stone" Then
Print MsgBox("Computer Wins!! The computer chose Stone")
ElseIf Player1 = "Paper" And Player2 = "Paper" Then
Print MsgBox("Its a Draw, the computer chose Paper")
ElseIf Player1 = "Paper" And Player2 = "Scissors" Then
Print MsgBox("Computer Wins!! The computer chose Scissors")
ElseIf Player1 = "Paper" And Player2 = "Stone" Then
Print MsgBox("Player1 Wins!! The computer chose Stone")
ElseIf Player1 = "Stone" And Player2 = "Paper" Then
Print MsgBox("Computer Wins!! The computer chose Paper")
ElseIf Player1 = "Stone" And Player2 = "Scissors" Then
Print MsgBox("Player1 Wins!! The computer chose Scissors")
ElseIf Player1 = "Stone" And Player2 = "Stone" Then
Print MsgBox("Its a Draw, the computer chose Stone")
Else
Print MsgBox("Agghhh. Whats happening???")
End If
End Sub
Private Sub Command2_Click()
Choose.Show
Unload Me
End Sub