hedgewars/uWorld.pas
changeset 14970 cf21a45a62bd
parent 14969 bcecb3349948
child 14971 5a9d203f7c82
--- a/hedgewars/uWorld.pas	Thu May 16 02:07:29 2019 +0200
+++ b/hedgewars/uWorld.pas	Thu May 16 03:41:24 2019 +0200
@@ -1597,7 +1597,10 @@
     i:= t + pauseButton.frame.y + pauseButton.frame.h;
 {$ENDIF}
     DrawTexture(cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 16, i, CurrentHedgehog^.HealthTagTex);
-    DrawSprite(sprHealthHud, (cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 36), i, 0);
+    if (CurrentHedgehog^.Effects[hePoisoned] > 0) then
+        DrawSprite(sprHealthPoisonHud, (cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 36), i, 0)
+    else
+        DrawSprite(sprHealthHud, (cScreenWidth div 2 - CurrentHedgehog^.HealthTagTex^.w - 36), i, 0);
     inc(t, CurrentHedgehog^.HealthTagTex^.h);
     cDemoClockFPSOffsetY:= t;
     end