hedgewars/uWorld.pas
changeset 2409 dbf195c3e09c
parent 2407 9f413bd5150e
child 2413 d921d13a8546
equal deleted inserted replaced
2408:41ebdb5f1e6e 2409:dbf195c3e09c
    30 {$IFDEF COUNTTICKS}
    30 {$IFDEF COUNTTICKS}
    31 var cntTicks: LongWord;
    31 var cntTicks: LongWord;
    32 {$ENDIF}
    32 {$ENDIF}
    33 var FollowGear: PGear = nil;
    33 var FollowGear: PGear = nil;
    34 	WindBarWidth: LongInt = 0;
    34 	WindBarWidth: LongInt = 0;
    35 	bShowAmmoMenu: boolean = false;
    35 {$IFDEF IPHONEOS}
       
    36 	bShowAmmoMenu: boolean = true;
       
    37 {$ELSE}
       
    38        	bShowAmmoMenu: boolean = false;
       
    39 {$ENDIF}
    36 	bSelected: boolean = false;
    40 	bSelected: boolean = false;
    37 	bShowFinger: boolean = false;
    41 	bShowFinger: boolean = false;
    38 	Frames: Longword = 0;
    42 	Frames: Longword = 0;
    39 	WaterColor, DeepWaterColor: TSDL_Color;
    43 	WaterColor, DeepWaterColor: TSDL_Color;
    40 
    44 
   417       r.x:= 0;
   421       r.x:= 0;
   418       r.y:= 0;
   422       r.y:= 0;
   419       r.w:= 2 + TeamHealthBarWidth;
   423       r.w:= 2 + TeamHealthBarWidth;
   420       r.h:= HealthTex^.h;
   424       r.h:= HealthTex^.h;
   421 
   425 
   422       DrawFromRect(0,
   426       DrawFromRect(0, cScreenHeight + DrawHealthY, @r, HealthTex);
   423                         cScreenHeight + DrawHealthY,
       
   424                         @r, HealthTex);
       
   425 
   427 
   426       inc(r.x, cTeamHealthWidth + 2);
   428       inc(r.x, cTeamHealthWidth + 2);
   427       r.w:= 3;
   429       r.w:= 3;
   428 
   430 
   429       DrawFromRect(TeamHealthBarWidth + 2,
   431       DrawFromRect(TeamHealthBarWidth + 2, cScreenHeight + DrawHealthY, @r, HealthTex);
   430                         cScreenHeight + DrawHealthY,
       
   431                         @r, HealthTex);
       
   432       end;
   432       end;
   433 
   433 
   434 // Lag alert
   434 // Lag alert
   435 if isInLag then DrawSprite(sprLag, 32 - cScreenWidth div 2, 32, (RealTicks shr 7) mod 12);
   435 if isInLag then DrawSprite(sprLag, 32 - cScreenWidth div 2, 32, (RealTicks shr 7) mod 12);
   436 
   436