Work on weapon attachments

2023-09-25 13:38:47 +01:00
parent f9c6769262
commit 0a7f5079ad
12 changed files with 28 additions and 34 deletions
@@ -38,7 +38,7 @@ applyTerminalCommand s = case s of

 applyTerminalCommandArguments :: String -> [String] -> Universe -> Universe
 applyTerminalCommandArguments command args u = case command of
-    "ITEM" -> fromMaybe u $ do
+    "IT" -> fromMaybe u $ do
        (ibt, n) <- parseItem args
        return $ u & uvWorld %~ flip (foldr ($)) (replicate n (snd . createPutItem (itemFromBase ibt)))
    "DEX" -> fromMaybe u $ do