| changeset 2699 | 249adefa9c1c |
| parent 2695 | ed789a7ef68d |
| child 2705 | 2b5625c4ec16 |
| 2698:90585aba87ad | 2699:249adefa9c1c |
|---|---|
26 procedure LoadThemeConfig; |
26 procedure LoadThemeConfig; |
27 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
27 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
28 procedure AddOnLandObjects(Surface: PSDL_Surface); |
28 procedure AddOnLandObjects(Surface: PSDL_Surface); |
29 |
29 |
30 implementation |
30 implementation |
31 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, |
31 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, uSound, uWorld, |
32 {$IFDEF GLES11} |
32 {$IFDEF GLES11} |
33 gles11, |
33 gles11; |
34 {$ELSE} |
34 {$ELSE} |
35 GL, |
35 GL; |
36 {$ENDIF} |
36 {$ENDIF} |
37 uSound, uWorld; |
37 |
38 const MaxRects = 512; |
38 const MaxRects = 512; |
39 MAXOBJECTRECTS = 16; |
39 MAXOBJECTRECTS = 16; |
40 MAXTHEMEOBJECTS = 32; |
40 MAXTHEMEOBJECTS = 32; |
41 |
41 |
42 type PRectArray = ^TRectsArray; |
42 type PRectArray = ^TRectsArray; |