| changeset 1256 | 2754a6a8c8f1 |
| parent 1190 | 73ec31d8bb6f |
| child 1276 | 281f6aa9afba |
| 1255:7ffc2c9e7224 | 1256:2754a6a8c8f1 |
|---|---|
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; |
30 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, GL, uSound, uWorld; |
31 const MaxRects = 512; |
31 const MaxRects = 512; |
32 MAXOBJECTRECTS = 16; |
32 MAXOBJECTRECTS = 16; |
33 MAXTHEMEOBJECTS = 32; |
33 MAXTHEMEOBJECTS = 32; |
34 |
34 |
35 type PRectArray = ^TRectsArray; |
35 type PRectArray = ^TRectsArray; |
355 Reset(f); |
355 Reset(f); |
356 |
356 |
357 // read sky and explosion border colors |
357 // read sky and explosion border colors |
358 Readln(f, c1.r, c1.g, c1. b); |
358 Readln(f, c1.r, c1.g, c1. b); |
359 Readln(f, c2.r, c2.g, c2. b); |
359 Readln(f, c2.r, c2.g, c2. b); |
360 // read water gradient colors |
|
361 Readln(f, WaterColor.r, WaterColor.g, WaterColor. b); |
|
362 Readln(f, DeepWaterColor.r, DeepWaterColor.g, DeepWaterColor. b); |
|
360 |
363 |
361 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color |
364 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color |
362 cExplosionBorderColor:= c2.value or $FF000000; |
365 cExplosionBorderColor:= c2.value or $FF000000; |
363 |
366 |
364 ReadLn(f, s); |
367 ReadLn(f, s); |