Auto generate dot file with base item combinations

src/Dodge/Item/Draw.hs

@@ -48,7 +48,7 @@ pictureWeaponOnAimItem p' cr posInInv
                 = handD holsteredOneHandWep
     | isSelected 
                 = handD holsteredWep
-    | otherwise = emptyBlank
+    | otherwise = mempty
   where 
     shoulderD = translateSPz 18
     handD = translateSPz 15

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -76,8 +76,8 @@ bangCane = defaultBulletWeapon
     & itConsumption . laMax .~ 1
     & itConsumption . laCycle .~ [loadPartialInsert 10 1]
 bangCaneX :: Int -> Item
-bangCaneX i = bangCane
-    { _itUse = ruseAmmoParamsRate 6 upHammer
+bangCaneX i = defaultBulletWeapon
+    & itUse .~ ruseAmmoParamsRate 6 upHammer
         [ ammoHammerCheck
         , useTimeCheck
         , withSoundItemChoiceStart caneStickSoundChoice
@@ -88,7 +88,7 @@ bangCaneX i = bangCane
         , withMuzFlareI
         , withRecoil
         ]
-    , _itDimension = ItemDimension
+    & itDimension .~ ItemDimension
         { _dimRad = 8
         , _dimCenter = V3 5 0 0
         , _dimPortage = HeldItem
@@ -101,11 +101,22 @@ bangCaneX i = bangCane
              . (\k -> fromIntegral k * 5 - ((fromIntegral i - 1) * 2.5))) [0..i-1]
             ) <> caneClipX i it
         }
-    } & itUse . useAim . aimWeight .~ 6
-      & itUse . useAim . aimRange .~ 1
-      & itUse . useAim . aimStance .~ TwoHandFlat
-      & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}
+    & itUse . useAim . aimWeight .~ 6
+    & itUse . useAim . aimRange .~ 1
+    & itUse . useAim . aimStance .~ TwoHandFlat
+    & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}
     & itConsumption . laMax .~ i
+    & itParams .~ BulletShooter
+        { _muzVel = 0.8
+        , _rifling = 0.9
+        , _bore = 2
+        , _gunBarrels = SingleBarrel 
+            { _brlInaccuracy = 0.01
+            }
+        , _recoil = 50
+        , _torqueAfter = 0.1
+        , _randomOffset = 0
+        }
     & itParams . gunBarrels .~ MultiBarrel
         {_brlSpread = AlignedBarrels
         ,_brlNum = i

src/Dodge/Item/Weapon/Grenade.hs

@@ -239,7 +239,7 @@ throwRemoteBomb cr w = setLocation
         | otherwise   = v'
     j = crSel cr
 --    resetName = set (creatures . ix cid . crInv . ix j . itName) "REMOTE"
-    removePict = set (creatures . ix cid . crInv . ix j . itEquipPict) $ \ _ _ -> emptyBlank
+    removePict = set (creatures . ix cid . crInv . ix j . itEquipPict) $ \ _ _ -> mempty
     resetFire = set (creatures . ix cid . crInv . ix j . itUse . rUse) 
         $ \_ -> explodeRemoteBomb itid i
     p' = _crPos cr +.+ rotateV (_crDir cr) (V2 (_crRad cr) 0)