need to switch to frozen after deleteCI
authornemo
Sun, 23 Jun 2013 22:31:12 -0400
changeset 9251 6c238c897213
parent 9249 7b8c82785145
child 9253 90ea56f4f2f5
need to switch to frozen after deleteCI
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;