hedgewars/uConsts.pas
changeset 3611 ed00aa2b339e
parent 3594 aeca3d8f1b29
child 3612 b50215a8a43d
equal deleted inserted replaced
3610:8590424bdfb0 3611:ed00aa2b339e
   223     rq2DWater     = $00000010;  // disabe 3D water effect
   223     rq2DWater     = $00000010;  // disabe 3D water effect
   224     rqFancyBoom   = $00000020;  // no fancy explosion effects
   224     rqFancyBoom   = $00000020;  // no fancy explosion effects
   225     rqKillFlakes  = $00000040;  // no flakes
   225     rqKillFlakes  = $00000040;  // no flakes
   226     rqSlowMenu    = $00000080;  // ammomenu appears with no animation
   226     rqSlowMenu    = $00000080;  // ammomenu appears with no animation
   227     rqPlainSplash = $00000100;  // no droplets
   227     rqPlainSplash = $00000100;  // no droplets
       
   228     rqClampLess   = $00000200;  // don't clamp textures
   228 
   229 
   229     // image flags (for LoadImage())
   230     // image flags (for LoadImage())
   230     ifNone        = $00000000;  // nothing special
   231     ifNone        = $00000000;  // nothing special
   231     ifAlpha       = $00000001;  // use alpha channel (unused right now?)
   232     ifAlpha       = $00000001;  // use alpha channel (unused right now?)
   232     ifCritical    = $00000002;  // image is critical for gameplay (exit game if unable to load)
   233     ifCritical    = $00000002;  // image is critical for gameplay (exit game if unable to load)
   440     cHHFileName = 'Hedgehog';
   441     cHHFileName = 'Hedgehog';
   441     cCHFileName = 'Crosshair';
   442     cCHFileName = 'Crosshair';
   442     cThemeCFGFilename = 'theme.cfg';
   443     cThemeCFGFilename = 'theme.cfg';
   443     
   444     
   444     FontBorder = 2;
   445     FontBorder = 2;
   445 var PathPrefix: shortstring;
   446     cPathz: array[TPathType] of shortstring = (
       
   447         '',                              // ptNone
       
   448         '',                              // ptData
       
   449         'Graphics',                      // ptGraphics
       
   450         'Themes',                        // ptThemes
       
   451         'Themes/avematan',               // ptCurrTheme
       
   452         'Teams',                         // ptTeams
       
   453         'Maps',                          // ptMaps
       
   454         '',                              // ptMapCurrent
       
   455         'Demos',                         // ptDemos
       
   456         'Sounds',                        // ptSounds
       
   457         'Graphics/Graves',               // ptGraves
       
   458         'Fonts',                         // ptFonts
       
   459         'Forts',                         // ptForts
       
   460         'Locale',                        // ptLocale
       
   461         'Graphics/AmmoMenu',             // ptAmmoMenu
       
   462         'Graphics/Hedgehog',             // ptHedgehog
       
   463         'Sounds/voices',                 // ptVoices
       
   464         'Graphics/Hats',                 // ptHats
       
   465         'Graphics/Flags'                 // ptFlags
       
   466     );
       
   467     
       
   468 var PathPrefix: shortstring = './';
   446     Pathz: array[TPathType] of shortstring;
   469     Pathz: array[TPathType] of shortstring;
   447     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
   470     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
   448 
   471 
   449 const
   472 const
   450     cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
   473     cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
  2156         BMask : BMask;
  2179         BMask : BMask;
  2157         AMask : AMask;
  2180         AMask : AMask;
  2158         colorkey: 0;
  2181         colorkey: 0;
  2159         alpha : 255
  2182         alpha : 255
  2160     );
  2183     );
  2161             
  2184     
  2162 
       
  2163 procedure initModule;
  2185 procedure initModule;
  2164 procedure freeModule;
  2186 procedure freeModule;
  2165 
  2187 
  2166 implementation
  2188 implementation
  2167 
  2189 
  2168 procedure initModule;
  2190 procedure initModule;
  2169 var cPathz: array[TPathType] of shortstring = (
  2191 
  2170         '',                              // ptNone
  2192 begin
  2171         '',                              // ptData
  2193     Pathz:= cPathz;
  2172         'Graphics',                      // ptGraphics
  2194 
  2173         'Themes',                        // ptThemes
  2195 end;
  2174         'Themes/avematan',               // ptCurrTheme
  2196 
  2175         'Teams',                         // ptTeams
  2197 procedure freeModule;
  2176         'Maps',                          // ptMaps
       
  2177         '',                              // ptMapCurrent
       
  2178         'Demos',                         // ptDemos
       
  2179         'Sounds',                        // ptSounds
       
  2180         'Graphics/Graves',               // ptGraves
       
  2181         'Fonts',                         // ptFonts
       
  2182         'Forts',                         // ptForts
       
  2183         'Locale',                        // ptLocale
       
  2184         'Graphics/AmmoMenu',             // ptAmmoMenu
       
  2185         'Graphics/Hedgehog',             // ptHedgehog
       
  2186         'Sounds/voices',                 // ptVoices
       
  2187         'Graphics/Hats',                 // ptHats
       
  2188         'Graphics/Flags'                 // ptFlags
       
  2189     );
       
  2190 begin
  2198 begin
  2191     PathPrefix := './';
  2199     PathPrefix := './';
  2192     Pathz:= cPathz;
       
  2193 end;
  2200 end;
  2194 
  2201 
  2195 procedure freeModule;
       
  2196 begin
       
  2197 
       
  2198 end;
       
  2199 
       
  2200 end.
  2202 end.