hedgewars/uLandObjects.pas
changeset 4377 43945842da0c
parent 4374 bcefeeabaa33
child 4389 d1c65b60cd68
equal deleted inserted replaced
4376:9654205a9424 4377:43945842da0c
    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, uUtils;
    33      uTypes, uVariables, uUtils, uIO;
    34 
    34 
    35 const MaxRects = 512;
    35 const MaxRects = 512;
    36       MAXOBJECTRECTS = 16;
    36       MAXOBJECTRECTS = 16;
    37       MAXTHEMEOBJECTS = 32;
    37       MAXTHEMEOBJECTS = 32;
    38 
    38