Bourne-Grammar-School/Royalty-and-Presidency-Simulator-2013
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
This repository has been archived on 2022-10-01. You can view files and clone it, but cannot push or open issues or pull requests.
Royalty-and-Presidency-Simu.../Royalty Simulator 2013/DefaultView.vb

1199 lines
63 KiB
VB.net
Raw Normal View History

Consolidated both simulators
2017-04-14 07:50:05 +00:00
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
Reference in a new issue Copy permalink