equal
deleted
inserted
replaced
32 procedure AddOnLandObjects(Surface: PSDL_Surface); |
32 procedure AddOnLandObjects(Surface: PSDL_Surface); |
33 procedure SetLand(var LandWord: Word; Pixel: LongWord); inline; |
33 procedure SetLand(var LandWord: Word; Pixel: LongWord); inline; |
34 |
34 |
35 implementation |
35 implementation |
36 uses uStore, uConsts, uConsole, uRandom, uSound |
36 uses uStore, uConsts, uConsole, uRandom, uSound |
37 , uTypes, uVariables, uDebug, SysUtils, uUtils |
37 , uTypes, uVariables, uDebug, uUtils |
38 , uPhysFSLayer; |
38 , uPhysFSLayer; |
39 |
39 |
40 const MaxRects = 512; |
40 const MaxRects = 512; |
41 MAXOBJECTRECTS = 16; |
41 MAXOBJECTRECTS = 16; |
42 MAXTHEMEOBJECTS = 32; |
42 MAXTHEMEOBJECTS = 32; |