scripts & contacts export support

p2isPSX_CDToolkit/rleTools.vb

@@ -260,6 +260,7 @@ LAB_80026510:
         Select Case curFile.Type
             Case 1 'FOR Type1(Data) - This
                 rleFile.AddRange({12, 0, 0, 0}) 'Compressed size here! At least 12 (rle, mode, I, D, Comprsize, OverallSize)
+
             Case Else
                 MsgBox("Unsupported type :( - " & curFile.Type) : Return New List(Of Byte)
         End Select
@@ -369,7 +370,7 @@ start4:
 
 
         'My.Computer.FileSystem.WriteAllBytes("D:\Games\PSX\Persona.2.Innocent.Sin\Export\UnRLE\0181_ALL_SCENERY\1112.rle", rleFile.ToArray, False)
-        Debug.WriteLine(Microsoft.VisualBasic.DateAndTime.Timer - start)
+        Debug.WriteLine("File compressed. src_size=" & fil.Count & " | cmpr_size=" & rleFile.Count & " | Time=" & Microsoft.VisualBasic.DateAndTime.Timer - start)
 
 
 
@@ -631,7 +632,22 @@ refr:
         Return newF
     End Function
 
+    Public Function attachNoCompressionHeader(ByRef curfile As rleFile, ByRef bytes As Byte())
+        Dim file = New List(Of Byte) From {
+            curfile.Type,
+            0, 'No compression
+            BitConverter.GetBytes(curfile.ID)(0), 'Convert ID
+            BitConverter.GetBytes(curfile.ID)(1),
+            BitConverter.GetBytes(bytes.Count + 8)(0), 'FileSize
+            BitConverter.GetBytes(bytes.Count + 8)(1), 'FileSize
+            BitConverter.GetBytes(bytes.Count + 8)(2), 'FileSize
+            BitConverter.GetBytes(bytes.Count + 8)(3) 'FileSize
+            }
 
+        file.AddRange(bytes.ToList)
+        Return file
+
+    End Function
 
 
 End Class