Cleanup door placement/auto path generation
This commit is contained in:
@@ -136,8 +136,8 @@ placeSpotID rid ps pt w = case pt of
|
||||
RandPS _ -> error "RandPS should not be reachable here" --evaluateRandPS rid rgn ps w
|
||||
PutDoor isauto f l p1 p2 -> plDoor isauto f l (pashift p1) (pashift p2) w
|
||||
PutCoord cp -> plNewID (gwWorld . coordinates) (doShift cp) w
|
||||
PutSlideDr isauto wl dr eo off a b ->
|
||||
plSlideDoor isauto wl dr eo off (doShift a) (doShift b) w
|
||||
PutSlideDr isauto wl dr off a b ->
|
||||
plSlideDoor isauto wl dr off (doShift a) (doShift b) w
|
||||
PutBlock bl wl ps' ->
|
||||
plBlock
|
||||
(map doShift ps')
|
||||
|
||||
Reference in New Issue
Block a user