hedgewars/uConsts.pas
changeset 371 731ad6d27bd1
parent 351 29bc9c36ad5f
child 393 db01cc79f278
equal deleted inserted replaced
370:c75410fe3133 371:731ad6d27bd1
    64 
    64 
    65      TStatInfoType = (siGameResult, siMaxStepDamage, siKilledHHs);
    65      TStatInfoType = (siGameResult, siMaxStepDamage, siKilledHHs);
    66 
    66 
    67      THHFont    = record
    67      THHFont    = record
    68                   Handle: PTTF_Font;
    68                   Handle: PTTF_Font;
    69                   Height: integer;
    69                   Height: LongInt;
    70                   style: integer;
    70                   style: LongInt;
    71                   Name: string[15];
    71                   Name: string[15];
    72                   end;
    72                   end;
    73 
    73 
    74      TAmmo = record
    74      TAmmo = record
    75              Propz: LongWord;
    75              Propz: LongWord;
   173       EXPLDontDraw          = $00000010;
   173       EXPLDontDraw          = $00000010;
   174 
   174 
   175       posCaseAmmo    = $00000001;
   175       posCaseAmmo    = $00000001;
   176       posCaseHealth  = $00000002;
   176       posCaseHealth  = $00000002;
   177 
   177 
   178       NoPointX = Low(Integer);
   178       NoPointX = Low(LongInt);
   179 
   179 
   180       cHHFileName   = 'Hedgehog';
   180       cHHFileName   = 'Hedgehog';
   181       cCHFileName   = 'Crosshair';
   181       cCHFileName   = 'Crosshair';
   182       cThemeCFGFilename = 'theme.cfg';
   182       cThemeCFGFilename = 'theme.cfg';
   183 
   183 
   236                                       );
   236                                       );
   237       SpritesData: array[TSprite] of record
   237       SpritesData: array[TSprite] of record
   238                      FileName: String[31];
   238                      FileName: String[31];
   239                      Path, AltPath: TPathType;
   239                      Path, AltPath: TPathType;
   240                      Surface : PSDL_Surface;
   240                      Surface : PSDL_Surface;
   241                      Width, Height: integer;
   241                      Width, Height: LongInt;
   242                      hasAlpha: boolean;
   242                      hasAlpha: boolean;
   243                      end = (
   243                      end = (
   244                      (FileName: 'BlueWater'; Path: ptGraphics; AltPath: ptNone; Surface: nil;
   244                      (FileName: 'BlueWater'; Path: ptGraphics; AltPath: ptNone; Surface: nil;
   245                      Width: 256; Height: 48; hasAlpha: false),// sprWater
   245                      Width: 256; Height: 48; hasAlpha: false),// sprWater
   246                      (FileName:    'Clouds'; Path: ptCurrTheme; AltPath: ptGraphics; Surface: nil;
   246                      (FileName:    'Clouds'; Path: ptCurrTheme; AltPath: ptGraphics; Surface: nil;