Continue to refactor item datatypes, add a shape to rockets

src/Dodge/Base.hs

@@ -30,6 +30,9 @@ takeUntil :: Foldable t => (a -> Bool) -> t a -> [a]
 takeUntil p = foldr (\x xs -> x : if p x then [] else xs) []
 
 
+decreaseToZero :: Int -> Int
+decreaseToZero x = max 0 (x - 1) 
+
 safeHead :: [a] -> Maybe a
 safeHead (x:_) = Just x
 safeHead _ = Nothing