Block screen during long loading

2022-12-29 00:44:51 +00:00
parent d1f80f1f7f
commit be41d51819
13 changed files with 90 additions and 54 deletions
@@ -501,6 +501,6 @@ shootTeslaArc it cr w =
    w'
        & cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix (crSel cr) . itParams .~ ip
  where
-    (w', ip) = shootTeslaArc' (_itParams it) pos dir w
+    (w', ip) = makeTeslaArc (_itParams it) pos dir w
    pos = _crPos cr +.+ aimingMuzzlePos cr it *.* unitVectorAtAngle dir
    dir = _crDir cr