hedgewars/GSHandlers.inc
changeset 9077 e8d9d94c122f
parent 9076 6ae43e121882
child 9080 9b42757d7e71
--- a/hedgewars/GSHandlers.inc	Wed May 29 06:51:12 2013 -0400
+++ b/hedgewars/GSHandlers.inc	Wed May 29 07:45:00 2013 -0400
@@ -5224,6 +5224,7 @@
                                     vg^.dy:= 0.001 * random(80)
                                     end
                                 end;
+                            PlaySound(sndHogFreeze);
                             iter^.State:= iter^.State or gstFrozen;
                             if iter^.Kind = gtMine then // dud mine block
                                 begin
@@ -5253,6 +5254,7 @@
 
                 if (Timer = iceCollideWithWater) and ((GameTicks - Power) > groundFreezingTime) then
                     begin
+                    PlaySound(sndHogFreeze);
                     DrawIceBreak(Target.X, cWaterLine - iceHeight, iceRadius, iceHeight);
                     SetAllHHToActive;
                     Timer := iceWaitCollision;