Tweak walk cycle parameters

2021-06-09 00:01:56 +02:00
parent fb7a90df71
commit 3371e2ae79
16 changed files with 112 additions and 81 deletions
@@ -29,8 +29,7 @@ defaultGun = Weapon
    , _itAimingRange = 0
    , _itZoom = ItZoom 20 0.2 1 20 0.2 1
    , _itEquipPict = \_ _ -> blank
-    , _itScrollUp = const id
-    , _itScrollDown = const id
+    , _itScroll = \_ _ -> id
    , _itAttachment = Nothing
    , _itID = Nothing
    , _itEffect = wpRecock
@@ -40,15 +39,11 @@ defaultGun = Weapon
    , _itWorldTrigger = Nothing
    , _itAimStance = OneHand
    }
-
 defaultAutoGun :: Item
 defaultAutoGun = defaultGun 
-    { _itScrollUp   = const id
-    , _itScrollDown = const id
-    , _itInvDisplay = basicWeaponDisplay
+    { _itInvDisplay = basicWeaponDisplay
    , _itAimStance = TwoHandTwist
    }
-
 defaultShellAmmo :: Ammo
 defaultShellAmmo = ShellAmmo
    { _amPayload = \_ -> id