DIRECTORY FootballMaster, Rope USING [ROPE], ViewerClasses USING [Viewer]; FootballInternal: DEFINITIONS = BEGIN OPEN FootballMaster; ROPE: TYPE ~ Rope.ROPE; Play: TYPE = REF PlayRec; PlayRec: TYPE = RECORD[ name: Rope.ROPE, setUp: BOOL _ TRUE, side: Side _ offense, ball: Command _ [stop, [null[]]], commands: Commands _ ALL[[stop, [null[]]]]]; Pattern: TYPE = RECORD[x1, y1, x2, y2: REAL_0, command: Command_[]]; T: TYPE ~ REF TeamRec; TeamRec: TYPE ~ RECORD [ game: Game, myTeam: Team_home, planned: Play _ NIL, current: Play _ NIL, carrier: Position _ ball, state: State _ offField, displayLine: INTEGER _ 20, viewer: ViewerClasses.Viewer, shadow: ARRAY Position OF RECORD[oldX, oldY: REAL, char: CHAR] _ ALL[[0,0,'a]], selected: Position _ none, setUp: BOOL _ FALSE, deltaX: REAL_ 0, deltaY: REAL _ 50, lastState: State _ offField, lastPaintedHeight: INTEGER _ 0, lastTime: INTEGER _ 0, penaltyState: PenaltyState _ none, timeouts: ARRAY Team OF INTEGER _ [4,4], penalties: ARRAY Team OF Penalty _ [none, none], oldScore: ARRAY Team OF INTEGER _ [0, 0], timer: CONDITION, playTimer: CONDITION, old: ARRAY [0..6] OF Pattern _ ALL[[]], dummy: INT_0 ]; Control: PROC[t: T]; StartServer: PROC [name: Rope.ROPE]; StopServer: PROC; SetCommand: PROC [t: T, player: Position, command: Command, playSetUp: BOOL _ FALSE]; SetCommandUp: PROC [t: T, player: Position, command: Command, playSetUp: BOOL _ TRUE]; SavePlay: PROC [t: T, side: Side, name: Rope.ROPE, playSetUp: BOOL _ FALSE]; ReadPlayBook: PROC [t: T, name: Rope.ROPE]; WritePlayBook: PROC [t: T, name: Rope.ROPE]; InitPlays: PROC [t: T]; GetTFromViewer: PROC [v: ViewerClasses.Viewer] RETURNS [t: T]; GetTFromTeam: PROC [team: Team] RETURNS [t: T]; END . . . FootballInternal.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Maxwell, January 28, 1983 11:03 am Russ Atkinson (RRA) August 13, 1985 12:52:50 pm PDT Swinehar, December 5, 1990 9:29 am PST Doug Terry, November 3, 1992 2:43 pm PST imported: BOOL _ FALSE, Κ˜codešœ™Kšœ Οmœ1™KšŸ œžœžœ˜/K˜Kšžœ˜ K˜—…—Ζ ς