+
−/*
+
− * File for the fun, ends in death or a total win
+
− *
+
− * @(#)rip.c	9.0	(rdk)	 7/17/84
+
− *
+
− * Super-Rogue
+
− * Copyright (C) 1984 Robert D. Kindelberger
+
− * All rights reserved.
+
− *
+
− * Based on "Rogue: Exploring the Dungeons of Doom"
+
− * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
+
− * All rights reserved.
+
− *
+
− * See the file LICENSE.TXT for full copyright and licensing information.
+
− */
+
−
+
−#include <signal.h>
+
−#include <ctype.h>
+
−#include <string.h>
+
−#include <sys/types.h>
+
−#include <pwd.h>
+
−#include <fcntl.h>
+
−#include "rogue.h"
+
−#include "rogue.ext"
+
−
+
−#define LOGFILE "/var/local/games/roguelike/srogue.log"
+
−
+
−static char scoreline[100];
+
−
+
−static char *rip[] = {
+
−"                          ____________________",
+
−"                         /                    \\",
+
−"                        /  Bob Kindelberger's  \\",
+
−"                       /       Graveyard        \\",
+
−"                      /                          \\",
+
−"                     /       REST IN PEACE        \\",
+
−"                    /                              \\",
+
−"                    |                              |",
+
−"                    |                              |",
+
−"                    |        Destroyed by a        |",
+
−"                    |                              |",
+
−"                    |                              |",
+
−"                    |                              |",
+
−"                    |                              |",
+
−"                    |                              |",
+
−"                    |                              |",
+
−"                    |                              |",
+
−"                   *|     *     *     *     *      |*",
+
−"          ________)\\\\//\\//\\)/\\//\\)/\\//\\)/\\//\\)/\\//\\//(________",
+
−};
+
−
+
−#define RIP_LINES (sizeof rip / (sizeof (char *)))
+
−
+
−char	*killname();
+
−void writelog(int amount, int aflag, char monst);
+
−
+
−/*
+
− * death:
+
− *	Do something really fun when he dies
+
− */
+
−
+
−#include <time.h>
+
−death(monst)
+
−char monst;
+
−{
+
−	reg char dp, *killer;
+
−	struct tm *lt;
+
−	time_t date;
+
−	char buf[LINLEN];
+
−	struct tm *localtime();
+
−
+
−	time(&date);
+
−	lt = localtime(&date);
+
−	clear();
+
−	move(3, 0);
+
−	for (dp = 0; dp < RIP_LINES; dp++)
+
−		printw("%s\n", rip[dp]);
+
−	mvaddstr(10, 36 - ((strlen(whoami) + 1) / 2), whoami);
+
−	killer = killname(monst);
+
−	mvaddstr(12, 43, vowelstr(killer));
+
−	mvaddstr(14, 36 - ((strlen(killer) + 1) / 2), killer);
+
−	purse -= purse/10;
+
−	sprintf(buf, "%d Gold Pieces", purse);
+
−	mvaddstr(16, 36 - ((strlen(buf) + 1) / 2), buf);
+
−	sprintf(prbuf, "%d/%d/%d", lt->tm_mon + 1, lt->tm_mday, 1900+lt->tm_year);
+
−	mvaddstr(18, 32, prbuf);
+
−	move(LINES-1, 0);
+
−	refresh();
+
−	writelog(purse, KILLED, monst);
+
−	score(purse, KILLED, monst);
+
−	printf("[Press return to exit]\n");
+
−	fflush(NULL);
+
−	getchar();
+
−	byebye(0);
+
−}
+
−
+
−/*
+
− * top ten entry structure
+
− */
+
−static struct sc_ent {
+
−	int sc_score;			/* gold */
+
−	char sc_name[LINLEN];		/* players name */
+
−	int sc_flags;			/* reason for being here */
+
−	int sc_level;			/* dungeon level */
+
−	int sc_uid;			/* user ID */
+
−	unsigned char sc_monster;       /* killer */
+
−	int sc_explvl;			/* experience level */
+
−	long int sc_exppts;		/* experience points */
+
−	time_t sc_date;			/* time this score was posted */
+
−} top_ten[10];
+
−
+
−char *reason[] = {
+
−	"Killed",
+
−	"Chickened out",
+
−	"A Total Winner"
+
−};
+
−int oldpurse;
+
−
+
−/*
+
− * score:
+
− *	Figure score and post it.
+
− */
+
−score(amount, aflag, monst)
+
−char monst;
+
−int amount, aflag;
+
−{
+
−	reg struct sc_ent *scp, *sc2;
+
−	reg int i, fd, prflags = 0;
+
−	reg FILE *outf;
+
−	char *packend;
+
−
+
−	signal(SIGINT, byebye);
+
−	signal(SIGQUIT, byebye);
+
−	if (aflag != WINNER) {
+
−		if (aflag == CHICKEN)
+
−			packend = "when you chickened out";
+
−		else
+
−			packend = "at your untimely demise";
+
−		mvaddstr(LINES - 1, 0, retstr);
+
−		refresh();
+
−		wgetnstr(stdscr,prbuf,80);
+
−		oldpurse = purse;
+
−		showpack(FALSE, packend);
+
−	}
+
−	/*
+
−	 * Open file and read list
+
−	 */
+
−	if ((fd = open(scorefile, O_RDWR | O_CREAT, 0666)) < 0)
+
−		return;
+
−	outf = (FILE *) fdopen(fd, "w");
+
−	for (scp = top_ten; scp <= &top_ten[9]; scp++) {
+
−		scp->sc_score = 0;
+
−		for (i = 0; i < 80; i++)
+
−			scp->sc_name[i] = rnd(255);
+
−		scp->sc_flags = rnd(255);
+
−		scp->sc_level = rnd(255);
+
−		scp->sc_monster = rnd(255);
+
−		scp->sc_uid = rnd(255);
+
−		scp->sc_date = rnd(255);
+
−	}
+
−	mvaddstr(LINES - 1, 0, retstr);
+
−	refresh();
+
−	wgetnstr(stdscr,prbuf,80);
+
−	if (author() || wizard)
+
−		if (strcmp(prbuf, "names") == 0)
+
−			prflags = 1;
+
−        for(i = 0; i < 10; i++)
+
−        {
+
−            unsigned int mon;
+
−
+
−            encread((char *) &top_ten[i].sc_name, LINLEN, fd);
+
−            encread((char *) scoreline, 100, fd);
+
−            sscanf(scoreline, " %d %d %d %d %u %d %ld %lx \n",
+
−                &top_ten[i].sc_score,   &top_ten[i].sc_flags,
+
−                &top_ten[i].sc_level,   &top_ten[i].sc_uid,
+
−                &mon,                   &top_ten[i].sc_explvl,
+
−                &top_ten[i].sc_exppts,  &top_ten[i].sc_date);
+
−            top_ten[i].sc_monster = mon;
+
−        }
+
−	/*
+
−	 * Insert it in list if need be
+
−	 */
+
−	if (!waswizard) {
+
−		for (scp = top_ten; scp <= &top_ten[9]; scp++)
+
−			if (amount > scp->sc_score)
+
−				break;
+
−			if (scp <= &top_ten[9]) {
+
−				for (sc2 = &top_ten[9]; sc2 > scp; sc2--)
+
−					*sc2 = *(sc2-1);
+
−				scp->sc_score = amount;
+
−				strcpy(scp->sc_name, whoami);
+
−				scp->sc_flags = aflag;
+
−				if (aflag == WINNER)
+
−					scp->sc_level = max_level;
+
−				else
+
−					scp->sc_level = level;
+
−				scp->sc_monster = monst;
+
−				scp->sc_uid = playuid;
+
−				scp->sc_explvl = him->s_lvl;
+
−				scp->sc_exppts = him->s_exp;
+
−				time(&scp->sc_date);
+
−		}
+
−	}
+
−	ignore();
+
−	fseek(outf, 0L, 0);
+
−        for(i = 0; i < 10; i++)
+
−        {
+
−            memset(scoreline,0,100);
+
−            encwrite((char *) top_ten[i].sc_name, LINLEN, outf);
+
−            sprintf(scoreline, " %d %d %d %d %u %d %ld %lx \n",
+
−                top_ten[i].sc_score, top_ten[i].sc_flags,
+
−                top_ten[i].sc_level, top_ten[i].sc_uid,
+
−                top_ten[i].sc_monster, top_ten[i].sc_explvl,
+
−                top_ten[i].sc_exppts, top_ten[i].sc_date);
+
−            encwrite((char *) scoreline, 100, outf);
+
−        }
+
−	fclose(outf);
+
−	signal(SIGINT, byebye);
+
−	signal(SIGQUIT, byebye);
+
−	clear();
+
−	refresh();
+
−	endwin();
+
−	showtop(prflags);		/* print top ten list */
+
−}
+
−
+
−void writelog(int amount, int aflag, char monst)
+
−{
+
−	char logmessage[160], ltemp[80], mlev[40];
+
−	char *killer;
+
−	FILE *logfi;
+
−
+
−	if (waswizard)
+
−		return;
+
−#ifdef LOGFILE
+
−	sprintf(logmessage, "%d %d %.20s %d ", time(NULL), amount, whoami,
+
−		him->s_lvl);
+
−	if (amulet)
+
−		sprintf(mlev, " [max %d] with the Amulet", max_level);
+
−	else
+
−		mlev[0] = '\0';
+
−	if (aflag == KILLED) {
+
−		killer = killname(monst);
+
−		sprintf(ltemp, "killed by a%s %s on level %d%s\n", 
+
−			vowelstr(killer), killer, level, mlev);
+
−	}
+
−	else if (aflag == CHICKEN) {
+
−		sprintf(ltemp, "quit on level %d%s\n", level, mlev);
+
−	}
+
−        else if (aflag == WINNER) {
+
−		sprintf(ltemp, "escaped with the Amulet [deepest level: %d]\n", 
+
−			max_level);
+
−	}
+
−	else
+
−		return;
+
−	strcat(logmessage, ltemp);
+
−	logfi = fopen(LOGFILE, "a");
+
−	if (logfi == NULL)
+
−		return;
+
−	fprintf(logfi, "%s", logmessage);
+
−	fclose(logfi);
+
−#endif
+
−	return;
+
−}
+
−
+
−/*
+
− * showtop:
+
− *	Display the top ten on the screen
+
− */
+
−showtop(showname)
+
−int showname;
+
−{
+
−	reg int fd, i;
+
−	char *killer;
+
−	struct sc_ent *scp;
+
−
+
−	if ((fd = open(scorefile, O_RDONLY)) < 0)
+
−		return FALSE;
+
−       
+
−        for(i = 0; i < 10; i++)
+
−        {
+
−            unsigned int mon;
+
−            encread((char *) &top_ten[i].sc_name, LINLEN, fd);
+
−            encread((char *) scoreline, 100, fd);
+
−            sscanf(scoreline, " %d %d %d %d %u %d %ld %lx \n",
+
−                &top_ten[i].sc_score,   &top_ten[i].sc_flags,
+
−                &top_ten[i].sc_level,   &top_ten[i].sc_uid,
+
−                &mon,                   &top_ten[i].sc_explvl,
+
−                &top_ten[i].sc_exppts,  &top_ten[i].sc_date);
+
−            top_ten[i].sc_monster = mon;
+
−        }
+
−	close(fd);
+
−	printf("Top Ten Adventurers:\nRank\tScore\tName\n");
+
−	for (scp = top_ten; scp <= &top_ten[9]; scp++) {
+
−		if (scp->sc_score > 0) {
+
−			printf("%d\t%d\t%s: %s\t\t--> %s on level %d",
+
−			  scp - top_ten + 1, scp->sc_score, scp->sc_name,
+
−			  ctime(&scp->sc_date), reason[scp->sc_flags],
+
−			  scp->sc_level);
+
−			if (scp->sc_flags == KILLED) {
+
−				killer = killname(scp->sc_monster);
+
−				printf(" by a%s %s",vowelstr(killer), killer);
+
−			}
+
−			printf(" [Exp: %d/%ld]",scp->sc_explvl,scp->sc_exppts);
+
−			if (showname) {
+
−				struct passwd *pp, *getpwuid();
+
−
+
−				if ((pp = getpwuid(scp->sc_uid)) == NULL)
+
−					printf(" (%d)\n", scp->sc_uid);
+
−				else
+
−					printf(" (%s)\n", pp->pw_name);
+
−			}
+
−			else
+
−				printf("\n");
+
−		}
+
−	}
+
−	return TRUE;
+
−}
+
−
+
−/*
+
− * total_winner:
+
− *	The hero made it back out alive
+
− */
+
−total_winner()
+
−{
+
−	clear();
+
−addstr("                                                               \n");
+
−addstr("  @   @               @   @           @          @@@  @     @  \n");
+
−addstr("  @   @               @@ @@           @           @   @     @  \n");
+
−addstr("  @   @  @@@  @   @   @ @ @  @@@   @@@@  @@@      @  @@@    @  \n");
+
−addstr("   @@@@ @   @ @   @   @   @     @ @   @ @   @     @   @     @  \n");
+
−addstr("      @ @   @ @   @   @   @  @@@@ @   @ @@@@@     @   @     @  \n");
+
−addstr("  @   @ @   @ @  @@   @   @ @   @ @   @ @         @   @  @     \n");
+
−addstr("   @@@   @@@   @@ @   @   @  @@@@  @@@@  @@@     @@@   @@   @  \n");
+
−addstr("                                                               \n");
+
−addstr("     Congratulations, you have made it to the light of day!    \n");
+
−addstr("\nYou have joined the elite ranks of those who have escaped the\n");
+
−addstr("Dungeons of Doom alive.  You journey home and sell all your loot at\n");
+
−addstr("a great profit and are admitted to the fighters guild.\n");
+
−
+
−	mvaddstr(LINES - 1, 0,spacemsg);
+
−	refresh();
+
−	wait_for(stdscr, ' ');
+
−	clear();
+
−	oldpurse = purse;
+
−	showpack(TRUE, NULL);
+
−	writelog(purse, WINNER, 0);
+
−	score(purse, WINNER, 0);
+
−	printf("[Press return to exit]\n");
+
−	fflush(NULL);
+
−	getchar();
+
−	byebye(0);
+
−}
+
−
+
−/*
+
− * showpack:
+
− *	Display the contents of the hero's pack
+
− */
+
−showpack(winner, howso)
+
−bool winner;
+
−char *howso;
+
−{
+
−	reg char *iname;
+
−	reg int cnt, worth, ch;
+
−	reg struct linked_list *item;
+
−	reg struct object *obj;
+
−
+
−	idenpack();
+
−	cnt = 1;
+
−	clear();
+
−	if (winner)
+
−		mvaddstr(0, 0, "   Worth  Item");
+
−	else
+
−		mvprintw(0, 0, "Contents of your pack %s:\n",howso);
+
−	ch = 'a';
+
−	for (item = pack; item != NULL; item = next(item)) {
+
−		obj = OBJPTR(item);
+
−		iname = inv_name(obj, FALSE);
+
−		if (winner) {
+
−			worth = get_worth(obj);
+
−			worth *= obj->o_count;
+
−			mvprintw(cnt, 0, "  %6d  %s",worth,iname);
+
−			purse += worth;
+
−		}
+
−		else {
+
−			mvprintw(cnt, 0, "%c) %s\n",ch,iname);
+
−			ch = npch(ch);
+
−		}
+
−		if (++cnt >= LINES - 2 && next(item) != NULL) {
+
−			cnt = 1;
+
−			mvaddstr(LINES - 1, 0, morestr);
+
−			refresh();
+
−			wait_for(stdscr, ' ');
+
−			clear();
+
−		}
+
−	}
+
−	mvprintw(cnt + 1,0,"--- %d  Gold Pieces ---",oldpurse);
+
−	refresh();
+
−}
+
−
+
−/*
+
− * killname:
+
− *	Returns what the hero was killed by.
+
− */
+
−char *
+
−killname(monst)
+
−unsigned char monst;
+
−{
+
−	if (monst < MAXMONS + 1)
+
−		return monsters[monst].m_name;
+
−	else		/* things other than monsters */
+
−		switch (monst) {
+
−			case K_ARROW:	return "crooked arrow";
+
−			case K_DART:	return "sharp dart";
+
−			case K_BOLT:	return "jagged bolt";
+
−			case K_POOL:	return "magic pool";
+
−			case K_ROD:	return "exploding rod";
+
−			case K_SCROLL:	return "burning scroll";
+
−			case K_STONE: 	return "transmogrification to stone";
+
−			case K_STARVE:	return "starvation";
+
−	}
+
−	return "Bob Kindelberger";
+
−}