DEFINITION MODULE DrawG ; FROM AdvSystem IMPORT PlayerSet ; EXPORT QUALIFIED DrawMan, EraseMan, DrawDoor, DrawTreasure, EraseTreasure, DrawArrow, EraseArrow, DisplayMessage ; (* All these procedures to draw on the screens - are Global *) (* Ie they will draw to all the screens that are within *) (* the area of effect. *) PROCEDURE DrawMan (p: CARDINAL) ; PROCEDURE EraseMan (p: CARDINAL) ; (* DrawDoor draws a door on every screen possible ie all that *) (* are in this particular area. Hence the coordinates need *) (* to be absolute NOT relative! *) PROCEDURE DrawDoor (RoomOfDoor, IndexToDoor: CARDINAL) ; PROCEDURE DrawTreasure (room, x, y: CARDINAL) ; PROCEDURE EraseTreasure (room, x, y: CARDINAL) ; PROCEDURE DrawArrow (room, x, y, dir: CARDINAL ; VAR playerscreen: PlayerSet) ; PROCEDURE EraseArrow (x, y: CARDINAL ; playerscreen: PlayerSet; flush: BOOLEAN) ; PROCEDURE DisplayMessage (a1, a2, a3: ARRAY OF CHAR) ; END DrawG.