hedgewars/uWorld.pas
changeset 2409 dbf195c3e09c
parent 2407 9f413bd5150e
child 2413 d921d13a8546
--- a/hedgewars/uWorld.pas	Wed Oct 07 17:01:40 2009 +0000
+++ b/hedgewars/uWorld.pas	Thu Oct 08 00:58:17 2009 +0000
@@ -32,7 +32,11 @@
 {$ENDIF}
 var FollowGear: PGear = nil;
 	WindBarWidth: LongInt = 0;
-	bShowAmmoMenu: boolean = false;
+{$IFDEF IPHONEOS}
+	bShowAmmoMenu: boolean = true;
+{$ELSE}
+       	bShowAmmoMenu: boolean = false;
+{$ENDIF}
 	bSelected: boolean = false;
 	bShowFinger: boolean = false;
 	Frames: Longword = 0;
@@ -419,16 +423,12 @@
       r.w:= 2 + TeamHealthBarWidth;
       r.h:= HealthTex^.h;
 
-      DrawFromRect(0,
-                        cScreenHeight + DrawHealthY,
-                        @r, HealthTex);
+      DrawFromRect(0, cScreenHeight + DrawHealthY, @r, HealthTex);
 
       inc(r.x, cTeamHealthWidth + 2);
       r.w:= 3;
 
-      DrawFromRect(TeamHealthBarWidth + 2,
-                        cScreenHeight + DrawHealthY,
-                        @r, HealthTex);
+      DrawFromRect(TeamHealthBarWidth + 2, cScreenHeight + DrawHealthY, @r, HealthTex);
       end;
 
 // Lag alert