Skip to content

Commit

Permalink
Move to version 5.0.7
Browse files Browse the repository at this point in the history
- Compatibilities with save file regions fixed (Mii status)
- Lock catchphrase added
  • Loading branch information
Brionjv committed Jul 31, 2022
1 parent 10b0283 commit fd7b376
Show file tree
Hide file tree
Showing 50 changed files with 1,153 additions and 423 deletions.
30 changes: 30 additions & 0 deletions Tomodachi Life Save Editor/My Project/Resources.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

813 changes: 411 additions & 402 deletions Tomodachi Life Save Editor/My Project/Resources.resx

Large diffs are not rendered by default.

Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_concertedit.vb
Original file line number Diff line number Diff line change
Expand Up @@ -121,6 +121,7 @@ Public Class TLSE_concertedit
TLSE_filepath.Text = TLSE_hub.TLSE_filepath.Text
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Switchfilever()
End Sub

Private Sub TLSE_logo_update_Click(sender As Object, e As EventArgs) Handles TLSE_logo_update.Click
Expand Down Expand Up @@ -872,4 +873,23 @@ Public Class TLSE_concertedit
valu_pagh_12.Value = 0
valu_pagh_13.Value = 0
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub
End Class
21 changes: 21 additions & 0 deletions Tomodachi Life Save Editor/TLSE_crcxmodem.vb
Original file line number Diff line number Diff line change
Expand Up @@ -75,10 +75,31 @@ Public Class TLSE_crcxmodem
TLSE_filepath.Text = TLSE_miiprofile.TLSE_filepath.Text
Filever_text.Text = TLSE_miiprofile.Filever_text.Text
savedataArc = TLSE_filepath.Text
Switchfilever()
Text_crcmii.Text = "Failed to autofix checksum : Select" & vbNewLine & TLSE_miiprofile.Select_mii.Text
Readmiiname()
Select_mii.SelectedItem = TLSE_miiprofile.Select_mii.SelectedItem
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
TLSE_loading_logo.Image = TLSE_logo.Image
End Sub
Private Sub Select_mii_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Select_mii.SelectedIndexChanged
readmiidata()
XmodemMii()
Expand Down
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_creaislandranking.vb
Original file line number Diff line number Diff line change
Expand Up @@ -92,9 +92,29 @@ Public Class TLSE_creaislandranking
TLSE_filepath.Text = TLSE_hub.TLSE_filepath.Text
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Switchfilever()
addsymbol()
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub

Private Sub Menuflow_text_itemsedition_Click(sender As Object, e As EventArgs) Handles Menuflow_text_itemsedition.Click
If TLSE_logo_update.Visible = True Then
TLSE_hub.TLSE_logo_update.Visible = True
Expand Down
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_dataislandranking.vb
Original file line number Diff line number Diff line change
Expand Up @@ -194,10 +194,30 @@ Public Class TLSE_dataislandranking
TLSE_filepath.Text = TLSE_hub.TLSE_filepath.Text
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Switchfilever()
Readislandrankname()
Islandrankdetected()
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub

Private Sub Menuflow_text_itemsedition_Click(sender As Object, e As EventArgs) Handles Menuflow_text_itemsedition.Click
If TLSE_logo_update.Visible = True Then
TLSE_hub.TLSE_logo_update.Visible = True
Expand Down
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_extras.vb
Original file line number Diff line number Diff line change
Expand Up @@ -94,6 +94,26 @@ Public Class TLSE_extras
TLSE_filepath.Text = TLSE_hub.TLSE_filepath.Text
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Switchfilever()
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub

Private Sub TLSE_logo_update_Click(sender As Object, e As EventArgs) Handles TLSE_logo_update.Click
Expand Down
2 changes: 1 addition & 1 deletion Tomodachi Life Save Editor/TLSE_hub.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

24 changes: 24 additions & 0 deletions Tomodachi Life Save Editor/TLSE_hub.vb
Original file line number Diff line number Diff line change
Expand Up @@ -703,6 +703,7 @@ Public Class TLSE_hub
Catch ex As Exception
End Try
'TLSE_language()
Switchfilever()
End Sub

Public Sub TLSE_language()
Expand Down Expand Up @@ -809,6 +810,7 @@ Public Class TLSE_hub
End If
TLSE_filepath.Text = savedataArc
Makebackup()
Switchfilever()
Catch ex As Exception
End Try
End Sub
Expand Down Expand Up @@ -880,6 +882,7 @@ Public Class TLSE_hub
End If
End If
Checkissues()
Switchfilever()
End Sub

Private Sub TLSE_logo_update_Click(sender As Object, e As EventArgs) Handles TLSE_logo_update.Click
Expand Down Expand Up @@ -910,4 +913,25 @@ Public Class TLSE_hub
Private Sub text_issues_Click(sender As Object, e As EventArgs) Handles text_issues.Click
My.Settings.Para_issue = Nothing
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub


End Class
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_interactions.vb
Original file line number Diff line number Diff line change
Expand Up @@ -594,10 +594,30 @@ Public Class TLSE_interactions
TLSE_filepath.Text = TLSE_hub.TLSE_filepath.Text
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Switchfilever()
Savefileregion()
Readmiiname()
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub

Private Sub Icon_apartmentmii_1_Click(sender As Object, e As EventArgs) Handles Icon_apartmentmii_1.Click
Select_mii.SelectedItem = Select_mii.Items.Item(0)
End Sub
Expand Down
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_islandconfig.vb
Original file line number Diff line number Diff line change
Expand Up @@ -130,6 +130,26 @@ Public Class TLSE_islandconfig
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Savefileregion()
Switchfilever()
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub

Public Sub Savefileregion()
Expand Down
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_islandinfo.vb
Original file line number Diff line number Diff line change
Expand Up @@ -105,9 +105,29 @@ Public Class TLSE_islandinfo
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Savefileregion()
Switchfilever()
addsymbol()
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub

Private Sub Icon_problemsolved_Click(sender As Object, e As EventArgs) Handles Icon_problemsolved.Click
valu_problemsolved.Value = valu_problemsolved.Maximum
End Sub
Expand Down
20 changes: 20 additions & 0 deletions Tomodachi Life Save Editor/TLSE_islandsettings.vb
Original file line number Diff line number Diff line change
Expand Up @@ -96,6 +96,26 @@ Public Class TLSE_islandsettings
Filever_text.Text = TLSE_hub.Filever_text.Text
savedataArc = TLSE_filepath.Text
Savefileregion()
Switchfilever()
End Sub

Public Sub Switchfilever()
If Filever_text.Text = "EU" Then
TLSE_logo.Image = My.Resources.logo_EU
TLSE_logo_update.Image = My.Resources.logo_EU_update
End If
If Filever_text.Text = "US" Then
TLSE_logo.Image = My.Resources.logo_US
TLSE_logo_update.Image = My.Resources.logo_US_update
End If
If Filever_text.Text = "JP" Then
TLSE_logo.Image = My.Resources.logo_JP
TLSE_logo_update.Image = My.Resources.logo_JP_update
End If
If Filever_text.Text = "KR" Then
TLSE_logo.Image = My.Resources.logo_KR
TLSE_logo_update.Image = My.Resources.logo_KR_update
End If
End Sub

Private Sub valu_babiesborn_ValueChanged(sender As Object, e As EventArgs) Handles valu_babiesborn.ValueChanged
Expand Down
Loading

0 comments on commit fd7b376

Please sign in to comment.