justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add laser tunnel lock-key combination

Browse Source
This commit is contained in:
justin
2022-03-09 15:27:35 +00:00
parent a4ec4e4889
commit 3bfebc266b
11 changed files with 104 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Combine/Combinations.hs
+4 -5
View File
@@ -57,10 +57,9 @@ itemCombinations =
, p [p 2 TUBE,o HARDWARE] launcher
, p [p 2 TUBE,o LAUNCHER] (launcherX 2)
, p [p 2 TUBE,o $ LAUNCHERX 2] (launcherX 3)
, po [TRANSMITTER,MINIDISPLAY,LAUNCHER] remoteLauncher
, po [LIGHTER,PIPE,CAN] flameStick
] ++ [ p [p 2 TUBE,o $ LAUNCHERX i] (launcherX (i+1)) | i <- [2..9]]
++
[ po [LIGHTER,PIPE,CAN] flameStick
, po [FLAMESTICK,CAN,PUMP] blowTorch
, po [FLAMESTICK,DRUM] flameThrower
, po [FLAMETHROWER,DRUM] flameWall
@@ -163,7 +162,7 @@ moduleCombinations =
amod cts str func = (cts,ItemModule [str] 1 func)
homingLaunchers :: [Item]
homingLaunchers = launcher : [launcherX i | i <- [2..3]]
homingLaunchers = launcher : [launcherX i | i <- [2..10]]
bulletWeapons :: [Item]
bulletWeapons = [bangStick i | i <- [1..9] ]