@@ -11,6 +11,16 @@ Begin VB.Form Form1
1111 ScaleHeight = 6135
1212 ScaleWidth = 12555
1313 StartUpPosition = 3 'Windows Default
14+ Begin VB.CheckBox Check14
15+ BackColor = &H00C0C0C0 &
16+ Caption = "untrusted_fip_check"
17+ Height = 195
18+ Left = 7080
19+ TabIndex = 61
20+ Top = 3840
21+ Value = 1 'Checked
22+ Width = 1815
23+ End
1424 Begin VB.CheckBox Check13
1525 BackColor = &H00C0C0C0 &
1626 Caption = "PAL"
@@ -746,7 +756,7 @@ Attribute VB_Exposed = False
746756
747757Dim MedEXE, FSO, tmp, tmp2, tmp3(99 ), BIOSFILE, BIOSPATH, ROMFILE, SystemCore, SYSCORE, BIOSSanity, ROMSanity, Stretch, PixelShader, VideoScaler, x, y, z
748758Dim cmdstring, Build, Frameskip, Fullscreen, TBlur, TblurAccum, AccumAmount, VideoIP, ActiveFile, XRes, YRes, ScaleFactor, LastPath, SavePath, BiosPathLoad
749- Dim ResetBios, ResetRom, ResetSave, FatalError, SystemRegion, SystemRegionLoad
759+ Dim ResetBios, ResetRom, ResetSave, FatalError, SystemRegion, SystemRegionLoad, ROMDIR
750760
751761Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long )
752762
@@ -1044,6 +1054,7 @@ If Len(Text1.Text) >= 1 Then
10441054 ResetBios = MsgBox("Reset Bios?" , vbYesNo, "Reset Bios?" )
10451055 End If
10461056 If ResetBios = vbYes Then
1057+ If Len(BiosPathLoad) > 0 Then Dir1.Path = BiosPathLoad
10471058 BIOSFILE = ""
10481059 Else
10491060 a = Validate_Bios()
@@ -1062,6 +1073,7 @@ If Len(Text2.Text) >= 1 Then
10621073 ResetRom = MsgBox("Reset Rom?" , vbYesNo, "Reset Rom?" )
10631074 End If
10641075 If ResetRom = vbYes Then
1076+ If Len(ROMDIR) > 0 Then Dir1.Path = ROMDIR
10651077 ROMFILE = ""
10661078 Else
10671079 a = Validate_Rom()
@@ -1242,6 +1254,11 @@ End If
12421254If Len(Text7.Text) > 0 Then
12431255 cmdstring = cmdstring & " -filesys.path_state " & Chr(34 ) & Text7.Text & Chr(34 ) & " -filesys.path_sav " & Chr(34 ) & Text7.Text & Chr(34 )
12441256End If
1257+
1258+ If Check14.Value = 0 Then
1259+ cmdstring = cmdstring & " -filesys.untrusted_fip_check 0"
1260+ End If
1261+
12451262'
12461263cmdstring = cmdstring & " " & Chr(34 ) & ROMFILE & Chr(34 )
12471264
@@ -1263,6 +1280,8 @@ Text1.Text = ""
12631280Text2.Text = ""
12641281Label6.Caption = "Not Set"
12651282Label9.Caption = "Not Set"
1283+ ROMFILE = ""
1284+ BIOSFILE = ""
12661285End Sub
12671286
12681287Private Sub Command5_Click ()
@@ -1336,6 +1355,7 @@ If ActiveFile = "ROM" Then
13361355 tmp2 = MsgBox("Set File: " & File1.FileName, vbYesNo, "Set this file?" )
13371356 If tmp2 = vbYes Then
13381357 Text2.Text = Dir1.Path & "\" & File1.FileName
1358+ ROMDIR = Dir1.Path
13391359 ROMFILE = Text2.Text
13401360 Form1.Width = 9240
13411361 ActiveFile = "None"
@@ -1361,7 +1381,7 @@ Label29.Visible = False
13611381'md5.exe Source: https://www.fourmilab.ch/md5/
13621382'MD5.EXE ACKNOWLEDGEMENTS
13631383'The MD5 algorithm was developed by Ron Rivest. The public domain C language implementation used in this program was written by Colin Plumb in 1993.
1364- Build = "0.1.1 "
1384+ Build = "0.1.2 "
13651385Form1.Caption = "MedAdvCFG v" & Build & " (Mednafen v0.9.38.x Frontend) by Nigel Todman"
13661386
13671387Dir1.Path = VB.App.Path
@@ -1376,7 +1396,7 @@ Set FSO = CreateObject("Scripting.FileSystemObject")
13761396If FSO.FileExists(VB.App.Path & "\MedAdvCFG.dat" ) Then
13771397
13781398Open VB.App.Path & "\MedAdvCFG.dat" For Input As #1
1379- For x = 1 To 22
1399+ For x = 1 To 23
13801400 On Error Resume Next
13811401 Line Input #1 , tmp3(x)
13821402 Next x
@@ -1404,6 +1424,7 @@ LastPath = Mid$(tmp3(19), 10, Len(tmp3(19)))
14041424BiosPathLoad = Mid$(tmp3(20 ), 14 , Len(tmp3(20 )))
14051425SavePath = Mid$(tmp3(21 ), 10 , Len(tmp3(21 )))
14061426SystemRegion = Mid$(tmp3(22 ), 14 , Len(tmp3(22 )))
1427+ RomPathLoad = Mid$(tmp3(23 ), 9 , Len(tmp3(23 )))
14071428
14081429Text1.Text = BIOSFILE
14091430Text2.Text = ROMFILE
@@ -1415,6 +1436,9 @@ Text7.Text = SavePath
14151436Dir1.Path = LastPath
14161437File1.Path = LastPath
14171438
1439+ ROMDIR = RomPathLoad
1440+ BIOSPATH = BiosPathLoad
1441+
14181442Combo1.Text = SystemCore
14191443Combo2.Text = Stretch
14201444Combo3.Text = PixelShader
@@ -1459,6 +1483,31 @@ ElseIf SystemRegion = "PAL" Then
14591483 Check13.Value = 1
14601484End If
14611485
1486+ If Combo1.Text = "psx (Sony PlayStation)" Then
1487+ Check1.Enabled = True
1488+ Check2.Enabled = True
1489+ Check11.Enabled = True
1490+ Check12.Enabled = True
1491+ Check13.Enabled = True
1492+ Check1.Value = 1
1493+ Check2.Value = 1
1494+ Check9.Value = 1
1495+ Check10.Value = 1
1496+ Else
1497+ Check1.Value = 0
1498+ Check2.Value = 0
1499+ Check9.Value = 0
1500+ Check10.Value = 0
1501+ Check11.Value = 0
1502+ Check12.Value = 0
1503+ Check13.Value = 0
1504+ Check1.Enabled = False
1505+ Check2.Enabled = False
1506+ Check11.Enabled = False
1507+ Check12.Enabled = False
1508+ Check13.Enabled = False
1509+ End If
1510+
14621511a = Validate_MedEXE()
14631512a = Validate_Rom()
14641513a = Validate_Bios()
@@ -1585,6 +1634,7 @@ Open VB.App.Path & "\MedAdvCFG.dat" For Output As #1
15851634 ElseIf Check13.Value = 1 Then
15861635 Print #1 , "SystemRegion=PAL"
15871636 End If
1637+ Print #1 , "RomPath=" & ROMDIR
15881638Close #1
15891639End Sub
15901640
0 commit comments