40 lines
671 B
Plaintext
40 lines
671 B
Plaintext
|
note
|
||
|
|
description: "[
|
||
|
|
Describes this location, so units can be moved to it.
|
||
|
|
]"
|
||
|
|
author: "Jimmy J. Johnson"
|
||
|
|
|
||
|
|
deferred class
|
||
|
|
LOCATION_UNCOMMITTED
|
||
|
|
|
||
|
|
inherit
|
||
|
|
|
||
|
|
LOCATION
|
||
|
|
redefine
|
||
|
|
make
|
||
|
|
end
|
||
|
|
|
||
|
|
feature {NONE} -- Initialization
|
||
|
|
|
||
|
|
make (a_game: like game)
|
||
|
|
-- Set up Current
|
||
|
|
do
|
||
|
|
Precursor (a_game)
|
||
|
|
nationality := {NATIONALITY_CONSTANTS}.nobody
|
||
|
|
end
|
||
|
|
|
||
|
|
feature {NONE} -- Inapplicable
|
||
|
|
|
||
|
|
adjacent_sea_areas: LINEAR [SEA_AREA]
|
||
|
|
-- A list of all sea areas that touch this location
|
||
|
|
do
|
||
|
|
-- satisfy void safety
|
||
|
|
Result := (create {LINKED_SET [SEA_AREA]}.make).linear_representation
|
||
|
|
check
|
||
|
|
do_not_call: False
|
||
|
|
-- Because not applicable
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|