Add tank furniture, stop autorotate when aiming

src/Dodge/Room/Treasure.hs

@@ -9,6 +9,7 @@ import Dodge.Room.Data
 import Dodge.Room.Placement
 import Dodge.Default.Room
 import Dodge.LevelGen.Data
+import Dodge.LightSources.Fitting
 import Geometry
 
 --import Data.List
@@ -32,9 +33,7 @@ triLootRoom w h = pure $ defaultRoom
         [sPS (V2 (15-w)    15 )  0 $ PutID 0
         ,sPS (V2 (w-15)    15 ) pi $ PutID 0
         ,sPS (V2     0  (h-35))  0 $ PutID 2
-        ,sPS (V2 (  -5) (h-10))  0 putLamp
-        ,sPS (V2     5  (h-10))  0 putLamp
-        ,sPS (V2     0  (h-15))  0 putLamp
+        ,mountedLightV (V2 0 (h-20)) (V3 0 (h-80) 70)
         ,sPS (V2     0  ( -60))  0 putLamp
         ]
     , _rmBound  = [tri , base]