Move machine update into outside function

2022-07-14 21:01:53 +01:00
parent ad33ddd569
commit 5463328d41
13 changed files with 130 additions and 92 deletions
@@ -24,7 +24,7 @@ itemSPic it = foldMap (modulesSPic it) (_iyModules $ _itType it) $ case it ^. it
    KEYCARD _ -> noShape (setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) keyPic)
 --    
    MEDKIT _  -> defSPic
-    CRAFT _ -> defSPic
+    CRAFT _ -> flatShieldEquipSPic

 equipItemSPic :: EquipItemType -> Item -> SPic
 equipItemSPic et _ = case et of