|
2
|
1 /*--------------------------------------------------------------------------
|
|
|
2 NETREK II -- Paradise
|
|
|
3
|
|
|
4 Permission to use, copy, modify, and distribute this software and its
|
|
|
5 documentation, or any derivative works thereof, for any NON-COMMERCIAL
|
|
|
6 purpose and without fee is hereby granted, provided that this copyright
|
|
|
7 notice appear in all copies. No representations are made about the
|
|
|
8 suitability of this software for any purpose. This software is provided
|
|
|
9 "as is" without express or implied warranty.
|
|
|
10
|
|
|
11 Xtrek Copyright 1986 Chris Guthrie
|
|
|
12 Netrek (Xtrek II) Copyright 1989 Kevin P. Smith
|
|
|
13 Scott Silvey
|
|
|
14 Paradise II (Netrek II) Copyright 1993 Larry Denys
|
|
|
15 Kurt Olsen
|
|
|
16 Brandon Gillespie
|
|
|
17 --------------------------------------------------------------------------*/
|
|
|
18
|
|
|
19 #include "config.h"
|
|
|
20 #include <stdio.h>
|
|
|
21 #include <signal.h>
|
|
|
22 #include <setjmp.h>
|
|
|
23 #include <sys/types.h>
|
|
|
24 #include <sys/time.h>
|
|
|
25
|
|
|
26 #include "defs.h"
|
|
|
27 #include "struct.h"
|
|
|
28 #include "data.h"
|
|
|
29 #include "shmem.h"
|
|
|
30
|
|
|
31 #if 0
|
|
|
32 extern jmp_buf env;
|
|
|
33 #endif
|
|
|
34
|
|
|
35
|
|
|
36 /* Figure out ratings for player p. Computed ratings are filled into r */
|
|
|
37 void
|
|
|
38 compute_ratings(p, r)
|
|
|
39 struct player *p;
|
|
|
40 struct rating *r;
|
|
|
41 {
|
|
|
42 struct stats *s;
|
|
|
43 float t, t2;
|
|
|
44
|
|
|
45 s = &p->p_stats;
|
|
|
46
|
|
|
47 r->ratio = (s->st_tlosses != 0) ? (float) s->st_tkills /
|
|
|
48 (float) s->st_tlosses : s->st_tkills;
|
|
|
49
|
|
|
50 if (status->timeprod == 0)
|
|
|
51 status->timeprod = 1;
|
|
|
52
|
|
|
53 t = (float) s->st_tticks / (float) status->timeprod; /* hour ratio */
|
|
|
54 if (t == 0.0)
|
|
|
55 t = 1.0;
|
|
|
56
|
|
|
57 t2 = t * (float) status->kills; /* get expected kills */
|
|
|
58 t2 /= 2; /* lower expectation */
|
|
|
59 printf("ticks %f timeprod %u %f %f %d\n", (float) s->st_tticks, status->timeprod, t2, t, status->kills);
|
|
|
60 r->offrat = s->st_tkills / t2;/* calc offense rating */
|
|
|
61
|
|
|
62 t2 = t * (float) status->dooshes; /* expected armies dooshed */
|
|
|
63 r->dooshrat = (float) s->st_tdooshes / t2; /* doosh rating */
|
|
|
64
|
|
|
65 r->battle = r->offrat + r->dooshrat; /* get battle rating */
|
|
|
66
|
|
|
67 t2 = t * (float) status->armsbomb; /* expected armies bombed */
|
|
|
68 r->bombrat = (float) s->st_tarmsbomb / t2; /* bomb rating */
|
|
|
69
|
|
|
70 t2 = t * (float) status->resbomb; /* expected resources bombed */
|
|
|
71 r->resrat = (float) s->st_tresbomb / t2; /* resource bombed rating */
|
|
|
72
|
|
|
73 t2 = t * (float) status->planets; /* expected planets */
|
|
|
74 r->planetrat = (float) s->st_tplanets / t2; /* get planet rating */
|
|
|
75
|
|
|
76 printf("planetrat %f tplanets %f t2 %f\n", (float) r->planetrat, (float) s->st_tplanets, (float) t2);
|
|
|
77
|
|
|
78 r->strategy = r->bombrat + r->resrat + r->planetrat; /* strategy rating */
|
|
|
79
|
|
|
80 t2 = (float) status->sbkills / (float) status->sblosses;
|
|
|
81 if (s->st_sblosses == 0)
|
|
|
82 r->sbrat = (float) s->st_sbkills / t2;
|
|
|
83 else
|
|
|
84 r->sbrat = ((float) s->st_sbkills / (float) s->st_sblosses) / t2;
|
|
|
85
|
|
|
86 t2 = (float) status->wbkills / (float) status->wblosses;
|
|
|
87 if (s->st_wblosses == 0)
|
|
|
88 r->wbrat = (float) s->st_wbkills / t2;
|
|
|
89 else
|
|
|
90 r->wbrat = ((float) s->st_wbkills / (float) s->st_wblosses) / t2;
|
|
|
91
|
|
|
92 t = (float) s->st_jsticks / (float) status->jstime;
|
|
|
93 t2 = t * (float) status->jsplanets; /* get expected js planets */
|
|
|
94 if (t2 == 0.0)
|
|
|
95 r->jsrat = 0.0;
|
|
|
96 else
|
|
|
97 r->jsrat = (float) s->st_jsplanets / t2; /* js rating */
|
|
|
98
|
|
|
99 r->special = r->sbrat + r->wbrat + r->jsrat; /* get special ship rating */
|
|
|
100 }
|
|
|
101
|
|
|
102
|
|
|
103 /*-----------------------------------DEATH---------------------------------*/
|
|
|
104 /*
|
|
|
105 * This function is called when the player dies. It checks to see if the
|
|
|
106 * player has been promoted.
|
|
|
107 */
|
|
|
108
|
|
|
109
|
|
|
110 extern int savestats();
|
|
|
111
|
|
|
112 void
|
|
|
113 death()
|
|
|
114 {
|
|
|
115 struct stats *s; /* to point to player's stats */
|
|
|
116 struct rating r; /* filled in by compute_ratings() */
|
|
|
117 int genocides; /* player's genocides */
|
|
|
118 float di; /* player's di */
|
|
|
119
|
|
|
120 #if 0
|
|
|
121 stop_interruptor();
|
|
|
122 #endif
|
|
|
123 me->p_status = POUTFIT; /* Stop the ghost buster */
|
|
|
124 switch (me->p_whydead)
|
|
|
125 { /* determine whether the player */
|
|
|
126 case KTORP: /* should be forced out of the */
|
|
|
127 case KPLASMA: /* game or not */
|
|
|
128 case KPHASER:
|
|
|
129 case KPLANET:
|
|
|
130 case KSHIP:
|
|
|
131 case KGENOCIDE:
|
|
|
132 case KGHOST:
|
|
|
133 case KPROVIDENCE:
|
|
|
134 case KASTEROID:
|
|
|
135 default:
|
|
|
136 break;
|
|
|
137 case KQUIT:
|
|
|
138 case KDAEMON:
|
|
|
139 case KWINNER:
|
|
|
140 mustexit = 1; /* set global var to force player out */
|
|
|
141 break;
|
|
|
142 }
|
|
|
143 me->p_flags &= ~(PFWAR | PFREFITTING); /* turn off most flags */
|
|
|
144 if (me->p_stats.st_rank < NUMRANKS - 1)
|
|
|
145 { /* should we try to promote */
|
|
|
146 s = &(me->p_stats); /* get player's stat struct */
|
|
|
147 genocides = s->st_genocides;/* get # genocides */
|
|
|
148 di = s->st_di; /* get player's DI */
|
|
|
149
|
|
|
150 compute_ratings(me, &r);
|
|
|
151
|
|
|
152 /*--[ check for promotion ]--*/
|
|
|
153 if (configvals->bronco_ranks)
|
|
|
154 {
|
|
|
155 if ((di >= ranks[s->st_rank + 1].di)
|
|
|
156 && (r.battle >= ranks[s->st_rank + 1].battle)
|
|
|
157 && (r.strategy * 3 / 2 >= ranks[s->st_rank + 1].strategy)
|
|
|
158 && (r.special * 3 >= ranks[s->st_rank + 1].specship))
|
|
|
159 s->st_rank++; /* we have a promotion */
|
|
|
160 }
|
|
|
161 else
|
|
|
162 {
|
|
|
163 if ((genocides >= ranks[s->st_rank + 1].genocides)
|
|
|
164 && (di >= ranks[s->st_rank + 1].di)
|
|
|
165 && (r.battle >= ranks[s->st_rank + 1].battle)
|
|
|
166 && (r.strategy >= ranks[s->st_rank + 1].strategy)
|
|
|
167 && (r.special >= ranks[s->st_rank + 1].specship))
|
|
|
168 s->st_rank++; /* we have a promotion */
|
|
|
169 }
|
|
|
170 }
|
|
|
171 updateClient(); /* update the client */
|
|
|
172 savestats(); /* save players stats */
|
|
|
173 #if 0
|
|
|
174 longjmp(env, 0); /* jump to start of ntserv */
|
|
|
175 #endif
|
|
|
176 }
|
|
|
177
|
|
|
178 /*-------------------------------------------------------------------------*/
|
|
|
179
|
|
|
180
|
|
|
181 /*----END OF FILE-----*/
|
