changeset 1906 | 644f93d8f148 |
parent 1869 | 490005509a7b |
child 1911 | 6283bd8a960b |
1905:b1ec8db513f2 | 1906:644f93d8f148 |
---|---|
25 procedure LoadThemeConfig; |
25 procedure LoadThemeConfig; |
26 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
26 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
27 procedure AddOnLandObjects(Surface: PSDL_Surface); |
27 procedure AddOnLandObjects(Surface: PSDL_Surface); |
28 |
28 |
29 implementation |
29 implementation |
30 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, GL, uSound, uWorld; |
30 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, |
31 {$IFDEF IPHONE} |
|
32 gles11, |
|
33 {$ELSE} |
|
34 GL, |
|
35 {$ENDIF} |
|
36 uSound, uWorld; |
|
31 const MaxRects = 512; |
37 const MaxRects = 512; |
32 MAXOBJECTRECTS = 16; |
38 MAXOBJECTRECTS = 16; |
33 MAXTHEMEOBJECTS = 32; |
39 MAXTHEMEOBJECTS = 32; |
34 |
40 |
35 type PRectArray = ^TRectsArray; |
41 type PRectArray = ^TRectsArray; |