# HG changeset patch
# User nemo
# Date 1372041072 14400
# Node ID 6c238c897213af41727b59735e8b27489b00828b
# Parent  7b8c827851458398196454456baf5bda90b049c1
need to switch to frozen after deleteCI

diff -r 7b8c82785145 -r 6c238c897213 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Jun 23 17:11:29 2013 -0400
+++ b/hedgewars/GSHandlers.inc	Sun Jun 23 22:31:12 2013 -0400
@@ -5214,9 +5214,9 @@
                                     end
                                 end;
                             PlaySound(sndHogFreeze);
-                            iter^.State:= iter^.State or gstFrozen;
                             if iter^.Kind = gtMine then // dud mine block
                                 begin
+                                iter^.State:= iter^.State or gstFrozen;
                                 vg:= AddVisualGear(hwRound(iter^.X) - 4  + Random(8), hwRound(iter^.Y) - 4 - Random(4), vgtSmoke);
                                 if vg <> nil then
                                     vg^.Scale:= 0.5;
@@ -5228,10 +5228,14 @@
                             else if iter^.Kind = gtCase then
                                 begin
                                 DeleteCI(iter);
+                                iter^.State:= iter^.State or gstFrozen;
                                 AddGearCI(iter)
                                 end
                             else // gtExplosives
+                                begin
+                                iter^.State:= iter^.State or gstFrozen;
                                 iter^.Health:= iter^.Health + cBarrelHealth
+                                end
                             end;
                         iter:= iter^.NextGear
                         end;