Allow for selection of equipment position

src/Dodge/Default/Weapon.hs

@@ -37,6 +37,7 @@ ruseRate i f ht usemods = RightUse
     , _useMods = usemods
     , _useHammer = ht
     , _useAim = defaultAimParams
+    , _heldScroll = \_ _ -> id
     }
 
 ruseInstant 
@@ -50,6 +51,7 @@ ruseInstant f ht usemods = RightUse
     , _useMods  = usemods
     , _useHammer = ht
     , _useAim = defaultAimParams
+    , _heldScroll = \_ _ -> id
     }
 
 defaultrUse :: ItemUse
@@ -59,6 +61,7 @@ defaultrUse = RightUse
     , _useMods = []
     , _useHammer  = HasHammer HammerUp
     , _useAim = defaultAimParams
+    , _heldScroll = \_ _ -> id
     }
 defaultlUse :: ItemUse
 defaultlUse = LeftUse
@@ -94,7 +97,6 @@ defaultGun = Item
     , _itUse = defaultrUse
     , _itDimension = defItDimCol white
     , _itEquipPict = pictureWeaponOnAim
-    , _itScroll = \_ _ -> id
     , _itAttachment = NoItAttachment
     , _itID = Nothing
     , _itInvPos = Nothing
@@ -125,7 +127,6 @@ defaultCraftable = Item
     , _itConsumption = NoConsumption
     , _itUse = NoUse
     , _itEquipPict = pictureWeaponOnAim
-    , _itScroll = \_ _ -> id
     , _itAttachment = NoItAttachment
     , _itID = Nothing
     , _itInvPos = Nothing

src/Dodge/Default/World.hs

@@ -77,6 +77,7 @@ defaultWorld = World
     , _lightSources = IM.empty
     , _tempLightSources = [youLight]
     , _closeObjects     = []
+    , _rbOptions        = NoRightButtonOptions
     , _seenLocations        = IM.fromList 
         [(0, (_crPos . you, "CURRENT POSITION"))
         ,(1, (const (V2 0 0) , "START POSITION"))