comparison rogue4/rip.c @ 12:9535a08ddc39

Import Rogue 5.2 from the Roguelike Restoration Project (r1490)
author edwarj4
date Sat, 24 Oct 2009 16:52:52 +0000
parents
children 4967c46f1320
comparison
equal deleted inserted replaced
11:949d558c2162 12:9535a08ddc39
1 /*
2 * File for the fun ends
3 * Death or a total win
4 *
5 * @(#)rip.c 4.28 (Berkeley) 4/12/82
6 *
7 * Rogue: Exploring the Dungeons of Doom
8 * Copyright (C) 1980, 1981, 1982 Michael Toy, Ken Arnold and Glenn Wichman
9 * All rights reserved.
10 *
11 * See the file LICENSE.TXT for full copyright and licensing information.
12 */
13
14 #include <curses.h>
15 #include <time.h>
16 #include <signal.h>
17 #include <sys/types.h>
18 #include <string.h>
19 #include <stdlib.h>
20 #include "rogue.h"
21
22 static char *rip[] = {
23 " __________",
24 " / \\",
25 " / REST \\",
26 " / IN \\",
27 " / PEACE \\",
28 " / \\",
29 " | |",
30 " | |",
31 " | killed by a |",
32 " | |",
33 " | 1980 |",
34 " *| * * * | *",
35 " ________)/\\\\_//(\\/(/\\)/\\//\\/|_)_______",
36 0
37 };
38
39 /*
40 * score:
41 * Figure score and post it.
42 */
43 /* VARARGS2 */
44 score(amount, flags, monst)
45 int amount, flags;
46 char monst;
47 {
48 register struct sc_ent *scp;
49 register int i;
50 register struct sc_ent *sc2;
51 register FILE *outf;
52 register int prflags = 0;
53 register void (*fp)(int);
54 register int uid;
55 char scoreline[MAXSTR + 100];
56
57 static struct sc_ent {
58 char sc_name[MAXSTR];
59 unsigned int sc_flags;
60 unsigned int sc_uid;
61 unsigned short sc_monster;
62 unsigned short sc_score;
63 unsigned short sc_level;
64 } top_ten[10];
65 static char *reason[] = {
66 "killed",
67 "quit",
68 "A total winner",
69 };
70 void endit();
71
72 start_score();
73
74 if (fd >= 0)
75 outf = md_fdopen(fd, "wb");
76 else
77 return;
78
79 for (scp = top_ten; scp <= &top_ten[9]; scp++)
80 {
81 scp->sc_score = 0;
82 for (i = 0; i < MAXSTR; i++)
83 scp->sc_name[i] = rnd(255);
84 scp->sc_flags = RN;
85 scp->sc_level = RN;
86 scp->sc_monster = RN;
87 scp->sc_uid = RN;
88 }
89
90 signal(SIGINT, SIG_DFL);
91 if (flags != -1
92 #ifdef WIZARD
93 || wizard
94 #endif
95 )
96 {
97 mvaddstr(LINES - 1, 0 , "[Press return to continue]");
98 refresh();
99 wgetnstr(stdscr,prbuf,80);
100 move(LINES - 1, 0);
101 clrtoeol();
102 refresh();
103 endwin();
104 }
105 #ifdef WIZARD
106 if (wizard)
107 if (strcmp(prbuf, "names") == 0)
108 prflags = 1;
109 else if (strcmp(prbuf, "edit") == 0)
110 prflags = 2;
111 #endif
112 for(i=0; i<10; i++)
113 {
114 encread((char *) &top_ten[i].sc_name, MAXSTR, fd);
115 scoreline[0] = '\0';
116 encread((char *) scoreline, 100, fd);
117 sscanf(scoreline, "%d %d %hd %hd %hd", &top_ten[i].sc_flags,
118 &top_ten[i].sc_uid, &top_ten[i].sc_monster, &top_ten[i].sc_score,
119 &top_ten[i].sc_level);
120 }
121 /*
122 * Insert her in list if need be
123 */
124 sc2 = NULL;
125 if (!noscore)
126 {
127 uid = md_getuid();
128
129 for (scp = top_ten; scp <= &top_ten[9]; scp++)
130 if (amount > scp->sc_score)
131 break;
132 #ifdef LIMIT_TOPTEN
133 else if (flags != 2 && scp->sc_uid == uid && scp->sc_flags != 2)
134 scp = &top_ten[9] + 1; /* only one score per nowin uid */
135 #endif
136 if (scp <= &top_ten[9])
137 {
138 #ifdef LIMIT_TOPTEN
139 if (flags != 2)
140 for (sc2 = scp; sc2 <= &top_ten[9]; sc2++)
141 {
142 if (sc2->sc_uid == uid && sc2->sc_flags != 2)
143 break;
144 }
145 else
146 #endif
147 sc2 = &top_ten[9];
148 while (sc2 > scp)
149 {
150 *sc2 = sc2[-1];
151 sc2--;
152 }
153 scp->sc_score = amount;
154 strncpy(scp->sc_name, whoami, MAXSTR);
155 scp->sc_flags = flags;
156 if (flags == 2)
157 scp->sc_level = max_level;
158 else
159 scp->sc_level = level;
160 scp->sc_monster = monst;
161 scp->sc_uid = uid;
162 sc2 = scp;
163 }
164 }
165 /*
166 * Print the list
167 */
168 printf("Top Ten Rogueists:\nRank\tScore\tName\n");
169 for (scp = top_ten; scp <= &top_ten[9]; scp++)
170 {
171 if (scp->sc_score) {
172 printf("%d\t%d\t%s: %s on level %d", scp - top_ten + 1,
173 scp->sc_score, scp->sc_name, reason[scp->sc_flags],
174 scp->sc_level);
175 if (scp->sc_flags == 0)
176 printf(" by %s", killname((char) scp->sc_monster, TRUE));
177 if (prflags == 1)
178 {
179 char *name;
180 name = md_getusername(scp->sc_uid);
181
182 if (name == NULL)
183 printf(" (%d)", scp->sc_uid);
184 else
185 printf(" (%s)", name);
186 putchar('\n');
187 }
188 else if (prflags == 2)
189 {
190 fflush(stdout);
191 fgets(prbuf,80,stdin);
192 if (prbuf[0] == 'd')
193 {
194 for (sc2 = scp; sc2 < &top_ten[9]; sc2++)
195 *sc2 = *(sc2 + 1);
196 top_ten[9].sc_score = 0;
197 for (i = 0; i < MAXSTR; i++)
198 top_ten[9].sc_name[i] = rnd(255);
199 top_ten[9].sc_flags = RN;
200 top_ten[9].sc_level = RN;
201 top_ten[9].sc_monster = RN;
202 scp--;
203 }
204 }
205 else
206 printf(".\n");
207 }
208 else
209 break;
210 }
211 fseek(outf, 0L, 0);
212 /*
213 * Update the list file
214 */
215 if (sc2 != NULL)
216 {
217 if (lock_sc())
218 {
219 int i;
220
221 fp = signal(SIGINT, SIG_IGN);
222
223 for(i=0; i<10; i++)
224 {
225 encwrite((char *) &top_ten[i].sc_name, MAXSTR, outf);
226 sprintf(scoreline," %d %d %hd %hd %hd \n",
227 top_ten[i].sc_flags, top_ten[i].sc_uid,
228 top_ten[i].sc_monster, top_ten[i].sc_score,
229 top_ten[i].sc_level);
230 encwrite((char *) scoreline, 100, outf);
231 }
232 unlock_sc();
233 signal(SIGINT, fp);
234 }
235 }
236 fclose(outf);
237 }
238
239 /*
240 * death:
241 * Do something really fun when he dies
242 */
243 death(monst)
244 register char monst;
245 {
246 register char **dp = rip, *killer;
247 register struct tm *lt;
248 time_t date;
249 char buf[MAXSTR];
250 struct tm *localtime();
251
252 signal(SIGINT, SIG_IGN);
253 purse -= purse / 10;
254 signal(SIGINT, leave);
255 time(&date);
256 lt = localtime(&date);
257 clear();
258 move(8, 0);
259 while (*dp)
260 printw("%s\n", *dp++);
261 mvaddstr(14, 28-((strlen(whoami)+1)/2), whoami);
262 sprintf(buf, "%d Au", purse);
263 mvaddstr(15, 28-((strlen(buf)+1)/2), buf);
264 killer = killname(monst, FALSE);
265 mvaddstr(17, 28-((strlen(killer)+1)/2), killer);
266 if (monst == 's')
267 mvaddch(16, 32, ' ');
268 else
269 mvaddstr(16, 33, vowelstr(killer));
270 sprintf(prbuf, "%2d", 1900+lt->tm_year);
271 mvaddstr(18, 26, prbuf);
272 move(LINES-1, 0);
273 refresh();
274 score(purse, 0, monst);
275 exit(0);
276 }
277
278 /*
279 * total_winner:
280 * Code for a winner
281 */
282 total_winner()
283 {
284 register THING *obj;
285 register int worth = 0;
286 register char c;
287 register int oldpurse;
288
289 clear();
290 standout();
291 addstr(" \n");
292 addstr(" @ @ @ @ @ @@@ @ @ \n");
293 addstr(" @ @ @@ @@ @ @ @ @ \n");
294 addstr(" @ @ @@@ @ @ @ @ @ @@@ @@@@ @@@ @ @@@ @ \n");
295 addstr(" @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ \n");
296 addstr(" @ @ @ @ @ @ @ @@@@ @ @ @@@@@ @ @ @ \n");
297 addstr(" @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ \n");
298 addstr(" @@@ @@@ @@ @ @ @ @@@@ @@@@ @@@ @@@ @@ @ \n");
299 addstr(" \n");
300 addstr(" Congratulations, you have made it to the light of day! \n");
301 standend();
302 addstr("\nYou have joined the elite ranks of those who have escaped the\n");
303 addstr("Dungeons of Doom alive. You journey home and sell all your loot at\n");
304 addstr("a great profit and are admitted to the fighters guild.\n");
305 mvaddstr(LINES - 1, 0, "--Press space to continue--");
306 refresh();
307 wait_for(' ');
308 clear();
309 mvaddstr(0, 0, " Worth Item");
310 oldpurse = purse;
311 for (c = 'a', obj = pack; obj != NULL; c++, obj = next(obj))
312 {
313 switch (obj->o_type)
314 {
315 case FOOD:
316 worth = 2 * obj->o_count;
317 when WEAPON:
318 switch (obj->o_which)
319 {
320 case MACE: worth = 8;
321 when SWORD: worth = 15;
322 when CROSSBOW: worth = 30;
323 when ARROW: worth = 1;
324 when DAGGER: worth = 2;
325 when TWOSWORD: worth = 75;
326 when DART: worth = 1;
327 when BOW: worth = 15;
328 when BOLT: worth = 1;
329 when SPEAR: worth = 5;
330 }
331 worth *= 3 * (obj->o_hplus + obj->o_dplus) + obj->o_count;
332 obj->o_flags |= ISKNOW;
333 when ARMOR:
334 switch (obj->o_which)
335 {
336 case LEATHER: worth = 20;
337 when RING_MAIL: worth = 25;
338 when STUDDED_LEATHER: worth = 20;
339 when SCALE_MAIL: worth = 30;
340 when CHAIN_MAIL: worth = 75;
341 when SPLINT_MAIL: worth = 80;
342 when BANDED_MAIL: worth = 90;
343 when PLATE_MAIL: worth = 150;
344 }
345 worth += (9 - obj->o_ac) * 100;
346 worth += (10 * (a_class[obj->o_which] - obj->o_ac));
347 obj->o_flags |= ISKNOW;
348 when SCROLL:
349 worth = s_magic[obj->o_which].mi_worth;
350 worth *= obj->o_count;
351 if (!s_know[obj->o_which])
352 worth /= 2;
353 s_know[obj->o_which] = TRUE;
354 when POTION:
355 worth = p_magic[obj->o_which].mi_worth;
356 worth *= obj->o_count;
357 if (!p_know[obj->o_which])
358 worth /= 2;
359 p_know[obj->o_which] = TRUE;
360 when RING:
361 worth = r_magic[obj->o_which].mi_worth;
362 if (obj->o_which == R_ADDSTR || obj->o_which == R_ADDDAM ||
363 obj->o_which == R_PROTECT || obj->o_which == R_ADDHIT)
364 if (obj->o_ac > 0)
365 worth += obj->o_ac * 100;
366 else
367 worth = 10;
368 if (!(obj->o_flags & ISKNOW))
369 worth /= 2;
370 obj->o_flags |= ISKNOW;
371 r_know[obj->o_which] = TRUE;
372 when STICK: