Input more combinations

2021-12-04 11:45:43 +00:00
parent 0114a2f9f2
commit 30abc318ae
5 changed files with 44 additions and 6 deletions
@@ -22,6 +22,9 @@ itemCombinations = map (first toMultiset) $
    , p [VERYLONGPIPE,HARDWARE] bangRod
    , p [PIPE,PIPE]     $ makeTypeCraft LONGPIPE
    , p [LONGPIPE,PIPE] $ makeTypeCraft VERYLONGPIPE
+    , p [BANGSTICK 1,CAN] revolver
+    , p [BANGSTICK 1,TIN] pistol
+    , p [PISTOL, SPRING, HARDWARE] ltAutoGun
    ] ++
    map (\i -> ([PIPE,BANGSTICK i],bangStick (i+1))) [1..8]
  where