| changeset 4813 | 53c2f0f92281 |
| parent 4809 | 9c7d5f802618 |
| child 4824 | efbc8f80acac |
| 4811:3edc0cdcfe03 | 4813:53c2f0f92281 |
|---|---|
1050 begin |
1050 begin |
1051 AllInactive:= false; |
1051 AllInactive:= false; |
1052 t:= GearsList; |
1052 t:= GearsList; |
1053 while t <> nil do |
1053 while t <> nil do |
1054 begin |
1054 begin |
1055 if t^.Kind = gtHedgehog then t^.Active:= true; |
1055 if (t^.Kind = gtHedgehog) or (t^.Kind = gtExplosives) then t^.Active:= true; |
1056 t:= t^.NextGear |
1056 t:= t^.NextGear |
1057 end |
1057 end |
1058 end; |
1058 end; |
1059 |
1059 |
1060 |
1060 |