Move toward data-ifying item SPics

2022-07-11 11:32:25 +01:00
parent 3447b9b0bb
commit 33d94bd05a
23 changed files with 332 additions and 331 deletions
@@ -17,6 +17,7 @@ import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Maybe

+
 itemEquipPict :: Creature -> Item -> SPic
 itemEquipPict cr it = case it ^?! itUse of
    RightUse {} ->  pictureWeaponOnAim cr it