Fix bugs in equipment allocation using hotkeys

The behaviour is still not perfect, should be able to cycle through all
options by pressing one key. There is unnecessary memory of past state
going on here

src/Dodge/Render/HUD.hs

@@ -242,7 +242,7 @@ drawRBOptions cfig w = fromMaybe mempty $ do
         fmap eqSiteToPositions $
             you w ^? crInv . ix invid . itUse . uequipEffect . eeType
     i <- w ^? rbOptions . opSel
-    let ae = getEquipmentAllocation w
+    let ae = getEquipmentAllocation invid w
     sss <- w ^? hud . hudElement . diSections
     (i', j, _) <- w ^? hud . hudElement . diSelection . _Just
     curpos <- selSecYint i' j sss