Fix aiming with no weapon crash

2022-02-08 12:47:58 +00:00
parent 9ead5b3979
commit 0a860e6f68
39 changed files with 317 additions and 244 deletions
@@ -11,10 +11,10 @@ import Control.Lens
 import Data.Maybe

 useItem :: Int -> World -> World
-useItem cid w = itemEffect cr it w
+useItem cid w = tryUseItem cr w -- itemEffect cr it w
  where 
    cr = _creatures w IM.! cid
-    it = _crInv cr IM.! _crInvSel cr
+    --it = _crInv cr IM.! _crInvSel cr

 tryUseItem :: Creature -> World -> World
 tryUseItem cr' w = fromMaybe w $ do