Commit before making terminals there own entities

2022-06-06 11:17:11 +01:00
parent 384a16851b
commit 8e9f33d038
6 changed files with 56 additions and 37 deletions
@@ -96,12 +96,6 @@ handlePressedMouseButton but w = case (_hudElement (_hud $ _uvWorld w), but) of
    (_,ButtonMiddle) -> Just $ w & uvWorld . clickMousePos .~ _mousePos (_uvWorld w)
    ( DisplayInventory (DisplayTerminal _ _) , ButtonLeft)
                -> Just $ over uvWorld doTerminalEffect w
--                -> Just $ fromMaybe w
--                    $ do -- ugly
--            i <- _termSel tp
--            f <- _termOptions tp !? i
--            return $ w & uvWorld %~ snd f
----                & uvWorld . hud . hudElement .~ DisplayInventory NoSubInventory
    ( DisplayInventory (CombineInventory mi) , ButtonLeft)
                -> Just $ fromMaybe (w & uvWorld . hud . hudElement .~ DisplayInventory NoSubInventory) 
                    $ do -- ugly