Drill: Increased speed and explosion size

ChrisIgel · Dec 31, 2020 · 3608cb4 · 3608cb4
1 parent 14ef16a
commit 3608cb4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/hedgewars/uGearsHandlersMess.pas b/hedgewars/uGearsHandlersMess.pas
@@ -4317,10 +4317,10 @@ procedure doStepDrillDrilling(Gear: PGear);
         exit;
         end;
 
-    DrawTunnel(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 2, 6);
-    Gear^.X := Gear^.X + Gear^.dX;
-    Gear^.Y := Gear^.Y + Gear^.dY;
-    if (Gear^.Timer mod 30) = 0 then
+    DrawTunnel(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 16, 6);
+    Gear^.X := Gear^.X + Gear^.dX * 8;
+    Gear^.Y := Gear^.Y + Gear^.dY * 8;
+    if (Gear^.Timer mod 20) = 0 then
         AddVisualGear(hwRound(Gear^.X + _20 * Gear^.dX), hwRound(Gear^.Y + _20 * Gear^.dY), vgtDust);
     if (CheckGearDrowning(Gear)) then
         begin

diff --git a/hedgewars/uGearsList.pas b/hedgewars/uGearsList.pas
@@ -299,7 +299,7 @@ function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloa
      gtWatermelon: Gear^.Boom := 75;
     gtHellishBomb: Gear^.Boom := 150;
           gtDrill: if Gear^.State and gsttmpFlag = 0 then
-                        Gear^.Boom := 50
+                        Gear^.Boom := 150
                    else Gear^.Boom := 60;
            gtBall: Gear^.Boom := 40;
         gtRCPlane: Gear^.Boom := 25;