hedgewars/uLandObjects.pas
changeset 4357 a1fcfc341a52
parent 4159 64e677349124
child 4359 83ef50815535
equal deleted inserted replaced
4355:4554c4df9f1a 4357:a1fcfc341a52
    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 uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uSound, GLunit, uTypes;
    33 
    33 
    34 const MaxRects = 512;
    34 const MaxRects = 512;
    35       MAXOBJECTRECTS = 16;
    35       MAXOBJECTRECTS = 16;
    36       MAXTHEMEOBJECTS = 32;
    36       MAXTHEMEOBJECTS = 32;
    37 
    37