Implement (broken) push away from walls according to muzzle pos

2026-01-01 11:10:00 +00:00
parent 5b5a12be6e
commit 0a8725f68d
7 changed files with 411 additions and 348 deletions
@@ -450,6 +450,3 @@ distributerRoom atype aamount = do

 tmDistributeLines :: [TerminalLine]
 tmDistributeLines = [TLine 1 [TerminalLineConst "ATTEMPTING TO DISTRIBUTE MATERIAL..." white] TmDistributeAmmo]
-
--    cor <- shuffleLinks corridor
--    return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door]