96 lines
4.2 KiB
VB.net
96 lines
4.2 KiB
VB.net
Public Class MainMenu
|
|
Dim Count As Integer = 1
|
|
Private Sub MainMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If PhilMode = False Then
|
|
DeactivatePhilMode()
|
|
ElseIf PhilMode = True Then
|
|
ActivatePhilMode()
|
|
End If
|
|
End Sub
|
|
Private Sub btnPhilMode_Click(sender As Object, e As EventArgs) Handles btnPhilMode.Click
|
|
If PhilMode = False Then
|
|
PhilMode = True
|
|
ActivatePhilMode()
|
|
ElseIf PhilMode = True Then
|
|
PhilMode = False
|
|
DeactivatePhilMode()
|
|
End If
|
|
End Sub
|
|
Private Sub btnQuitGame_Click(sender As Object, e As EventArgs) Handles btnQuitGame.Click
|
|
SplashScreen.Close()
|
|
End Sub
|
|
Private Sub tmrAnimatePhil_Tick(sender As Object, e As EventArgs) Handles tmrAnimatePhil.Tick
|
|
Randomize()
|
|
Count = Count - 1
|
|
If Count = 0 Then
|
|
picPhil1.Location = New Point(CInt(Int((10 * Rnd()) + (Screen.PrimaryScreen.Bounds.Width / 100) * 1.5625)), CInt(Int((10 * Rnd()) + Screen.PrimaryScreen.Bounds.Height / 100) * 1.30208333333))
|
|
picPhil2.Location = New Point(CInt(Int((10 * Rnd()) + (Screen.PrimaryScreen.Bounds.Width / 100) * 47)), CInt(Int((10 * Rnd()) + Screen.PrimaryScreen.Bounds.Height / 100) * 1.30208333333))
|
|
Count = 1
|
|
End If
|
|
End Sub
|
|
Sub ActivatePhilMode()
|
|
MusicPlayer.PlayBuckInHammPalace()
|
|
|
|
tmrAnimatePhil.Enabled = True
|
|
picPhil1.Visible = True
|
|
picPhil2.Visible = True
|
|
|
|
btnNewGame.ForeColor = Color.Yellow
|
|
btnNewGame.Font = New Font(btnNewGame.Font, FontStyle.Bold)
|
|
btnLoadGame.ForeColor = Color.Yellow
|
|
btnLoadGame.Font = New Font(btnLoadGame.Font, FontStyle.Bold)
|
|
picCoatofArms.Image = My.Resources.PhilCoatofArms
|
|
btnPhilMode.Text = "Disable Phil Mode"
|
|
btnPhilMode.ForeColor = Color.DarkGray
|
|
btnPhilMode.Font = New Font(btnPhilMode.Font, FontStyle.Regular)
|
|
End Sub
|
|
Sub DeactivatePhilMode()
|
|
MusicPlayer.PlayRuleBritannia()
|
|
|
|
tmrAnimatePhil.Enabled = False
|
|
picPhil1.Visible = False
|
|
picPhil2.Visible = False
|
|
|
|
btnNewGame.ForeColor = Color.DarkGray
|
|
btnNewGame.Font = New Font(btnNewGame.Font, FontStyle.Regular)
|
|
btnLoadGame.ForeColor = Color.DarkGray
|
|
btnLoadGame.Font = New Font(btnLoadGame.Font, FontStyle.Regular)
|
|
picCoatofArms.Image = My.Resources.UKCoatofArms
|
|
btnPhilMode.Text = "PHIL MODE"
|
|
btnPhilMode.ForeColor = Color.Yellow
|
|
btnPhilMode.Font = New Font(btnPhilMode.Font, FontStyle.Bold)
|
|
End Sub
|
|
|
|
Private Sub btnNewGame_Click(sender As Object, e As EventArgs) Handles btnNewGame.Click
|
|
CharacterCreation.Show()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub MainMenu_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
|
picCoatofArms.Width = Screen.PrimaryScreen.Bounds.Height
|
|
|
|
pnlMenu.Height = Screen.PrimaryScreen.Bounds.Height
|
|
pnlMenu.Width = (Screen.PrimaryScreen.Bounds.Width - picCoatofArms.Width)
|
|
pnlMenu.Location = New Point(picCoatofArms.Width, pnlMenu.Location.Y)
|
|
|
|
btnNewGame.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20)
|
|
btnNewGame.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 44)
|
|
|
|
btnPhilMode.Width = btnNewGame.Width / 2
|
|
btnPhilMode.Location = New Point(btnNewGame.Location.X + (btnNewGame.Width / 2), (pnlMenu.Height / 100) * 50)
|
|
|
|
btnLoadGame.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20)
|
|
btnLoadGame.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 58)
|
|
|
|
btnQuitGame.Width = btnNewGame.Width / 2
|
|
btnQuitGame.Location = New Point(btnNewGame.Location.X + (btnNewGame.Width / 4), (pnlMenu.Height / 100) * 86)
|
|
|
|
picRoyaltySimulatorLogo.Width = btnNewGame.Width
|
|
picRoyaltySimulatorLogo.Height = (pnlMenu.Height / 100) * 30
|
|
picRoyaltySimulatorLogo.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 10)
|
|
End Sub
|
|
|
|
Private Sub btnLoadGame_Click(sender As Object, e As EventArgs) Handles btnLoadGame.Click
|
|
MsgBox("Saving and loading coming soon")
|
|
End Sub
|
|
End Class
|