Annotation of early-roguelike/rogue3/main.c, Revision 1.1
1.1 ! rubenllo 1: /*
! 2: * @(#)main.c 3.27 (Berkeley) 6/15/81
! 3: *
! 4: * Rogue: Exploring the Dungeons of Doom
! 5: * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
! 6: * All rights reserved.
! 7: *
! 8: * See the file LICENSE.TXT for full copyright and licensing information.
! 9: */
! 10:
! 11: #include "curses.h"
! 12: #include <time.h>
! 13: #include <signal.h>
! 14: #include <limits.h>
! 15: #include <stdlib.h>
! 16: #include <stdarg.h>
! 17: #include <string.h>
! 18: #include "machdep.h"
! 19: #include "rogue.h"
! 20:
! 21: int num_checks = 0; /* times we've gone over in checkout() */
! 22: WINDOW *cw; /* Window that the player sees */
! 23: WINDOW *hw; /* Used for the help command */
! 24: WINDOW *mw; /* Used to store mosnters */
! 25: FILE *scoreboard = NULL;
! 26: FILE *logfi = NULL;
! 27:
! 28: int
! 29: main(int argc, char *argv[], char *envp[])
! 30: {
! 31: char *env;
! 32: struct linked_list *item;
! 33: struct object *obj;
! 34:
! 35: md_init(MD_STRIP_CTRL_KEYPAD);
! 36:
! 37: open_score();
! 38: open_log();
! 39:
! 40: /*
! 41: * check for print-score option
! 42: */
! 43: if (argc == 2 && strcmp(argv[1], "-s") == 0)
! 44: {
! 45: waswizard = TRUE;
! 46: score(0, -1, 0);
! 47: exit(0);
! 48: }
! 49:
! 50: #ifdef WIZARD
! 51: /*
! 52: * Check to see if he is a wizard
! 53: */
! 54: if (argc >= 2 && argv[1][0] == '\0')
! 55: if (strcmp(PASSWD, crypt(md_getpass("Wizard's password: "), "mT")) == 0)
! 56: {
! 57: wizard = TRUE;
! 58: argv++;
! 59: argc--;
! 60: }
! 61: #endif
! 62:
! 63: /* Are we using the system savefile directory? */
! 64: #ifdef SAVEDIR
! 65: if (argc >= 3 && !strcmp(argv[1], "-n"))
! 66: {
! 67: strncpy(whoami, argv[2], 79);
! 68: whoami[79] = '\0';
! 69: use_savedir = TRUE;
! 70: /* look for savefile at SAVEDIR/UID-playername.r3sav */
! 71: if (snprintf(file_name, 256, "%s/%d-%s.r3sav", SAVEDIR, md_getuid(), whoami) >= 256)
! 72: {
! 73: /* this shouldn't happen */
! 74: strcpy(file_name, "rogue3.save");
! 75: use_savedir = FALSE;
! 76: }
! 77: }
! 78: #endif
! 79:
! 80: if (use_savedir == FALSE)
! 81: {
! 82: md_normaluser();
! 83: /* because we don't need to create a file in the common savedir,
! 84: * and the scorefile is already open */
! 85: strcpy(home, md_gethomedir());
! 86:
! 87: if (strlen(home) > PATH_MAX - strlen("rogue3.save") - 1)
! 88: *home = 0;
! 89:
! 90: strcpy(file_name, home);
! 91: strcat(file_name, "rogue3.save");
! 92: }
! 93:
! 94: if ((env = getenv("ROGUEOPTS")) != NULL)
! 95: parse_opts(env);
! 96: if (!use_savedir && (env == NULL || whoami[0] == '\0'))
! 97: strucpy(whoami, md_getusername(), strlen(md_getusername()));
! 98: if (env == NULL || fruit[0] == '\0')
! 99: strcpy(fruit, "slime-mold");
! 100:
! 101: if (too_much() && !wizard && !author())
! 102: {
! 103: printf("Sorry, %s, but the system is too loaded now.\n", whoami);
! 104: printf("Try again later. Meanwhile, why not enjoy a%s %s?\n",
! 105: vowelstr(fruit), fruit);
! 106: exit(1);
! 107: }
! 108:
! 109: /* now start the game */
! 110: if (use_savedir)
! 111: {
! 112: /* Try to restore from file_name which we just set up. */
! 113: if (!restore(file_name, envp))
! 114: exit(1);
! 115: /* If restore() returns true, the system savefile doesn't exist.
! 116: So we'll start a new game. */
! 117: }
! 118: else if (argc == 2)
! 119: if (!restore(argv[1], envp)) /* Note: restore will never return */
! 120: exit(1);
! 121:
! 122: /* If we reach this point, either
! 123: * 1. A system savefile was specified and doesn't exist.
! 124: * 2. No savefile was specified.
! 125: * Either way, start a new game.
! 126: */
! 127:
! 128: if (!use_savedir)
! 129: md_normaluser();
! 130:
! 131: env = getenv("SEED");
! 132:
! 133: if (env)
! 134: seed = atoi(env);
! 135: else
! 136: seed = 0;
! 137:
! 138: if (seed > 0)
! 139: {
! 140: waswizard = 1; /* don't save scores if SEED specified */
! 141: dnum = seed;
! 142: }
! 143: else
! 144: dnum = md_random_seed();
! 145:
! 146: if (wizard || env)
! 147: printf("Hello %s, welcome to dungeon #%d\n", whoami, dnum);
! 148: else
! 149: printf("Hello %s, just a moment while I dig the dungeon...\n", whoami);
! 150:
! 151: fflush(stdout);
! 152: seed = dnum;
! 153: init_player(); /* Roll up the rogue */
! 154: init_things(); /* Set up probabilities of things */
! 155: init_names(); /* Set up names of scrolls */
! 156: init_colors(); /* Set up colors of potions */
! 157: init_stones(); /* Set up stone settings of rings */
! 158: init_materials(); /* Set up materials of wands */
! 159: initscr(); /* Start up cursor package */
! 160:
! 161: if (COLS < 70)
! 162: {
! 163: endwin();
! 164: printf("\n\nSorry, %s, but your terminal window has too few columns.\n", whoami);
! 165: printf("Your terminal has %d columns, needs 70.\n",COLS);
! 166: exit(1);
! 167: }
! 168: if (LINES < 22)
! 169: {
! 170: endwin();
! 171: printf("\n\nSorry, %s, but your terminal window has too few lines.\n", whoami);
! 172: printf("Your terminal has %d lines, needs 22.\n",LINES);
! 173: exit(1);
! 174: }
! 175:
! 176:
! 177: setup();
! 178: /*
! 179: * Set up windows
! 180: */
! 181: cw = newwin(LINES, COLS, 0, 0);
! 182: mw = newwin(LINES, COLS, 0, 0);
! 183: hw = newwin(LINES, COLS, 0, 0);
! 184: keypad(cw,1);
! 185: waswizard = wizard;
! 186: new_level(); /* Draw current level */
! 187: /*
! 188: * Start up daemons and fuses
! 189: */
! 190: start_daemon(doctor, 0, AFTER);
! 191: fuse(swander, 0, WANDERTIME, AFTER);
! 192: start_daemon(stomach, 0, AFTER);
! 193: start_daemon(runners, 0, AFTER);
! 194: /*
! 195: * Give the rogue his weaponry. First a mace.
! 196: */
! 197: item = new_item(sizeof *obj);
! 198: obj = (struct object *) ldata(item);
! 199: obj->o_type = WEAPON;
! 200: obj->o_which = MACE;
! 201: init_weapon(obj, MACE);
! 202: obj->o_hplus = 1;
! 203: obj->o_dplus = 1;
! 204: obj->o_flags |= ISKNOW;
! 205: add_pack(item, TRUE);
! 206: cur_weapon = obj;
! 207: /*
! 208: * Now a +1 bow
! 209: */
! 210: item = new_item(sizeof *obj);
! 211: obj = (struct object *) ldata(item);
! 212: obj->o_type = WEAPON;
! 213: obj->o_which = BOW;
! 214: init_weapon(obj, BOW);
! 215: obj->o_hplus = 1;
! 216: obj->o_dplus = 0;
! 217: obj->o_flags |= ISKNOW;
! 218: add_pack(item, TRUE);
! 219: /*
! 220: * Now some arrows
! 221: */
! 222: item = new_item(sizeof *obj);
! 223: obj = (struct object *) ldata(item);
! 224: obj->o_type = WEAPON;
! 225: obj->o_which = ARROW;
! 226: init_weapon(obj, ARROW);
! 227: obj->o_count = 25+rnd(15);
! 228: obj->o_hplus = obj->o_dplus = 0;
! 229: obj->o_flags |= ISKNOW;
! 230: add_pack(item, TRUE);
! 231: /*
! 232: * And his suit of armor
! 233: */
! 234: item = new_item(sizeof *obj);
! 235: obj = (struct object *) ldata(item);
! 236: obj->o_type = ARMOR;
! 237: obj->o_which = RING_MAIL;
! 238: obj->o_ac = a_class[RING_MAIL] - 1;
! 239: obj->o_flags |= ISKNOW;
! 240: cur_armor = obj;
! 241: add_pack(item, TRUE);
! 242: /*
! 243: * Give him some food too
! 244: */
! 245: item = new_item(sizeof *obj);
! 246: obj = (struct object *) ldata(item);
! 247: obj->o_type = FOOD;
! 248: obj->o_count = 1;
! 249: obj->o_which = 0;
! 250: add_pack(item, TRUE);
! 251: playit();
! 252: }
! 253:
! 254: /*
! 255: * endit:
! 256: * Exit the program abnormally.
! 257: */
! 258:
! 259: void
! 260: endit(int p)
! 261: {
! 262: fatal("Ok, if you want to exit that badly, I'll have to allow it\n");
! 263: }
! 264:
! 265: /*
! 266: * fatal:
! 267: * Exit the program, printing a message.
! 268: */
! 269:
! 270: void
! 271: fatal(char *s)
! 272: {
! 273: clear();
! 274: move(LINES-2, 0);
! 275: printw("%s", s);
! 276: draw(stdscr);
! 277: endwin();
! 278: exit(0);
! 279: }
! 280:
! 281: /*
! 282: * rnd:
! 283: * Pick a very random number.
! 284: */
! 285:
! 286: int
! 287: rnd(int range)
! 288: {
! 289: return range == 0 ? 0 : abs(RN) % range;
! 290: }
! 291:
! 292: /*
! 293: * roll:
! 294: * roll a number of dice
! 295: */
! 296:
! 297: int
! 298: roll(int number, int sides)
! 299: {
! 300: int dtotal = 0;
! 301:
! 302: while(number--)
! 303: dtotal += rnd(sides)+1;
! 304: return dtotal;
! 305: }
! 306: /*
! 307: * handle stop and start signals
! 308: */
! 309:
! 310: void
! 311: tstp(int p)
! 312: {
! 313: #ifdef SIGTSTP
! 314: signal(SIGTSTP, SIG_IGN);
! 315: #endif
! 316: mvcur(0, COLS - 1, LINES - 1, 0);
! 317: endwin();
! 318: fflush(stdout);
! 319: #ifdef SIGTSTP
! 320: signal(SIGTSTP, SIG_DFL);
! 321: kill(0, SIGTSTP);
! 322: signal(SIGTSTP, tstp);
! 323: #endif
! 324: nonl();
! 325: crmode();
! 326: noecho();
! 327: clearok(curscr, TRUE);
! 328: touchwin(cw);
! 329: draw(cw);
! 330: flush_type(); /* flush input */
! 331: }
! 332:
! 333: void
! 334: setup()
! 335: {
! 336: #ifdef SIGHUP
! 337: signal(SIGHUP, auto_save);
! 338: #endif
! 339: signal(SIGILL, auto_save);
! 340: #ifdef SIGTRAP
! 341: signal(SIGTRAP, auto_save);
! 342: #endif
! 343: #ifdef SIGIOT
! 344: signal(SIGIOT, auto_save);
! 345: #endif
! 346: #ifdef SIGEMT
! 347: signal(SIGEMT, auto_save);
! 348: #endif
! 349: signal(SIGFPE, auto_save);
! 350: #ifdef SIGBUS
! 351: signal(SIGBUS, auto_save);
! 352: #endif
! 353: signal(SIGSEGV, auto_save);
! 354: #ifdef SIGSYS
! 355: signal(SIGSYS, auto_save);
! 356: #endif
! 357: #ifdef SIGPIPE
! 358: signal(SIGPIPE, auto_save);
! 359: #endif
! 360: signal(SIGTERM, auto_save);
! 361: signal(SIGINT, quit);
! 362: #ifdef SIGQUIT
! 363: signal(SIGQUIT, endit);
! 364: #endif
! 365: #ifdef SIGTSTP
! 366: signal(SIGTSTP, tstp);
! 367: #endif
! 368:
! 369: if (!author())
! 370: {
! 371: md_start_checkout_timer(CHECKTIME * 60);
! 372: num_checks = 0;
! 373: }
! 374:
! 375: nonl();
! 376: crmode(); /* Cbreak mode */
! 377: noecho(); /* Echo off */
! 378: }
! 379:
! 380: /*
! 381: * playit:
! 382: * The main loop of the program. Loop until the game is over,
! 383: * refreshing things and looking at the proper times.
! 384: */
! 385:
! 386: void
! 387: playit()
! 388: {
! 389: char *opts;
! 390:
! 391: /*
! 392: * set up defaults for slow terminals
! 393: */
! 394:
! 395:
! 396: if (baudrate() < 1200)
! 397: {
! 398: terse = TRUE;
! 399: jump = TRUE;
! 400: }
! 401:
! 402: /*
! 403: * parse environment declaration of options
! 404: */
! 405: if ((opts = getenv("ROGUEOPTS")) != NULL)
! 406: parse_opts(opts);
! 407:
! 408:
! 409: oldpos = hero;
! 410: oldrp = roomin(&hero);
! 411: while (playing)
! 412: command(); /* Command execution */
! 413: endit(-1);
! 414: }
! 415:
! 416: /*
! 417: * see if the system is being used too much for this game
! 418: */
! 419: int
! 420: too_much()
! 421: {
! 422: double avec[3];
! 423:
! 424: #ifdef MAXLOAD
! 425: if (md_loadav(avec) == 0)
! 426: return (avec[2] > (MAXLOAD / 10.0));
! 427: #endif
! 428: #ifdef MAXUSERS
! 429: return (md_ucount() > MAXUSERS);
! 430: #endif
! 431: return 0;
! 432: }
! 433:
! 434: /*
! 435: * see if a user is an author of the program
! 436: */
! 437: int
! 438: author()
! 439: {
! 440: switch (md_getuid())
! 441: {
! 442: case AUTHORUID:
! 443: return TRUE;
! 444: default:
! 445: return FALSE;
! 446: }
! 447: }
! 448:
! 449: void
! 450: checkout(int p)
! 451: {
! 452: static char *msgs[] = {
! 453: "The load is too high to be playing. Please leave in %d minutes",
! 454: "Please save your game. You have %d minutes",
! 455: "Last warning. You have %d minutes to leave",
! 456: };
! 457: int checktime;
! 458: if (too_much())
! 459: {
! 460: if (num_checks >= 3)
! 461: fatal("Sorry. You took to long. You are dead\n");
! 462: checktime = CHECKTIME / (num_checks + 1);
! 463: if (num_checks < 3)
! 464: chmsg(msgs[num_checks++], checktime);
! 465: md_start_checkout_timer(checktime * 60);
! 466: }
! 467: else
! 468: {
! 469: if (num_checks)
! 470: {
! 471: chmsg("The load has dropped back down. You have a reprieve.");
! 472: num_checks = 0;
! 473: }
! 474: md_start_checkout_timer(CHECKTIME * 60);
! 475: }
! 476: }
! 477:
! 478: /*
! 479: * checkout()'s version of msg. If we are in the middle of a shell, do a
! 480: * printf instead of a msg to avoid the refresh.
! 481: */
! 482: void
! 483: chmsg(char *fmt, ...)
! 484: {
! 485: va_list args;
! 486:
! 487: if (in_shell)
! 488: {
! 489: va_start(args, fmt);
! 490: vprintf(fmt, args);
! 491: va_end(args);
! 492: putchar('\n');
! 493: fflush(stdout);
! 494: }
! 495: else
! 496: {
! 497: va_start(args, fmt);
! 498: doadd(fmt, args);
! 499: va_end(args);
! 500: endmsg();
! 501: }
! 502: }
CVSweb