Fix aiming with no weapon crash

2022-02-08 12:47:58 +00:00
parent 9ead5b3979
commit 0a860e6f68
39 changed files with 317 additions and 244 deletions
@@ -20,15 +20,6 @@ pictureWeaponOnAim cr i = pictureWeaponOnAimItem (itSPic it) cr i
 itSPic :: Item -> SPic
 itSPic it = _dimSPic (_itDimension it) it

-pictureWeaponOnAim'
-    :: (Item -> SPic)
-    -> Creature 
-    -> Int  -- ^ Position of item in inventory
-    -> SPic
-pictureWeaponOnAim' f cr i = pictureWeaponOnAimItem pic cr i
-  where
-    pic = f (_crInv cr IM.! i)
-
 pictureWeaponAim
    :: (Item -> SPic)
    -> Creature