Allow for different item drops on creature death

2021-04-25 02:16:31 +02:00
parent 94ff3d6593
commit 30736997c3
19 changed files with 336 additions and 229 deletions
@@ -0,0 +1,35 @@
+module Dodge.Creature.Action.UseItem
+    where
+import Dodge.Data
+
+import Dodge.Inventory
+
+import qualified Data.IntMap as IM
+
+import Control.Lens
+import Data.Maybe (fromMaybe)
+
+useItem :: Int -> World -> World
+useItem n w = case (_crInv cr IM.! _crInvSel cr) ^? itHammer of
+                            Just HammerUp -> equippedItemEffect n $ setHammerDown w
+                            Just NoHammer -> equippedItemEffect n w
+                            _             -> setHammerDown w
+    where 
+        cr = _creatures w IM.! n
+        setHammerDown = creatures . ix n . crInv . ix (_crInvSel cr) . itHammer .~ HammerDown
+
+tryUseItem :: Int -> World -> World
+tryUseItem cid w = case w ^? creatures . ix cid of
+    Just cr -> itemEffect cid (_crInv cr IM.! _crInvSel cr) w
+    Nothing -> w
+
+equippedItemEffect :: Int -> World -> World
+equippedItemEffect n w = itemEffect n it w
+    where c = (_creatures w IM.! n)
+          it = _crInv c IM.! _crInvSel c
+
+itemEffect :: Int -> Item -> World -> World
+itemEffect n (Consumable {_cnEffect=eff }) w = fromMaybe w $ fmap (rmSelectedInvItem n) $ eff n w
+itemEffect n (Weapon {_wpFire=eff}) w = eff n w
+itemEffect n (Throwable {_twFire = eff}) w = eff n w
+itemEffect _ _ w = w