Partially working change to selected items

2023-02-07 12:07:13 +00:00
parent 5f7d662454
commit c354949ca9
27 changed files with 386 additions and 288 deletions
@@ -37,7 +37,8 @@ tryPutItemInInv cid flit w = case maybeInvSlot of

 createAndSelectItem :: Item -> World -> World
 createAndSelectItem itm w = case createPutItem itm w of
-    (Just i, w') -> w' & cWorld . lWorld . creatures . ix 0 . crInvSel .~ InvSel i NoInvSelAction
+    (Just i, w') -> w' 
+        & cWorld . lWorld . creatures . ix 0 . crInvSel .~ InvSel (SelItem i NoInvSelAction)
    (Nothing, w') -> w'

 createPutItem :: Item -> World -> (Maybe Int, World)