588                           Gear.Active:= true;

   588                           Gear.Active:= true;

   589                           end;

   589                           end;

   590               end;

   590               end;

   591          end;

   591          end;

   592       Gear:= Gear.NextGear

   592       Gear:= Gear.NextGear

   594 end;

   595 end;

   595 

   596 

   596 procedure AmmoShove(Ammo: PGear; Damage, Power: integer);

   597 procedure AmmoShove(Ammo: PGear; Damage, Power: integer);

   597 var t: PGearArray;

   598 var t: PGearArray;

   598     i: integer;

   599     i: integer;