hedgewars/uWorld.pas
changeset 15695 eeab5b90c082
parent 15654 c1d0ada72cc8
child 15696 50dc9d0191d1
equal deleted inserted replaced
15694:2a69c6693fbb 15695:eeab5b90c082
  1541     i:= t;
  1541     i:= t;
  1542 {$IFDEF USE_TOUCH_INTERFACE}
  1542 {$IFDEF USE_TOUCH_INTERFACE}
  1543     i:= t + pauseButton.frame.y + pauseButton.frame.h;
  1543     i:= t + pauseButton.frame.y + pauseButton.frame.h;
  1544 {$ENDIF}
  1544 {$ENDIF}
  1545 
  1545 
       
  1546     inc(t, CurrentHedgehog^.HealthTagTex^.h);
       
  1547     cDemoClockFPSOffsetY:= t;
       
  1548 
  1546     // Hide health and healh icons in gfInvulnerable mode (except heResurrectable)
  1549     // Hide health and healh icons in gfInvulnerable mode (except heResurrectable)
  1547     if ((GameFlags and gfInvulnerable) = 0) then
  1550     if ((GameFlags and gfInvulnerable) = 0) then
  1548     begin
  1551     begin
  1549     // Health tag
  1552     // Health tag
  1550     DrawTexture(cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 16, i, CurrentHedgehog^.HealthTagTex);
  1553     DrawTexture(cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 16, i, CurrentHedgehog^.HealthTagTex);
  1551     inc(t, CurrentHedgehog^.HealthTagTex^.h);
       
  1552     cDemoClockFPSOffsetY:= t;
       
  1553 
  1554 
  1554     t:= SpritesData[sprHealthHud].Width + 18;
  1555     t:= SpritesData[sprHealthHud].Width + 18;
  1555     // Main health icon. Appearance depends on game mode and poisoning state
  1556     // Main health icon. Appearance depends on game mode and poisoning state
  1556     if ((GameFlags and gfResetHealth) = 0) then
  1557     if ((GameFlags and gfResetHealth) = 0) then
  1557         if (CurrentHedgehog^.Effects[hePoisoned] <> 0) then
  1558         if (CurrentHedgehog^.Effects[hePoisoned] <> 0) then
  1589         end;
  1590         end;
  1590     end
  1591     end
  1591     // in gfInvulnerable mode ...
  1592     // in gfInvulnerable mode ...
  1592     else
  1593     else
  1593         begin
  1594         begin
  1594         DrawSprite(sprInvulnHud, cScreenWidth div 2 - 28, i, 0);
  1595         // Invulnerable
       
  1596         inc(t, 8);
       
  1597         DrawSprite(sprInvulnHud, cScreenWidth div 2 - t, i, 0);
  1595         if (CurrentHedgehog^.Effects[heResurrectable] <> 0) then
  1598         if (CurrentHedgehog^.Effects[heResurrectable] <> 0) then
  1596             // show halo for resurrectable hog
  1599             // show halo for resurrectable hog
  1597             DrawSprite(sprHaloHud, cScreenWidth div 2 - 30, i - SpritesData[sprHaloHud].Height + 1, 0);
  1600             DrawSprite(sprHaloHud, cScreenWidth div 2 - 30, i - SpritesData[sprHaloHud].Height + 1, 0);
       
  1601         // Vampirism
       
  1602         if cVampiric then
       
  1603             begin
       
  1604             inc(t, SpritesData[sprVampHud].Width + 2);
       
  1605             DrawSprite(sprVampHud, (cScreenWidth div 2 - t), i, 0);
       
  1606             end;
  1598         end;
  1607         end;
  1599     end
  1608     end
  1600 else
  1609 else
  1601     cDemoClockFPSOffsetY:= 0;
  1610     cDemoClockFPSOffsetY:= 0;
  1602 
  1611