Add possible cosmetic pipes to tanks

src/Dodge/Data.hs

@@ -924,7 +924,7 @@ data Block = Block
     , _blShadows    :: [Int]   -- a list of blocks/walls? that are not shown when this block exists
     , _blFootprint  :: [Point2]
     , _blPos        :: Point2
-    , _blRot        :: Float
+    , _blDir        :: Float
     , _blDraw       :: Block -> SPic
     , _blDeath      :: Block -> World -> World
     }
@@ -1402,7 +1402,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutTerminal {_unputTerminal :: Terminal}
     | PutFlIt Item
     | PutPPlate PressPlate
-    | PutBlock Block Wall [Point2]
+    | PutBlock {_putBlock :: Block, _putWall :: Wall, _putPoly :: [Point2] }
     | PutCoord Point2
     | PutMod Modification
     | PutTrigger (World -> Bool)