hedgewars/uConsts.pas
changeset 2905 f3c79f7193a9
parent 2903 e28356fe532a
child 2908 bd1909984a09
equal deleted inserted replaced
2904:209a0c573917 2905:f3c79f7193a9
   389 	cHHFileName = 'Hedgehog';
   389 	cHHFileName = 'Hedgehog';
   390 	cCHFileName = 'Crosshair';
   390 	cCHFileName = 'Crosshair';
   391 	cThemeCFGFilename = 'theme.cfg';
   391 	cThemeCFGFilename = 'theme.cfg';
   392 	
   392 	
   393 	FontBorder = 2;
   393 	FontBorder = 2;
   394 var	PathPrefix: string;
   394 var	PathPrefix: shortstring;
   395 	Pathz: array[TPathType] of String;
   395 	Pathz: array[TPathType] of shortstring;
   396 	CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
   396 	CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
   397 
   397 
   398 const	cTagsMasks : array[0..7] of byte = (
   398 const	cTagsMasks : array[0..7] of byte = (
   399 				htTeamName or htName or htHealth,
   399 				htTeamName or htName or htHealth,
   400 				htName or htHealth,
   400 				htName or htHealth,
  1698 procedure free_uConsts;
  1698 procedure free_uConsts;
  1699 
  1699 
  1700 implementation
  1700 implementation
  1701 
  1701 
  1702 procedure init_uConsts;
  1702 procedure init_uConsts;
  1703 var cPathz: array[TPathType] of String = (
  1703 var cPathz: array[TPathType] of shortstring = (
  1704 		'',                              // ptNone
  1704 		'',                              // ptNone
  1705 		'',                              // ptData
  1705 		'',                              // ptData
  1706 		'Graphics',                      // ptGraphics
  1706 		'Graphics',                      // ptGraphics
  1707 		'Themes',                        // ptThemes
  1707 		'Themes',                        // ptThemes
  1708 		'Themes/avematan',               // ptCurrTheme
  1708 		'Themes/avematan',               // ptCurrTheme