Cleanup. Add room-wise random placement spots

2021-11-07 19:46:14 +00:00
parent f380e140e1
commit 5681a37953
18 changed files with 179 additions and 141 deletions
@@ -1,6 +1,4 @@
-{-
-Rooms containing particularly challenging creatures, that may drop useful loot.
-}
+{- Rooms containing particularly challenging creatures, that may drop useful loot.  -}
 module Dodge.Room.Boss
  where
 import Dodge.Data
@@ -37,7 +35,7 @@ roomGlassOctogon x = createPathGrid $ defaultRoom
        , ( V2 0 (-(x+40)), V2 0 x)
        ]
    , _rmPS = 
-        [sPS (V2 fx fx)   0 putLamp
+        [sPS (V2 fx fx)     0 putLamp
        ,sPS (V2 (-fx) fx)  0 putLamp
        ,sPS (V2 fx (-fx))  0 putLamp
        ,sPS (V2 (-fx) (-fx)) 0 putLamp
@@ -97,8 +95,8 @@ roomCross x y = defaultRoom
        ]
    , _rmPath  = []
    , _rmPS = 
-        [ spanLightI 70 (V2 (x+5) x) (V2 (x+5) (-x))
-        , spanLightI 70 (V2 (-x-5) x) (V2 (-x-5) (-x))
+        [ spanLightI (V2 (x+5) x) (V2 (x+5) (-x))
+        , spanLightI (V2 (-x-5) x) (V2 (-x-5) (-x))
        ]
    , _rmBound = 
        [rectNSWE y (-y) (-x) x