Last active
April 6, 2018 23:53
-
-
Save HotelCalifornia/e4d3e5fc5a1950027eee5ba9d9fbc3ef to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
If intDice1Rnd = 1 And intDice2Rnd = 1 Then | |
txtRoll.Text = "Snake Eyes" | |
Else | |
If intDice1Rnd = 1 And intDice2Rnd = 2 Then | |
txtRoll.Text = "Ace Deuce" | |
Else | |
If intDice1Rnd = 1 And intDice2Rnd = 3 Then | |
txtRoll.Text = "Easy Four" | |
Else | |
If intDice1Rnd = 1 And intDice2Rnd = 4 Then | |
txtRoll.Text = "Fever Five" | |
Else | |
If intDice1Rnd = 1 And intDice2Rnd = 5 Then | |
txtRoll.Text = "Easy Six" | |
Else | |
If intDice1Rnd = 1 And intDice2Rnd = 6 Then | |
txtRoll.Text = "Natural" | |
Else | |
If intDice1Rnd = 2 And intDice2Rnd = 2 Then | |
txtRoll.Text = "Hard Four" | |
Else | |
If intDice1Rnd = 2 And intDice2Rnd = 3 Then | |
txtRoll.Text = "Fever Five" | |
Else | |
If intDice1Rnd = 2 And intDice2Rnd = 4 Then | |
txtRoll.Text = "Easy Six" | |
Else | |
If intDice1Rnd = 2 And intDice2Rnd = 5 Then | |
txtRoll.Text = "Natural" | |
Else | |
If intDice1Rnd = 2 And intDice2Rnd = 6 Then | |
txtRoll.Text = "Easy Eight" | |
Else | |
If intDice1Rnd = 3 And intDice2Rnd = 3 Then | |
txtRoll.Text = "Hard Six" | |
Else | |
If intDice1Rnd = 3 And intDice2Rnd = 4 Then | |
txtRoll.Text = "Natural" | |
Else | |
If intDice1Rnd = 3 And intDice2Rnd = 5 Then | |
txtRoll.Text = "Easy Eight" | |
Else | |
If intDice1Rnd = 3 And intDice2Rnd = 6 Then | |
txtRoll.Text = "Nina" | |
Else | |
If intDice1Rnd = 4 And intDice2Rnd = 4 Then | |
txtRoll.Text = "Hard Eight" | |
Else | |
If intDice1Rnd = 4 And intDice2Rnd = 5 Then | |
txtRoll.Text = "Nina" | |
Else | |
If intDice1Rnd = 4 And intDice2Rnd = 6 Then | |
txtRoll.Text = "Easy Ten" | |
Else | |
If intDice1Rnd = 5 And intDice2Rnd = 5 Then | |
txtRoll.Text = "Hard Ten" | |
Else | |
If intDice1Rnd = 5 And intDice2Rnd = 6 Then | |
txtRoll.Text = "Yo-leven" | |
Else | |
If intDice1Rnd = 6 And intDice2Rnd = 6 Then | |
txtRoll.Text = "Boxcars" | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
' For the same as above, but for the opposite dice combos (just in case) | |
If intDice2Rnd = 1 And intDice1Rnd = 1 Then | |
txtRoll.Text = "Snake Eyes" | |
Else | |
If intDice2Rnd = 1 And intDice1Rnd = 2 Then | |
txtRoll.Text = "Ace Deuce" | |
Else | |
If intDice2Rnd = 1 And intDice1Rnd = 3 Then | |
txtRoll.Text = "Easy Four" | |
Else | |
If intDice2Rnd = 1 And intDice1Rnd = 4 Then | |
txtRoll.Text = "Fever Five" | |
Else | |
If intDice2Rnd = 1 And intDice1Rnd = 5 Then | |
txtRoll.Text = "Easy Six" | |
Else | |
If intDice2Rnd = 1 And intDice1Rnd = 6 Then | |
txtRoll.Text = "Natural" | |
Else | |
If intDice2Rnd = 2 And intDice1Rnd = 2 Then | |
txtRoll.Text = "Hard Four" | |
Else | |
If intDice2Rnd = 2 And intDice1Rnd = 3 Then | |
txtRoll.Text = "Fever Five" | |
Else | |
If intDice2Rnd = 2 And intDice1Rnd = 4 Then | |
txtRoll.Text = "Easy Six" | |
Else | |
If intDice2Rnd = 2 And intDice1Rnd = 5 Then | |
txtRoll.Text = "Natural" | |
Else | |
If intDice2Rnd = 2 And intDice1Rnd = 6 Then | |
txtRoll.Text = "Easy Eight" | |
Else | |
If intDice2Rnd = 3 And intDice1Rnd = 3 Then | |
txtRoll.Text = "Hard Six" | |
Else | |
If intDice2Rnd = 3 And intDice1Rnd = 4 Then | |
txtRoll.Text = "Natural" | |
Else | |
If intDice2Rnd = 3 And intDice1Rnd = 5 Then | |
txtRoll.Text = "Easy Eight" | |
Else | |
If intDice2Rnd = 3 And intDice1Rnd = 6 Then | |
txtRoll.Text = "Nina" | |
Else | |
If intDice2Rnd = 4 And intDice1Rnd = 4 Then | |
txtRoll.Text = "Hard Eight" | |
Else | |
If intDice2Rnd = 4 And intDice1Rnd = 5 Then | |
txtRoll.Text = "Nina" | |
Else | |
If intDice2Rnd = 4 And intDice1Rnd = 6 Then | |
txtRoll.Text = "Easy Ten" | |
Else | |
If intDice2Rnd = 5 And intDice1Rnd = 5 Then | |
txtRoll.Text = "Hard Ten" | |
Else | |
If intDice2Rnd = 5 And intDice1Rnd = 6 Then | |
txtRoll.Text = "Yo-leven" | |
Else | |
If intDice2Rnd = 6 And intDice1Rnd = 6 Then | |
txtRoll.Text = "Boxcars" | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If | |
End If |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
great pyramids of giza