hedgewars/uLandObjects.pas
changeset 3165 3ec07a7d8456
parent 3083 8da8f2515221
child 3236 4ab3917d7d44
equal deleted inserted replaced
3164:569fd65261d0 3165:3ec07a7d8456
    27 procedure LoadThemeConfig;
    27 procedure LoadThemeConfig;
    28 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface);
    28 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface);
    29 procedure AddOnLandObjects(Surface: PSDL_Surface);
    29 procedure AddOnLandObjects(Surface: PSDL_Surface);
    30 
    30 
    31 implementation
    31 implementation
    32 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, uSound, uWorld,
    32 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, uSound, uWorld, GLunit;
    33 {$IFDEF GLES11}
       
    34     gles11;
       
    35 {$ELSE}
       
    36     GL;
       
    37 {$ENDIF}
       
    38 
    33 
    39 const MaxRects = 512;
    34 const MaxRects = 512;
    40       MAXOBJECTRECTS = 16;
    35       MAXOBJECTRECTS = 16;
    41       MAXTHEMEOBJECTS = 32;
    36       MAXTHEMEOBJECTS = 32;
    42 
    37