Fix no damage to walls bug

2022-07-28 18:57:53 +01:00
parent ec4ff84c46
commit c8ad3e1294
19 changed files with 177 additions and 158 deletions
@@ -5,8 +5,12 @@ import Data.Maybe
 import Dodge.Data.GenWorld
 import Geometry

-spNoID :: PlacementSpot -> PSType -> Placement
-spNoID ps pst = Placement 10 ps pst Nothing (const . const Nothing)
+--spNoID
+psPtPl :: PlacementSpot -> PSType -> Placement
+psPtPl ps pst = Placement 10 ps pst Nothing (const . const Nothing)
+
+psPtJpl :: PlacementSpot -> PSType -> Maybe Placement
+psPtJpl ps = Just . psPtPl ps

 pContID :: PlacementSpot -> PSType -> (Int -> Maybe Placement) -> Placement
 pContID ps pt = Placement 10 ps pt Nothing . contToIDCont