soundpacks support

p2isPSX_CDToolkit/Form1.vb

@@ -200,7 +200,7 @@ Public Class Form1
         type.Add("eof")
         type.Add("DATA")
         type.Add("IMAGE")
-        type.Add("SCR?")
+        type.Add("SND")
         If IsNothing(BinFile) Then Exit Sub
 
         For Each r In BinFile
@@ -214,7 +214,11 @@ Public Class Form1
                 Case 0
                     SelBinFiles.Items.Add(r.SectorID & ":" & r.ID & " : " & type(r.Type) & xy & " : " & compr(r.Compr) & ", Sz: " & r.Size & " Gap: " & r.SectorGap)
                 Case 1
-                    SelBinFiles.Items.Add(r.SectorID & ":" & r.ID & " : " & type(r.Type) & xy & " : " & compr(r.Compr) & ", Sz: " & r.Size & " unp:" & r.UnpackSize & " Gap: " & r.SectorGap)
+                    If r.Type <> 3 Then
+                        SelBinFiles.Items.Add(r.SectorID & ":" & r.ID & " : " & type(r.Type) & xy & " : " & compr(r.Compr) & ", Sz: " & r.Size & " unp:" & r.UnpackSize & " Gap: " & r.SectorGap)
+                    Else
+                        SelBinFiles.Items.Add(r.SectorID & ":" & r.ID & " : SNDPACK : " & compr(r.Compr) & ", Sz: " & r.Size & " Gap: " & r.SectorGap)
+                    End If
                 Case 2
                     SelBinFiles.Items.Add(r.SectorID & ":" & r.ID & " : " & type(r.Type) & xy & " : " & compr(r.Compr) & ", Sz: " & r.Size & " unp:" & r.UnpackSize & " Gap: " & r.SectorGap)
                 Case Else

p2isPSX_CDToolkit/bin/Debug/FileDesc.txt

@@ -49,7 +49,7 @@ EVENTCODE
 
 GR_BTLSPR
 GRF_AVAS
-
+SND_PACK
 
 
 

p2isPSX_CDToolkit/rleTools.vb

@@ -16,6 +16,8 @@
         Dim readAddr = 12
 
         If readFile(0) = 2 Then readAddr = 16               'if picture
+        If readFile(0) = 3 Then readAddr = 20               'if bgm
+
 
 
         Dim mode As Byte