Tune pickhammer
authorunc0rr
Fri, 09 Feb 2007 23:55:02 +0000
changeset 422 12295a8b8b2f
parent 421 ebd79d171804
child 423 5f4559ce7062
Tune pickhammer
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Feb 09 19:38:52 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Feb 09 23:55:02 2007 +0000
@@ -377,13 +377,17 @@
    AfterAttack;
    exit
    end;
-if (Gear^.Timer and $3F) = 0 then
+   
+if (Gear^.Timer mod 33) = 0 then
+   doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 6, 6, EXPLDontDraw);
+
+if (Gear^.Timer mod 47) = 0 then
    begin
    i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
    ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
    while i <= ei do
          begin
-         doMakeExplosion(i, hwRound(Gear^.Y) + 3, 3, 0);
+         DrawExplosion(i, hwRound(Gear^.Y) + 3, 3);
          inc(i, 1)
          end;
    Gear^.X:= Gear^.X + Gear^.dX;