Allow for bullet drag

2021-12-02 18:29:46 +00:00
parent 85ededc158
commit 8b8d75b016
35 changed files with 362 additions and 228 deletions
@@ -10,7 +10,7 @@ import Shape

 keyToken :: Int -> Item
 keyToken n = defaultEquipment
-    { _itIdentity = Generic
+    { _itCombineType = NOTDEFINED
    , _itName = "KEYTOKEN "++show n
    , _itMaxStack = 5
    , _itAmount = 1
@@ -31,7 +31,7 @@ keyPic = color green $

 latchkey :: Int -> Item
 latchkey n = defaultEquipment
-    { _itIdentity = Generic
+    { _itCombineType = NOTDEFINED
    , _itName = "KEY "++show n
    , _itMaxStack = 1
    , _itAmount = 1