home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / amiga / modelers / chmsthtc / chmsthtc.lzh / Chemesthetics / Source / Source.LZH / credits.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-06  |  1.7 KB  |  59 lines
  1. /* $Revision Header *** Header built automatically - do not edit! ***********
  2.  *
  3.  *    (C) Copyright 1991 by Metalworx
  4.  *
  5.  *    Name .....: Credits.c
  6.  *    Created ..: Sun 06-Oct-91 21:16
  7.  *    Revision .: 0
  8.  *
  9.  *    Date        Author        Comment
  10.  *    =========    ========    ====================
  11.  *         1990    Mtwx        Created this file!
  12.  *
  13.  * $Revision Header ********************************************************/
  14.  #define REVISION 0
  15.  
  16. #include <intuition/intuitionbase.h>
  17. #include <libraries/arpbase.h>
  18. #include <clib/req_protos.h>
  19. #include <proto/intuition.h>
  20.  
  21. #include <mtwx_defs.h>
  22.  
  23. #include "messages.h"
  24. #include "credits.h"
  25.  
  26. struct Window *Window3;
  27. extern struct Window *Window1;
  28. extern struct Screen *FirstScreen;
  29.  
  30. void      Credits()
  31. {
  32.   CreditsFenster.Screen = FirstScreen;
  33.   CreditsFenster.TopEdge = (FirstScreen->Height - CreditsFenster.Height) / 2;
  34.   if (!(Window3 = (struct Window *)
  35.     OpenWindow(&CreditsFenster)))
  36.   {
  37.     SimpleRequest(NO_CREDITS_WIN);
  38.     return;
  39.   }
  40.   Cls(Window3, 13);
  41.   Shadow(Window3, CREDITS1, 15, 1, -1, 10);
  42.   Shadow(Window3, CREDITS2, 1, 0, -1, 22);
  43.   Shadow(Window3, CREDITS3, 1, 0, -1, 32);
  44.   Shadow(Window3, CREDITS4, 1, 0, -1, 42);
  45.   Shadow(Window3, CREDITS5, 1, 0, -1, 52);
  46.   Shadow(Window3, CREDITS6, 6, 9, -1, 75);
  47.   Shadow(Window3, CREDITS7, 6, 9, -1, 85);
  48.   Shadow(Window3, CREDITS8, 15, 1, -1, 105);
  49.   Shadow(Window3, CREDITS9, 3, 12, -1, 117);
  50.   Shadow(Window3, CREDITS10, 3, 12, -1, 128);
  51.   Shadow(Window3, CREDITS11, 12, 11, -1, 142);
  52.   Shadow(Window3, CREDITS12, 12, 11, -1, 152);
  53.   Shadow(Window3, CREDITS12a,12, 11, -1, 162);
  54.   Shadow(Window3, CREDITS13, 9, 10, -1, 172);
  55.   Shadow(Window3, CREDITS14, 14, 2, -2, 184);
  56.   Nachricht(Window3);
  57.   CloseWindowSafely(Window3, NULL);
  58. }
  59.