Tweak weapon pictures

2021-10-03 13:19:53 +01:00
parent 8c1496e140
commit 0c6fa80ce0
18 changed files with 358 additions and 287 deletions
@@ -0,0 +1,10 @@
+module Dodge.Item.Weapon.Remote
+    where
+import Dodge.Data
+
+import Control.Lens
+
+pointToItem :: Applicative f =>
+                     ItemPos -> (Item -> f Item) -> World -> f World
+pointToItem (InInv cid invid) = creatures . ix cid . crInv . ix invid
+pointToItem (OnFloor flid) = floorItems . ix flid . flIt