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