mirror of https://github.com/nealey/rogue
364 lines
6.4 KiB
C
364 lines
6.4 KiB
C
/*
|
|
* Exploring the dungeons of doom
|
|
* Copyright (C) 1981 by Michael Toy, Ken Arnold, and Glenn Wichman
|
|
* All rights reserved
|
|
*
|
|
* @(#)rmap.c 4.22 (Berkeley) 02/05/99
|
|
*/
|
|
|
|
#include <curses.h>
|
|
#ifdef attron
|
|
#include <term.h>
|
|
#endif attron
|
|
#include <signal.h>
|
|
#include <pwd.h>
|
|
#include "netprot.h"
|
|
|
|
/*
|
|
* main:
|
|
* The main program, of course
|
|
*/
|
|
int
|
|
main(int argc, char **argv, char **envp)
|
|
{
|
|
char *env;
|
|
struct passwd *pw;
|
|
int lowtime;
|
|
|
|
#ifndef DUMP
|
|
signal(SIGQUIT, exit);
|
|
signal(SIGILL, exit);
|
|
signal(SIGTRAP, exit);
|
|
signal(SIGIOT, exit);
|
|
signal(SIGFPE, exit);
|
|
signal(SIGBUS, exit);
|
|
signal(SIGSEGV, exit);
|
|
signal(SIGSYS, exit);
|
|
#endif
|
|
|
|
#ifdef MASTER
|
|
/*
|
|
* Check to see if he is a wizard
|
|
*/
|
|
if (argc >= 2 && argv[1][0] == '\0')
|
|
if (strcmp(PASSWD, crypt(getpass("Wizard's password: "), "mT")) == 0)
|
|
{
|
|
Wizard = TRUE;
|
|
Player.t_flags |= SEEMONST;
|
|
argv++;
|
|
argc--;
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* get Home and options from environment
|
|
*/
|
|
if ((env = getenv("HOME")) != NULL)
|
|
strcpy(Home, env);
|
|
else if ((pw = getpwuid(getuid())) != NULL)
|
|
strcpy(Home, pw->pw_dir);
|
|
strcat(Home, "/");
|
|
|
|
strcpy(File_name, Home);
|
|
strcat(File_name, "rogue.save");
|
|
|
|
if ((env = getenv("ROGUEOPTS")) != NULL)
|
|
parse_opts(env);
|
|
if (env == NULL || Whoami[0] == '\0')
|
|
if ((pw = getpwuid(getuid())) == NULL)
|
|
{
|
|
printf("Say, who the hell are you?\n");
|
|
exit(1);
|
|
}
|
|
else
|
|
strucpy(Whoami, pw->pw_name, strlen(pw->pw_name));
|
|
|
|
#ifdef MASTER
|
|
if (Wizard && getenv("SEED") != NULL)
|
|
Dnum = atoi(getenv("SEED"));
|
|
else
|
|
#endif
|
|
Dnum = lowtime + getpid();
|
|
Seed = Dnum;
|
|
|
|
/*
|
|
* check for print-score option
|
|
*/
|
|
open_score();
|
|
if (argc == 2)
|
|
if (strcmp(argv[1], "-s") == 0)
|
|
{
|
|
Noscore = TRUE;
|
|
score(0, -1);
|
|
exit(0);
|
|
}
|
|
else if (strcmp(argv[1], "-d") == 0)
|
|
{
|
|
Dnum = rnd(100); /* throw away some rnd()s to break patterns */
|
|
while (--Dnum)
|
|
rnd(100);
|
|
Purse = rnd(100) + 1;
|
|
Level = rnd(100) + 1;
|
|
initscr();
|
|
getltchars();
|
|
death(death_monst());
|
|
exit(0);
|
|
}
|
|
|
|
init_check(); /* check for legal startup */
|
|
if (argc == 2)
|
|
if (!restore(argv[1], envp)) /* Note: restore will never return */
|
|
my_exit(1);
|
|
lowtime = (int) time(NULL);
|
|
#ifdef MASTER
|
|
if (Wizard)
|
|
printf("Hello %s, welcome to dungeon #%d", Whoami, Dnum);
|
|
else
|
|
#endif
|
|
printf("Hello %s, just a moment while I dig the dungeon...", Whoami);
|
|
fflush(stdout);
|
|
|
|
initscr(); /* Start up cursor package */
|
|
init_probs(); /* Set up prob tables for objects */
|
|
init_player(); /* Set up initial Player stats */
|
|
init_names(); /* Set up names of scrolls */
|
|
init_colors(); /* Set up colors of potions */
|
|
init_stones(); /* Set up stone settings of rings */
|
|
init_materials(); /* Set up materials of wands */
|
|
setup();
|
|
|
|
/*
|
|
* The screen must be at least NUMLINES x NUMCOLS
|
|
*/
|
|
if (LINES < NUMLINES || COLS < NUMCOLS)
|
|
{
|
|
printf("\nSorry, the screen must be at least %dx%d\n", NUMLINES, NUMCOLS);
|
|
endwin();
|
|
my_exit(1);
|
|
}
|
|
|
|
/*
|
|
* Set up windows
|
|
*/
|
|
Hw = newwin(LINES, COLS, 0, 0);
|
|
#ifdef attron
|
|
idlok(stdscr, TRUE);
|
|
idlok(Hw, TRUE);
|
|
#endif attron
|
|
#ifdef MASTER
|
|
Noscore = Wizard;
|
|
#endif
|
|
new_level(); /* Draw current level */
|
|
/*
|
|
* Start up daemons and fuses
|
|
*/
|
|
start_daemon(runners, 0, AFTER);
|
|
start_daemon(doctor, 0, AFTER);
|
|
fuse(swander, 0, WANDERTIME, AFTER);
|
|
start_daemon(stomach, 0, AFTER);
|
|
playit();
|
|
}
|
|
|
|
/*
|
|
* endit:
|
|
* Exit the program abnormally.
|
|
*/
|
|
void
|
|
endit(int sig)
|
|
{
|
|
fatal("Okay, bye bye!\n");
|
|
}
|
|
|
|
/*
|
|
* fatal:
|
|
* Exit the program, printing a message.
|
|
*/
|
|
void
|
|
fatal(char *s)
|
|
{
|
|
mvaddstr(LINES - 2, 0, s);
|
|
refresh();
|
|
endwin();
|
|
my_exit(0);
|
|
}
|
|
|
|
/*
|
|
* rnd:
|
|
* Pick a very random number.
|
|
*/
|
|
int
|
|
rnd(int range)
|
|
{
|
|
return range == 0 ? 0 : abs((int) RN) % range;
|
|
}
|
|
|
|
/*
|
|
* roll:
|
|
* Roll a number of dice
|
|
*/
|
|
int
|
|
roll(int number, int sides)
|
|
{
|
|
int dtotal = 0;
|
|
|
|
while (number--)
|
|
dtotal += rnd(sides)+1;
|
|
return dtotal;
|
|
}
|
|
|
|
#ifdef SIGTSTP
|
|
/*
|
|
* tstp:
|
|
* Handle stop and start signals
|
|
*/
|
|
void
|
|
tstp(int ignored)
|
|
{
|
|
int y, x;
|
|
int oy, ox;
|
|
|
|
/*
|
|
* leave nicely
|
|
*/
|
|
getyx(curscr, oy, ox);
|
|
mvcur(0, COLS - 1, LINES - 1, 0);
|
|
endwin();
|
|
resetltchars();
|
|
fflush(stdout);
|
|
kill(0, SIGTSTP); /* send actual signal and suspend process */
|
|
|
|
/*
|
|
* start back up again
|
|
*/
|
|
signal(SIGTSTP, tstp);
|
|
crmode();
|
|
noecho();
|
|
playltchars();
|
|
clearok(curscr, TRUE);
|
|
wrefresh(curscr);
|
|
getyx(curscr, y, x);
|
|
mvcur(y, x, oy, ox);
|
|
fflush(stdout);
|
|
curscr->_cury = oy;
|
|
curscr->_curx = ox;
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* playit:
|
|
* The main loop of the program. Loop until the game is over,
|
|
* refreshing things and looking at the proper times.
|
|
*/
|
|
void
|
|
playit(void)
|
|
{
|
|
char *opts;
|
|
|
|
/*
|
|
* set up defaults for slow terminals
|
|
*/
|
|
|
|
#ifndef attron
|
|
if (_tty.sg_ospeed <= B1200)
|
|
#else attron
|
|
if (baudrate() <= 1200)
|
|
#endif attron
|
|
{
|
|
Terse = TRUE;
|
|
Jump = TRUE;
|
|
See_floor = FALSE;
|
|
}
|
|
#ifndef attron
|
|
if (!CE)
|
|
#else attron
|
|
if (clr_eol)
|
|
#endif attron
|
|
Inv_type = INV_CLEAR;
|
|
|
|
/*
|
|
* parse environment declaration of options
|
|
*/
|
|
if ((opts = getenv("ROGUEOPTS")) != NULL)
|
|
parse_opts(opts);
|
|
|
|
|
|
Oldpos = Hero;
|
|
Oldrp = roomin(&Hero);
|
|
while (Playing)
|
|
command(); /* Command execution */
|
|
endit(0);
|
|
}
|
|
|
|
/*
|
|
* quit:
|
|
* Have player make certain, then exit.
|
|
*/
|
|
void
|
|
quit(int sig)
|
|
{
|
|
int oy, ox;
|
|
|
|
/*
|
|
* Reset the signal in case we got here via an interrupt
|
|
*/
|
|
if (!Q_comm)
|
|
Mpos = 0;
|
|
getyx(curscr, oy, ox);
|
|
msg("really quit?");
|
|
if (readchar() == 'y')
|
|
{
|
|
signal(SIGINT, leave);
|
|
clear();
|
|
mvprintw(LINES - 2, 0, "You quit with %d gold pieces", Purse);
|
|
move(LINES - 1, 0);
|
|
refresh();
|
|
score(Purse, 1);
|
|
my_exit(0);
|
|
}
|
|
else
|
|
{
|
|
move(0, 0);
|
|
clrtoeol();
|
|
status();
|
|
move(oy, ox);
|
|
refresh();
|
|
Mpos = 0;
|
|
Count = 0;
|
|
To_death = FALSE;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* leave:
|
|
* Leave quickly, but curteously
|
|
*/
|
|
void
|
|
leave(int sig)
|
|
{
|
|
static char buf[BUFSIZ];
|
|
|
|
setbuf(stdout, buf); /* throw away pending output */
|
|
#ifndef attron
|
|
if (!_endwin)
|
|
{
|
|
mvcur(0, COLS - 1, LINES - 1, 0);
|
|
endwin();
|
|
}
|
|
#else attron
|
|
endwin();
|
|
#endif attron
|
|
putchar('\n');
|
|
my_exit(0);
|
|
}
|
|
|
|
/*
|
|
* my_exit:
|
|
* Leave the process properly
|
|
*/
|
|
void
|
|
my_exit(int st)
|
|
{
|
|
resetltchars();
|
|
exit(st);
|
|
}
|