home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 647.lha / Attacks / Sources.LZH / Sources / attackssprites.def < prev    next >
Encoding:
Modula Definition  |  1992-04-16  |  1.4 KB  |  39 lines
  1. DEFINITION MODULE attackssprites;
  2.  
  3. (*   This module just defines all the sprites used in the program.        *)
  4.  
  5. FROM SYSTEM
  6.   IMPORT   LONGWORD;
  7. FROM header
  8.   IMPORT squaretype;
  9.  
  10.  
  11. TYPE
  12.   tempspritetype = ARRAY [0..18] OF LONGWORD;
  13.   tempspriteptr = POINTER TO tempspritetype;
  14.  
  15. VAR
  16.                                 (* Point to the sprites for the pointers *)
  17.   circle :  tempspriteptr;
  18.   mypointer : ARRAY [red..blue] OF tempspriteptr;
  19.   emptysquare : tempspriteptr;
  20.   blocksquare : tempspriteptr;
  21.  
  22.  
  23. (**************************************************************************)
  24. PROCEDURE InitPointers() : BOOLEAN;
  25.  
  26. (*   This procedure starts the ball rolling for the pointer data.  It     *)
  27. (* allocates chip memory for the sprite images, and copies the informa-   *)
  28. (* tion to those locations.  It returns true only if the memory alloca-   *)
  29. (* tions went ok.                                                         *)
  30. (*                                                                        *)
  31. (*   INPUT                                                                *)
  32. (*            n/a                                                         *)
  33. (*                                                                        *)
  34. (*   OUTPUT                                                               *)
  35. (*                                                                        *)
  36. (*            Returns TRUE only if everything is safe to proceed.         *)
  37.  
  38. END attackssprites.
  39.