Tweak twisting when aiming

src/Dodge/Default.hs

@@ -28,6 +28,7 @@ defaultCreature = Creature
     , _crDir    = 0
     , _crOldDir = 0
     , _crMvDir  = 0
+    , _crTwist  = 0
     , _crID     = 1
     , _crPict   = \_ _ _ -> (,) mempty blank
     , _crUpdate = \cr _ -> (Endo id , Just cr)
@@ -131,20 +132,25 @@ defaultState = CrSt
     , _crDropsOnDeath = DropAll
     }
 defaultEquipment :: Item
-defaultEquipment = Equipment
+defaultEquipment = Item
     { _itCurseStatus = Uncursed
     , _itType = NOTDEFINED
     , _itName = "genericEquipment"
 --    ,_itIdentity = Generic
-    , _itFloorPict = \_ -> noShape $ setLayer 0 $ onLayer FlItLayer $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
     , _itEquipPict = \_ _ -> (,) emptySH blank
     , _itEffect = NoItEffect
     , _itID = Nothing
-    , _itZoom    = defaultItZoom
     , _itInvColor = yellow
     , _itInvDisplay = \it -> [_itName it]
     , _itInvSize = 1
-    , _itDimension = defaultItemDimension
+    , _itDimension = defItDimCol yellow
+    , _itConsumption = NoConsumption
+    , _itUse = NoUse
+    , _itScroll = \ _ _ -> id
+    , _itAttachment = NoItAttachment
+    , _itParams = NoParams
+    , _itTweaks = NoTweaks
+    , _itTargeting = Nothing
     }
 defaultItZoom :: ItZoom
 defaultItZoom = ItZoom 20 0.2 1
@@ -155,19 +161,18 @@ defaultConsumable = Item
     , _itInvSize = 1
     , _itCurseStatus = Uncursed
     , _itName = "genericConsumable"
-    , _itConsumption = ItemItselfConsumable  {_itAmount' = 1}
-    , _itFloorPict = \_ -> noShape $ onLayer FlItLayer $ color blue $ circleSolid 3
+    , _itConsumption = ItemItselfConsumable  {_itAmount = 1}
     , _itEquipPict = \_ _ -> mempty
     , _itID = Nothing
     , _itInvColor = blue
-    , _itInvDisplay = \it -> [_itName it ++ " x" ++ show (_itAmount' $ _itConsumption it)]
+    , _itInvDisplay = \it -> [_itName it ++ " x" ++ show (_itAmount $ _itConsumption it)]
     , _itEffect = NoItEffect
     , _itScroll = \_ _ -> id
     , _itAttachment = NoItAttachment
     , _itType = NoCombineType
     , _itTargeting = Nothing
     , _itParams = NoParams
-    , _itDimension = defaultItemDimension
+    , _itDimension = defItDimCol blue
     , _itTweaks = NoTweaks
     }
 defaultApplyDamage :: [DamageType] -> Creature -> (World -> World, Creature)