Make machines have footprint like doors

2026-03-31 20:29:30 +01:00
parent dea4c0dffe
commit 5701261ace
12 changed files with 137 additions and 138 deletions
@@ -15,6 +15,7 @@ module Dodge.Room.Room (
    critDeadEnd,
 ) where

+import qualified Data.IntMap.Strict as IM
 import Data.Maybe
 import Linear
 import Color
@@ -435,11 +436,13 @@ distributerRoom atype aamount = do
    let mcstore = defaultMachine
            & mcMaterial .~ Metal
            & mcType .~ McStorage atype aamount
+            & mcFootPrint .~ IM.fromDistinctAscList (zip [0..] . loopPairs . reverse $ polyCirc 4 20)
        mcdist mj = defaultMachine
            & mcMaterial .~ Metal
            & mcType .~ McDistributer mj
        store = sps (unusedOffPathAwayFromLink 50) 
-            (PutMachine (reverse $ polyCirc 4 20) mcstore Nothing) & plExternalID ?~ i
+            --(PutMachine (reverse $ polyCirc 4 20) mcstore Nothing) & plExternalID ?~ i
+            (PutMachine mcstore Nothing) & plExternalID ?~ i
        dst gw = let mj = gw ^? genPmnt . ix i . plMID . _Just
            in  putTerminal (mcdist mj) (defaultTerminal & tmBootLines .~ tmDistributeLines
                        & tmRebootOnAccess .~ True