# HG changeset patch
# User unc0rr
# Date 1171065302 0
# Node ID 12295a8b8b2f7cb4e8454998d88ebaaf74eb7fcd
# Parent  ebd79d171804c84cce068be2d4a49570f13fc9d8
Tune pickhammer

diff -r ebd79d171804 -r 12295a8b8b2f 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;