hedgewars/GSHandlers.inc
changeset 1261 903058d382c7
parent 1259 0c660c3d98a4
child 1262 e9191c693e44
--- a/hedgewars/GSHandlers.inc	Thu Sep 18 12:40:46 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Sep 18 13:39:05 2008 +0000
@@ -137,7 +137,16 @@
 					begin
 					dX:= rndSign(GetRandom * _0_1);
 					dY:= (GetRandom - _3) * _0_08;
-					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 0);
+					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25);
+					end
+				end;
+		gtWatermelon: begin
+				doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
+				for i:= 0 to 5 do
+					begin
+					dX:= rndSign(GetRandom * _0_1);
+					dY:= (GetRandom - _3) * _0_08;
+					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 75);
 					end
 				end
 		end;
@@ -157,7 +166,7 @@
 doStepFallingGear(Gear);
 if (Gear^.State and gstCollision) <> 0 then
 	begin
-	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound);
+	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound);
 	DeleteGear(Gear);
 	exit
 	end;