home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 06 / sprites / testpgm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-12  |  798 b   |  27 lines
  1. PROGRAM SpriteTest;
  2. (* 12.10.1988 *)
  3.  
  4. (* die allgemeinen Routinen für das Hauptprogramm *)
  5. (* zeigt, wie man eine Sprite-Unit im eigenen Programm verwendet *)
  6.  
  7. USES CRT, Graph, SpieleGraph, Mann;
  8.                 (* ^die UNIT mit den Spiele-Routinen *)
  9.                             (* ^ der Name der Sprite-UNIT *)
  10.  
  11. VAR   I : INTEGER;
  12.  
  13. BEGIN
  14.   (* nicht vergessen : in der UNIT SpieleGraph Directory der .. *)
  15.   (* Turbo-Grafik-Files setzen !  --> GRAPHDIR anpassen *)
  16.  
  17.   GraphikInit (CGA, CGAC2);
  18.   MOVE (SpriteFeld, Sprite^, Size); (* vom ARRAY in den HEAP *)
  19.   FOR I := 16 TO 100 DO             (* Beispiel für Sprite-Bewegung *)
  20.     BEGIN
  21.       PutImage (I, 100, Sprite^, XorPut);
  22.       DELAY (55);
  23.       PutImage (I, 100, Sprite^, Xorput);
  24.     END;
  25.   GraphikEnde;
  26. END.
  27.