# HG changeset patch
# User unc0rr
# Date 1225227505 0
# Node ID 252ab509c779b0169ebf4f6e0c4cfcf211f11ae7
# Parent  d4b32ee3caa65ff21b4f1f69afa4f998c4d28f52
Well, okay, better fix

diff -r d4b32ee3caa6 -r 252ab509c779 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Tue Oct 28 20:56:02 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Tue Oct 28 20:58:25 2008 +0000
@@ -910,6 +910,7 @@
 ///////////////////////////////////////////////////////////////////////////////
 procedure doStepCase(Gear: PGear);
 var i, x, y: LongInt;
+	k: TGearType;
 begin
 if (Gear^.Message and gm_Destroy) > 0 then
 	begin
@@ -925,13 +926,15 @@
 	begin
 	x:= hwRound(Gear^.X);
 	y:= hwRound(Gear^.Y);
-	if Gear^.Kind = gtCase then
+	k:= Gear^.Kind;
+	DeleteGear(Gear); // <-- delete gear!
+	
+	if k = gtCase then
 		begin
 		doMakeExplosion(x, y, 25, EXPLAutoSound);
 		for i:= 0 to 63 do
 			AddGear(x, y, gtFlame, 0, _0, _0, 0);
 		end;
-	DeleteGear(Gear);
 	exit
 	end;