Fold in more ammo parameters, distinguish loadable and charging weapons

2021-11-27 14:29:44 +00:00
parent 92a8dd59b8
commit 224db733f6
19 changed files with 112 additions and 111 deletions
@@ -209,8 +209,6 @@ itemText NoItem = text "----"
 itemText it = case _itCurseStatus it of
    UndroppableIdentified -> color black (text (_itInvDisplay it it)) 
        <> color (withAlpha 0.9 thecolor) (polygon (rectNSEW 110 (-65) 885 (-90)))
--        <> color (withAlpha 0.9 thecolor) (polygon (rectNSEW 115 (-70) 895 (-95)))
--        <> color (withAlpha 0.9 thecolor) (polygon (rectNSEW 120 (-70) 900 (-100)))
    _ -> color thecolor $ text (_itInvDisplay it it)
  where
    thecolor = _itInvColor it