home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 06 / sprites / mann.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-12  |  2.3 KB  |  65 lines
  1. UNIT mann;
  2. INTERFACE
  3. USES CRT, Graph, Spielegraph;
  4.  
  5. VAR     Sprite     : POINTER;
  6. CONST   Size       : INTEGER = 868;
  7. CONST   SpriteFeld : ARRAY [1..868] OF BYTE =
  8. (71,0,47,0,
  9. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,
  10. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,80,0,0,
  11. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,84,0,0,
  12. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,21,85,0,0,
  13. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,85,85,64,0,
  14. 0,0,0,0,0,0,0,0,0,0,0,0,0,1,85,85,80,0,
  15. 0,0,0,0,0,0,0,0,0,0,0,0,0,21,85,85,85,0,
  16. 0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,48,0,
  17. 0,0,0,0,0,0,0,0,0,0,0,0,0,15,40,10,60,0,
  18. 0,0,0,0,0,0,0,0,0,0,0,0,0,51,40,138,51,0,
  19. 0,0,0,0,0,0,0,0,0,0,0,0,0,51,0,128,51,0,
  20. 0,0,0,0,0,0,0,0,0,0,0,0,0,15,2,160,60,0,
  21. 0,0,0,0,0,0,0,0,0,0,0,0,0,3,32,2,48,0,
  22. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,202,168,192,0,
  23. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,3,0,0,
  24. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,252,0,0,
  25. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,252,0,0,
  26. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,252,0,0,
  27. 0,0,0,0,0,0,0,0,0,0,0,0,0,3,255,255,240,0,
  28. 0,0,0,0,0,0,0,0,0,0,0,0,0,14,170,170,172,0,
  29. 0,0,0,0,0,0,0,0,0,0,0,0,0,62,170,170,175,0,
  30. 0,0,0,0,0,0,0,0,0,0,0,0,0,206,127,249,108,192,
  31. 0,0,0,0,0,0,0,0,0,0,0,0,3,14,223,237,108,48,
  32. 0,0,0,0,0,0,0,0,0,0,0,0,12,62,247,189,111,12,
  33. 0,0,0,0,0,0,0,0,0,0,0,0,48,206,254,253,108,195,
  34. 0,0,0,0,0,0,0,0,0,0,0,0,243,14,251,125,108,51,
  35. 0,0,0,0,0,0,0,0,0,0,0,0,204,14,239,221,108,15,
  36. 0,0,0,0,0,0,0,0,0,0,0,0,240,14,191,245,108,0,
  37. 0,0,0,0,0,0,0,0,0,0,0,0,0,14,170,170,172,0,
  38. 0,0,0,0,0,0,0,0,0,0,0,0,0,15,255,255,252,0,
  39. 0,0,0,0,0,0,0,0,0,0,0,0,0,5,85,85,84,0,
  40. 0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,4,0,
  41. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,85,85,100,0,
  42. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,255,255,228,0,
  43. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,255,255,228,0,
  44. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,255,255,228,0,
  45. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,255,255,228,0,
  46. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,149,85,164,0,
  47. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,144,1,164,0,
  48. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,144,1,164,0,
  49. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,144,1,164,0,
  50. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,144,1,164,0,
  51. 0,0,0,0,0,0,0,0,0,0,0,0,0,6,144,1,164,0,
  52. 0,0,0,0,0,0,0,0,0,0,0,0,0,5,80,1,84,0,
  53. 0,0,0,0,0,0,0,0,0,0,0,0,0,3,192,0,240,0,
  54. 0,0,0,0,0,0,0,0,0,0,0,0,0,3,192,0,240,0,
  55. 0,0,0,0,0,0,0,0,0,0,0,0,2,170,160,2,170,160,
  56. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,160,2,128,0);
  57.  
  58. IMPLEMENTATION
  59. BEGIN
  60.    GetMem (Sprite, Size);
  61.    MOVE (SpriteFeld, Sprite^, Size);
  62.    { GraphikInit; }
  63.    { PutImage (100, 100, Sprite^, XorPut); }
  64. END.
  65.