changeset 3668 | 3f7a95234d8a |
parent 3667 | 9359a70df013 |
child 3670 | 4c673e57f0d7 |
3667:9359a70df013 | 3668:3f7a95234d8a |
---|---|
293 cShotgunRadius = 22; |
293 cShotgunRadius = 22; |
294 cBlowTorchC = 6; |
294 cBlowTorchC = 6; |
295 |
295 |
296 cKeyMaxIndex = 1023; |
296 cKeyMaxIndex = 1023; |
297 |
297 |
298 cDefaultZoomLevel = 2.0; |
|
298 {$IFDEF IPHONEOS} |
299 {$IFDEF IPHONEOS} |
299 cMaxCaptions = 3; |
|
300 cDefaultZoomLevel = 2.0; |
|
301 cMaxZoomLevel = 0.5; |
300 cMaxZoomLevel = 0.5; |
302 cMinZoomLevel = 3.5; |
301 cMinZoomLevel = 3.5; |
303 cZoomDelta = 0.20; |
302 cZoomDelta = 0.20; |
304 {$ELSE} |
303 {$ELSE} |
305 cMaxCaptions = 4; |
|
306 cDefaultZoomLevel = 2.0; |
|
307 cMaxZoomLevel = 1.0; |
304 cMaxZoomLevel = 1.0; |
308 cMinZoomLevel = 3.0; |
305 cMinZoomLevel = 3.0; |
309 cZoomDelta = 0.25; |
306 cZoomDelta = 0.25; |
310 {$ENDIF} |
307 {$ENDIF} |
311 |
308 |
457 CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture; |
454 CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture; |
458 LAND_WIDTH :longint; |
455 LAND_WIDTH :longint; |
459 LAND_HEIGHT :longint; |
456 LAND_HEIGHT :longint; |
460 LAND_WIDTH_MASK :longWord; |
457 LAND_WIDTH_MASK :longWord; |
461 LAND_HEIGHT_MASK :longWord; |
458 LAND_HEIGHT_MASK :longWord; |
459 cMaxCaptions : LongInt; |
|
462 |
460 |
463 const |
461 const |
464 cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13); |
462 cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13); |
465 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
463 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
466 |
464 |
2199 LAND_WIDTH:= 4096; |
2197 LAND_WIDTH:= 4096; |
2200 LAND_HEIGHT:= 2048; |
2198 LAND_HEIGHT:= 2048; |
2201 LAND_WIDTH_MASK:= $FFFFF000; |
2199 LAND_WIDTH_MASK:= $FFFFF000; |
2202 LAND_HEIGHT_MASK:= $FFFFF800 |
2200 LAND_HEIGHT_MASK:= $FFFFF800 |
2203 end; |
2201 end; |
2202 |
|
2203 {$IFDEF IPHONEOS} |
|
2204 if isPhone() then |
|
2205 cMaxCaptions:= 3 |
|
2206 else |
|
2207 {$ENDIF} |
|
2208 cMaxCaptions:= 4; |
|
2209 |
|
2204 end; |
2210 end; |
2205 |
2211 |
2206 procedure freeModule; |
2212 procedure freeModule; |
2207 begin |
2213 begin |
2208 PathPrefix := './'; |
2214 PathPrefix := './'; |