Add no weapon start

2021-04-27 19:26:35 +02:00
parent 64b5b9e2a5
commit 6d229f8de2
20 changed files with 448 additions and 313 deletions
@@ -210,7 +210,7 @@ wallsForShadows w = map (linePairs . _wlLine)
                        . IM.elems $ wallsNearZones (zoneOfDoubleScreen w) w
    where linePairs (x:y:_) = (x,y)

-lightsForGloom' :: World -> [(Point4)]
+lightsForGloom' :: World -> [Point4]
 lightsForGloom' w = map getLS (IM.elems $ _lightSources w) ++ map getTLS (_tempLightSources w)
    where getLS ls  = ( fst $ _lsPos ls, snd $ _lsPos ls,  _lsRad ls , _lsIntensity ls)
          getTLS ls = ( fst $ _tlsPos ls,snd $ _tlsPos ls, _tlsRad ls, _tlsIntensity ls)