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

19
p2isPSX_CDToolkit/Form1.vb
View File

@@ -207,7 +207,7 @@ Public Class Form1
Dim xy = ""
If r.Type = 2 Then xy = ", x" & r.x & "y" & r.y & "w" & r.w & "h" & r.h
If r.Type = 2 Then xy = ", Vx" & r.x & " Vy" & r.y & ", w" & r.w & " h" & r.h
Select Case r.Compr
@@ -423,8 +423,19 @@ Public Class Form1
End Function
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, SelBinFiles.KeyDown
If e.KeyCode = Keys.E Then ExportUnrleFile.PerformClick()
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, SelBinFiles.KeyDown, CDFileList.KeyDown
If e.KeyCode = Keys.E Then
If SelBinFiles.SelectedIndex = -1 Then
If CDFileList.SelectedIndex = -1 Then Exit Sub
Dim a = New ISOTools
Dim fil = a.getCDfile(getFilnam, files1(CDFileList.SelectedIndex).Sector, files1(CDFileList.SelectedIndex).Sizw)
Dim filename = ExportBinPath.Text & CDFileList.SelectedIndex.ToString("D4") & ".bin"
My.Computer.FileSystem.WriteAllBytes(filename, fil.ToArray, False)
Savedlbl.Text = "SAVED TO " & filename
Else
ExportUnrleFile.PerformClick()
End If
End If
End Sub
@@ -494,7 +505,7 @@ Public Class Form1
CDFileList.Items.Clear()
If Not File.Exists(filnam) Then MsgBox("File not found! Please select proper BIN file and check path!", MsgBoxStyle.Critical) : Exit Sub
If FileLen(filnam) < 621900000 Then MsgBox("File is not proper PERSONA2 IS bin image! Check it!", MsgBoxStyle.Critical) : Exit Sub
If FileLen(filnam) < 621900000 Then MsgBox("File is not proper PERSONA2 EP bin image! Check it!", MsgBoxStyle.Critical) : Exit Sub
'Reading Files Descriptions