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

bonusCD support

Browse Source
This commit is contained in:
sShemet
2025-09-17 15:32:43 +05:00
parent cc52ac29a8
commit b9b8e197a8
12 changed files with 166 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
p2isPSX_CDToolkit/ISOTools.vb
View File

@@ -116,11 +116,12 @@ Public Class ISOTools
Public Function makeFileList(ByVal ISOname As String)
Dim a = New List(Of fileInfo)
Dim FilesSectors = getCDfile(ISOname, &H17, &H1B88).ToArray
Dim maxFiles = 880
Dim FilesSectors = getCDfile(ISOname, &H17, &H4000).ToArray
If ISOname.Contains("KUDOS") Then FilesSectors = getCDfile(ISOname, &H31, &H1B88).ToArray
If ISOname.Contains("Sumaru TV") Then maxFiles = 1124
For x = 0 To 880
For x = 0 To maxFiles
a.Add(New fileInfo With {.FileID = x, .Sector = Form1.Read32bitNum(FilesSectors, x * 8), .Sizw = Form1.Read32bitNum(FilesSectors, x * 8 + 4)})
Next