Move towards allowing partial destruction of doors

2022-06-23 14:52:25 +01:00
parent 4c8c82b55c
commit 0f01e422f6
11 changed files with 73 additions and 28 deletions
@@ -28,6 +28,9 @@ pContID ps pt = Placement 10 ps pt Nothing . contToIDCont
 psPtCont :: PlacementSpot -> PSType -> (Placement -> Maybe Placement) -> Placement
 psPtCont ps pt = Placement 10 ps pt Nothing . const

+ptCont :: PSType -> (Placement -> Maybe Placement) -> Placement
+ptCont = psPtCont (PS 0 0)
+
 psPt :: PlacementSpot -> PSType -> Placement
 psPt ps pt = Placement 10 ps pt Nothing (const . const Nothing)