init

jj_vitp/Implementation/classes/units/allied_ship.e

@@ -0,0 +1,35 @@
+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