Continue to refactor item datatypes, add a shape to rockets

2021-11-27 22:05:12 +00:00
parent 652af6b0a9
commit fe02739621
15 changed files with 135 additions and 78 deletions
@@ -163,8 +163,8 @@ startCr = defaultCreature
 {- | Items you start with.  -}
 startInvList :: [Item]
 startInvList =
-    [ rewindGun
-    , pistol
+    [ miniGun
+    , hvAutoGun
    ]
 startInventory :: IM.IntMap Item
 startInventory = IM.fromList $ zip [0..defaultInvSize -1] $ startInvList ++ repeat NoItem
@@ -172,6 +172,7 @@ stackedInventory :: IM.IntMap Item
 stackedInventory = IM.fromList (zip [0..25] 
    (
    [spreadGun
+    ,rewindGun
    ,tractorGun
    ,longGun
    ,autoGun