Implement combining of items

2021-12-03 01:56:23 +00:00
parent 8b8d75b016
commit bebc73882a
13 changed files with 190 additions and 56 deletions
@@ -125,8 +125,31 @@ bangStick = defaultGun
        }
    , _itTweaks = defaultBulletSelTweak
    }
+bangCane,bangRod :: Item
 bangCane = bangStick
+    { _itParams = BulletShooter
+        { _muzVel = 0.8
+        , _rifling = 0.9
+        , _bore = 2
+        , _gunBarrels = SingleBarrel 0.05
+        }
+    , _itFloorPict = autoGunPic
+    } & itUse . useAim . aimSpeed .~ 0.4
+      & itUse . useAim . aimRange .~ 1
+      & itUse . useAim . aimStance .~ TwoHandTwist
+      & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}
 bangRod = bangCane
+    { _itParams = BulletShooter
+        { _muzVel = 0.8
+        , _rifling = 1
+        , _bore = 2
+        , _gunBarrels = SingleBarrel 0.05
+        }
+    , _itFloorPict = longGunSPic
+    } & itUse . useAim . aimSpeed .~ 0.2
+      & itUse . useAim . aimRange .~ 1
+      & itUse . useAim . aimStance .~ TwoHandTwist
+      & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}

 pistol :: Item
 pistol = defaultGun