46 lines
909 B
Plaintext
46 lines
909 B
Plaintext
note
|
|
description: "[
|
|
A {SEQUENTIAL_GAME_STEP} representing the combat
|
|
phase of {VITP_GAME}.
|
|
]"
|
|
author: "Jimmy J. Johnson"
|
|
date: "11/11/23"
|
|
copyright: "Copyright (c) 2023, Jimmy J. Johnson"
|
|
license: "Eiffel Forum v2 (http://www.eiffel.com/licensing/forum.txt)"
|
|
|
|
class
|
|
COMBAT_STEP
|
|
|
|
inherit
|
|
|
|
SEQUENTIAL_GAME_STEP
|
|
redefine
|
|
make
|
|
end
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make (a_game: VITP_GAME)
|
|
-- Create an instance
|
|
do
|
|
Precursor {SEQUENTIAL_GAME_STEP} (a_game)
|
|
-- extend (create {SELECT_ACTION_TYPE_STEP}.make (a_game))
|
|
-- extend (create {FIRING_STEP}.make (a_game))
|
|
-- extend (create {SUBMARINE_FIRING_STEP}.make (a_game))
|
|
-- extend (create {RETREAT_PURSUIT_STEP}.make (a_game))
|
|
-- extend (create {LAND_AMPHIBIOUS_STEP}.make (a_game))
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
name: STRING
|
|
-- Displayable name of Current step
|
|
do
|
|
Result := "Combat"
|
|
end
|
|
|
|
end
|