Commit before only putting item locations in single itemLocations intmap

2024-09-24 09:31:20 +01:00
parent 77e5f684aa
commit a6eb5cf982
8 changed files with 242 additions and 216 deletions
@@ -40,7 +40,7 @@ applyTerminalCommandArguments :: String -> [String] -> Universe -> Universe
 applyTerminalCommandArguments command args u = case command of
    "IT" -> fromMaybe u $ do
        (ibt, n) <- parseItem args
-        return $ u & uvWorld %~ flip (foldr ($)) (replicate n (snd . createPutItem (itemFromBase ibt)))
+        return $ u & uvWorld %~ flip (foldr ($)) (replicate n (snd . createItemYou (itemFromBase ibt)))
    "DEX" -> fromMaybe u $ do
        x <- readMaybe =<< args ^? _head
        return $ u & ypoint . crStatistics . dexterity .~ x