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