Public Class DefaultView Dim Count As Integer = 10 Dim DispGDP As String Dim ChurchNames1(10) As String Dim ChurchNames2(10) As String Dim ChurchNames3(10) As String Dim Prophets(10) As String Dim Values1(10) As String Dim Values2(10) As String Dim Values3(10) As String Dim ChurchArrayed As Boolean = False Dim DeathAction(10) As String Dim DeathAdjective(10) As String Dim DeathCondition(10) As String Dim DeathArrayed As Boolean = False Private Sub DefaultView_Load(sender As Object, e As EventArgs) Handles Me.Load If ThePlayer.CurrYear Mod 4 = 0 Then Months(1) = 29 ElseIf ThePlayer.CurrYear Mod 4 <> 0 Then Months(1) = 28 End If If ThePlayer.PhilMode = True Then picMonarch.Image = My.Resources.KingPhil ElseIf ThePlayer.PhilMode = False Then If ThePlayer.Gender = 1 Then picMonarch.Image = My.Resources.King ElseIf ThePlayer.Gender = 0 Then picMonarch.Image = My.Resources.Queen End If End If If ThePlayer.ParliamentDissolved = False Then grpDecrees.Enabled = False lblCurrentParty.Text = "Gov't: " & Government(ThePlayer.CurrGovernment) ElseIf ThePlayer.ParliamentDissolved = True Then lblCurrentParty.Visible = False grpDecrees.Enabled = True btnDissolveParliament.Visible = False btnExecuteCommoner.Text = "Execute a Commoner" btnFrance.Text = "Declare War on France" btnFalklands.Text = "Erect Monument on Falklands" btnFalklands.Font = New Font("Times New Roman", 9) btnIreland.Text = "Unify Ireland" btnPromote.Text = "Promote Horse as Consul" If ThePlayer.PercentageEmpireRetaken = 100 Then btnEmpire.Text = "Take Over the World" If ThePlayer.WorldTaken = 1 Then btnEmpire.Enabled = False End If ElseIf ThePlayer.PercentageEmpireRetaken < 100 Then btnEmpire.Text = "Recreate Empire" btnEmpire.Enabled = True End If btnChurch.Text = "Create New Church" btnGlass.Text = "Become Made of Glass" If ThePlayer.Gender = 1 Then btnWife.Text = "Behead Wife" ElseIf ThePlayer.Gender = 0 Then btnWife.Text = "Behead Husband" End If btnDeath.Text = "Declare Something Punishable by Death" btnDeath.Font = New Font("Times New Roman", 7) If ThePlayer.UnifiedIreland = True Then btnIreland.Enabled = False End If If ThePlayer.MadeofGlass = True Then btnGlass.Enabled = False End If End If lblRespect.Text = "Respect: " & ThePlayer.Respect If ThePlayer.Gender = 1 Then lblName.Text = "King " lblRuleLength.Text = "King for: " ElseIf ThePlayer.Gender = 0 Then lblName.Text = "Queen " lblRuleLength.Text = "Queen for: " End If lblName.Text = lblName.Text & ThePlayer.Name lblRuleLength.Text = lblRuleLength.Text & ThePlayer.RuleDays & " days, " & ThePlayer.RuleMonths & " months, " & ThePlayer.RuleYears & " years" lblGDP.Text = ThePlayer.GDPTerm & ThePlayer.GDP.ToString("###,###,###,###") tmrAdvanceDay.Enabled = True End Sub Private Sub DefaultView_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize picMonarch.Width = Screen.PrimaryScreen.Bounds.Height pnlMenu.Height = Screen.PrimaryScreen.Bounds.Height pnlMenu.Width = (Screen.PrimaryScreen.Bounds.Width - picMonarch.Width) pnlMenu.Location = New Point(picMonarch.Width, pnlMenu.Location.Y) lblName.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 6) lblRuleLength.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 9) lblDate.Location = New Point((pnlMenu.Width - lblDate.Width) - ((pnlMenu.Width / 100) * 10), (pnlMenu.Height / 100) * 6) btnCalendar.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20) btnCalendar.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 12) grpInfo.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20) grpInfo.Height = (pnlMenu.Width / 100) * 20 grpInfo.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 19) lblGDP.Location = New Point((grpInfo.Width / 100) * 5, (grpInfo.Height / 100) * 20) lblRespect.Location = New Point((grpInfo.Width / 100) * 5, (grpInfo.Height / 100) * 45) lblCurrentParty.Location = New Point((grpInfo.Width / 100) * 5, (grpInfo.Height / 100) * 70) btnCharacter.Width = (grpInfo.Width / 100) * 47.5 btnCharacter.Height = (grpInfo.Height / 100) * 80 btnCharacter.Location = New Point((grpInfo.Width / 100) * 50, (grpInfo.Height / 100) * 12.5) btnRecreation.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20) btnRecreation.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 38) btnDissolveParliament.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20) btnDissolveParliament.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 44) grpDecrees.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 30) grpDecrees.Height = (pnlMenu.Width / 100) * 40 grpDecrees.Location = New Point((pnlMenu.Width / 100) * 15, (pnlMenu.Height / 100) * 50) btnExecuteCommoner.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnExecuteCommoner.Height = (grpDecrees.Height / 100) * 16 btnExecuteCommoner.Location = New Point((grpDecrees.Width / 100) * 5, (grpDecrees.Height / 100) * 12) btnFrance.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnFrance.Height = (grpDecrees.Height / 100) * 16 btnFrance.Location = New Point((grpDecrees.Width / 100) * 55, (grpDecrees.Height / 100) * 12) btnFalklands.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnFalklands.Height = (grpDecrees.Height / 100) * 16 btnFalklands.Location = New Point((grpDecrees.Width / 100) * 5, (grpDecrees.Height / 100) * 28) btnIreland.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnIreland.Height = (grpDecrees.Height / 100) * 16 btnIreland.Location = New Point((grpDecrees.Width / 100) * 55, (grpDecrees.Height / 100) * 28) btnPromote.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnPromote.Height = (grpDecrees.Height / 100) * 16 btnPromote.Location = New Point((grpDecrees.Width / 100) * 5, (grpDecrees.Height / 100) * 44) btnEmpire.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnEmpire.Height = (grpDecrees.Height / 100) * 16 btnEmpire.Location = New Point((grpDecrees.Width / 100) * 55, (grpDecrees.Height / 100) * 44) btnChurch.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnChurch.Height = (grpDecrees.Height / 100) * 16 btnChurch.Location = New Point((grpDecrees.Width / 100) * 5, (grpDecrees.Height / 100) * 60) btnGlass.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnGlass.Height = (grpDecrees.Height / 100) * 16 btnGlass.Location = New Point((grpDecrees.Width / 100) * 55, (grpDecrees.Height / 100) * 60) btnWife.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnWife.Height = (grpDecrees.Height / 100) * 16 btnWife.Location = New Point((grpDecrees.Width / 100) * 5, (grpDecrees.Height / 100) * 76) btnDeath.Width = grpDecrees.Width - ((grpDecrees.Width / 100) * 60) btnDeath.Height = (grpDecrees.Height / 100) * 16 btnDeath.Location = New Point((grpDecrees.Width / 100) * 55, (grpDecrees.Height / 100) * 76) btnAbdicate.Width = pnlMenu.Width - ((pnlMenu.Width / 100) * 20) btnAbdicate.Location = New Point((pnlMenu.Width / 100) * 10, (pnlMenu.Height / 100) * 86) btnMainMenu.Width = pnlMenu.Width / 2 btnMainMenu.Location = New Point((pnlMenu.Width / 100) * 25, (pnlMenu.Height / 100) * 92) pnlAbdication.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlAbdication.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlAbdication.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picAbdicator.Width = pnlAbdication.Height picAbdicator.Height = picAbdicator.Width lblAbdicationAreYouSure.Width = pnlAbdication.Width - picAbdicator.Width lblAbdicationAreYouSure.Location = New Point(picAbdicator.Width, (pnlAbdication.Height / 100) * 10) ResizeText(lblAbdicationAreYouSure) lblAbdication.Width = pnlAbdication.Width - picAbdicator.Width lblAbdication.Height = (pnlAbdication.Height / 100) * 50 lblAbdication.Location = New Point(picAbdicator.Width, (pnlAbdication.Height / 100) * 25) ResizeText(lblAbdication) btnAbdicationYes.Width = (pnlAbdication.Width - picAbdicator.Width) / 4 btnAbdicationYes.Location = New Point(picAbdicator.Width + ((pnlAbdication.Width - picAbdicator.Width) / 4), (pnlAbdication.Height / 100) * 80) btnAbdicationNo.Width = (pnlAbdication.Width - picAbdicator.Width) / 4 btnAbdicationNo.Location = New Point(picAbdicator.Width + ((pnlAbdication.Width - picAbdicator.Width) / 2), (pnlAbdication.Height / 100) * 80) pnlDissolve.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlDissolve.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlDissolve.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picDissolve.Width = pnlDissolve.Height picDissolve.Height = picDissolve.Width lblDissolve.Width = pnlDissolve.Width - picDissolve.Width lblDissolve.Location = New Point(picDissolve.Width, (pnlDissolve.Height / 100) * 10) ResizeText(lblDissolve) lblDissolveDesc.Width = pnlDissolve.Width - picDissolve.Width lblDissolveDesc.Height = (pnlDissolve.Height / 100) * 50 lblDissolveDesc.Location = New Point(picDissolve.Width, (pnlDissolve.Height / 100) * 25) ResizeText(lblDissolveDesc) btnDissolveYes.Width = lblDissolveDesc.Width / 2 btnDissolveYes.Location = New Point(lblDissolveDesc.Location.X, (pnlDissolve.Height / 100) * 80) btnDissolveNo.Width = lblDissolveDesc.Width / 2 btnDissolveNo.Location = New Point(lblDissolveDesc.Location.X + (lblDissolveDesc.Width / 2), (pnlDissolve.Height / 100) * 80) btnDissolveOK.Width = (pnlDissolve.Width - picDissolve.Width) / 4 btnDissolveOK.Location = New Point(picDissolve.Width + (((pnlDissolve.Width - picDissolve.Width) / 8) * 3), (pnlDissolve.Height / 100) * 80) pnlExecute.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlExecute.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlExecute.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picExecute.Width = pnlExecute.Height picExecute.Height = picExecute.Width lblExecute.Width = pnlExecute.Width - picExecute.Width lblExecute.Location = New Point(picExecute.Width, (pnlExecute.Height / 100) * 10) ResizeText(lblExecute) lblExecuteDesc.Width = pnlExecute.Width - picExecute.Width lblExecuteDesc.Height = (pnlExecute.Height / 100) * 50 lblExecuteDesc.Location = New Point(picExecute.Width, (pnlExecute.Height / 100) * 25) ResizeText(lblExecuteDesc) btnExecuteOK.Width = (pnlExecute.Width - picExecute.Width) / 4 btnExecuteOK.Location = New Point(picExecute.Width + (((pnlExecute.Width - picExecute.Width) / 8) * 3), (pnlExecute.Height / 100) * 80) pnlFrance.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlFrance.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlFrance.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picFrance.Width = pnlFrance.Height picFrance.Height = picFrance.Width lblFrance.Width = pnlFrance.Width - picFrance.Width lblFrance.Location = New Point(picFrance.Width, (pnlFrance.Height / 100) * 10) ResizeText(lblFrance) lblFranceDesc.Width = pnlFrance.Width - picFrance.Width lblFranceDesc.Height = (pnlFrance.Height / 100) * 50 lblFranceDesc.Location = New Point(picFrance.Width, (pnlFrance.Height / 100) * 25) ResizeText(lblFranceDesc) btnFranceOK.Width = (pnlFrance.Width - picFrance.Width) / 4 btnFranceOK.Location = New Point(picFrance.Width + (((pnlFrance.Width - picFrance.Width) / 8) * 3), (pnlFrance.Height / 100) * 80) pnlFalklands.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlFalklands.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlFalklands.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picFalklands.Width = pnlFalklands.Height picFalklands.Height = picFalklands.Width lblFalklands.Width = pnlFalklands.Width - picFalklands.Width lblFalklands.Location = New Point(picFalklands.Width, (pnlFalklands.Height / 100) * 10) ResizeText(lblFalklands) lblFalklandsDesc.Width = pnlFalklands.Width - picFalklands.Width lblFalklandsDesc.Height = (pnlFalklands.Height / 100) * 50 lblFalklandsDesc.Location = New Point(picFalklands.Width, (pnlFalklands.Height / 100) * 25) ResizeText(lblFalklandsDesc) btnFalklandsOK.Width = (pnlFalklands.Width - picFalklands.Width) / 4 btnFalklandsOK.Location = New Point(picFalklands.Width + (((pnlFalklands.Width - picFalklands.Width) / 8) * 3), (pnlFalklands.Height / 100) * 80) pnlIreland.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlIreland.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlIreland.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picIreland.Width = pnlIreland.Height picIreland.Height = picIreland.Width lblIreland.Width = pnlIreland.Width - picIreland.Width lblIreland.Location = New Point(picIreland.Width, (pnlIreland.Height / 100) * 10) ResizeText(lblIreland) lblIrelandDesc.Width = pnlIreland.Width - picIreland.Width lblIrelandDesc.Height = (pnlIreland.Height / 100) * 50 lblIrelandDesc.Location = New Point(picIreland.Width, (pnlIreland.Height / 100) * 25) ResizeText(lblIrelandDesc) btnIrelandOK.Width = (pnlIreland.Width - picIreland.Width) / 4 btnIrelandOK.Location = New Point(picIreland.Width + (((pnlIreland.Width - picIreland.Width) / 8) * 3), (pnlIreland.Height / 100) * 80) pnlHorse.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlHorse.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlHorse.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picHorse.Width = pnlHorse.Height picHorse.Height = picHorse.Width lblHorse.Width = pnlHorse.Width - picHorse.Width lblHorse.Location = New Point(picHorse.Width, (pnlHorse.Height / 100) * 10) ResizeText(lblHorse) lblHorseDesc.Width = pnlHorse.Width - picHorse.Width lblHorseDesc.Height = (pnlHorse.Height / 100) * 50 lblHorseDesc.Location = New Point(picHorse.Width, (pnlHorse.Height / 100) * 25) ResizeText(lblHorseDesc) btnHorseOK.Width = (pnlHorse.Width - picHorse.Width) / 4 btnHorseOK.Location = New Point(picHorse.Width + (((pnlHorse.Width - picHorse.Width) / 8) * 3), (pnlHorse.Height / 100) * 80) pnlChurch.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlChurch.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlChurch.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picChurch.Width = pnlChurch.Height picChurch.Height = picChurch.Width lblChurch.Width = pnlChurch.Width - picChurch.Width lblChurch.Location = New Point(picChurch.Width, (pnlChurch.Height / 100) * 10) ResizeText(lblChurch) lblChurchDesc.Width = pnlChurch.Width - picChurch.Width lblChurchDesc.Height = (pnlChurch.Height / 100) * 50 lblChurchDesc.Location = New Point(picChurch.Width, (pnlChurch.Height / 100) * 25) ResizeText(lblChurchDesc) btnChurchOK.Width = (pnlChurch.Width - picChurch.Width) / 4 btnChurchOK.Location = New Point(picChurch.Width + (((pnlChurch.Width - picChurch.Width) / 8) * 3), (pnlChurch.Height / 100) * 80) pnlGlass.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlGlass.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlGlass.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picGlass.Width = pnlGlass.Height picGlass.Height = picGlass.Width lblGlass.Width = pnlGlass.Width - picGlass.Width lblGlass.Location = New Point(picGlass.Width, (pnlGlass.Height / 100) * 10) ResizeText(lblGlass) lblGlassDesc.Width = pnlGlass.Width - picGlass.Width lblGlassDesc.Height = (pnlGlass.Height / 100) * 50 lblGlassDesc.Location = New Point(picGlass.Width, (pnlGlass.Height / 100) * 25) ResizeText(lblGlassDesc) btnGlassOK.Width = (pnlGlass.Width - picGlass.Width) / 4 btnGlassOK.Location = New Point(picGlass.Width + (((pnlGlass.Width - picGlass.Width) / 8) * 3), (pnlGlass.Height / 100) * 80) pnlWife.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlWife.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlWife.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picWife.Width = pnlWife.Height picWife.Height = picWife.Width lblWife.Width = pnlWife.Width - picWife.Width lblWife.Location = New Point(picWife.Width, (pnlWife.Height / 100) * 10) If ThePlayer.Gender = 1 Then lblWife.Text = "BEHEAD WIFE" ElseIf ThePlayer.Gender = 0 Then lblWife.Text = "BEHEAD HUSBAND" End If ResizeText(lblWife) lblWifeDesc.Width = pnlWife.Width - picWife.Width lblWifeDesc.Height = (pnlWife.Height / 100) * 50 lblWifeDesc.Location = New Point(picWife.Width, (pnlWife.Height / 100) * 25) ResizeText(lblWifeDesc) btnWifeOK.Width = (pnlWife.Width - picWife.Width) / 4 btnWifeOK.Location = New Point(picWife.Width + (((pnlWife.Width - picWife.Width) / 8) * 3), (pnlWife.Height / 100) * 80) pnlDeath.Height = Screen.PrimaryScreen.Bounds.Height / 3 pnlDeath.Width = Screen.PrimaryScreen.Bounds.Width / 2.5 pnlDeath.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picDeath.Width = pnlDeath.Height picDeath.Height = picDeath.Width lblDeath.Width = pnlDeath.Width - picDeath.Width lblDeath.Location = New Point(picDeath.Width, (pnlDeath.Height / 100) * 10) ResizeText(lblDeath) lblDeathDesc.Width = pnlDeath.Width - picDeath.Width lblDeathDesc.Height = (pnlDeath.Height / 100) * 50 lblDeathDesc.Location = New Point(picDeath.Width, (pnlDeath.Height / 100) * 25) ResizeText(lblDeathDesc) btnDeathOK.Width = (pnlDeath.Width - picDeath.Width) / 4 btnDeathOK.Location = New Point(picDeath.Width + (((pnlDeath.Width - picDeath.Width) / 8) * 3), (pnlDeath.Height / 100) * 80) pnlEmpire.Height = Screen.PrimaryScreen.Bounds.Height - (Screen.PrimaryScreen.Bounds.Height / 4) pnlEmpire.Width = Screen.PrimaryScreen.Bounds.Width / 2 pnlEmpire.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) picEmpire.Width = pnlEmpire.Width picEmpire.Height = (pnlEmpire.Height / 100) * 45 pnlEmpireRetaken.Width = pnlEmpire.Width / 4 pnlEmpireRetaken.Height = (pnlEmpire.Height - picEmpire.Height) - (pnlEmpire.Height / 100) * 10 pnlEmpireRetaken.Location = New Point((pnlEmpire.Width / 100) * 4, pnlEmpire.Height / 2) lblEmpire.Width = (pnlEmpire.Width / 3) lblEmpire.Location = New Point(pnlEmpire.Width / 3, (pnlEmpire.Height / 100) * 45) ResizeText(lblEmpire) lblWhichCountry.Width = (pnlEmpire.Width / 5) * 3 lblWhichCountry.Location = New Point(pnlEmpire.Width / 3, (pnlEmpire.Height / 100) * 54) ResizeText(lblWhichCountry) cmboCountry.Width = (pnlEmpire.Width / 5) * 2.5 cmboCountry.Location = New Point(pnlEmpire.Width / 3, (pnlEmpire.Height / 100) * 60) lblChanceofSuccess.Width = (pnlEmpire.Width / 6) lblChanceofSuccess.Location = New Point((pnlEmpire.Width / 6) * 5, (pnlEmpire.Height / 100) * 57) ResizeText(lblChanceofSuccess) lblDifficulty.Width = (pnlEmpire.Width / 6) lblDifficulty.Location = New Point((pnlEmpire.Width / 6) * 5, (pnlEmpire.Height / 100) * 59) ResizeText(lblDifficulty) btnAttack.Width = (pnlEmpire.Width / 5) * 3 btnAttack.Location = New Point(pnlEmpire.Width / 3, (pnlEmpire.Height / 100) * 68) lblEmpireDesc.Width = (pnlEmpire.Width / 5) * 3.25 lblEmpireDesc.Height = (pnlEmpire.Height / 100) * 36 lblEmpireDesc.Location = New Point(pnlEmpire.Width / 3, (pnlEmpire.Height / 100) * 50) ResizeText(lblEmpireDesc) btnEmpireOK.Width = pnlEmpire.Width / 4 btnEmpireOK.Location = New Point((pnlEmpire.Width / 2) - (btnEmpireOK.Width / 2), (pnlEmpire.Height / 100) * 90) End Sub Private Sub btnMainMenu_Click(sender As Object, e As EventArgs) Handles btnMainMenu.Click MainMenu.Show() Me.Close() End Sub Private Sub tmrAdvanceDay_Tick(sender As Object, e As EventArgs) Handles tmrAdvanceDay.Tick ThePlayer.GoingsOn() End Sub Private Sub btnAbdicate_Click(sender As Object, e As EventArgs) Handles btnAbdicate.Click tmrAdvanceDay.Enabled = False MusicPlayer.PlayAbdication() pnlAbdication.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) ThePlayer.AbdicationThreats = ThePlayer.AbdicationThreats + 1 End Sub Private Sub btnAbdicationYes_Click(sender As Object, e As EventArgs) Handles btnAbdicationYes.Click ThePlayer.Death("You Abdicated") End Sub Private Sub btnAbdicationNo_Click(sender As Object, e As EventArgs) Handles btnAbdicationNo.Click tmrAdvanceDay.Enabled = True pnlAbdication.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnRecreation_Click(sender As Object, e As EventArgs) Handles btnRecreation.Click Recreation.Show() Me.Close() End Sub Private Sub btnCharacter_Click(sender As Object, e As EventArgs) Handles btnCharacter.Click ViewCharacter.Show() Me.Close() End Sub Private Sub btnDissolveParliament_Click(sender As Object, e As EventArgs) Handles btnDissolveParliament.Click If ThePlayer.Respect >= 100 Then ThePlayer.YearParliamentDissolved = ThePlayer.CurrYear ThePlayer.ParliamentDissolved = True lblCurrentParty.Visible = False grpDecrees.Enabled = True btnDissolveParliament.Visible = False btnDissolveYes.Visible = False btnDissolveNo.Visible = False btnDissolveOK.Visible = True ThePlayer.GDPTerm = "Wealth: $" btnExecuteCommoner.Text = "Execute a Commoner" btnFrance.Text = "Declare War on France" btnFalklands.Text = "Erect Monument on Falklands" btnFalklands.Font = New Font("Times New Roman", 9) btnIreland.Text = "Unify Ireland" btnPromote.Text = "Promote Horse as Consul" btnEmpire.Text = "Recreate Empire" btnChurch.Text = "Create New Church" btnGlass.Text = "Become Made of Glass" btnWife.Text = "Behead Wife" btnDeath.Text = "Declare Something Punishable by Death" btnDeath.Font = New Font("Times New Roman", 7) If ThePlayer.PhilMode = True Then picDissolve.BackgroundImage = My.Resources.KingPhil ElseIf ThePlayer.PhilMode = False Then If ThePlayer.Gender = 1 Then picDissolve.BackgroundImage = My.Resources.King ElseIf ThePlayer.Gender = 0 Then picDissolve.BackgroundImage = My.Resources.Queen End If End If lblDissolveDesc.Text = "You attempt to dissolve Parliament and rule by decree. Thanks to the huge amount of respect you have accrued, it all goes off without a hitch." ElseIf ThePlayer.Respect < 100 Then lblDissolveDesc.Text = "You consider attempting to dissolve Parliament and ruling by decree. Your lack of respect gives you pause, however. Are you sure you want to try this?" btnDissolveYes.Visible = True btnDissolveNo.Visible = True btnDissolveOK.Visible = False picDissolve.BackgroundImage = My.Resources.CharlesI End If pnlDissolve.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnDissolveYes_Click(sender As Object, e As EventArgs) Handles btnDissolveYes.Click ThePlayer.Death("It All Went a Bit King Charles I for You") End Sub Private Sub btnDissolveNo_Click(sender As Object, e As EventArgs) Handles btnDissolveNo.Click pnlDissolve.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnDissolveOK_Click(sender As Object, e As EventArgs) Handles btnDissolveOK.Click pnlDissolve.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnExecuteCommoner_Click(sender As Object, e As EventArgs) Handles btnExecuteCommoner.Click lblExecute.Font = New Font("Times New Roman", 20) Dim RespectVal As Integer = CInt(Int(20 * Rnd())) ThePlayer.CommonersExecuted = ThePlayer.CommonersExecuted + 1 ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblRespect.Text = "Respect: " & ThePlayer.Respect lblExecuteDesc.Text = "You execute a lowly commoner right in front of his peers for little reason. You lose -" & RespectVal & " respect." pnlExecute.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnExecuteOK_Click(sender As Object, e As EventArgs) Handles btnExecuteOK.Click pnlExecute.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnFrance_Click(sender As Object, e As EventArgs) Handles btnFrance.Click ThePlayer.AtWarWithFrance = True ThePlayer.YearWarDeclared = ThePlayer.CurrYear pnlFrance.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnFranceOK_Click(sender As Object, e As EventArgs) Handles btnFranceOK.Click pnlFrance.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnFalklands_Click(sender As Object, e As EventArgs) Handles btnFalklands.Click If ThePlayer.SunkFalklands = False Then If ThePlayer.ArgieButthurtLevel < 13 Then ThePlayer.MonumentsErected = ThePlayer.MonumentsErected + 1 ThePlayer.FalklandMonumentsWeight = ThePlayer.FalklandMonumentsWeight + CInt(Int(1000 * Rnd())) ThePlayer.ArgieButthurtLevel = ThePlayer.ArgieButthurtLevel + 1 ElseIf ThePlayer.ArgieButthurtLevel = 13 Then lblFalklandsDesc.Text = "You erect another monument on the Falklands. So enraged, the Argentinians launch an invasion of the islands. The combined weight of the monuments and a single Argentine soldier sinks the island into the ocean." ThePlayer.SunkFalklands = True picFalklands.BackgroundImage = My.Resources.SinkingFalklands ResizeText(lblFalklandsDesc) End If ElseIf ThePlayer.SunkFalklands = True Then lblFalklandsDesc.Text = "You drop a monument into the rough area of ocean where the Falklands used to be. It causes a satisfying splash." picFalklands.BackgroundImage = My.Resources.SunkFalklands ResizeText(lblFalklandsDesc) End If pnlFalklands.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnFalklandsOK_Click(sender As Object, e As EventArgs) Handles btnFalklandsOK.Click pnlFalklands.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnIreland_Click(sender As Object, e As EventArgs) Handles btnIreland.Click If ThePlayer.CurrMonth < 11 Then ThePlayer.AtWarWithFranceForMonths = ThePlayer.AtWarWithFranceForMonths + 1 ThePlayer.CurrMonth = ThePlayer.CurrMonth + 1 ThePlayer.RuleMonths = ThePlayer.RuleMonths + 1 ElseIf ThePlayer.CurrMonth >= 12 Then ThePlayer.AtWarWithFranceForMonths = 0 ThePlayer.AtWarWithFranceForYears = ThePlayer.AtWarWithFranceForYears + 1 ThePlayer.CurrMonth = 0 ThePlayer.CurrYear = ThePlayer.CurrYear + 1 ThePlayer.RuleYears = ThePlayer.RuleYears + 1 ThePlayer.Age = ThePlayer.Age + 1 If ThePlayer.Age = ThePlayer.DeathAge Then ThePlayer.Death("Died of Old Age") End If End If If ThePlayer.Gender = 1 Then lblRuleLength.Text = "King for: " ElseIf ThePlayer.Gender = 0 Then lblRuleLength.Text = "Queen for: " End If lblRuleLength.Text = lblRuleLength.Text & ThePlayer.RuleDays & " days, " & ThePlayer.RuleMonths & " months, " & ThePlayer.RuleYears & " years" lblDate.Text = ThePlayer.RuleDays & " " & TheMonth(ThePlayer.CurrMonth) & " " & ThePlayer.CurrYear Dim IrelandUnified As Integer = CInt(Int(3 * Rnd()) + 1) If IrelandUnified <> 1 Then Dim RespectVal As Integer = CInt(Int(30 * Rnd())) Dim DeadSoldiers As Integer = CInt(Int(200 * Rnd()) + 1) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblRespect.Text = "Respect: " & ThePlayer.Respect ThePlayer.LivesLostIreland = ThePlayer.LivesLostIreland + DeadSoldiers ThePlayer.AttemptstoUnifyIreland = ThePlayer.AttemptstoUnifyIreland + 1 lblIrelandDesc.Text = "You attempt to unify Ireland. It goes poorly, " & DeadSoldiers & " British soldiers die and you lose -" & RespectVal & " respect." ElseIf IrelandUnified = 1 Then Dim RespectVal As Integer = CInt(Int(60 * Rnd())) Dim DeadSoldiers As Integer = CInt(Int(50 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblRespect.Text = "Respect: " & ThePlayer.Respect ThePlayer.LivesLostIreland = ThePlayer.LivesLostIreland + DeadSoldiers ThePlayer.AttemptstoUnifyIreland = ThePlayer.AttemptstoUnifyIreland + 1 ThePlayer.YearIrelandUnified = ThePlayer.CurrYear picIreland.BackgroundImage = My.Resources.Irelandlose lblIrelandDesc.Text = "You attempt to unify Ireland. It goes well, only " & DeadSoldiers & " British soldiers die and you gain +" & RespectVal & " respect." ThePlayer.UnifiedIreland = True btnIreland.Enabled = False End If pnlIreland.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnIrelandOK_Click(sender As Object, e As EventArgs) Handles btnIrelandOK.Click pnlIreland.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnPromote_Click(sender As Object, e As EventArgs) Handles btnPromote.Click If ThePlayer.PercentageofHorseConsuls <> 100 Then ThePlayer.PercentageofHorseConsuls = ThePlayer.PercentageofHorseConsuls + 50 lblHorseDesc.Text = "You promote a horse to the position of consul. " & ThePlayer.PercentageofHorseConsuls & "% of all consuls in the land are now horses, as it should be." ElseIf ThePlayer.PercentageofHorseConsuls = 100 Then lblHorseDesc.Font = New Font("Times New Roman", 18) lblHorseDesc.Text = "You attempt to promote another horse to the position of consul before realising every consul is a horse already. You try replacing one horse with a different horse but alas, the magic is gone." ResizeText(lblHorseDesc) End If pnlHorse.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnHorseOK_Click(sender As Object, e As EventArgs) Handles btnHorseOK.Click pnlHorse.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnEmpire_Click(sender As Object, e As EventArgs) Handles btnEmpire.Click cmboCountry.Items.Clear() cmboCountry.Text = "" lblDifficulty.Text = "" If ThePlayer.PercentageEmpireRetaken < 100 Then If ThePlayer.CanadaRetaken = 0 Then cmboCountry.Items.Add("Canada") lblCanada.ForeColor = Color.Red ElseIf ThePlayer.CanadaRetaken = 1 Then lblCanada.ForeColor = Color.Green End If If ThePlayer.ColoniesRetaken = 0 Then cmboCountry.Items.Add("The Thirteen Colonies") lblColonies.ForeColor = Color.Red ElseIf ThePlayer.ColoniesRetaken = 1 Then lblColonies.ForeColor = Color.Green End If If ThePlayer.CarribeanRetaken = 0 Then cmboCountry.Items.Add("The Caribbean") lblCarribean.ForeColor = Color.Red ElseIf ThePlayer.CarribeanRetaken = 1 Then lblCarribean.ForeColor = Color.Green End If If ThePlayer.SouthAfricaRetaken = 0 Then cmboCountry.Items.Add("South Africa") lblSouthAfrica.ForeColor = Color.Red ElseIf ThePlayer.SouthAfricaRetaken = 1 Then lblSouthAfrica.ForeColor = Color.Green End If If ThePlayer.OtherAfricaRetaken = 0 Then cmboCountry.Items.Add("Other bits of Africa") lblOtherAfrica.ForeColor = Color.Red ElseIf ThePlayer.OtherAfricaRetaken = 1 Then lblOtherAfrica.ForeColor = Color.Green End If If ThePlayer.MiddleEastRetaken = 0 Then cmboCountry.Items.Add("Middle-East") lblMiddleEast.ForeColor = Color.Red ElseIf ThePlayer.MiddleEastRetaken = 1 Then lblMiddleEast.ForeColor = Color.Green End If If ThePlayer.IndiaRetaken = 0 Then cmboCountry.Items.Add("India") lblIndia.ForeColor = Color.Red ElseIf ThePlayer.IndiaRetaken = 1 Then lblIndia.ForeColor = Color.Green End If If ThePlayer.OtherAsiaRetaken = 0 Then cmboCountry.Items.Add("Other bits of Asia") lblOtherAsia.ForeColor = Color.Red ElseIf ThePlayer.OtherAsiaRetaken = 1 Then lblOtherAsia.ForeColor = Color.Green End If If ThePlayer.AustraliaRetaken = 0 Then cmboCountry.Items.Add("Australia") lblAustralia.ForeColor = Color.Red ElseIf ThePlayer.AustraliaRetaken = 1 Then lblAustralia.ForeColor = Color.Green End If lblTheWorld.Visible = False ElseIf ThePlayer.PercentageEmpireRetaken = 100 Then lblTheWorld.Visible = True cmboCountry.Items.Add("The World") lblTheWorld.ForeColor = Color.Red End If lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" cmboCountry.Enabled = True btnAttack.Visible = True lblEmpireDesc.Visible = False btnEmpireOK.Visible = False btnAttack.Enabled = False pnlEmpire.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 4, Screen.PrimaryScreen.Bounds.Height / 8) End Sub Private Sub btnAttack_Click(sender As Object, e As EventArgs) Handles btnAttack.Click Dim DeadSoldiers As Integer = 0 Dim RespectVal As Integer = 0 Dim Result As Integer = 0 ThePlayer.CurrYear = ThePlayer.CurrYear + 2 ThePlayer.RuleYears = ThePlayer.RuleYears + 2 ThePlayer.Age = ThePlayer.Age + 2 ThePlayer.AtWarWithFranceForYears = ThePlayer.AtWarWithFranceForYears + 2 If ThePlayer.Age = ThePlayer.DeathAge Then ThePlayer.Death("Died of Old Age") End If If ThePlayer.Gender = 1 Then lblRuleLength.Text = "King for: " ElseIf ThePlayer.Gender = 0 Then lblRuleLength.Text = "Queen for: " End If lblRuleLength.Text = lblRuleLength.Text & ThePlayer.RuleDays & " days, " & ThePlayer.RuleMonths & " months, " & ThePlayer.RuleYears & " years" lblDate.Text = ThePlayer.RuleDays & " " & TheMonth(ThePlayer.CurrMonth) & " " & ThePlayer.CurrYear cmboCountry.Enabled = False btnAttack.Visible = False lblEmpireDesc.Visible = True btnEmpireOK.Visible = True Result = CInt(Int(100 * Rnd()) + 1) If cmboCountry.SelectedItem = "Canada" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 90 Then RespectVal = CInt(Int(30 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add Canada to the glorious British Empire. It goes well, no British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.CanadaRetaken = 1 lblCanada.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + CanadaVal ElseIf Result > 90 Then DeadSoldiers = CInt(Int(50 * Rnd())) RespectVal = CInt(Int(60 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add Canada to the glorious British Empire. It somehow goes wrong, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "The Thirteen Colonies" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 80 Then DeadSoldiers = CInt(Int(50 * Rnd())) RespectVal = CInt(Int(60 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add the Thirteen Colonies to the glorious British Empire. It goes well, only " & DeadSoldiers & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.ColoniesRetaken = 1 lblColonies.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + ColoniesVal ElseIf Result > 80 Then DeadSoldiers = CInt(Int(100 * Rnd())) RespectVal = CInt(Int(30 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add the Thirteen Colonies to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "The Caribbean" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 70 Then DeadSoldiers = CInt(Int(70 * Rnd())) RespectVal = CInt(Int(60 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add the Caribbean islands to the glorious British Empire. It goes well, only " & DeadSoldiers & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.CarribeanRetaken = 1 lblCarribean.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + CarribeanVal ElseIf Result > 70 Then DeadSoldiers = CInt(Int(90 * Rnd())) RespectVal = CInt(Int(40 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add the Caribbean islands to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "South Africa" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 50 Then DeadSoldiers = CInt(Int(80 * Rnd())) RespectVal = CInt(Int(60 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add South Africa to the glorious British Empire. It goes well, only " & DeadSoldiers & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.SouthAfricaRetaken = 1 lblSouthAfrica.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + SouthAfricaVal ElseIf Result > 50 Then DeadSoldiers = CInt(Int(150 * Rnd())) RespectVal = CInt(Int(40 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add South Africa to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "Other bits of Africa" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 40 Then DeadSoldiers = CInt(Int(200 * Rnd())) RespectVal = CInt(Int(80 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add the other bits of Africa to the glorious British Empire. It goes well, only " & DeadSoldiers & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.OtherAfricaRetaken = 1 lblOtherAfrica.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + OtherAfricaVal ElseIf Result > 40 Then DeadSoldiers = CInt(Int(500 * Rnd())) RespectVal = CInt(Int(40 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add the other bits of Africa to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "Middle-East" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 40 Then DeadSoldiers = CInt(Int(200 * Rnd())) RespectVal = CInt(Int(80 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add the Middle-East to the glorious British Empire. It goes well, only " & DeadSoldiers & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.MiddleEastRetaken = 1 lblMiddleEast.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + MiddleEastVal ElseIf Result > 40 Then DeadSoldiers = CInt(Int(500 * Rnd())) RespectVal = CInt(Int(40 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add the Middle-East to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "India" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 40 Then DeadSoldiers = CInt(Int(200 * Rnd())) RespectVal = CInt(Int(80 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add India to the glorious British Empire. It goes well, only " & DeadSoldiers & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.IndiaRetaken = 1 lblIndia.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + IndiaVal ElseIf Result > 40 Then DeadSoldiers = CInt(Int(500 * Rnd())) RespectVal = CInt(Int(40 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add India to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "Other bits of Asia" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 60 Then DeadSoldiers = CInt(Int(80 * Rnd())) RespectVal = CInt(Int(60 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add the other bits of Asia to the glorious British Empire. It goes well, only " & DeadSoldiers & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.OtherAsiaRetaken = 1 lblOtherAsia.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + OtherAsiaVal ElseIf Result > 60 Then DeadSoldiers = CInt(Int(140 * Rnd())) RespectVal = CInt(Int(40 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add the other bits of Asia to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "Australia" Then ThePlayer.AttemptstoRetakeEmpire = ThePlayer.AttemptstoRetakeEmpire + 1 If Result <= 90 Then RespectVal = CInt(Int(30 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to re-add Australia to the glorious British Empire. It goes well, no British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.AustraliaRetaken = 1 lblAustralia.ForeColor = Color.Green ThePlayer.PercentageEmpireRetaken = ThePlayer.PercentageEmpireRetaken + AustraliaVal ElseIf Result > 90 Then DeadSoldiers = CInt(Int(50 * Rnd())) RespectVal = CInt(Int(60 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to re-add Australia to the glorious British Empire. It goes poorly, " & DeadSoldiers & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.LivesLostEmpire = ThePlayer.LivesLostEmpire + DeadSoldiers lblRetaken.Text = ThePlayer.PercentageEmpireRetaken & "%" If ThePlayer.PercentageEmpireRetaken = 100 Then ThePlayer.YearEmpireRetaken = ThePlayer.CurrYear End If End If If cmboCountry.SelectedItem = "The World" Then ThePlayer.CurrYear = ThePlayer.CurrYear + 4 ThePlayer.RuleYears = ThePlayer.RuleYears + 4 ThePlayer.Age = ThePlayer.Age + 4 ThePlayer.AtWarWithFranceForYears = ThePlayer.AtWarWithFranceForYears + 4 If ThePlayer.Age = ThePlayer.DeathAge Then ThePlayer.Death("Died of Old Age") End If If ThePlayer.Gender = 1 Then lblRuleLength.Text = "King for: " ElseIf ThePlayer.Gender = 0 Then lblRuleLength.Text = "Queen for: " End If lblRuleLength.Text = lblRuleLength.Text & ThePlayer.RuleDays & " days, " & ThePlayer.RuleMonths & " months, " & ThePlayer.RuleYears & " years" lblDate.Text = ThePlayer.RuleDays & " " & TheMonth(ThePlayer.CurrMonth) & " " & ThePlayer.CurrYear If Result <= 20 Then ThePlayer.AtWarWithFrance = False ThePlayer.UnifiedIreland = True ThePlayer.YearIrelandUnified = ThePlayer.CurrYear ThePlayer.LivesLostIreland = CInt(Int(300 * Rnd())) btnIreland.Enabled = False btnFrance.Enabled = False DeadSoldiers = CInt(Int(10000 * Rnd())) RespectVal = CInt(Int(400 * Rnd())) ThePlayer.Respect = ThePlayer.Respect + RespectVal lblEmpireDesc.Text = "You attempt to do the same thing you do every night, Pinky: Try to take over the world. Against all the odds, it goes well, only " & DeadSoldiers.ToString("##,###") & " British soldiers are killed and you gain +" & RespectVal & " respect." ThePlayer.WorldTaken = 1 lblTheWorld.ForeColor = Color.Green ThePlayer.YearWorldTaken = ThePlayer.CurrYear ElseIf Result > 20 Then DeadSoldiers = CInt(Int(50000 * Rnd())) RespectVal = CInt(Int(30 * Rnd())) ThePlayer.Respect = ThePlayer.Respect - RespectVal RespectCheck() lblEmpireDesc.Text = "You attempt to do the same thing you do every night, Pinky: Try to take over the world. As is so often the way, it goes poorly. " & DeadSoldiers.ToString("##,###") & " British soldiers are killed and you lose -" & RespectVal & " respect." End If ThePlayer.AttemptstoTakeWorld = ThePlayer.AttemptstoTakeWorld + 1 ThePlayer.LivesLostTakeWorld = ThePlayer.LivesLostTakeWorld + DeadSoldiers End If lblRespect.Text = "Respect: " & ThePlayer.Respect End Sub Private Sub btnEmpireOK_Click(sender As Object, e As EventArgs) Handles btnEmpireOK.Click If ThePlayer.PercentageEmpireRetaken = 100 Then btnEmpire.Text = "Take Over the World" If ThePlayer.WorldTaken = 1 Then btnEmpire.Enabled = False End If End If pnlEmpire.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub cmboCountry_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmboCountry.SelectedIndexChanged If cmboCountry.SelectedItem = "Other bits of Asia" Then lblDifficulty.Text = "60%" ElseIf cmboCountry.SelectedItem = "Other bits of Africa" Then lblDifficulty.Text = "40%" ElseIf cmboCountry.SelectedItem = "The Caribbean" Then lblDifficulty.Text = "70%" ElseIf cmboCountry.SelectedItem = "The Thirteen Colonies" Then lblDifficulty.Text = "80%" ElseIf cmboCountry.SelectedItem = "Canada" Then lblDifficulty.Text = "90%" ElseIf cmboCountry.SelectedItem = "South Africa" Then lblDifficulty.Text = "60%" ElseIf cmboCountry.SelectedItem = "Middle-East" Then lblDifficulty.Text = "40%" ElseIf cmboCountry.SelectedItem = "India" Then lblDifficulty.Text = "45%" ElseIf cmboCountry.SelectedItem = "Australia" Then lblDifficulty.Text = "85%" ElseIf cmboCountry.SelectedItem = "The World" Then lblDifficulty.Text = "20%" End If If cmboCountry.SelectedItem <> "" Then btnAttack.Enabled = True ElseIf cmboCountry.SelectedItem = "" Then btnAttack.Enabled = False End If End Sub Private Sub btnChurch_Click(sender As Object, e As EventArgs) Handles btnChurch.Click If ChurchArrayed = False Then ChurchArray() ChurchArrayed = True End If ThePlayer.ChurchesFormed = ThePlayer.ChurchesFormed + 1 lblChurchDesc.Text = "You create a new church, the " & ChurchNames1(10 * Rnd()) & " " & ChurchNames2(10 * Rnd()) & " of " & ChurchNames3(10 * Rnd()) & ", based around the teachings of " & Prophets(10 * Rnd()) & " and the values of " & Values1(10 * Rnd()) & ", " & Values2(10 * Rnd()) & " and " & Values3(10 * Rnd()) & "." ResizeText(lblChurchDesc) pnlChurch.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnChurchOK_Click(sender As Object, e As EventArgs) Handles btnChurchOK.Click pnlChurch.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnGlass_Click(sender As Object, e As EventArgs) Handles btnGlass.Click ThePlayer.MadeofGlass = True pnlGlass.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) btnGlass.Enabled = False End Sub Private Sub btnGlassOK_Click(sender As Object, e As EventArgs) Handles btnGlassOK.Click pnlGlass.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnWife_Click(sender As Object, e As EventArgs) Handles btnWife.Click lblWifeDesc.Text = "The current " & ThePlayer.Partner & " gets the chop, but luckily for your love life, nothing's a bigger turn-on than absolute monarchy, and you have a new partner before the last one's head has even hit the floor." ThePlayer.WivesBeheaded = ThePlayer.WivesBeheaded + 1 pnlWife.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnWifeOK_Click(sender As Object, e As EventArgs) Handles btnWifeOK.Click pnlWife.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Private Sub btnDeath_Click(sender As Object, e As EventArgs) Handles btnDeath.Click If DeathArrayed = False Then DeathArray() DeathArrayed = True End If lblDeathDesc.Text = "You decide there are too many things out there not punishable by death. To alleviate this, you declare that " & DeathAction(10 * Rnd()) & " " & DeathAdjective(10 * Rnd()) & " " & DeathCondition(10 * Rnd()) & " is now a capital offence." ThePlayer.ThingsDeclaredPunishableByDeath = ThePlayer.ThingsDeclaredPunishableByDeath + 1 ResizeText(lblDeathDesc) pnlDeath.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 3, Screen.PrimaryScreen.Bounds.Height / 3) End Sub Private Sub btnDeathOK_Click(sender As Object, e As EventArgs) Handles btnDeathOK.Click pnlDeath.Location = New Point((Screen.PrimaryScreen.Bounds.Width + 1), (Screen.PrimaryScreen.Bounds.Height + 1)) End Sub Sub ChurchArray() ChurchNames1(0) = "Blessed" ChurchNames1(1) = "Holy" ChurchNames1(2) = "Pungent" ChurchNames1(3) = "Fast" ChurchNames1(4) = "Indomitable" ChurchNames1(5) = "Unfathomable" ChurchNames1(6) = "Rotund" ChurchNames1(7) = "Compelling" ChurchNames1(8) = "Thrilling" ChurchNames1(9) = "Believing" ChurchNames2(0) = "Brothers" ChurchNames2(1) = "Sisters" ChurchNames2(2) = "Chums" ChurchNames2(3) = "Friends" ChurchNames2(4) = "Pals" ChurchNames2(5) = "Gentlemen" ChurchNames2(6) = "Bros" ChurchNames2(7) = "Chaps" ChurchNames2(8) = "Buggerers" ChurchNames2(9) = "lads" ChurchNames3(0) = "Zanzibar" ChurchNames3(1) = "Eternity" ChurchNames3(2) = "God" ChurchNames3(3) = "the Lord" ChurchNames3(4) = "Foreveriality" ChurchNames3(5) = "Time" ChurchNames3(6) = "Nature" ChurchNames3(7) = "Gaia" ChurchNames3(8) = "Spacetime" ChurchNames3(9) = ThePlayer.Name Prophets(0) = "Rumps" Prophets(1) = "Phil" Prophets(2) = "Mr Brown" Prophets(3) = "some guy" Prophets(4) = "Bill and Ted" Prophets(5) = "the voices in your head" Prophets(6) = "Albert Camus" Prophets(7) = "Plato" Prophets(8) = "Thomas Aquinas" Prophets(9) = "Ludwig Wittgenstein" Values1(0) = "nihilism" Values1(1) = "being excellent to each other" Values1(2) = "existentialism" Values1(3) = "fundamentalism" Values1(4) = "ismism" Values1(5) = "Islamism" Values1(6) = "pacifism" Values1(7) = "being an arsehole" Values1(8) = "stuff" Values1(9) = "militarism" Values2(0) = "partying on" Values2(1) = "being a nice guy" Values2(2) = "anarchism" Values2(3) = "statism" Values2(4) = "things" Values2(5) = "quietism" Values2(6) = "minarchism" Values2(7) = "absurdism" Values2(8) = "surrealism" Values2(9) = "Dadaism" Values3(0) = "whatever" Values3(1) = "farts" Values3(2) = "dudes" Values3(3) = "abandonment" Values3(4) = "homelessness" Values3(5) = "sillyness" Values3(6) = "seriousness" Values3(7) = "chips" Values3(8) = "value" Values3(9) = "up" End Sub Sub DeathArray() DeathAction(0) = "eating" DeathAction(1) = "looking" DeathAction(2) = "feeling" DeathAction(3) = "existing" DeathAction(4) = "jumping" DeathAction(5) = "thinking" DeathAction(6) = "considering things" DeathAction(7) = "talking" DeathAction(8) = "chewing" DeathAction(9) = "running" DeathAdjective(0) = "loudly" DeathAdjective(1) = "irritatingly" DeathAdjective(2) = "thoroughly" DeathAdjective(3) = "quietly" DeathAdjective(4) = "upwardly" DeathAdjective(5) = "positively" DeathAdjective(6) = "negatively" DeathAdjective(7) = "ambiguously" DeathAdjective(8) = "randomly" DeathAdjective(9) = "without provocation" DeathCondition(0) = "on a Tuesday" DeathCondition(1) = "on the Sabbath" DeathCondition(2) = "without a permit" DeathCondition(3) = "without humming the national anthem" DeathCondition(4) = "whilst slapping yourself" DeathCondition(5) = "whilst jumping" DeathCondition(6) = "whilst existing" DeathCondition(7) = "without rotating" DeathCondition(8) = "and eating a turtle" DeathCondition(9) = "whilst looking in the direction of Mecca" End Sub Private Sub btnCalendar_Click(sender As Object, e As EventArgs) Handles btnCalendar.Click MsgBox("Calendar and event scheduling coming soon") End Sub End Class