Move toward data-ifying item SPics

2022-07-11 11:32:25 +01:00
parent 3447b9b0bb
commit 33d94bd05a
23 changed files with 332 additions and 331 deletions
@@ -71,6 +71,8 @@ parseItem (x:xs)
    =   (readMaybe (x++" {_xNum=" ++ show (parseNum xs)++"}") <&> (,1))
    <|> (readMaybe x <&> (,parseNum xs) )
    <|> (readMaybe ("CRAFT "++x) <&> (,parseNum xs))
+    <|> (readMaybe ("HELD "++x) <&> (,parseNum xs))
+    <|> (readMaybe ("HELD ("++x++" {_xNum=" ++ show (parseNum xs)++"}") <&> (,1))
    <|> parseItem (xs & ix 0 .++~ (x ++ " "))
 parseItem [] = Nothing