Implement bullet trajectories using attachable items

src/Dodge/Item/Info.hs

@@ -44,20 +44,6 @@ showInt i = case i of
     12 -> "a dozen"
     _ -> "more than a dozen"
 
-showIntKMG :: Int -> String
-showIntKMG x
-    | x < 1000 = show x
-    | x < 1000000 = show (x `div` 1000) ++ "K"
-    | x < 1000000000 = show (x `div` 1000000) ++ "M"
-    | otherwise = show (x `div` 1000000000) ++ "G"
-
-showIntKMG' :: Int -> String
-showIntKMG' x
-    | x < 1000 = show x
-    | x < 1000000 = take 3 (show ((fromIntegral x :: Float) / 1000)) ++ "K"
-    | x < 1000000000 = take 3 (show ((fromIntegral x :: Float) / 1000000)) ++ "M"
-    | otherwise = take 3 (show ((fromIntegral x :: Float) / 1000000000)) ++ "G"
-
 heldInfo :: HeldItemType -> String
 heldInfo hit = case hit of
     BANGSTICK 1 -> "A firearm with a short barrel that requires reloading after each shot."