hedgewars/uWorld.pas
changeset 14986 cf21a45a62bd
parent 14985 bcecb3349948
child 14987 5a9d203f7c82
equal deleted inserted replaced
14985:bcecb3349948 14986:cf21a45a62bd
  1595     i:= t;
  1595     i:= t;
  1596 {$IFDEF USE_TOUCH_INTERFACE}
  1596 {$IFDEF USE_TOUCH_INTERFACE}
  1597     i:= t + pauseButton.frame.y + pauseButton.frame.h;
  1597     i:= t + pauseButton.frame.y + pauseButton.frame.h;
  1598 {$ENDIF}
  1598 {$ENDIF}
  1599     DrawTexture(cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 16, i, CurrentHedgehog^.HealthTagTex);
  1599     DrawTexture(cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 16, i, CurrentHedgehog^.HealthTagTex);
  1600     DrawSprite(sprHealthHud, (cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 36), i, 0);
  1600     if (CurrentHedgehog^.Effects[hePoisoned] > 0) then
       
  1601         DrawSprite(sprHealthPoisonHud, (cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 36), i, 0)
       
  1602     else
       
  1603         DrawSprite(sprHealthHud, (cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 36), i, 0);
  1601     inc(t, CurrentHedgehog^.HealthTagTex^.h);
  1604     inc(t, CurrentHedgehog^.HealthTagTex^.h);
  1602     cDemoClockFPSOffsetY:= t;
  1605     cDemoClockFPSOffsetY:= t;
  1603     end
  1606     end
  1604 else
  1607 else
  1605     cDemoClockFPSOffsetY:= 0;
  1608     cDemoClockFPSOffsetY:= 0;