note
	description: "[
		An {SHIP} that belongs to the Allies.
		]"
	author:    "Jimmy J. Johnson"
	date:      "5/12/24"
	copyright: "Copyright (c) 2024, Jimmy J. Johnson"
	license:   "Eiffel Forum v2 (http://www.eiffel.com/licensing/forum.txt)"

deferred class
	ALLIED_SHIP

inherit

	ALLIED_UNIT
		undefine
			reinforceable_ports,
			internal_is_movable,
			is_bottomed
		end

	SHIP
		undefine
			make	-- make from {ALLIED_UNIT} calls {SHIP}.make
--			reinforceable_ports
		end

invariant

	is_allied: nationality = {NATIONALITY_CONSTANTS}.us or
				nationality = {NATIONALITY_CONSTANTS}.british or
				nationality = {NATIONALITY_CONSTANTS}.australian or
				nationality = {NATIONALITY_CONSTANTS}.dutch

end