Fixed bug for v1.2.7

Author: FakelsHub

sFall Configuration/MainForm.vb

@@ -652,15 +652,17 @@ Public Class MainForm
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
-        On Error GoTo CUSTEXE
+        On Error GoTo FO2EXE
         Check_Exe()
         Save_ini()
-        Process.Start("fallout2.exe")
+        Process.Start(GetIni_Param("sFallConfigatorGameExe"))
         GoTo EXITAPP
-CUSTEXE:
+FO2EXE:
         On Error GoTo -1
         On Error GoTo SELEXE
-        Process.Start(GetIni_Param("sFallConfigatorGameExe"))
+        Check_CRC("fallout2.exe")
+        Save_ini()
+        Process.Start("fallout2.exe")
         GoTo EXITAPP
 SELEXE:
         OpenFileDialog1.Filter = "Exe files|*.exe"
@@ -669,7 +671,7 @@ SELEXE:
         SetGameExe_Ini(OpenFileDialog1.SafeFileName)
         Check_Exe()
         Save_ini()
-        Process.Start(GetIni_Param("sFallConfigatorGameExe")) 'GoTo CUSTEXE
+        Process.Start(GetIni_Param("sFallConfigatorGameExe")) 'GoTo FO2EXE
 EXITAPP:
         Application.Exit()
     End Sub

sFall Configuration/Module.vb

@@ -108,9 +108,9 @@
 
     Friend Sub Check_Exe()
         Dim game_exe As String = vbNullString
-        If Not (IO.File.Exists(Main_Path & "\fallout2.exe")) Then game_exe = GetIni_Param("sFallConfigatorGameExe")
+        game_exe = GetIni_Param("sFallConfigatorGameExe")
         If game_exe = vbNullString Then game_exe = "fallout2.exe"
-        Check_CRC(game_exe)
+        If IO.File.Exists(Main_Path & "\" & game_exe) Then Check_CRC(game_exe)
     End Sub
 
     Friend Sub Check_CRC(ByVal game_exe As String)
@@ -126,7 +126,7 @@
             Next
             If Not (equal) Then
                 If MainForm.TextBox1.Text.Length > 0 Then
-                    MainForm.TextBox1.Text = "0x" & crc(n) & ", " & MainForm.TextBox1.Text  'заносим в тексбох
+                    MainForm.TextBox1.Text &= ", " & "0x" & crc(n) '& ", " & MainForm.TextBox1.Text  'заносим в тексбох
                 Else
                     MainForm.TextBox1.Text = "0x" & crc(n)
                 End If
@@ -138,8 +138,8 @@
 
     Friend Function Get_CRC(ByVal path As String) As String
         Dim Bytes() As Byte = IO.File.ReadAllBytes(path)
-        Dim LineCrc As String = Hex(CalcCRC(Bytes, &H1EDC6F41)).ToUpper
-        LineCrc &= "|" & Hex(CalcCRC(Bytes, &HEDB88320UI)).ToUpper
+        Dim LineCrc As String = Hex(CalcCRC(Bytes, &HEDB88320UI)).ToUpper
+        LineCrc &= "|" & Hex(CalcCRC(Bytes, &H1EDC6F41)).ToUpper
         Return LineCrc
     End Function
 

sFall Configuration/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")> 
 <Assembly: AssemblyCompany("Venik's")> 
 <Assembly: AssemblyProduct("sFall Tools")> 
-<Assembly: AssemblyCopyright("Copyright ©  Fakels 2015 - 2016")> 
+<Assembly: AssemblyCopyright("Copyright ©  Fakels 2015 - 2017")> 
 <Assembly: AssemblyTrademark("")> 
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' используя "*", как показано ниже:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.6.0")> 
-<Assembly: AssemblyFileVersion("1.2.6.0")> 
+<Assembly: AssemblyVersion("1.2.7.0")> 
+<Assembly: AssemblyFileVersion("1.2.7.0")>