<%@ Page Language="VB" %>
Sub Button1_Click(sender As Object, e As EventArgs)
Label3.Visible = False
Label1.Text = Int(Rnd() * 6) + 1
Label2.Text = Int(Rnd() * 6) + 1
Image2.ImageUrl = "http://www.rntsoft.com/style/logo.png"
Image3.ImageUrl = "http://www.rntsoft.com/style/logo.png"
If Label1.Text = "1" And Label2.Text = "1" Then
Label5.Text = Label4.Text
If CInt(Label5.Text) > CInt(Label6.Text) Then
Label6.Text = label5.Text
Panel1.Visible = True
End If
Label4.Text = 0
Label3.Visible = True
Else
Label4.Text = CInt(Label4.Text) + CInt(Label1.Text) + CInt(Label2.Text)
End If
End Sub
Sub Button2_Click(sender As Object, e As EventArgs)
Label6.Text = 0
End Sub
Sub Button3_Click(sender As Object, e As EventArgs)
Panel1.Visible = False
End Sub
0
0
Ooops, you did it again :(
0
Last Score:
0
High Score:
0
Well done, you can now submit your high score.
Name:
E-mail: