home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d536 / chemesthetics.lha / Chemesthetics / Source / Source.LZH / credits.c < prev    next >
C/C++ Source or Header  |  1991-06-12  |  1KB  |  39 lines
  1. #include <intuition/intuitionbase.h>
  2. #include <libraries/arpbase.h>
  3. #include <clib/req_protos.h>
  4. #include "messages.h"
  5. #include "credits.h"
  6.  
  7. struct Window *Window3, *OpenWindow();
  8. extern struct Window *Window1;
  9. extern struct Screen *FirstScreen;
  10.  
  11. void      Credits()
  12. {
  13.   CreditsFenster.Screen = FirstScreen;
  14.   CreditsFenster.TopEdge = (FirstScreen->Height - CreditsFenster.Height) / 2;
  15.   if (!(Window3 = (struct Window *)
  16.     OpenWindow(&CreditsFenster)))
  17.   {
  18.     SimpleRequest(NO_CREDITS_WIN);
  19.     return;
  20.   }
  21.   Cls(Window3, 13);
  22.   Shadow(Window3, CREDITS1, 15, 1, -1, 10);
  23.   Shadow(Window3, CREDITS2, 1, 0, -1, 22);
  24.   Shadow(Window3, CREDITS3, 1, 0, -1, 32);
  25.   Shadow(Window3, CREDITS4, 1, 0, -1, 42);
  26.   Shadow(Window3, CREDITS5, 1, 0, -1, 52);
  27.   Shadow(Window3, CREDITS6, 6, 9, -1, 75);
  28.   Shadow(Window3, CREDITS7, 6, 9, -1, 85);
  29.   Shadow(Window3, CREDITS8, 15, 1, -1, 105);
  30.   Shadow(Window3, CREDITS9, 3, 12, -1, 125);
  31.   Shadow(Window3, CREDITS10, 3, 12, -1, 135);
  32.   Shadow(Window3, CREDITS11, 12, 11, -1, 150);
  33.   Shadow(Window3, CREDITS12, 12, 11, -1, 160);
  34.   Shadow(Window3, CREDITS13, 9, 10, -1, 172);
  35.   Shadow(Window3, CREDITS14, 14, 2, -2, 184);
  36.   Nachricht(Window3);
  37.   CloseWindowSafely(Window3, NULL);
  38. }
  39.