Modularise code concerning items

2021-03-12 02:29:24 +01:00
parent 9bdc6fddd7
commit 22275beb89
9 changed files with 339 additions and 292 deletions
@@ -0,0 +1,13 @@
+module Dodge.Item.Draw
+    where
+import Dodge.Data
+import Dodge.Base
+
+import Picture
+
+drawWeapon :: Picture -> Creature -> Int -> Drawing
+drawWeapon p cr posInInv 
+    | _crInvSel cr == posInInv = onLayer PtLayer drawnWep
+    | otherwise                = blank
+        where drawnWep = uncurry translate (_crRad cr,0) p
+