Make "tanks" into Blocks

2022-06-18 23:28:17 +01:00
parent cc93fc83d7
commit bae0f7dcad
10 changed files with 38 additions and 19 deletions
@@ -103,8 +103,8 @@ placeSpotID ps pt w = case pt of
    PutCoord    cp          -> plNewID   coordinates (doShift cp) w
    PutSlideDr  pth col f off  a   b spd 
                            -> plSlideDoor pth col f off (doShift a) (doShift b) spd w
-    PutBlock    bl wl  ps' 
-                            -> placeBlock (map doShift ps') bl wl w
+    PutBlock    bl wl  ps'  -> placeBlock (map doShift ps') (bl & blPos %~ doShift & blRot .~ rot)
+                                    wl w
    PutLineBlock wl wdth dpth a b -> placeLineBlock wl wdth dpth (doShift a) (doShift b) w
    PutWall     qs  wl      -> (0,placeWallPoly (map doShift qs) wl w)
    PutShape    sh          -> placeShape sh p rot w