From abf47ddd1fe77287136535e2d05ada48b99b8e1f Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 12 Sep 2008 09:51:33 +0000
Subject: - Windows resources (.rc) reduced to the icon - Texture resource
 names are now directly written to resources.inc - Fonts are no resources
 anymore. They are moved to game/fonts and can be changed to support multiple
 charsets (until the TTF part is finished). Fonts are registered in
 fonts/fonts.in

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1367 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UMain.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/base/UMain.pas')

diff --git a/src/base/UMain.pas b/src/base/UMain.pas
index f9f56c3e..7d9886b6 100644
--- a/src/base/UMain.pas
+++ b/src/base/UMain.pas
@@ -77,6 +77,7 @@ var
   LanguagesPath:    string;
   PluginPath:       string;
   VisualsPath:      string;
+  FontPath:         string;
   ResourcesPath:    string;
   PlayListPath:     string;
 
@@ -100,7 +101,7 @@ function FindPath(out PathResult: string; const RequestedPath: string; NeedsWrit
 procedure InitializePaths;
 procedure AddSongPath(const Path: string);
 
-Procedure Main;
+procedure Main;
 procedure MainLoop;
 procedure CheckEvents;
 procedure Sing(Screen: TScreenSing);
@@ -1091,6 +1092,7 @@ begin
   FindPath(LanguagesPath,    Platform.GetGameSharedPath + 'languages', false);
   FindPath(PluginPath,       Platform.GetGameSharedPath + 'plugins', false);
   FindPath(VisualsPath,      Platform.GetGameSharedPath + 'visuals', false);
+  FindPath(FontPath,         Platform.GetGameSharedPath + 'fonts', false);
   FindPath(ResourcesPath,    Platform.GetGameSharedPath + 'resources', false);
 
   // Playlists are not shared as we need one directory to write too
-- 
cgit v1.2.3