- Added support to rebuild ripped game into Clone CD (ccd) fromat by …

…BizHawk.Emulation.DiscSystem.dll

Laziass/LazyAss.resx

@@ -126,6 +126,12 @@
   <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>180, 17</value>
+  </metadata>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>436, 17</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>47</value>
   </metadata>

Laziass/LazyAss.vb

@@ -1,6 +1,7 @@
 Imports System.ComponentModel
 Imports System.IO
 Imports DiscTools
+Imports BizHawk.Emulation.DiscSystem
 
 Public Class LazyAss
 
@@ -12,6 +13,34 @@ Public Class LazyAss
 
     Public Declare Function OpenDrawerCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
+    Private Sub MakeCCD()
+        Try
+            SaveFileDialog1.InitialDirectory = OutputPath.Text & RippedName.Text
+            SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(dtl_iso)
+
+            If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
+                Dim basename As String = Path.Combine(OutputPath.Text & RippedName.Text, Path.GetFileNameWithoutExtension(dtl_iso))
+                Dim job = New DiscMountJob With {.IN_FromPath = basename & ".cue"}
+                job.Run()
+                Dim disc = job.OUT_Disc
+
+                If job.OUT_ErrorLevel Then
+                    MsgBox(job.OUT_Log, "Error loading CUE", vbOK + vbCritical)
+                    Exit Sub
+                End If
+
+                'Dim outfile As String = basename & ".ccd"
+                CCD_Format.Dump(disc, SaveFileDialog1.FileName)
+                'MsgBox("Virtual CCD image created!", vbOKOnly + MsgBoxStyle.Information, "CCD image created!")
+            Else
+                Exit Sub
+            End If
+        Catch ex As Exception
+            MsgBox(ex.ToString)
+        End Try
+
+    End Sub
+
     Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectImage.Click
         task = 0
         Dim mnt_iso As OpenFileDialog = New OpenFileDialog()
@@ -288,11 +317,13 @@ Public Class LazyAss
         Dim ExFileOnFolder As IO.FileInfo
         ExFile = ExPath.GetFiles("*" & ExtRip)
 
+        Dim ExtractAudioFromCue As String = CueExtInside(dtl_iso)
+
         Try
             For Each ExFileOnFolder In ExFile
                 If ExtRip = ".*" Then
                     Dim filetypeonfolder = LCase(ExFileOnFolder.Extension)
-                    If filetypeonfolder = CueExtInside(dtl_iso) Or filetypeonfolder = ".iso" Then
+                    If filetypeonfolder = ExtractAudioFromCue Or filetypeonfolder = ".iso" And filetypeonfolder <> ".bin" Then
                         ListAddsFile.Items.Add(ExFileOnFolder.Name)
                     End If
                 Else
@@ -316,7 +347,7 @@ Public Class LazyAss
     End Sub
 
     Private Function CueExtInside(pathcue As String)
-        Dim righe As String() = File.ReadAllLines(dtl_iso)
+        Dim righe As String() = File.ReadAllLines(pathcue)
         Dim result() As String
         For i = 0 To 10
             If UCase(righe(i)).Contains("FILE ") Then
@@ -326,7 +357,8 @@ Public Class LazyAss
                     result = righe(i).Split(" ")
                 End If
                 Dim cueext = LCase(Path.GetExtension(Replace(result(1).Trim, """", "")))
-                If cueext <> ".iso" Or cueext <> ".bin" Then
+                If cueext = ".iso" Then 'Or cueext = ".bin"
+                Else
                     Return (cueext)
                     Exit For
                 End If
@@ -733,6 +765,10 @@ Public Class LazyAss
         End If
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs)
+        MakeCCD()
+    End Sub
+
     Private Sub EjectUnmountDriveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EjectUnmountDriveToolStripMenuItem.Click
         Try
             If DVDBrand.Contains("DiscSoft Virtual") Then
@@ -1078,6 +1114,16 @@ Public Class LazyAss
 
         If ErrorAbort > 1 Then Exit Sub
 
+        If RebuildCUE.Checked = True Then
+            Select Case CueExtInside(OutputPath.Text & RippedName.Text & "\" & Path.GetFileName(dtl_iso))
+                Case ".wav", ".bin"
+                    Dim MCCD = MsgBox("Do you want do create a ccd/img/sub?", vbYesNo + MsgBoxStyle.Information, "Make a CCD?")
+                    If MCCD = vbYes Then
+                        MakeCCD()
+                    End If
+            End Select
+        End If
+
         TSound = "Yoolaiyoleihee"
         PlayRandom()
         MsgBox("Conversion Done!", vbInformation + MsgBoxStyle.OkOnly)

Laziass/LazyAss.vbproj

@@ -12,7 +12,7 @@
     <AssemblyName>LazyAss</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
     <OptionExplicit>On</OptionExplicit>
     <OptionCompare>Binary</OptionCompare>
     <OptionStrict>Off</OptionStrict>
@@ -49,6 +49,7 @@
     <DocumentationFile>LazyAss.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
     <PlatformTarget>AnyCPU</PlatformTarget>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <DebugType>pdbonly</DebugType>
@@ -58,11 +59,16 @@
     <OutputPath>bin\Release\</OutputPath>
     <DocumentationFile>LazyAss.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup>
     <ApplicationIcon>Resources\Icons\cockroach.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="BizHawk.Emulation.DiscSystem, Version=2.3.0.1, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>.\BizHawk.Emulation.DiscSystem.dll</HintPath>
+    </Reference>
     <Reference Include="DiscTools">
       <HintPath>.\DiscTools.dll</HintPath>
     </Reference>

Laziass/My Project/AssemblyInfo.vb

@@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("LazyAss Cd Image Ripper")>
-<Assembly: AssemblyCopyright("Copyright ©  2016")>
+<Assembly: AssemblyCopyright("")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>

Laziass/app.config

@@ -5,22 +5,22 @@
       <!-- Questa sezione definisce la configurazione di registrazione per My.Application.Log -->
       <source name="DefaultSource" switchName="DefaultSwitch">
         <listeners>
-          <add name="FileLog" />
+          <add name="FileLog"/>
           <!-- Per scrivere nel log eventi dell'applicazione, rimuovere il commento dalla sezione sottostante -->
           <!--<add name="EventLog" />-->
         </listeners>
       </source>
     </sources>
     <switches>
-      <add name="DefaultSwitch" value="Information" />
+      <add name="DefaultSwitch" value="Information"/>
     </switches>
     <sharedListeners>
-      <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
+      <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
       <!-- Per scrivere nel log eventi dell'applicazione, rimuovere il commento dalla sezione sottostante e sostituire APPLICATION_NAME con il nome dell'applicazione -->
       <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME" /> -->
     </sharedListeners>
   </system.diagnostics>
   <startup>
 
-  <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0" /></startup>
-</configuration>
+  <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/></startup>
+</configuration>