• Home
 · 
• Games
 · 
• This a game simalar to Yatzee, fun though!

This a game simalar to Yatzee, fun though!

This a game simalar to Yatzee, fun though!

Rate This a game simalar to Yatzee, fun though!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim score As Integer
Dim rerolls As Integer
Dim d As Integer
Dim rolls As Integer

Private Sub Command1_Click()
d = Int(Rnd * 6) + 1
MsgBox d
rolls = rolls + 1
If rolls = 1 Then Text1.Text = d
If rolls = 2 Then Text2.Text = d
If rolls = 3 Then Text3.Text = d


End Sub

Private Sub Command2_Click()
rolls = 1
MsgBox "To start press Roll !!"
End Sub

Private Sub Command3_Click()
    d = Int(Rnd * 6) + 1
    MsgBox d
    rerolls = rerolls + 1
    If rerolls = 4 Then
    MsgBox "You lose"
    End
    End If
        
    If rolls = 1 Then Text1.Text = d
    If rolls = 2 Then Text2.Text = d
    If rolls = 3 Then Text3.Text = d
    
        

    
End Sub


Private Sub Command4_Click()
If Text1.Text = Text2.Text And Text2.Text = Text3.Text Then
score = 21
Else
score = score + Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
Text4.Text = score
End If
rolls = 0
rerolls = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub