60 lines
1.0 KiB
Plaintext
60 lines
1.0 KiB
Plaintext
|
note
|
||
|
|
description: "[
|
||
|
|
A {JJ_COMMAND} applicable to the VITP game
|
||
|
|
See {GAME_SEQUENCE} for explanation of "phase" and "stage".
|
||
|
|
]"
|
||
|
|
author: "Jimmy J. Johnson"
|
||
|
|
|
||
|
|
deferred class
|
||
|
|
VITP_COMMAND
|
||
|
|
|
||
|
|
inherit
|
||
|
|
|
||
|
|
JJ_COMMAND
|
||
|
|
redefine
|
||
|
|
is_executable,
|
||
|
|
execute,
|
||
|
|
undo
|
||
|
|
end
|
||
|
|
|
||
|
|
feature -- Access
|
||
|
|
|
||
|
|
feature -- Status report
|
||
|
|
|
||
|
|
is_executable: BOOLEAN
|
||
|
|
-- Can the command be executed?
|
||
|
|
do
|
||
|
|
Result := Precursor {JJ_COMMAND} and is_allowed_by_sop
|
||
|
|
end
|
||
|
|
|
||
|
|
is_allowed_by_sop: BOOLEAN
|
||
|
|
-- Can the command of this type be executed at this phase
|
||
|
|
-- in the game play? The command may not be completely
|
||
|
|
-- ready for execution, but if it were, execution would
|
||
|
|
-- not be vetoed by the sequence of play.
|
||
|
|
do
|
||
|
|
Result := True
|
||
|
|
end
|
||
|
|
|
||
|
|
feature -- Basic operations
|
||
|
|
|
||
|
|
execute
|
||
|
|
-- Perform the actions
|
||
|
|
do
|
||
|
|
Precursor {JJ_COMMAND}
|
||
|
|
io.put_string ("{VITP_COMMAND}.execute: ")
|
||
|
|
io.put_string (text)
|
||
|
|
io.new_line
|
||
|
|
end
|
||
|
|
|
||
|
|
undo
|
||
|
|
-- Perform the actions
|
||
|
|
do
|
||
|
|
Precursor {JJ_COMMAND}
|
||
|
|
io.put_string ("{VITP_COMMAND}.undo: ")
|
||
|
|
io.put_string (text)
|
||
|
|
io.new_line
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|