Cleanup

2023-05-10 20:32:26 +01:00
parent 312f342e09
commit 5f238a65d0
9 changed files with 96 additions and 92 deletions
@@ -361,10 +361,9 @@ openCursorAt wth col xoff yoff yint w =

 displayHP :: Int -> Configuration -> World -> Picture
 displayHP cid cfig =
-    translate (halfWidth cfig -80) (halfHeight cfig -20)
+    translate (halfWidth cfig) (halfHeight cfig -40)
        . scale 0.2 0.2
-        . text
-        . leftPad 5 ' '
+        . textJustifyRight
        . show
        . (^?! cWorld . lWorld . creatures . ix cid . crHP)