Work on minigun

2022-02-16 21:54:12 +00:00
parent acfc24fb9b
commit 60463ea9c0
3 changed files with 27 additions and 111 deletions
@@ -40,7 +40,7 @@ minigunFakeout = do
    rcol <- rezColor
    ncor <- state $ randomR (0,2)
    roomwithmini <- randomiseAllLinks $ roomRectAutoLinks 150 150
-        & rmPmnts %~ (plRRpt 0 (PutFlIt miniGun):)
+        & rmPmnts %~ (plRRpt 0 (PutFlIt $ miniGunX 6):)
    randcors <- replicateM ncor $ (fmap PassDown . randomiseOutLinks) corridor
    return $ ([PassDown $ rezBox rcol
                ,PassDown door