Make use hammers and item positions slightly more logical

src/Dodge/Item/Draw.hs

@@ -29,9 +29,9 @@ pictureWeaponAim
     -> Creature 
     -> Item
     -> SPic
-pictureWeaponAim f cr itm = case _itInvPos itm of
-    Just i -> pictureWeaponOnAimItem (f itm) cr i
-    Nothing -> mempty
+pictureWeaponAim f cr itm = case _itPos itm of
+    InInv _ i -> pictureWeaponOnAimItem (f itm) cr i
+    _ -> mempty
 
 {- | Places an item picture onto a creature when the item is selected. -}
 pictureWeaponOnAimItem