DEFINITION MODULE attackssprites;

(*   This module just defines all the sprites used in the program.        *)

FROM SYSTEM
  IMPORT   LONGWORD;
FROM header
  IMPORT squaretype;


TYPE
  tempspritetype = ARRAY [0..18] OF LONGWORD;
  tempspriteptr = POINTER TO tempspritetype;

VAR
                                (* Point to the sprites for the pointers *)
  circle :  tempspriteptr;
  mypointer : ARRAY [red..blue] OF tempspriteptr;
  emptysquare : tempspriteptr;
  blocksquare : tempspriteptr;


(**************************************************************************)
PROCEDURE InitPointers() : BOOLEAN;

(*   This procedure starts the ball rolling for the pointer data.  It     *)
(* allocates chip memory for the sprite images, and copies the informa-   *)
(* tion to those locations.  It returns true only if the memory alloca-   *)
(* tions went ok.                                                         *)
(*                                                                        *)
(*   INPUT                                                                *)
(*            n/a                                                         *)
(*                                                                        *)
(*   OUTPUT                                                               *)
(*                                                                        *)
(*            Returns TRUE only if everything is safe to proceed.         *)

END attackssprites.