admin/P2EP_Toolkit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

soundpacks support

Browse Source
This commit is contained in:
sShemet
2024-09-06 13:10:59 +05:00
parent 15c96c48b7
commit cc52ac29a8
12 changed files with 51 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
p2isPSX_CDToolkit/Form1.vb
View File

@@ -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