282 lines
No EOL
13 KiB
VB.net
282 lines
No EOL
13 KiB
VB.net
Public Class DeathForm
|
|
Dim RankVal As Integer = 0
|
|
Dim Rank As Char
|
|
Private Sub DeathForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Populate()
|
|
|
|
GetRank()
|
|
If RankVal < 15 Then
|
|
Rank = "F"
|
|
picRank.Image = My.Resources.RankF
|
|
ElseIf (RankVal < 30) And (RankVal >= 15) Then
|
|
Rank = "E"
|
|
picRank.Image = My.Resources.RankE
|
|
ElseIf (RankVal < 45) And (RankVal >= 30) Then
|
|
Rank = "D"
|
|
picRank.Image = My.Resources.RankD
|
|
ElseIf (RankVal < 60) And (RankVal >= 45) Then
|
|
Rank = "C"
|
|
picRank.Image = My.Resources.RankC
|
|
ElseIf (RankVal < 75) And (RankVal >= 60) Then
|
|
Rank = "B"
|
|
picRank.Image = My.Resources.RankB
|
|
ElseIf (RankVal < 90) And (RankVal >= 75) Then
|
|
Rank = "A"
|
|
picRank.Image = My.Resources.RankA
|
|
ElseIf RankVal > 90 Then
|
|
Rank = "S"
|
|
picRank.Image = My.Resources.RankS
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DeathForm_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
|
lblCauseofDeath.Location = New Point((Me.Width / 100) * 5, (Me.Height / 100) * 1)
|
|
|
|
lstStats.Width = (Me.Width / 100) * 90
|
|
lstStats.Height = (Me.Height / 100) * 80
|
|
lstStats.Location = New Point((Me.Width / 100) * 5, (Me.Height / 100) * 6)
|
|
lstStats.ColumnWidth = lstStats.Width / 2 - ((Me.Width / 100) * 5)
|
|
|
|
btnMainMenu.Width = (Me.Width / 7) * 5
|
|
btnMainMenu.Height = (Me.Height / 100) * 10
|
|
btnMainMenu.Location = New Point((Me.Width / 100) * 5, (Me.Height / 100) * 87)
|
|
|
|
lblRank.Location = New Point((Me.Width / 5) * 4, (Me.Height / 100) * 95)
|
|
|
|
picRank.Height = Me.Height / 7
|
|
picRank.Width = picRank.Height
|
|
picRank.Location = New Point((Me.Width / 10) * 9, (Me.Height / 100) * 85)
|
|
End Sub
|
|
Sub GetRank()
|
|
If ThePlayer.Happiness > 100 Then
|
|
ThePlayer.Happiness = 100
|
|
End If
|
|
RankVal = RankVal + (ThePlayer.Happiness / 10)
|
|
|
|
If ThePlayer.Respect > 150 Then
|
|
ThePlayer.Respect = 150
|
|
End If
|
|
RankVal = RankVal + (ThePlayer.Respect / 10)
|
|
|
|
If ThePlayer.Knowledge > 100 Then
|
|
ThePlayer.Knowledge = 100
|
|
End If
|
|
RankVal = RankVal + (ThePlayer.Happiness / 10)
|
|
|
|
If (ThePlayer.PlebspottingTrips > 0) Then
|
|
RankVal = RankVal + 2.5
|
|
End If
|
|
If (ThePlayer.ResearchSeshes > 0) Then
|
|
RankVal = RankVal + 1.5
|
|
End If
|
|
If (ThePlayer.Holidays > 0) Then
|
|
RankVal = RankVal + 1.5
|
|
End If
|
|
If (ThePlayer.PoloGames > 0) Then
|
|
RankVal = RankVal + 1.5
|
|
End If
|
|
If (ThePlayer.PartiesHosted > 0) Then
|
|
RankVal = RankVal + 1.5
|
|
End If
|
|
If (ThePlayer.FilmNights > 0) Then
|
|
RankVal = RankVal + 1.5
|
|
End If
|
|
If ThePlayer.ParliamentDissolved = True Then
|
|
RankVal = RankVal + 10
|
|
If ThePlayer.UnifiedIreland = True Then
|
|
RankVal = RankVal + 5
|
|
End If
|
|
If ThePlayer.CanadaRetaken = True Then
|
|
RankVal = RankVal + 1
|
|
End If
|
|
If ThePlayer.ColoniesRetaken = True Then
|
|
RankVal = RankVal + 2
|
|
End If
|
|
If ThePlayer.CarribeanRetaken = True Then
|
|
RankVal = RankVal + 1.5
|
|
End If
|
|
If ThePlayer.SouthAfricaRetaken = True Then
|
|
RankVal = RankVal + 2
|
|
End If
|
|
If ThePlayer.OtherAfricaRetaken = True Then
|
|
RankVal = RankVal + 2.5
|
|
End If
|
|
If ThePlayer.MiddleEastRetaken = True Then
|
|
RankVal = RankVal + 2.5
|
|
End If
|
|
If ThePlayer.IndiaRetaken = True Then
|
|
RankVal = RankVal + 2.5
|
|
End If
|
|
If ThePlayer.OtherAsiaRetaken = True Then
|
|
RankVal = RankVal + 1.5
|
|
End If
|
|
If ThePlayer.AustraliaRetaken = True Then
|
|
RankVal = RankVal + 1
|
|
End If
|
|
If ThePlayer.PercentageEmpireRetaken = 100 Then
|
|
RankVal = RankVal + 5
|
|
End If
|
|
If ThePlayer.WorldTaken = True Then
|
|
RankVal = RankVal + 13.5
|
|
End If
|
|
End If
|
|
If ThePlayer.ArgieButthurtLevel = 13 Then
|
|
RankVal = RankVal + 5
|
|
End If
|
|
End Sub
|
|
Sub Populate()
|
|
Dim Title As String = ""
|
|
If ThePlayer.Gender = 1 Then
|
|
Title = "King"
|
|
ElseIf ThePlayer.Gender = 0 Then
|
|
Title = "Queen"
|
|
End If
|
|
With lstStats.Items
|
|
.Add("--GENERAL--")
|
|
.Add("Name: " & Title & " " & ThePlayer.Name)
|
|
.Add(Title & " for : " & ThePlayer.RuleDays & " days, " & ThePlayer.RuleMonths & " months, " & ThePlayer.RuleYears & " years")
|
|
.Add("Happiness: " & ThePlayer.Happiness)
|
|
.Add("Respect: " & ThePlayer.Respect)
|
|
.Add("Knowledge: " & ThePlayer.Knowledge)
|
|
.Add("Birthplace: " & ThePlayer.Birthplace)
|
|
.Add(ThePlayer.GDPTerm & ThePlayer.GDP.ToString("###,###,###,###"))
|
|
If ThePlayer.ParliamentDissolved = False Then
|
|
.Add("Current government: " & Government(ThePlayer.CurrGovernment))
|
|
ElseIf ThePlayer.ParliamentDissolved = True Then
|
|
.Add("Current government: Parliament dissolved in " & ThePlayer.YearParliamentDissolved)
|
|
End If
|
|
.Add("Number of elections held during reign: " & ThePlayer.ElectionNum)
|
|
.Add("Number of abdication threats: " & ThePlayer.AbdicationThreats)
|
|
.Add("--RECREATION--")
|
|
.Add("Plebspotting trips: " & ThePlayer.PlebspottingTrips)
|
|
.Add("Research sessions: " & ThePlayer.ResearchSeshes)
|
|
.Add("Holidays gone on: " & ThePlayer.Holidays)
|
|
.Add("Good holidays: " & ThePlayer.GoodHolidays)
|
|
.Add("Bad holidays: " & ThePlayer.BadHolidays)
|
|
.Add("Polo games played: " & ThePlayer.PoloGames)
|
|
.Add("Polo games won: " & ThePlayer.PoloGamesWon)
|
|
.Add("Polo games lost: " & ThePlayer.PoloGamesLost)
|
|
.Add("Sick castle parties hosted: " & ThePlayer.PartiesHosted)
|
|
.Add("Successful parties: " & ThePlayer.GoodPartiesHosted)
|
|
.Add("Unsuccessful parties: " & ThePlayer.BadPartiesHosted)
|
|
.Add("Film nights in with the " & ThePlayer.Partner & ": " & ThePlayer.FilmNights)
|
|
.Add("Good film nights: " & ThePlayer.GoodFilmNights)
|
|
.Add("Bad film nights: " & ThePlayer.GoodFilmNights)
|
|
.Add("--DECREES--")
|
|
.Add("Commoners executed: " & ThePlayer.CommonersExecuted)
|
|
If ThePlayer.AtWarWithFrance = True Then
|
|
.Add("At war with France: Of course!")
|
|
.Add("At war with France for: " & ThePlayer.AtWarWithFranceFor)
|
|
.Add("Lives lost in the unending Anglo-French War of " & ThePlayer.YearWarDeclared & ": " & ThePlayer.LivesLost)
|
|
ElseIf (ThePlayer.AtWarWithFrance = False) And (ThePlayer.WorldTaken = True) And (ThePlayer.AtWarWithFranceForDays > 0) Then
|
|
.Add("At war with France: France? Do you mean New Grimsby?")
|
|
.Add("At war with France for: " & ThePlayer.AtWarWithFranceFor)
|
|
.Add("Lives lost in the now-ended Anglo-French War of " & ThePlayer.YearWarDeclared & ": " & ThePlayer.LivesLost)
|
|
ElseIf (ThePlayer.AtWarWithFrance = False) And (ThePlayer.WorldTaken = True) And (ThePlayer.AtWarWithFranceForDays = 0) Then
|
|
.Add("At war with France: France? Do you mean New Grimsby?")
|
|
ElseIf (ThePlayer.AtWarWithFrance = False) And (ThePlayer.WorldTaken = False) Then
|
|
.Add("At war with France: No")
|
|
End If
|
|
If ThePlayer.MonumentsErected > 0 Then
|
|
If ThePlayer.SunkFalklands = False Then
|
|
.Add("Monuments erected on the Falklands: " & ThePlayer.MonumentsErected)
|
|
.Add("Weight of Falklands monuments: " & ThePlayer.FalklandMonumentsWeight & "kg")
|
|
ElseIf ThePlayer.SunkFalklands = True Then
|
|
.Add("Monuments erected on the former Falklands: " & ThePlayer.MonumentsErected)
|
|
.Add("Weight of Falklands monuments: Unknown")
|
|
End If
|
|
.Add("Argentine butthurt level: " & ArgieButthurt(ThePlayer.ArgieButthurtLevel))
|
|
End If
|
|
If ThePlayer.UnifiedIreland = True Then
|
|
.Add("Ireland united: Finally")
|
|
.Add("Year Ireland unified: " & ThePlayer.YearIrelandUnified)
|
|
.Add("Attempts to unify Ireland: " & ThePlayer.AttemptstoUnifyIreland)
|
|
.Add("Lives lost attempting to unify Ireland: " & ThePlayer.LivesLostIreland)
|
|
.Add("Republican assassinations: " & ThePlayer.IRAAssassinations)
|
|
ElseIf ThePlayer.UnifiedIreland = False Then
|
|
.Add("Ireland united: No")
|
|
If ThePlayer.AttemptstoUnifyIreland > 0 Then
|
|
.Add("Attempts to unify Ireland: " & ThePlayer.AttemptstoUnifyIreland)
|
|
.Add("Lives lost attempting to unify Ireland: " & ThePlayer.LivesLostIreland)
|
|
End If
|
|
End If
|
|
.Add("Percentage of equine consuls: " & ThePlayer.PercentageofHorseConsuls & "%")
|
|
.Add("Percentage of Empire retaken: " & ThePlayer.PercentageEmpireRetaken & "%")
|
|
If ThePlayer.CanadaRetaken = 0 Then
|
|
.Add("Canada status: Free")
|
|
ElseIf ThePlayer.CanadaRetaken = 1 Then
|
|
.Add("Canada status: Under British control")
|
|
End If
|
|
|
|
If ThePlayer.ColoniesRetaken = 0 Then
|
|
.Add("Thirteen Colonies status: Free")
|
|
ElseIf ThePlayer.ColoniesRetaken = 1 Then
|
|
.Add("Thirteen Colonies status: Under British control")
|
|
End If
|
|
If ThePlayer.CarribeanRetaken = 0 Then
|
|
.Add("Caribbean status: Free")
|
|
ElseIf ThePlayer.CarribeanRetaken = 1 Then
|
|
.Add("Caribbean status: Under British control")
|
|
End If
|
|
If ThePlayer.SouthAfricaRetaken = 0 Then
|
|
.Add("South Africa status: Free")
|
|
ElseIf ThePlayer.SouthAfricaRetaken = 1 Then
|
|
.Add("South Africa status: Under British control")
|
|
End If
|
|
If ThePlayer.OtherAfricaRetaken = 0 Then
|
|
.Add("Other bits of Africa status: Free")
|
|
ElseIf ThePlayer.OtherAfricaRetaken = 1 Then
|
|
.Add("Other bits of Africa status: Under British control")
|
|
End If
|
|
If ThePlayer.MiddleEastRetaken = 0 Then
|
|
.Add("Middle-East status: Free")
|
|
ElseIf ThePlayer.MiddleEastRetaken = 1 Then
|
|
.Add("Middle-East status: Under British control")
|
|
End If
|
|
If ThePlayer.IndiaRetaken = 0 Then
|
|
.Add("India status: Free")
|
|
ElseIf ThePlayer.IndiaRetaken = 1 Then
|
|
.Add("India status: Under British control")
|
|
End If
|
|
If ThePlayer.OtherAsiaRetaken = 0 Then
|
|
.Add("Other bits of Asia status: Free")
|
|
ElseIf ThePlayer.OtherAsiaRetaken = 1 Then
|
|
.Add("Other bits of Asia status: Under British control")
|
|
End If
|
|
If ThePlayer.AustraliaRetaken = 0 Then
|
|
.Add("Australia status: Free")
|
|
ElseIf ThePlayer.AustraliaRetaken = 1 Then
|
|
.Add("Australia status: Under British control")
|
|
End If
|
|
If ThePlayer.AttemptstoRetakeEmpire > 0 Then
|
|
.Add("Attempts to retake Empire: " & ThePlayer.AttemptstoRetakeEmpire)
|
|
.Add("Lives lost retaking Empire: " & ThePlayer.LivesLostEmpire)
|
|
End If
|
|
If ThePlayer.PercentageEmpireRetaken = 100 Then
|
|
.Add("Year Empire retaken: " & ThePlayer.YearEmpireRetaken)
|
|
If ThePlayer.WorldTaken = 1 Then
|
|
.Add("World taken: For England")
|
|
ElseIf ThePlayer.WorldTaken = 0 Then
|
|
.Add("World taken: Working on it")
|
|
End If
|
|
.Add("Attempts to take over the world: " & ThePlayer.AttemptstoTakeWorld)
|
|
.Add("Lives lost taking over the world: " & ThePlayer.LivesLostTakeWorld)
|
|
If ThePlayer.WorldTaken = 1 Then
|
|
.Add("Year world taken over: " & ThePlayer.YearWorldTaken)
|
|
End If
|
|
End If
|
|
.Add("Churches formed: " & ThePlayer.ChurchesFormed)
|
|
If ThePlayer.MadeofGlass = True Then
|
|
.Add("Gone snooker loopy: Yes")
|
|
ElseIf ThePlayer.MadeofGlass = False Then
|
|
.Add("Gone snooker loopy: Not completely")
|
|
End If
|
|
.Add("Wives beheaded: " & ThePlayer.WivesBeheaded)
|
|
.Add("Things declared punishable by death: " & ThePlayer.ThingsDeclaredPunishableByDeath)
|
|
End With
|
|
End Sub
|
|
Private Sub btnMainMenu_Click(sender As Object, e As EventArgs) Handles btnMainMenu.Click
|
|
MainMenu.Show()
|
|
Me.Close()
|
|
End Sub
|
|
End Class |