hedgewars/uGears.pas
changeset 4813 53c2f0f92281
parent 4809 9c7d5f802618
child 4824 efbc8f80acac
--- a/hedgewars/uGears.pas	Tue Jan 04 01:21:30 2011 +0100
+++ b/hedgewars/uGears.pas	Tue Jan 04 16:15:47 2011 +0300
@@ -1052,7 +1052,7 @@
 t:= GearsList;
 while t <> nil do
     begin
-    if t^.Kind = gtHedgehog then t^.Active:= true;
+    if (t^.Kind = gtHedgehog) or (t^.Kind = gtExplosives) then t^.Active:= true;
     t:= t^.NextGear
     end
 end;