hedgewars/uConsts.pas
changeset 2947 803b277e4894
parent 2941 566f967ec22f
child 2948 3f21a9dc93d0
equal deleted inserted replaced
2946:1d9e0a541c62 2947:803b277e4894
   381 
   381 
   382 	NoPointX = Low(LongInt);
   382 	NoPointX = Low(LongInt);
   383 	cTargetPointRef	: TPoint = (X: NoPointX; Y: 0);
   383 	cTargetPointRef	: TPoint = (X: NoPointX; Y: 0);
   384 
   384 
   385 	// hog tag mask
   385 	// hog tag mask
   386 	htNone        = $00;
   386     // hog tag mask
   387 	htTeamName    = $01;
   387     htNone        = $00;
   388 	htName        = $02;
   388     htTeamName    = $01;
   389 	htHealth      = $04;
   389     htName        = $02;
   390 	htTransparent = $80;
   390     htHealth      = $04;
   391 	
   391     htTransparent = $08;
   392 	cHHFileName = 'Hedgehog';
   392     
   393 	cCHFileName = 'Crosshair';
   393     cHHFileName = 'Hedgehog';
   394 	cThemeCFGFilename = 'theme.cfg';
   394     cCHFileName = 'Crosshair';
   395 	
   395     cThemeCFGFilename = 'theme.cfg';
   396 	FontBorder = 2;
   396     
   397 var	PathPrefix: shortstring;
   397     FontBorder = 2;
   398 	Pathz: array[TPathType] of shortstring;
   398 var PathPrefix: shortstring;
   399 	CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
   399     Pathz: array[TPathType] of shortstring;
   400 
   400     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
   401 const	cTagsMasks : array[0..7] of byte = (
   401 
   402 				htTeamName or htName or htHealth,
   402 const
   403 				htName or htHealth,
   403     cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
   404 				htHealth,
   404     cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0);
   405 				htNone,
       
   406 				htTeamName or htName or htHealth or htTransparent,
       
   407 				htName or htHealth or htTransparent,
       
   408 				htHealth or htTransparent,
       
   409 				htNone
       
   410 				);
       
   411 
   405 
   412 	Fontz: array[THWFont] of THHFont = (
   406 	Fontz: array[THWFont] of THHFont = (
   413 			(Handle: nil;
   407 			(Handle: nil;
   414 			Height: 12;
   408 			Height: 12;
   415 			style: TTF_STYLE_NORMAL;
   409 			style: TTF_STYLE_NORMAL;