Allow turrets to fire bullets, only good for testing for now

2024-12-24 12:24:27 +00:00
parent fb1553bf3c
commit d739a95197
6 changed files with 130 additions and 96 deletions
@@ -8,6 +8,18 @@ import Dodge.LevelGen.PlacementHelper
 import Geometry
 import LensHelp

+putTurret :: Item -> Float -> Placement
+putTurret itm rotSpeed =
+    sps0 $
+        PutMachine
+            (reverse $ square 10)
+            ( defaultMachine
+                & mcColor .~ blue
+                & mcType .~ (turret itm & _McTurret . tuTurnSpeed .~ rotSpeed)
+                & mcHP .~ 50000
+            )
+            defaultMachineWall
+
 putLasTurret :: Float -> Placement
 putLasTurret rotSpeed =
    sps0 $