hedgewars/uLandObjects.pas
changeset 4850 434cd1284204
parent 4835 a6924450e694
child 4976 088d40d8aba2
equal deleted inserted replaced
4849:e7b1f0aaf36f 4850:434cd1284204
    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 uStore, uConsts, uConsole, uRandom, uVisualGears, uSound, GLunit,
    32 uses uStore, uConsts, uConsole, uRandom, uSound, GLunit,
    33      uTypes, uVariables, uUtils, uDebug, sysutils;
    33      uTypes, uVariables, uUtils, uDebug, sysutils;
    34 
    34 
    35 const MaxRects = 512;
    35 const MaxRects = 512;
    36       MAXOBJECTRECTS = 16;
    36       MAXOBJECTRECTS = 16;
    37       MAXTHEMEOBJECTS = 32;
    37       MAXTHEMEOBJECTS = 32;