--- a/hedgewars/uConsts.pas	Sat Jul 24 23:23:10 2010 +0200
+++ b/hedgewars/uConsts.pas	Sun Jul 25 01:59:41 2010 +0200
@@ -295,15 +295,12 @@
 
     cKeyMaxIndex = 1023;
 
+    cDefaultZoomLevel = 2.0;
 {$IFDEF IPHONEOS}
-    cMaxCaptions = 3;
-    cDefaultZoomLevel = 2.0;
     cMaxZoomLevel = 0.5;
     cMinZoomLevel = 3.5;
     cZoomDelta = 0.20;
 {$ELSE}
-    cMaxCaptions = 4;
-    cDefaultZoomLevel = 2.0;
     cMaxZoomLevel = 1.0;
     cMinZoomLevel = 3.0;
     cZoomDelta = 0.25;
@@ -459,6 +456,7 @@
     LAND_HEIGHT :longint;
     LAND_WIDTH_MASK  :longWord;
     LAND_HEIGHT_MASK :longWord;
+    cMaxCaptions : LongInt;
 
 const
     cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
@@ -2201,6 +2199,14 @@
         LAND_WIDTH_MASK:= $FFFFF000;
         LAND_HEIGHT_MASK:= $FFFFF800
     end;
+
+{$IFDEF IPHONEOS}    
+    if isPhone() then
+        cMaxCaptions:= 3
+    else
+{$ENDIF}
+        cMaxCaptions:= 4;
+
 end;
 
 procedure freeModule;