Work on sensor machines, remove some datatypes associated with placements

2021-11-01 23:07:58 +00:00
parent 82de39657b
commit 7ef1da9be5
16 changed files with 265 additions and 220 deletions
@@ -17,11 +17,10 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutProp Prop
    | PutFlIt Item
    | PutPressPlate PressPlate
-    | PutAutoDoor Point2 Point2
+   -- | PutAutoDoor Point2 Point2
    | PutBlock [Int] Color [Point2]
    | PutLineBlock Wall Float Float Point2 Point2
    | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
-    | PutDoubleDoor Color (World -> Bool) Point2 Point2 Float
    | PutSingleDoor Color (World -> Bool) Point2 Point2 Float
    | PutDoor Color (World -> Bool) [(Point2,Point2)]
    | PutBtDoor Color Point2 Float Point2 Point2 Float