hedgewars/uConsts.pas
changeset 3611 ed00aa2b339e
parent 3594 aeca3d8f1b29
child 3612 b50215a8a43d
--- a/hedgewars/uConsts.pas	Fri Jul 02 17:46:53 2010 +0200
+++ b/hedgewars/uConsts.pas	Sat Jul 03 00:11:23 2010 +0200
@@ -225,6 +225,7 @@
     rqKillFlakes  = $00000040;  // no flakes
     rqSlowMenu    = $00000080;  // ammomenu appears with no animation
     rqPlainSplash = $00000100;  // no droplets
+    rqClampLess   = $00000200;  // don't clamp textures
 
     // image flags (for LoadImage())
     ifNone        = $00000000;  // nothing special
@@ -442,7 +443,29 @@
     cThemeCFGFilename = 'theme.cfg';
     
     FontBorder = 2;
-var PathPrefix: shortstring;
+    cPathz: array[TPathType] of shortstring = (
+        '',                              // ptNone
+        '',                              // ptData
+        'Graphics',                      // ptGraphics
+        'Themes',                        // ptThemes
+        'Themes/avematan',               // ptCurrTheme
+        'Teams',                         // ptTeams
+        'Maps',                          // ptMaps
+        '',                              // ptMapCurrent
+        'Demos',                         // ptDemos
+        'Sounds',                        // ptSounds
+        'Graphics/Graves',               // ptGraves
+        'Fonts',                         // ptFonts
+        'Forts',                         // ptForts
+        'Locale',                        // ptLocale
+        'Graphics/AmmoMenu',             // ptAmmoMenu
+        'Graphics/Hedgehog',             // ptHedgehog
+        'Sounds/voices',                 // ptVoices
+        'Graphics/Hats',                 // ptHats
+        'Graphics/Flags'                 // ptFlags
+    );
+    
+var PathPrefix: shortstring = './';
     Pathz: array[TPathType] of shortstring;
     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
 
@@ -2158,43 +2181,22 @@
         colorkey: 0;
         alpha : 255
     );
-            
-
+    
 procedure initModule;
 procedure freeModule;
 
 implementation
 
 procedure initModule;
-var cPathz: array[TPathType] of shortstring = (
-        '',                              // ptNone
-        '',                              // ptData
-        'Graphics',                      // ptGraphics
-        'Themes',                        // ptThemes
-        'Themes/avematan',               // ptCurrTheme
-        'Teams',                         // ptTeams
-        'Maps',                          // ptMaps
-        '',                              // ptMapCurrent
-        'Demos',                         // ptDemos
-        'Sounds',                        // ptSounds
-        'Graphics/Graves',               // ptGraves
-        'Fonts',                         // ptFonts
-        'Forts',                         // ptForts
-        'Locale',                        // ptLocale
-        'Graphics/AmmoMenu',             // ptAmmoMenu
-        'Graphics/Hedgehog',             // ptHedgehog
-        'Sounds/voices',                 // ptVoices
-        'Graphics/Hats',                 // ptHats
-        'Graphics/Flags'                 // ptFlags
-    );
+
 begin
-    PathPrefix := './';
     Pathz:= cPathz;
+
 end;
 
 procedure freeModule;
 begin
-
+    PathPrefix := './';
 end;
 
 end.