# HG changeset patch
# User unc0rr
# Date 1215206417 0
# Node ID ca7078116c0c1175183a441462c4d170916dc66c
# Parent  c22d833c3ae23ff2d1de70e3afc73812db9478e2
Update explosion graphics

diff -r c22d833c3ae2 -r ca7078116c0c hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Jul 04 19:25:00 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Jul 04 21:20:17 2008 +0000
@@ -796,8 +796,9 @@
 procedure doStepExplosion(Gear: PGear);
 var i: LongWord;
 begin
-for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
-for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
+for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
+for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
+for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2);
 Gear^.doStep:= @doStepExplosionWork
 end;
 
diff -r c22d833c3ae2 -r ca7078116c0c hedgewars/uConsts.pas
--- a/hedgewars/uConsts.pas	Fri Jul 04 19:25:00 2008 +0000
+++ b/hedgewars/uConsts.pas	Fri Jul 04 21:20:17 2008 +0000
@@ -46,7 +46,7 @@
                    sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
                    sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
                    sprHat, sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
-                   sprHurrah, sprLemonade, sprExplPart);
+                   sprHurrah, sprLemonade, sprExplPart, sprExplPart2);
 
      TGearType  = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
                    gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
@@ -57,7 +57,7 @@
                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
                    gtWhip, gtKamikaze);
 
-     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtFire);
+     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
 
      TGearsType = set of TGearType;
 
@@ -413,7 +413,9 @@
                      (FileName:'ILoveLemonade';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
                       Width: 128; Height: 32; saveSurf: false),// sprLemonade
                      (FileName:   'ExplPart'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
-                      Width:  32; Height: 32; saveSurf: false) // sprExplPart
+                      Width:  32; Height: 32; saveSurf: false),// sprExplPart
+                     (FileName:  'ExplPart2'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
+                      Width:  32; Height: 32; saveSurf: false) // sprExplPart2
                      );
 
 	Wavez: array [TWave] of record
diff -r c22d833c3ae2 -r ca7078116c0c hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Fri Jul 04 19:25:00 2008 +0000
+++ b/hedgewars/uVisualGears.pas	Fri Jul 04 21:20:17 2008 +0000
@@ -50,7 +50,7 @@
 
 implementation
 uses uWorld, uMisc, uStore;
-const cExplFrameTicks = 80;
+const cExplFrameTicks = 110;
 
 // ==================================================================
 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
@@ -123,6 +123,7 @@
                           @doStepFlake,
                           @doStepCloud,
                           @doStepExpl,
+                          @doStepExpl,
                           @doStepFire
                         );
 
@@ -159,10 +160,11 @@
                dy.QWordValue:= 21474836 + random(64424509);
                mdY:= dy.QWordValue
                end;
-  vgtExplPart: with Result^ do
+  vgtExplPart,
+ vgtExplPart2: with Result^ do
                begin
                t:= random(1024);
-               sp:= _0_001 * (random(80) + 85);
+               sp:= _0_001 * (random(95) + 70);
                dx:= AngleSin(t) * sp;
                dx.isNegative:= random(2) = 0;
                dy:= AngleCos(t) * sp;
@@ -178,7 +180,7 @@
                dx.isNegative:= random(2) = 0;
                dy:= AngleCos(t) * sp;
                dy.isNegative:= random(2) = 0;
-               FrameTicks:= 400 + random(200);
+               FrameTicks:= 650 + random(250);
                Frame:= random(8)
                end;
      end;
@@ -236,6 +238,7 @@
 		begin
 		case Gear^.Kind of
 			vgtExplPart: DrawSprite(sprExplPart, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 7 - Gear^.Frame);
+			vgtExplPart2: DrawSprite(sprExplPart2, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 7 - Gear^.Frame);
 			vgtFire: DrawSprite(sprFlame, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (RealTicks div 64 + Gear^.Frame) mod 8);
 			end;
 		Gear:= Gear^.NextGear
diff -r c22d833c3ae2 -r ca7078116c0c share/hedgewars/Data/Graphics/ExplPart2.png
Binary file share/hedgewars/Data/Graphics/ExplPart2.png has changed
diff -r c22d833c3ae2 -r ca7078116c0c share/hedgewars/Data/Graphics/Flame.png
Binary file share/hedgewars/Data/Graphics/Flame.png has changed