home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / science / chemesthetics / source / credits.c < prev    next >
C/C++ Source or Header  |  1990-12-15  |  1KB  |  37 lines
  1. #include <intuition/intuitionbase.h>
  2. #include "messages.h"
  3. #include "credits.h"
  4.  
  5. struct Window *Window3, *OpenWindow();
  6. extern struct Window *Window1;
  7. extern struct Screen *FirstScreen;
  8.  
  9. void      Credits()
  10. {
  11.   CreditsFenster.Screen = FirstScreen;
  12.   CreditsFenster.TopEdge = (FirstScreen->Height - CreditsFenster.Height) / 2;
  13.   if (!(Window3 = (struct Window *)
  14.     OpenWindow(&CreditsFenster)))
  15.   {
  16.     MessageReq(Window1, NO_CREDITS_WIN, 8, 10, 12);
  17.     return;
  18.   }
  19.   Cls(Window3, 13);
  20.   Shadow(Window3, CREDITS1, 15, 1, -1, 10);
  21.   Shadow(Window3, CREDITS2, 1, 0, -1, 30);
  22.   Shadow(Window3, CREDITS3, 1, 0, -1, 40);
  23.   Shadow(Window3, CREDITS4, 1, 0, -1, 50);
  24.   Shadow(Window3, CREDITS5, 1, 0, -1, 60);
  25.   Shadow(Window3, CREDITS6, 6, 9, -1, 75);
  26.   Shadow(Window3, CREDITS7, 6, 9, -1, 85);
  27.   Shadow(Window3, CREDITS8, 15, 1, -1, 105);
  28.   Shadow(Window3, CREDITS9, 3, 12, -1, 125);
  29.   Shadow(Window3, CREDITS10, 3, 12, -1, 135);
  30.   Shadow(Window3, CREDITS11, 12, 11, -1, 150);
  31.   Shadow(Window3, CREDITS12, 12, 11, -1, 160);
  32.   Shadow(Window3, CREDITS13, 9, 10, -1, 172);
  33.   Shadow(Window3, CREDITS14, 14, 2, -2, 184);
  34.   Nachricht(Window3);
  35.   CloseWindowSafely(Window3, NULL);
  36. }
  37.