note
	description: "[
		A "major" port {VITP_GAME}.
		]"
	author:		"Jimmy J. Johnson"

deferred class
	RED_PORT

inherit

	PORT
		redefine
			distance_to
		end

feature -- Access

	distance_to (other: LOCATION): INTEGER
			-- The distance between Current and `other'
		do
--			if vitp.phase = {GAME_SEQUENCE}.returning_to_base and then
--					vitp.major_ports.has (other.name) and
--					not other.is_enemy_controlled (nationality) then
--				Result := 0
--			else
--				Result := Precursor (other)
--			end
		end

end
