Make background black, start cleanup of weapons

2021-08-26 21:18:46 +01:00
parent cb39ee3e6b
commit c97c16777a
9 changed files with 34 additions and 16 deletions
@@ -308,8 +308,7 @@ weaponBetweenPillars :: RandomGen g => State g (Tree (Either Room Room))
 weaponBetweenPillars = do
    wpPos <- takeOne [V2 x y | x <- [20,120,220], y <- [20,120,220]]
    (ps,_) <- takeNMore 2 ([], [V2 x y | x <- [20,220], y <- [20,120,220]])
-    let crPos1 = ps !! 0
-        crPos2 = ps !! 1
+    let crPos1:crPos2:_ = ps 
        d p = argV $ V2 120 120 -.- p
        plmnts = 
            [sPS wpPos 0 $ RandPS randFirstWeapon