home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume10 / xtrek / part02 / death.c < prev    next >
C/C++ Source or Header  |  1990-10-23  |  5KB  |  164 lines
  1. static char sccsid[] = "@(#)death.c    3.1";
  2. /*
  3.  
  4.     Copyright (c) 1986     Chris Guthrie
  5.  
  6. Permission to use, copy, modify, and distribute this
  7. software and its documentation for any purpose and without
  8. fee is hereby granted, provided that the above copyright
  9. notice appear in all copies and that both that copyright
  10. notice and this permission notice appear in supporting
  11. documentation.  No representations are made about the
  12. suitability of this software for any purpose.  It is
  13. provided "as is" without express or implied warranty.
  14.  
  15. */
  16.  
  17. #include <X11/Xlib.h>
  18. #include <stdio.h>
  19. #include <signal.h>
  20. #include <setjmp.h>
  21. #if !defined(cray)
  22. #include <sys/types.h>
  23. #endif
  24.  
  25. #ifdef hpux
  26. #include <time.h>
  27. #else hpux
  28. #include <sys/time.h>
  29. #endif hpux
  30.  
  31. #include "defs.h"
  32. #include "data.h"
  33.  
  34. death(p)
  35. register struct player    *p;
  36. {
  37.     char buf[256];
  38.     register struct player    *j;
  39.  
  40.     switch (p->p_ship->s_whydead) {
  41.     case KQUIT:
  42.         sprintf(buf, "You have self-destructed");
  43.         warning(p, buf);
  44.         break;
  45.     case KTORP:
  46.         sprintf(buf, "You were killed by a torp from %s (%c%x) who was %d%% damaged",
  47.         players[p->p_ship->s_whodead].p_name,
  48.         teamlet[players[p->p_ship->s_whodead].p_ship->s_team],
  49.         p->p_ship->s_whodead,
  50.         players[p->p_ship->s_whodead].p_ship->s_damage);
  51.         warning(p, buf);
  52.         break;
  53.     case KLIGHTNING:
  54.         sprintf(buf, "You were killed by a lightning bolt from %s (%c%x)",
  55.         players[p->p_ship->s_whodead].p_name,
  56.         teamlet[players[p->p_ship->s_whodead].p_ship->s_team],
  57.         p->p_ship->s_whodead);
  58.         warning(p, buf);
  59.         break;
  60.     case KPHASER:
  61.         sprintf(buf, "You were killed by a phaser shot from %s (%c%x) who was %d%% damaged",
  62.         players[p->p_ship->s_whodead].p_name,
  63.         teamlet[players[p->p_ship->s_whodead].p_ship->s_team],
  64.         p->p_ship->s_whodead,
  65.         players[p->p_ship->s_whodead].p_ship->s_damage);
  66.         warning(p, buf);
  67.         break;
  68.     case KPLANET:
  69.         if (planets[p->p_ship->s_whodead].pl_type == SUN)
  70.             sprintf(buf, "You were killed by radiation from %s",
  71.             planets[p->p_ship->s_whodead].pl_name);
  72.         else
  73.         sprintf(buf, "You were killed by planetary fire from %s (%c)",
  74.         planets[p->p_ship->s_whodead].pl_name,
  75.         teamlet[planets[p->p_ship->s_whodead].pl_owner]);
  76.         warning(p, buf);
  77.         break;
  78.     case KSHIP:
  79.         sprintf(buf, "You were killed by an exploding ship formerly owned by %s (%c%x) who was %d%% damaged",
  80.         players[p->p_ship->s_whodead].p_name,
  81.         teamlet[players[p->p_ship->s_whodead].p_ship->s_team],
  82.         p->p_ship->s_whodead,
  83.         players[p->p_ship->s_whodead].p_ship->s_damage);
  84.         warning(p, buf);
  85.         break;
  86.     case KWINNER:
  87.         sprintf(buf, "Galaxy has been conquered by %s (%c%x)",
  88.         players[p->p_ship->s_whodead].p_name,
  89.         teamlet[players[p->p_ship->s_whodead].p_ship->s_team],
  90.         players[p->p_ship->s_whodead].p_ship->s_no);
  91.         warning(p, buf);
  92.         break;
  93.     case KVAPOR:
  94.         /* The display is vapor...can't tell them anything. */
  95.         break;
  96.     default:
  97.         sprintf(buf, "You were killed by something unknown to this game?");
  98.         warning(p, buf);
  99.         p->mustexit = 1;
  100.         break;
  101.     }
  102.  
  103.     if (p->p_ship->s_whydead != KQUIT && p->p_ship->s_whydead != KWINNER)
  104.         p->p_ship->s_stats.st_losses++;
  105.  
  106.     for (j = &players[0]; j < &players[MAXPLAYER]; j++) {
  107.     if (p->p_ship == j->p_ship) {
  108.         calcstats(j);
  109.         savestats(j);
  110.     }
  111.     }
  112.     if (p->p_ship)
  113.         resetsstats(p);
  114.  
  115.     p->p_status = PDEAD;
  116.     kill_copilots(p);
  117.     p->p_ship->s_explode = DEATHTIME;
  118.  
  119.     /* If we were being towed, turn off the tower's tractor beam */
  120.     if (p->p_ship->s_flags & SFTOWED) {
  121.     ships[p->p_ship->s_towed].s_flags &= ~SFTOWING;
  122.     }
  123.     /* Turn our own tractor beam off. */
  124.     tow_off(p);
  125.  
  126.     if (!(p->p_flags & PFROBOT) && p->p_ship->s_whydead != KVAPOR) {
  127.         XClearWindow(p->display, p->w);
  128.         if (!p->mono) {
  129. /*ICCCM 4.1.9        XSetWindowBorder(p->display, p->baseWin, p->gColor);*/
  130. /*ICCCM 4.1.9        XSetWindowBorder(p->display, p->iconWin, p->gColor);*/
  131.         } else {
  132. /*ICCCM 4.1.9        XSetWindowBorderPixmap(p->display, p->baseWin, p->gTile);*/
  133. /*ICCCM 4.1.9        XSetWindowBorderPixmap(p->display, p->iconWin, p->gTile);*/
  134.         }
  135.     }
  136.  
  137.     if (!(p->p_flags & PFROBOT) && p->p_ship->s_whydead != KVAPOR) {
  138.         if (ismapped(p, p->playerw))
  139.             XUnmapWindow(p->display, p->playerw);
  140.         if (ismapped(p, p->planetw))
  141.             XUnmapWindow(p->display, p->planetw);
  142.         if (p->p_infomapped)
  143.             destroyInfo(p);
  144.         if (ismapped(p, p->war))
  145.             XUnmapWindow(p->display, p->war);
  146.         if (p->p_flags & PFSHOWSTATS)
  147.             closeStats(p, p->statwin);
  148.         /* p->p_status = POUTFIT; */
  149.     }
  150. }
  151.  
  152. kill_copilots(p)
  153. register struct player    *p;
  154. {
  155.     register int        i;
  156.     register struct player    *co;
  157.  
  158.     for (i = 0, co = &players[0]; i < MAXPLAYER; i++, co++) {
  159.         if (co->p_status == PALIVE && p->p_ship == co->p_ship && co->p_copilot) {
  160.             co->p_status = PDEAD;
  161.         }
  162.     }
  163. }
  164.