188 |
188 |
189 InitStepsFlags : Longword; |
189 InitStepsFlags : Longword; |
190 RealTicks : Longword; |
190 RealTicks : Longword; |
191 AttackBar : LongInt; |
191 AttackBar : LongInt; |
192 |
192 |
193 WaterColorArray : array[0..3] of HwColor4f; |
193 WaterColorArray : array[0..7] of HwColor4f; |
194 SDWaterColorArray : array[0..3] of HwColor4f; |
194 SDWaterColorArray : array[0..7] of HwColor4f; |
195 SDTint : LongInt; |
195 SDTint : LongInt; |
196 |
196 |
197 TargetCursorPoint : TPoint; |
197 TargetCursorPoint : TPoint; |
198 CursorPoint : TPoint; |
198 CursorPoint : TPoint; |
199 TargetPoint : TPoint; |
199 TargetPoint : TPoint; |
2486 LAND_HEIGHT:= 2048; |
2486 LAND_HEIGHT:= 2048; |
2487 LAND_WIDTH_MASK:= $FFFFF000; |
2487 LAND_WIDTH_MASK:= $FFFFF000; |
2488 LAND_HEIGHT_MASK:= $FFFFF800 |
2488 LAND_HEIGHT_MASK:= $FFFFF800 |
2489 end; |
2489 end; |
2490 |
2490 |
2491 SDWaterColorArray[0].r := 182; |
2491 // default sudden death water |
2492 SDWaterColorArray[0].g := 144; |
2492 |
2493 SDWaterColorArray[0].b := 201; |
2493 // deep water |
|
2494 SDWaterColorArray[0].r := 150; |
|
2495 SDWaterColorArray[0].g := 112; |
|
2496 SDWaterColorArray[0].b := 169; |
2494 SDWaterColorArray[0].a := 255; |
2497 SDWaterColorArray[0].a := 255; |
2495 SDWaterColorArray[2].r := 150; |
2498 SDWaterColorArray[2]:= SDWaterColorArray[0]; |
2496 SDWaterColorArray[2].g := 112; |
2499 SDWaterColorArray[4]:= SDWaterColorArray[0]; |
2497 SDWaterColorArray[2].b := 169; |
2500 SDWaterColorArray[6]:= SDWaterColorArray[0]; |
2498 SDWaterColorArray[2].a := 255; |
2501 // water surface |
2499 SDWaterColorArray[1]:= SDWaterColorArray[0]; |
2502 SDWaterColorArray[1].r := 182; |
2500 SDWaterColorArray[3]:= SDWaterColorArray[2]; |
2503 SDWaterColorArray[1].g := 144; |
|
2504 SDWaterColorArray[1].b := 201; |
|
2505 SDWaterColorArray[1].a := 255; |
|
2506 SDWaterColorArray[3]:= SDWaterColorArray[1]; |
|
2507 SDWaterColorArray[5]:= SDWaterColorArray[1]; |
|
2508 SDWaterColorArray[7]:= SDWaterColorArray[1]; |
|
2509 |
2501 SDWaterOpacity:= $80; |
2510 SDWaterOpacity:= $80; |
|
2511 |
2502 SDTint:= $80; |
2512 SDTint:= $80; |
2503 ExplosionBorderColor:= $FF808080; |
2513 ExplosionBorderColor:= $FF808080; |
2504 IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift); |
2514 IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift); |
2505 IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift); |
2515 IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift); |
2506 |
2516 |