/*
* main:
* The main program, of course
*/
int main(int argc, char **argv)
{
md_init();
initJedi();
/*
* get home and options from environment
*/
#ifdef __linux__
strcpy(file_name, "/var/lib/griffin/rogue.save");
#else
strcpy(file_name, "rogue.save");
#endif
open_score();
/*
* check for print-score option
*/
if (argc == 2)
{
if (strcmp(argv[1], "-s") == 0)
{
score(0, -1, 0);
exit(0);
}
}
init_check(); /* check for legal startup */
restore("-r");
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();
displayMessage("WELCOME TO THE DUNGEONS OF DOOM");
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();
return(0);
}
/*
* main:
* The main program, of course
*/
int
main(int argc, char **argv)
{
char *env;
time_t lowtime;
md_init();
#ifdef MASTER
/*
* Check to see if he is a wizard
*/
if (argc >= 2 && argv[1][0] == '\0')
if (strcmp(PASSWD, md_crypt(md_getpass("wizard's password: "******"mT")) == 0)
{
wizard = TRUE;
player.t_flags |= SEEMONST;
argv++;
argc--;
}
#endif
/*
* get home and options from environment
*/
strcpy(home, md_gethomedir());
if (strlen(home) > MAXSTR - strlen("rogue.save") - 1)
*home = 0;
strcpy(file_name, home);
strcat(file_name, "rogue.save");
if ((env = getenv("ROGUEOPTS")) != NULL)
parse_opts(env);
if (env == NULL || whoami[0] == '\0')
strucpy(whoami, md_getusername(), strlen(md_getusername()));
lowtime = time(NULL);
if (getenv("SEED") != NULL)
{
dnum = atoi(getenv("SEED"));
noscore = 1;
}
else
dnum = (unsigned int) lowtime + md_getpid();
seed = dnum;
open_score();
/*
* Drop setuid/setgid after opening the scoreboard file.
*/
md_normaluser();
/*
* check for print-score option
*/
md_normaluser(); /* we drop any setgid/setuid priveldges here */
if (argc == 2)
{
if (strcmp(argv[1], "-s") == 0)
{
noscore = TRUE;
score(0, -1, 0);
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])) /* Note: restore will never return */
my_exit(1);
#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);
idlok(stdscr, TRUE);
idlok(hw, TRUE);
#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();
return(0);
}
/*
* main:
* Main program for local process
*/
int
main(int ac, char **av)
{
char *term;
int c;
int enter_status;
bool Query_driver = false;
bool Show_scores = false;
enter_status = env_init(Q_CLOAK);
while ((c = getopt(ac, av, "Sbcfh:l:mn:op:qst:w:")) != -1) {
switch (c) {
case 'l': /* rsh compatibility */
case 'n':
(void) strncpy(name, optarg, sizeof(name));
break;
case 't':
team = *optarg;
if (!isdigit((unsigned char)team)) {
warnx("Team names must be numeric");
team = ' ';
}
break;
case 'o':
#ifndef OTTO
warnx("The -o flag is reserved for future use.");
goto usage;
#else
Otto_mode = true;
break;
#endif
case 'm':
#ifdef MONITOR
Am_monitor = true;
#else
warnx("The monitor was not compiled in.");
#endif
break;
#ifdef INTERNET
case 'S':
Show_scores = true;
break;
case 'q': /* query whether hunt is running */
Query_driver = true;
break;
case 'w':
Send_message = optarg;
break;
case 'h':
contacthost = optarg;
break;
case 'p':
contactportstr = optarg;
contactport = atoi(contactportstr);
break;
#else
case 'S':
case 'q':
case 'w':
case 'h':
case 'p':
wanrx("Need TCP/IP for S, q, w, h, and p options.");
break;
#endif
case 'c':
enter_status = Q_CLOAK;
break;
case 'f':
#ifdef FLY
enter_status = Q_FLY;
#else
warnx("The flying code was not compiled in.");
#endif
break;
case 's':
enter_status = Q_SCAN;
break;
case 'b':
no_beep = !no_beep;
break;
default:
usage:
fputs(
"usage:\thunt [-qmcsfS] [-n name] [-t team] [-p port] [-w message] [host]\n",
stderr);
exit(1);
}
}
#ifdef INTERNET
if (optind + 1 < ac)
goto usage;
else if (optind + 1 == ac)
contacthost = av[ac - 1];
#else
if (optind < ac)
goto usage;
#endif
#ifdef INTERNET
serverlist_setup(contacthost, contactport);
if (Show_scores) {
const struct sockaddr_storage *host;
socklen_t hostlen;
u_short msg = C_SCORES;
unsigned i;
serverlist_query(msg);
for (i = 0; i < serverlist_num(); i++) {
host = serverlist_gethost(i, &hostlen);
dump_scores(host, hostlen);
}
exit(0);
}
if (Query_driver) {
const struct sockaddr_storage *host;
socklen_t hostlen;
u_short msg = C_MESSAGE;
u_short num_players;
unsigned i;
serverlist_query(msg);
for (i = 0; i < serverlist_num(); i++) {
host = serverlist_gethost(i, &hostlen);
num_players = ntohs(serverlist_getresponse(i));
printf("%d player%s hunting on %s!\n",
num_players, (num_players == 1) ? "" : "s",
lookuphost(host, hostlen));
}
exit(0);
}
#endif
#ifdef OTTO
if (Otto_mode)
(void) strncpy(name, "otto", sizeof(name));
else
#endif
fill_in_blanks();
(void) fflush(stdout);
if (!isatty(0) || (term = getenv("TERM")) == NULL)
errx(1, "no terminal type");
if (!initscr())
errx(0, "couldn't initialize screen");
(void) noecho();
(void) cbreak();
in_visual = true;
if (LINES < SCREEN_HEIGHT || COLS < SCREEN_WIDTH)
leavex(1, "Need a larger window");
clear_the_screen();
(void) signal(SIGINT, intr);
(void) signal(SIGTERM, sigterm);
(void) signal(SIGUSR1, sigusr1);
(void) signal(SIGPIPE, SIG_IGN);
for (;;) {
#ifdef INTERNET
find_driver();
if (Daemon.sin_port == 0)
leavex(1, "Game not found, try again");
jump_in:
do {
int option;
huntsocket = socket(SOCK_FAMILY, SOCK_STREAM, 0);
if (huntsocket < 0)
err(1, "socket");
option = 1;
if (setsockopt(huntsocket, SOL_SOCKET, SO_USELOOPBACK,
&option, sizeof option) < 0)
warn("setsockopt loopback");
errno = 0;
if (connect(huntsocket, (struct sockaddr *) &Daemon,
DAEMON_SIZE) < 0) {
if (errno != ECONNREFUSED) {
leave(1, "connect");
}
}
else
break;
sleep(1);
} while (close(huntsocket) == 0);
#else /* !INTERNET */
/*
* set up a socket
*/
if ((huntsocket = socket(SOCK_FAMILY, SOCK_STREAM, 0)) < 0)
err(1, "socket");
/*
* attempt to connect the socket to a name; if it fails that
* usually means that the driver isn't running, so we start
* up the driver.
*/
Daemon.sun_family = SOCK_FAMILY;
(void) strcpy(Daemon.sun_path, huntsockpath);
if (connect(huntsocket, &Daemon, DAEMON_SIZE) < 0) {
if (errno != ENOENT) {
leavex(1, "connect2");
}
start_driver();
do {
(void) close(huntsocket);
if ((huntsocket = socket(SOCK_FAMILY, SOCK_STREAM,
0)) < 0)
err(1, "socket");
sleep(2);
} while (connect(huntsocket, &Daemon, DAEMON_SIZE) < 0);
}
#endif
do_connect(name, sizeof(name), team, enter_status);
#ifdef INTERNET
if (Send_message != NULL) {
do_message();
if (enter_status == Q_MESSAGE)
break;
Send_message = NULL;
/* don't continue as that will call find_driver */
goto jump_in;
}
#endif
playit();
if ((enter_status = quit(enter_status)) == Q_QUIT)
break;
}
leavex(0, NULL);
/* NOTREACHED */
return(0);
}
play_fast() /* 15 frames/sec */
{
playit(4, 1);
}
play_backwards() /* -6 frames/sec */
{
playit(10, -1);
}
play_forwards() /* 6 frames/sec */
{
playit(10, 1);
}
play_slowly() /* 2 frames/sec */
{
playit(30, 1);
}
int
restore(char *file, char **envp)
{
FILE *inf;
extern char **environ;
char buf[LINELEN];
STAT sbuf2;
int oldcol, oldline; /* Old number of columns and lines */
if (strcmp(file, "-r") == 0)
file = file_name;
if ((inf = fopen(file, "r")) == NULL)
{
perror(file);
return FALSE;
}
fflush(stdout);
ENCREAD(buf, strlen(version) + 1, inf);
if (strcmp(buf, version) != 0)
{
printf("Sorry, saved game is out of date.\n");
return FALSE;
}
/*
* Get the lines and columns from the previous game
*/
ENCREAD(buf, 80, inf);
sscanf(buf, "%d x %d\n", &oldline, &oldcol);
stat(file, &sbuf2);
fflush(stdout);
/*
* Set the new terminal and make sure we aren't going to a smaller screen.
*/
initscr();
if (MY_COLS < oldcol || MY_LINES < oldline) {
printf("Cannot restart the game on a smaller screen.\n");
return FALSE;
}
cw = newwin(MY_LINES, MY_COLS, 0, 0);
mw = newwin(MY_LINES, MY_COLS, 0, 0);
hw = newwin(MY_LINES, MY_COLS, 0, 0);
msgw = newwin(4, MY_COLS, 0, 0);
keypad(cw,1);
keypad(msgw,1);
mpos = 0;
mvwprintw(cw, 0, 0, "%s: %s", file, ctime(&sbuf2.st_mtime));
/*
* defeat multiple restarting from the same place
*/
if (!wizard) {
if (sbuf2.st_nlink != 1) {
printf("Cannot restore from a linked file\n");
return FALSE;
}
}
if (rs_restore_file(inf) != 0)
{
endwin();
printf("\nCannot restore file\n");
return(FALSE);
}
if (!wizard)
{
if (md_unlink(file) < 0) {
fclose(inf); /* only close if system insists */
if (md_unlink(file) < 0) {
endwin();
printf("\nCannot unlink file\n");
return FALSE;
}
}
}
environ = envp;
strcpy(file_name, file);
setup();
clearok(curscr, TRUE);
touchwin(cw);
srand(md_getpid());
playit();
return(FALSE);
/*NOTREACHED*/
}
