Tweak bullet bouncing and spawning

2022-07-19 18:21:51 +01:00
parent 3031f2478c
commit 89d397a928
8 changed files with 49 additions and 37 deletions
@@ -26,12 +26,14 @@ import Data.List
 import Data.Maybe

 putLasTurret :: Float -> Placement
-putLasTurret rotSpeed = sps0 $ PutMachine (reverse $ square wdth) (defaultMachine & mcColor .~ blue)
-    { _mcDraw = drawTurret
--    , _mcUpdate = updateTurret rotSpeed
-    , _mcType = lasTurret & tuTurnSpeed .~ rotSpeed
-    , _mcHP = 50000
-    }
+putLasTurret rotSpeed = sps0 $ PutMachine (reverse $ square wdth) 
+    (defaultMachine 
+        & mcColor .~ blue
+        & mcDraw .~ drawTurret
+        & mcType .~ (lasTurret & tuTurnSpeed .~ rotSpeed)
+        & mcHP .~ 50000
+    )
+    defaultMachineWall
 lasTurret :: MachineType
 lasTurret = Turret
    { _tuWeapon = lasGun