| changeset 3407 | dcc129c4352e |
| parent 3236 | 4ab3917d7d44 |
| child 3463 | 23c50be687a9 |
| 3406:f4bdebced042 | 3407:dcc129c4352e |
|---|---|
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, uFloat, uSound, uWorld, GLunit; |
32 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uSound, GLunit; |
33 |
33 |
34 const MaxRects = 512; |
34 const MaxRects = 512; |
35 MAXOBJECTRECTS = 16; |
35 MAXOBJECTRECTS = 16; |
36 MAXTHEMEOBJECTS = 32; |
36 MAXTHEMEOBJECTS = 32; |
37 |
37 |
203 |
203 |
204 AddGirder:= bRes; |
204 AddGirder:= bRes; |
205 end; |
205 end; |
206 |
206 |
207 function CheckLand(rect: TSDL_Rect; dX, dY, Color: Longword): boolean; |
207 function CheckLand(rect: TSDL_Rect; dX, dY, Color: Longword): boolean; |
208 var i: Longword; |
208 var i: LongInt; |
209 bRes: boolean = true; |
209 bRes: boolean = true; |
210 begin |
210 begin |
211 inc(rect.x, dX); |
211 inc(rect.x, dX); |
212 inc(rect.y, dY); |
212 inc(rect.y, dY); |
213 i:= 0; |
213 i:= 0; |