- fix: crash at startup if no webcam connected

- some string updates

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2786 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 11 insertions, 6 deletions

diff --git a/Game/Code/UltraStar.dpr b/Game/Code/UltraStar.dpr
index adf0d8ee..ba63c085 100644
--- a/Game/Code/UltraStar.dpr
+++ b/Game/Code/UltraStar.dpr
@@ -122,15 +122,18 @@ uses
   UVideo in 'Classes\UVideo.pas';

 

 const

-  Version = 'UltraStar Deluxe Challenge, Medley & Duet Edition r9.5';

+  VersionName = 'UltraStar Deluxe Challenge, Medley & Duet Edition';

+  VersionNumber = 'r9.7';

 

 var

-  WndTitle: string;

-  hWnd: THandle;

-  I: Integer;

+  WndTitle:       string;

+  hWnd:           THandle;

+  I:              Integer;

+  VersionString:  string;

 

 begin

-  WndTitle := Version;

+  VersionString := VersionName + ' ' + VersionNumber;

+  WndTitle := VersionString;

 

   //------------------------------

   //Start more than One Time Prevention

@@ -174,7 +177,9 @@ begin
   Log.LogStatus('Initialize Paths', 'Initialization');        InitializePaths;

   Log.LogStatus('Load Language', 'Initialization');           Language := TLanguage.Create;

   //Add Const Values:

-    Language.AddConst('US_VERSION', Version);

+  Language.AddConst('US_VERSION', VersionString);

+  Language.AddConst('US_VERSION_NUMBER', VersionNumber);

+

   Log.BenchmarkEnd(1);

   Log.LogBenchmark('Loading Language', 1);