hedgewars/uLandObjects.pas
changeset 4374 bcefeeabaa33
parent 4367 f4a0ec067601
child 4377 43945842da0c
equal deleted inserted replaced
4373:fe0e3903bb9e 4374:bcefeeabaa33
    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 uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uSound, GLunit,
    32 uses uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uSound, GLunit,
    33     uTypes, uVariables;
    33      uTypes, uVariables, uUtils;
    34 
    34 
    35 const MaxRects = 512;
    35 const MaxRects = 512;
    36       MAXOBJECTRECTS = 16;
    36       MAXOBJECTRECTS = 16;
    37       MAXTHEMEOBJECTS = 32;
    37       MAXTHEMEOBJECTS = 32;
    38 
    38