hedgewars/uLandObjects.pas
changeset 4367 f4a0ec067601
parent 4359 83ef50815535
child 4374 bcefeeabaa33
equal deleted inserted replaced
4365:4f2b1a152979 4367:f4a0ec067601
    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, uSound, GLunit,
    32 uses uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uSound, GLunit,
    33     uTypes, uVariables;
    33     uTypes, uVariables;
    34 
    34 
    35 const MaxRects = 512;
    35 const MaxRects = 512;
    36       MAXOBJECTRECTS = 16;
    36       MAXOBJECTRECTS = 16;
    37       MAXTHEMEOBJECTS = 32;
    37       MAXTHEMEOBJECTS = 32;