From fac1634f48835f46249ec25d2758c81addd09d52 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 30 Sep 2007 05:56:29 +0000
Subject: some minor bug fixes..

added Installer script..
for NSIS install compiler.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@451 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UFiles.pas | 41 -----------------------------------------
 Game/Code/Classes/UMain.pas  | 16 ++++++++++++----
 2 files changed, 12 insertions(+), 45 deletions(-)

(limited to 'Game/Code/Classes')

diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas
index 565c5ee3..9cd3bdc1 100644
--- a/Game/Code/Classes/UFiles.pas
+++ b/Game/Code/Classes/UFiles.pas
@@ -54,47 +54,6 @@ implementation
 uses TextGL,
      UIni,
      UMain;
-{*
-//--------------------
-// Function sets all Absolute Paths e.g. Song Path and makes sure the Directorys exist
-//--------------------
-procedure InitializePaths;
-
-  // Initialize a Path Variable
-  // After Setting Paths, make sure that Paths exist
-  function initialize_path( out aPathVar : String; const aLocation : String ): boolean;
-  var
-    lWriteable: Boolean;
-  begin
-    aPathVar := aLocation;
-    
-    If DirectoryExists(aPathVar) then
-      lWriteable := ForceDirectories(aPathVar)
-    else
-      lWriteable := false;
-
-    if not Writeable then
-      Log.LogError('Error: Dir ('+ aLocation +') is Readonly');
-      
-    result := lWriteable;
-  end;
-
-begin
-  GamePath := ExtractFilePath(ParamStr(0));
-  
-  initialize_path( LogPath         , GamePath                 );
-  initialize_path( SoundPath       , GamePath + 'Sounds\'     );
-  initialize_path( SongPath        , GamePath + 'Songs\'      );
-  initialize_path( ThemePath       , GamePath + 'Themes\'     );
-  initialize_path( ScreenshotsPath , GamePath + 'Screenshots\');
-  initialize_path( CoversPath      , GamePath + 'Covers\'     );
-  initialize_path( LanguagesPath   , GamePath + 'Languages\'  );
-  initialize_path( PluginPath      , GamePath + 'Plugins\'    );
-  initialize_path( PlaylistPath    , GamePath + 'Playlists\'  );
-
-  DecimalSeparator := ',';
-end;
-*}
 
 //--------------------
 // Clears Song Header values
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 9b6ea3d5..66e1d07e 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -748,14 +748,22 @@ procedure InitializePaths;
   function initialize_path( out aPathVar : String; const aLocation : String ): boolean;
   var
     lWriteable: Boolean;
+    lAttrib   : integer;
   begin
-    aPathVar := aLocation;
+    lWriteable := false;
+    aPathVar   := aLocation;
+
+    // Make sure the directory is needex
+    ForceDirectories(aPathVar);
 
     If DirectoryExists(aPathVar) then
-      lWriteable := ForceDirectories(aPathVar)
-    else
-      lWriteable := false;
+    begin
+      lAttrib := fileGetAttr('C:Temp');
 
+      lWriteable :=     ( lAttrib and faDirectory <> 0 ) AND
+                    NOT ( lAttrib and faReadOnly  <> 0 )
+    end;
+    
     if not lWriteable then
       Log.LogError('Error: Dir ('+ aLocation +') is Readonly');
 
-- 
cgit v1.2.3