<<[Cedar]Top>MazeWar.df=>MazeWarFinder.Mesa>> <> DIRECTORY Rope; MazeWarFinder: DEFINITIONS = BEGIN PlayerId: TYPE = INTEGER; BasicPlayerList: TYPE = LIST OF BasicPlayer; BasicPlayer: TYPE = RECORD [ instance: Rope.ROPE, id: PlayerId]; ListPlayers: PROCEDURE RETURNS [players: BasicPlayerList]; TakePlayer: PROCEDURE [bp: BasicPlayer]; GetFinderID: PROC RETURNS [bp: BasicPlayer]; StupidFuckingWarnings: SIGNAL [atom: ATOM]; END.