Fix weapon scroll bug

2021-03-09 01:36:30 +01:00
parent 2310bd1b09
commit aa74075e3f
2 changed files with 11 additions and 10 deletions
@@ -89,7 +89,7 @@ closeObjectTexts w = pictures $ (zipWith ren [0..] $ map toTs $ _closeActiveObje
                let textWidth = 9 * fromIntegral (length theText)
                let col = fromMaybe white $ fmap (_itInvColor . _flIt) mayIt
                let p = case freeSlot of
-                      Just i -> ( pushout - halfWidth w + textWidth
+                      Just i -> ( textWidth + xtran 0 + pushout - halfWidth w
                                , halfHeight w - 20* (fromIntegral i +1) + 2.5
                                )
                      Nothing -> ( 0.25*_windowX w