Allow to equip left click items

2021-11-27 02:01:12 +00:00
parent 774808663a
commit e7ea7377e2
21 changed files with 93 additions and 116 deletions
@@ -20,7 +20,7 @@ corridor = defaultRoom
    { _rmPolys = [poly]
    , _rmLinks = lnks'
    , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
-    , _rmPmnts = [ spanLightI (V2 0 40) (V2 40 40) ]
+    , _rmPmnts = [ spanLightI (V2 0 39.5) (V2 40 39.5) ]
    , _rmBound = [ rectNSWE 50 30 0 40 ]
    , _rmFloor = Tiled [makeTileFromPoly poly 2]  
    , _rmRandPSs = [psRandRanges (10,30) (30,60) (0,2*pi)]