hopefully fixes issue #2

This commit is contained in:
Regnum
2020-07-01 21:17:02 -05:00
parent 0649c0c05e
commit f03e84d985
2 changed files with 11 additions and 7 deletions

View File

@@ -485,13 +485,17 @@ Public Class Main5
Private Sub Bt_Build_Click(sender As Object, e As EventArgs) Handles bt_Build.Click
Card.Unknown14 = &H14
File.WriteAllBytes(Local & "\outputCard.bin", Card.Data)
Process.Start(Local & "\tools\extract.bat").WaitForExit()
File.Delete(Local & "\tools\data\data.bin")
File.Copy(Local & "\outputCard.bin", Local & "\tools\data\data.bin")
Process.Start(Local & "\tools\compile.bat").WaitForExit()
Process.Start(Local & "\tools\clean.bat").WaitForExit()
Try
Do Until Directory.Exists(Local & "\tools\data")
Process.Start(Local & "\tools\extract.bat").WaitForExit()
Loop
If File.Exists(Local & "\tools\data\data.bin") Then File.Delete(Local & "\tools\data\data.bin")
File.Copy(Local & "\outputCard.bin", Local & "\tools\data\data.bin")
Process.Start(Local & "\tools\compile.bat").WaitForExit()
Process.Start(Local & "\tools\clean.bat").WaitForExit()
Catch ex As Exception
MsgB(ex.Message)
End Try
SaveFile.Filter = "NDS ROM (*.nds)|*.nds|All files (*.*)|*.*"
Dim res As DialogResult = SaveFile.ShowDialog()
If res <> Windows.Forms.DialogResult.Cancel Then

Binary file not shown.