Tweak bullet bouncing and spawning

2022-07-19 18:21:51 +01:00
parent 3031f2478c
commit 89d397a928
8 changed files with 49 additions and 37 deletions
@@ -1207,7 +1207,7 @@ data TerminalCommand = TerminalCommand

 ---- ROOM DATATYPES
 data PSType = PutCrit {_unPutCrit :: Creature}
-    | PutMachine { _putMachinePoly :: [Point2], _unPutMachine :: Machine }
+    | PutMachine { _putMachinePoly :: [Point2], _putMachineMachine :: Machine , _putMachineWall :: Wall}
    | PutLS LightSource
    | PutButton {_putButton :: Button}
    | PutProp Prop