Persona Talk and Demom Talk tables addr

TODO! Demon MultiFile IMPORT!

p2isPSX_CDToolkit/Form1.vb

@@ -1216,27 +1216,22 @@ rleEnd:
                 Update0032SummonScriptTable(addresses)      'summon scripts table in 0032 & 33. Summon and mutation code
 
 
+            Case 862
+                UpdateCharContactFileTable(addresses, &H4B1B8)      'Updating Personas contact filetable
             Case 863
-                UpdateCharContactFileTable(addresses)      'Updating Char contact
+                UpdateCharContactFileTable(addresses, &H4A98C)      'Updating Char contact filetable
+            Case 864
+                UpdateCharContactFileTable(addresses, &H4AD9C)      'Updating Demons contact filetable
         End Select
 
-
-
-
-
         'SaveFile To Sector
         Dim cd = New ISOTools
 
-
-
         Dim f = getFilnam()
 
         'My.Computer.FileSystem.WriteAllBytes(savFile, finalPack.ToArray, False)
         cd.saveCDfile(f, importSector.Text, finalPack.Count, finalPack.ToArray)
 
-
-
-
         'Update SectorNumber and FileSize In FileArray
         files1(CDFileList.SelectedIndex).Sizw = finalPack.Count
         files1(CDFileList.SelectedIndex).Sector = importSector.Text
@@ -1244,22 +1239,17 @@ rleEnd:
         'Update FileTable In ISO
         cd.UpdateFileListTable(f, files1)
 
-
-
-
-
         'Done
         MsgBox(String.Format("Imported {0} files in {1} - {2} bytes", UBound(OpenFileDialog1.FileNames) + 1, CDFileList.SelectedIndex, finalPack.Count), MsgBoxStyle.Exclamation)
     End Sub
-    Public Sub UpdateCharContactFileTable(ByRef addr As List(Of Integer))
+    Public Sub UpdateCharContactFileTable(ByRef addr As List(Of Integer), ByVal codeOffset As Integer)
 
         Dim cd = New ISOTools
         Dim codeFile = cd.getCDfile(UserPath.Text, files1(789).Sector, files1(789).Sizw).ToArray() 'Battle Code
-        Dim TableOffset = 305548
         Dim curElement = 0
 
         For a = 0 To addr.Count - 1
-            Dim curAddr = curElement * 4 + TableOffset
+            Dim curAddr = curElement * 4 + codeOffset
             Dim value = BitConverter.ToUInt32(codeFile, curAddr)
             Dim origOffset = value And &H7FF
             Dim origSectors = (value And &H1FFFFFF) >> &HB