Move to version 5.0.6

- Mii status section added
- Error when save editor write text line fixed
- Save editor menu updated

Tomodachi Life Save Editor/TLSE_Jrelationships.vb

@@ -181069,6 +181069,8 @@ Public Class TLSE_Jrelationships
         TLSE_hub.Show()
         TLSE_hub.Filever_text.Text = Filever_text.Text
         TLSE_hub.TLSE_filepath.Text = TLSE_filepath.Text
+        TLSE_hub.TLSE_menu.Visible = False
+        TLSE_hub.TLSE_menu_Miiedition.Visible = True
         Me.Close()
     End Sub
 

Tomodachi Life Save Editor/TLSE_interactions.vb

@@ -11337,6 +11337,12 @@ Public Class TLSE_interactions
             valu_enddateinterac.Value = valu_lastsavedate.Value + &H30000
         End If
         Writeinteraction()
+        TLSE_hub.Show()
+        TLSE_hub.Filever_text.Text = Filever_text.Text
+        TLSE_hub.TLSE_filepath.Text = TLSE_filepath.Text
+        TLSE_hub.TLSE_menu.Visible = False
+        TLSE_hub.TLSE_menu_Miiedition.Visible = True
+        Me.Close()
     End Sub
 
     Public Sub Writeinteraction()

Tomodachi Life Save Editor/TLSE_islandinfo.vb

@@ -651,16 +651,16 @@ Public Class TLSE_islandinfo
             Dim Writedata As New PackageIO.Writer(savedataArc, PackageIO.Endian.Little)
             Writedata.Position = Money
             Writedata.WriteUInt32(valu_money.Value)
-            For i = 0 To 19
-                Writedata.Position = IslandName
+            For i As Integer = 0 To 19
+                Writedata.Position = IslandName + i
                 Writedata.WriteInt8(0)
             Next
             Writedata.Position = IslandName
             Writedata.WriteUnicodeString(Text_islandname.Text)
             If Filever_text.Text = "JP" Then
             Else
-                For i = 0 To 39
-                    Writedata.Position = IslandPronun
+                For i As Integer = 0 To 39
+                    Writedata.Position = IslandPronun + i
                     Writedata.WriteInt8(0)
                 Next
                 Writedata.Position = IslandPronun

Tomodachi Life Save Editor/TLSE_miiprofile.vb

@@ -5896,45 +5896,45 @@ Public Class TLSE_miiprofile
     Public Sub Writemiiprofile()
         Try
             Dim Writedata As New PackageIO.Writer(savedataArc, PackageIO.Endian.Little)
-            For i = 0 To 29
+            For i As Integer = 0 To 29
                 Writedata.Position = firstname + i
                 Writedata.WriteInt8(0)
             Next
             Writedata.Position = firstname
             Writedata.WriteUnicodeString(Text_firstname.Text)
-            For i = 0 To 29
+            For i As Integer = 0 To 29
                 Writedata.Position = lastname + i
                 Writedata.WriteInt8(0)
             Next
             Writedata.Position = lastname
             Writedata.WriteUnicodeString(Text_lastname.Text)
-            For i = 0 To 19
+            For i As Integer = 0 To 19
                 Writedata.Position = nickname + i
                 Writedata.WriteInt8(0)
             Next
             Writedata.Position = nickname
             Writedata.WriteUnicodeString(Text_nickname.Text)
             If Filever_text.Text = "EU" Or Filever_text.Text = "US" Or Filever_text.Text = "KR" Then
-                For i = 0 To 39
+                For i As Integer = 0 To 39
                     Writedata.Position = pronunnickname + i
                     Writedata.WriteInt8(0)
                 Next
                 Writedata.Position = pronunnickname
                 Writedata.WriteUnicodeString(Text_pronun_nickname.Text)
-                For i = 0 To 59
+                For i As Integer = 0 To 59
                     Writedata.Position = pronunfirstname + i
                     Writedata.WriteInt8(0)
                 Next
                 Writedata.Position = pronunfirstname
                 Writedata.WriteUnicodeString(Text_pronun_firstname.Text)
-                For i = 0 To 59
+                For i As Integer = 0 To 59
                     Writedata.Position = pronunlastname + i
                     Writedata.WriteInt8(0)
                 Next
                 Writedata.Position = pronunlastname
                 Writedata.WriteUnicodeString(Text_pronun_lastname.Text)
             End If
-            For i = 0 To 19
+            For i As Integer = 0 To 19
                 Writedata.Position = creator + i
                 Writedata.WriteInt8(0)
             Next