demon contacts import

SUPA PUPA DUPA COPYPASTE FILES IMPORT SYSTEM

p2isPSX_CDToolkit/Form1.vb

@@ -1073,7 +1073,6 @@ newtest:
             Dim curfile As rleFile = binFile(curFileIndexInPack)
             'Need To RLE?
             If encodeTOrle.Checked Then
-
                 If curfile.Compr = 0 Then
                     If ForceRle.Checked Then
                         If MsgBox("Warning! Source File Is not Compressed! Continue??", MsgBoxStyle.YesNo) <> MsgBoxResult.Yes Then Exit Sub
@@ -1105,21 +1104,25 @@ rleEnd:
 
             If endfil.Count = 0 Then MsgBox("Import Error in file #" & curFileIndexInPack) : Exit Sub
 
-            '/Dim lastfileSectors As Integer = binFile(curFileIndexInPack).Bytes.Count Mod 2048
-
             'Insert to selected File Array (Calc With BytesAfter)
-            binFile(curFileIndexInPack).Bytes = endfil.ToArray
+            Dim filebytes = endfil.ToArray
+            binFile(curFileIndexInPack).Bytes = filebytes
 
             binFile(curFileIndexInPack).BytesAfter = 0
 
+            'Demon conversations copy-paste files system
+            If curFilePack = 864 Then
+                Dim related = GetRelatedContacts(filee)
+                For Each by In related
+                    binFile(by).Bytes = filebytes
+                    binFile(by).BytesAfter = 0
+                Next
+            End If
 
         Next
         '///////////////////MULTIFILES LOOP END
 
 
-
-
-
         'АРХИВИРУЕМ МАССИВ ФАЙЛОВ ДЛЯ ЗАПИСИ В ОДИН ФАЙЛ
         Dim lastSectorID As Integer = 0
         Dim finalPack = New List(Of Byte)
@@ -2144,7 +2147,6 @@ rleEnd:
         s.ParseScript(OpenFileDialog1.FileName)
     End Sub
 
-
 End Class