FootballInternal.mesa
Last Edited by: Maxwell, January 28, 1983 11:03 am
DIRECTORY
FootballMaster USING [Command, Commands, Game, Position, Side, Team],
Rope USING [ROPE],
ViewerClasses USING [Viewer];
FootballInternal: DEFINITIONS = BEGIN
OPEN FootballMaster;
Play: TYPE = REF PlayRec;
PlayRec:
TYPE =
RECORD[
name: Rope.ROPE,
setUp: BOOLEAN ← TRUE,
side: Side ← offense,
ball: Command ← [stop, [null[]]],
commands: Commands ← ALL[[stop, [null[]]]]];
game: Game;
planned: Play;
myTeam: Team;
selected: Position;
viewer: ViewerClasses.Viewer;
Control: PROCEDURE;
StartServer: PROCEDURE[name: Rope.ROPE];
StopServer: PROCEDURE;
SetCommand: PROCEDURE[player: Position, command: Command, setUp: BOOL ← FALSE];
SavePlay: PROCEDURE[side: Side, name: Rope.ROPE, setUp: BOOL ← FALSE];
ReadPlayBook: PROCEDURE[name: Rope.ROPE];
WritePlayBook: PROCEDURE[name: Rope.ROPE];
END . . .