- 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, 1 deletions

diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index bc2019b9..8c03a53f 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -25,7 +25,6 @@ type
       procedure InteractInc; override;

       procedure InteractDec; override;

       procedure SetAnimationProgress(Progress: real); override;

-      //function Draw: boolean; override;

   end;

 

 const

@@ -314,6 +313,9 @@ begin
 end;

 

 function TScreenMain.Draw: boolean;

+var

+  txt:  string;

+

 begin

   Result := inherited Draw;

 

@@ -324,6 +326,14 @@ begin
   begin

     StartScreenScredits;

   end;

+

+  glColor4f(1,1,1,1);

+  SetFontStyle(0);
+  SetFontItalic(False);
+  SetFontSize(6);
+  txt := Language.Translate('US_VERSION_NUMBER');
+  SetFontPos(795 - glTextWidth(PChar(txt)), 580);
+  glPrint(PChar(txt));

 end;

 

 procedure TScreenMain.InteractNext;