/* * Phantasia 3.3.2 -- Interterminal fantasy game * * Edward A. Estes * AT&T, March 12, 1986 */ /* DISCLAIMER: * * This game is distributed for free as is. It is not guaranteed to work * in every conceivable environment. It is not even guaranteed to work * in ANY environment. * * This game is distributed without notice of copyright, therefore it * may be used in any manner the recipient sees fit. However, the * author assumes no responsibility for maintaining or revising this * game, in its original form, or any derivitives thereof. * * The author shall not be responsible for any loss, cost, or damage, * including consequential damage, caused by reliance on this material. * * The author makes no warranties, express or implied, including warranties * of merchantability or fitness for a particular purpose or use. * * AT&T is in no way connected with this game. */ #include #include /* * The program allocates as much file space as it needs to store characters, * so the possibility exists for the character file to grow without bound. * The file is purged upon normal entry to try to avoid that problem. * A similar problem exists for energy voids. To alleviate the problem here, * the void file is cleared with every new king, and a limit is placed * on the size of the energy void file. */ /* * Put one line of text into the file 'motd' for announcements, etc. */ /* * The scoreboard file is updated when someone dies, and keeps track * of the highest character to date for that login. * Being purged from the character file does not cause the scoreboard * to be updated. */ /* * All source files are set up for 'vi' with shiftwidth=4, tabstop=8. */ /* */ /* * main.c Main routines for Phantasia */ #include "include.h" /*************************************************************************** / FUNCTION NAME: main() / / FUNCTION: initialize state, and call main process / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: / int argc - argument count / char **argv - argument vector / / RETURN VALUE: none / / MODULES CALLED: monstlist(), checkenemy(), activelist(), / throneroom(), checkbattle(), readmessage(), changestats(), writerecord(), / tradingpost(), adjuststats(), recallplayer(), displaystats(), checktampered(), / fabs(), rollnewplayer(), time(), exit(), sqrt(), floor(), wmove(), / signal(), strcat(), purgeoldplayers(), getuid(), isatty(), wclear(), / strcpy(), system(), altercoordinates(), cleanup(), waddstr(), procmain(), / playinit(), leavegame(), localtime(), getanswer(), neatstuff(), initialstate(), / scorelist(), titlelist() / / GLOBAL INPUTS: *Login, Throne, Wizard, Player, *stdscr, Changed, Databuf[], / Fileloc, Stattable[] / / GLOBAL OUTPUTS: Wizard, Player, Changed, Fileloc, Timeout, *Statptr / / DESCRIPTION: / Process arguments, initialize program, and loop forever processing / player input. / ****************************************************************************/ main(argc, argv) int argc; char **argv; { bool noheader = FALSE; /* set if don't want header */ bool headeronly = FALSE; /* set if only want header */ bool examine = FALSE; /* set if examine a character */ long seconds; /* for time of day */ double dtemp; /* for temporary calculations */ initialstate(); /* init globals */ /* process arguments */ while (--argc && (*++argv)[0] == '-') switch ((*argv)[1]) { case 's': /* short */ noheader = TRUE; break; case 'H': /* Header */ headeronly = TRUE; break; case 'a': /* all users */ activelist(); cleanup(TRUE); /*NOTREACHED*/ case 'p': /* purge old players */ purgeoldplayers(); cleanup(TRUE); /*NOTREACHED*/ case 'S': /* set 'Wizard' */ Wizard = !getuid(); break; case 'x': /* examine */ examine = TRUE; break; case 'm': /* monsters */ monstlist(); cleanup(TRUE); /*NOTREACHED*/ case 'b': /* scoreboard */ scorelist(); cleanup(TRUE); /*NOTREACHED*/ } if (!isatty(0)) /* don't let non-tty's play */ cleanup(TRUE); /*NOTREACHED*/ playinit(); /* set up to catch signals, init curses */ if (examine) { changestats(FALSE); cleanup(TRUE); /*NOTREACHED*/ } if (!noheader) { titlelist(); purgeoldplayers(); /* clean up old characters */ } if (headeronly) cleanup(TRUE); /*NOTREACHED*/ do /* get the player structure filled */ { Fileloc = -1L; mvaddstr(22, 17, "Do you have a character to run [Q = Quit] ? "); switch (getanswer("NYQ", FALSE)) { case 'Y': Fileloc = recallplayer(); break; case 'Q': cleanup(TRUE); /*NOTREACHED*/ default: Fileloc = rollnewplayer(); break; } clear(); } while (Fileloc < 0L); if (Player.p_level > 5.0) /* low level players have long timeout */ Timeout = TRUE; /* update some important player statistics */ strcpy(Player.p_login, Login); time(&seconds); Player.p_lastused = localtime(&seconds)->tm_yday; Player.p_status = S_PLAYING; writerecord(&Player, Fileloc); Statptr = &Stattable[Player.p_type]; /* initialize pointer */ /* catch interrupts */ #ifdef BSD41 sigset(SIGINT, interrupt); #endif #ifdef BSD42 signal(SIGINT, interrupt); #endif #ifdef SYS3 signal(SIGINT, interrupt); #endif #ifdef SYS5 signal(SIGINT, interrupt); #endif altercoordinates(Player.p_x, Player.p_y, A_FORCED); /* set some flags */ clear(); for (;;) /* loop forever, processing input */ { adjuststats(); /* cleanup stats */ if (Throne && Player.p_crowns == 0 && Player.p_specialtype != SC_KING) /* not allowed on throne -- move */ { mvaddstr(5,0,"You're not allowed in the Lord's Chamber without a crown.\n"); altercoordinates(0.0, 0.0, A_NEAR); } checktampered(); /* check for energy voids, etc. */ if (Player.p_status != S_CLOAKED /* not cloaked */ && (dtemp = fabs(Player.p_x)) == fabs(Player.p_y) /* |x| = |y| */ && !Throne) /* not on throne */ { dtemp = sqrt(dtemp / 100.0); if (floor(dtemp) == dtemp) /* |x| / 100 == n*n; at a trading post */ { tradingpost(); clear(); } } checkbattle(); /* check for player to player battle */ neatstuff(); /* gurus, medics, etc. */ if (Player.p_status == S_CLOAKED) /* costs 3 mana per turn to be cloaked */ if (Player.p_mana > 3.0) Player.p_mana -= 3.0; else /* ran out of mana, uncloak */ { Player.p_status = S_PLAYING; Changed = TRUE; } if (Player.p_status != S_PLAYING && Player.p_status != S_CLOAKED) /* change status back to S_PLAYING */ { Player.p_status = S_PLAYING; Changed = TRUE; } if (Changed) /* update file only if important stuff has changed */ { writerecord(&Player, Fileloc); Changed = FALSE; continue; } readmessage(); /* read message, if any */ displaystats(); /* print statistics */ move(6, 0); if (Throne) /* maybe make king, print prompt, etc. */ throneroom(); /* print status line */ addstr("1:Move 2:Players 3:Talk 4:Stats 5:Quit "); if (Player.p_level >= MEL_CLOAK && Player.p_magiclvl >= ML_CLOAK) addstr("6:Cloak "); if (Player.p_level >= MEL_TELEPORT && Player.p_magiclvl >= ML_TELEPORT) addstr("7:Teleport "); if (Player.p_specialtype >= SC_COUNCIL || Wizard) addstr("8:Intervene "); procmain(); /* process input */ } } /* */ /************************************************************************ / / FUNCTION NAME: initialstate() / / FUNCTION: initialize some important global variable / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: none / / RETURN VALUE: none / / MODULES CALLED: time(), fopen(), srandom(), error(), getuid(), getlogin(), / getpwuid() / / GLOBAL INPUTS: / / GLOBAL OUTPUTS: *Energyvoidfp, Echo, Marsh, *Login, Users, Beyond, / Throne, Wizard, Changed, Okcount, Timeout, Windows, *Monstfp, *Messagefp, / *Playersfp / / DESCRIPTION: / Set global flags, and open files which remain open. / *************************************************************************/ initialstate() { Beyond = FALSE; Marsh = FALSE; Throne = FALSE; Changed = FALSE; Wizard = FALSE; Timeout = FALSE; Users = 0; Windows = FALSE; Echo = TRUE; /* setup login name */ if ((Login = getlogin()) == NULL) Login = getpwuid(getuid())->pw_name; /* open some files */ if ((Playersfp = fopen(_PATH_PEOPLE, "r+")) == NULL) error(_PATH_PEOPLE); /*NOTREACHED*/ if ((Monstfp = fopen(_PATH_MONST, "r+")) == NULL) error(_PATH_MONST); /*NOTREACHED*/ if ((Messagefp = fopen(_PATH_MESS, "r")) == NULL) error(_PATH_MESS); /*NOTREACHED*/ if ((Energyvoidfp = fopen(_PATH_VOID, "r+")) == NULL) error(_PATH_VOID); /*NOTREACHED*/ srandomdev(); } /* */ /************************************************************************ / / FUNCTION NAME: rollnewplayer() / / FUNCTION: roll up a new character / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: none / / RETURN VALUE: none / / MODULES CALLED: initplayer(), allocrecord(), truncstring(), fabs(), wmove(), / wclear(), sscanf(), strcmp(), genchar(), waddstr(), findname(), mvprintw(), / getanswer(), getstring() / / GLOBAL INPUTS: Other, Wizard, Player, *stdscr, Databuf[] / / GLOBAL OUTPUTS: Echo / / DESCRIPTION: / Prompt player, and roll up new character. / *************************************************************************/ long rollnewplayer() { int chartype; /* character type */ int ch; /* input */ initplayer(&Player); /* initialize player structure */ clear(); mvaddstr(4, 21, "Which type of character do you want:"); mvaddstr(8, 4, "1:Magic User 2:Fighter 3:Elf 4:Dwarf 5:Halfling 6:Experimento "); if (Wizard) { addstr("7:Super ? "); chartype = getanswer("1234567", FALSE); } else { addstr("? "); chartype = getanswer("123456", FALSE); } do { genchar(chartype); /* roll up a character */ /* print out results */ mvprintw(12, 14, "Strength : %2.0f Quickness: %2.0f Mana : %2.0f\n", Player.p_strength, Player.p_quickness, Player.p_mana); mvprintw(13, 14, "Energy Level: %2.0f Brains : %2.0f Magic Level: %2.0f\n", Player.p_energy, Player.p_brains, Player.p_magiclvl); if (Player.p_type == C_EXPER || Player.p_type == C_SUPER) break; mvaddstr(14, 14, "Type '1' to keep >"); ch = getanswer(" ", TRUE); } while (ch != '1'); if (Player.p_type == C_EXPER || Player.p_type == C_SUPER) /* get coordinates for experimento */ for (;;) { mvaddstr(16, 0, "Enter the X Y coordinates of your experimento ? "); getstring(Databuf, SZ_DATABUF); sscanf(Databuf, "%lf %lf", &Player.p_x, &Player.p_y); if (fabs(Player.p_x) > D_EXPER || fabs(Player.p_y) > D_EXPER) mvaddstr(17, 0, "Invalid coordinates. Try again.\n"); else break; } for (;;) /* name the new character */ { mvprintw(18, 0, "Give your character a name [up to %d characters] ? ", SZ_NAME - 1); getstring(Player.p_name, SZ_NAME); truncstring(Player.p_name); /* remove trailing blanks */ if (Player.p_name[0] == '\0') /* no null names */ mvaddstr(19, 0, "Invalid name."); else if (findname(Player.p_name, &Other) >= 0L) /* cannot have duplicate names */ mvaddstr(19, 0, "Name already in use."); else /* name is acceptable */ break; addstr(" Pick another.\n"); } /* get a password for character */ Echo = FALSE; do { mvaddstr(20, 0, "Give your character a password [up to 8 characters] ? "); getstring(Player.p_password, SZ_PASSWORD); mvaddstr(21, 0, "One more time to verify ? "); getstring(Databuf, SZ_PASSWORD); } while (strcmp(Player.p_password, Databuf) != 0); Echo = TRUE; return(allocrecord()); } /* */ /************************************************************************ / / FUNCTION NAME: procmain() / / FUNCTION: process input from player / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: none / / RETURN VALUE: none / / MODULES CALLED: dotampered(), changestats(), inputoption(), allstatslist(), / fopen(), wmove(), drandom(), sscanf(), fclose(), altercoordinates(), / waddstr(), fprintf(), distance(), userlist(), leavegame(), encounter(), / getstring(), wclrtobot() / / GLOBAL INPUTS: Circle, Illcmd[], Throne, Wizard, Player, *stdscr, / Databuf[], Illmove[] / / GLOBAL OUTPUTS: Player, Changed / / DESCRIPTION: / Process main menu options. / *************************************************************************/ procmain() { int ch; /* input */ double x; /* desired new x coordinate */ double y; /* desired new y coordinate */ double temp; /* for temporary calculations */ FILE *fp; /* for opening files */ register int loop; /* a loop counter */ bool hasmoved = FALSE; /* set if player has moved */ ch = inputoption(); mvaddstr(4, 0, "\n\n"); /* clear status area */ move(7, 0); clrtobot(); /* clear data on bottom area of screen */ if (Player.p_specialtype == SC_VALAR && (ch == '1' || ch == '7')) /* valar cannot move */ ch = ' '; switch (ch) { case 'K': /* move up/north */ case 'N': x = Player.p_x; y = Player.p_y + MAXMOVE(); hasmoved = TRUE; break; case 'J': /* move down/south */ case 'S': x = Player.p_x; y = Player.p_y - MAXMOVE(); hasmoved = TRUE; break; case 'L': /* move right/east */ case 'E': x = Player.p_x + MAXMOVE(); y = Player.p_y; hasmoved = TRUE; break; case 'H': /* move left/west */ case 'W': x = Player.p_x - MAXMOVE(); y = Player.p_y; hasmoved = TRUE; break; default: /* rest */ Player.p_energy += (Player.p_maxenergy + Player.p_shield) / 15.0 + Player.p_level / 3.0 + 2.0; Player.p_energy = MIN(Player.p_energy, Player.p_maxenergy + Player.p_shield); if (Player.p_status != S_CLOAKED) /* cannot find mana if cloaked */ { Player.p_mana += (Circle + Player.p_level) / 4.0; if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne) /* wandering monster */ encounter(-1); } break; case 'X': /* change/examine a character */ changestats(TRUE); break; case '1': /* move */ for (loop = 3; loop; --loop) { mvaddstr(4, 0, "X Y Coordinates ? "); getstring(Databuf, SZ_DATABUF); if (sscanf(Databuf, "%lf %lf", &x, &y) != 2) mvaddstr(5, 0, "Try again\n"); else if (distance(Player.p_x, x, Player.p_y, y) > MAXMOVE()) ILLMOVE(); else { hasmoved = TRUE; break; } } break; case '2': /* players */ userlist(TRUE); break; case '3': /* message */ mvaddstr(4, 0, "Message ? "); getstring(Databuf, SZ_DATABUF); /* we open the file for writing to erase any data which is already there */ fp = fopen(_PATH_MESS, "w"); if (Databuf[0] != '\0') fprintf(fp, "%s: %s", Player.p_name, Databuf); fclose(fp); break; case '4': /* stats */ allstatslist(); break; case '5': /* good-bye */ leavegame(); /*NOTREACHED*/ case '6': /* cloak */ if (Player.p_level < MEL_CLOAK || Player.p_magiclvl < ML_CLOAK) ILLCMD(); else if (Player.p_status == S_CLOAKED) Player.p_status = S_PLAYING; else if (Player.p_mana < MM_CLOAK) mvaddstr(5, 0, "No mana left.\n"); else { Changed = TRUE; Player.p_mana -= MM_CLOAK; Player.p_status = S_CLOAKED; } break; case '7': /* teleport */ /* * conditions for teleport * - 20 per (level plus magic level) * - OR council of the wise or valar or ex-valar * - OR transport from throne * transports from throne cost no mana */ if (Player.p_level < MEL_TELEPORT || Player.p_magiclvl < ML_TELEPORT) ILLCMD(); else for (loop = 3; loop; --loop) { mvaddstr(4, 0, "X Y Coordinates ? "); getstring(Databuf, SZ_DATABUF); if (sscanf(Databuf, "%lf %lf", &x, &y) == 2) { temp = distance(Player.p_x, x, Player.p_y, y); if (!Throne /* can transport anywhere from throne */ && Player.p_specialtype <= SC_COUNCIL /* council, valar can transport anywhere */ && temp > (Player.p_level + Player.p_magiclvl) * 20.0) /* can only move 20 per exp. level + mag. level */ ILLMOVE(); else { temp = (temp / 75.0 + 1.0) * 20.0; /* mana used */ if (!Throne && temp > Player.p_mana) mvaddstr(5, 0, "Not enough power for that distance.\n"); else { if (!Throne) Player.p_mana -= temp; hasmoved = TRUE; break; } } } } break; case 'C': case '9': /* monster */ if (Throne) /* no monsters while on throne */ mvaddstr(5, 0, "No monsters in the chamber!\n"); else if (Player.p_specialtype != SC_VALAR) /* the valar cannot call monsters */ { Player.p_sin += 1e-6; encounter(-1); } break; case '0': /* decree */ if (Wizard || Player.p_specialtype == SC_KING && Throne) /* kings must be on throne to decree */ dotampered(); else ILLCMD(); break; case '8': /* intervention */ if (Wizard || Player.p_specialtype >= SC_COUNCIL) dotampered(); else ILLCMD(); break; } if (hasmoved) /* player has moved -- alter coordinates, and do random monster */ { altercoordinates(x, y, A_SPECIFIC); if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne) encounter(-1); } } /* */ /************************************************************************ / / FUNCTION NAME: titlelist() / / FUNCTION: print title page / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: none / / RETURN VALUE: none / / MODULES CALLED: fread(), fseek(), fopen(), fgets(), wmove(), strcpy(), / fclose(), strlen(), waddstr(), sprintf(), wrefresh() / / GLOBAL INPUTS: Lines, Other, *stdscr, Databuf[], *Playersfp / / GLOBAL OUTPUTS: Lines / / DESCRIPTION: / Print important information about game, players, etc. / *************************************************************************/ titlelist() { register FILE *fp; /* used for opening various files */ bool councilfound = FALSE; /* set if we find a member of the council */ bool kingfound = FALSE; /* set if we find a king */ double hiexp, nxtexp; /* used for finding the two highest players */ double hilvl, nxtlvl; /* used for finding the two highest players */ char hiname[21], nxtname[21];/* used for finding the two highest players */ mvaddstr(0, 14, "W e l c o m e t o P h a n t a s i a (vers. 3.3.2)!"); /* print message of the day */ if ((fp = fopen(_PATH_MOTD, "r")) != NULL && fgets(Databuf, SZ_DATABUF, fp) != NULL) { mvaddstr(2, 40 - strlen(Databuf) / 2, Databuf); fclose(fp); } /* search for king */ fseek(Playersfp, 0L, 0); while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) if (Other.p_specialtype == SC_KING && Other.p_status != S_NOTUSED) /* found the king */ { sprintf(Databuf, "The present ruler is %s Level:%.0f", Other.p_name, Other.p_level); mvaddstr(4, 40 - strlen(Databuf) / 2, Databuf); kingfound = TRUE; break; } if (!kingfound) mvaddstr(4, 24, "There is no ruler at this time."); /* search for valar */ fseek(Playersfp, 0L, 0); while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) if (Other.p_specialtype == SC_VALAR && Other.p_status != S_NOTUSED) /* found the valar */ { sprintf(Databuf, "The Valar is %s Login: %s", Other.p_name, Other.p_login); mvaddstr(6, 40 - strlen(Databuf) / 2 , Databuf); break; } /* search for council of the wise */ fseek(Playersfp, 0L, 0); Lines = 10; while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) if (Other.p_specialtype == SC_COUNCIL && Other.p_status != S_NOTUSED) /* found a member of the council */ { if (!councilfound) { mvaddstr(8, 30, "Council of the Wise:"); councilfound = TRUE; } /* This assumes a finite (<=5) number of C.O.W.: */ sprintf(Databuf, "%s Login: %s", Other.p_name, Other.p_login); mvaddstr(Lines++, 40 - strlen(Databuf) / 2, Databuf); } /* search for the two highest players */ nxtname[0] = hiname[0] = '\0'; hiexp = 0.0; nxtlvl = hilvl = 0; fseek(Playersfp, 0L, 0); while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) if (Other.p_experience > hiexp && Other.p_specialtype <= SC_KING && Other.p_status != S_NOTUSED) /* highest found so far */ { nxtexp = hiexp; hiexp = Other.p_experience; nxtlvl = hilvl; hilvl = Other.p_level; strcpy(nxtname, hiname); strcpy(hiname, Other.p_name); } else if (Other.p_experience > nxtexp && Other.p_specialtype <= SC_KING && Other.p_status != S_NOTUSED) /* next highest found so far */ { nxtexp = Other.p_experience; nxtlvl = Other.p_level; strcpy(nxtname, Other.p_name); } mvaddstr(15, 28, "Highest characters are:"); sprintf(Databuf, "%s Level:%.0f and %s Level:%.0f", hiname, hilvl, nxtname, nxtlvl); mvaddstr(17, 40 - strlen(Databuf) / 2, Databuf); /* print last to die */ if ((fp = fopen(_PATH_LASTDEAD,"r")) != NULL && fgets(Databuf, SZ_DATABUF, fp) != NULL) { mvaddstr(19, 25, "The last character to die was:"); mvaddstr(20, 40 - strlen(Databuf) / 2,Databuf); fclose(fp); } refresh(); } /* */ /************************************************************************ / / FUNCTION NAME: recallplayer() / / FUNCTION: find a character on file / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: none / / RETURN VALUE: none / / MODULES CALLED: writerecord(), truncstring(), more(), death(), wmove(), / wclear(), strcmp(), printw(), cleanup(), waddstr(), findname(), mvprintw(), / getanswer(), getstring() / / GLOBAL INPUTS: Player, *stdscr, Databuf[] / / GLOBAL OUTPUTS: Echo, Player / / DESCRIPTION: / Search for a character of a certain name, and check password. / *************************************************************************/ long recallplayer() { long loc = 0L; /* location in player file */ register int loop; /* loop counter */ int ch; /* input */ clear(); mvprintw(10, 0, "What was your character's name ? "); getstring(Databuf, SZ_NAME); truncstring(Databuf); if ((loc = findname(Databuf, &Player)) >= 0L) /* found character */ { Echo = FALSE; for (loop = 0; loop < 2; ++loop) { /* prompt for password */ mvaddstr(11, 0, "Password ? "); getstring(Databuf, SZ_PASSWORD); if (strcmp(Databuf, Player.p_password) == 0) /* password good */ { Echo = TRUE; if (Player.p_status != S_OFF) /* player did not exit normally last time */ { clear(); addstr("Your character did not exit normally last time.\n"); addstr("If you think you have good cause to have your character saved,\n"); printw("you may quit and mail your reason to 'root'.\n"); addstr("Otherwise, continuing spells certain death.\n"); addstr("Do you want to quit ? "); ch = getanswer("YN", FALSE); if (ch == 'Y') { Player.p_status = S_HUNGUP; writerecord(&Player, loc); cleanup(TRUE); /*NOTREACHED*/ } death("Stupidity"); /*NOTREACHED*/ } return(loc); } else mvaddstr(12, 0, "No good.\n"); } Echo = TRUE; } else mvaddstr(11, 0, "Not found.\n"); more(13); return(-1L); } /* */ /************************************************************************ / / FUNCTION NAME: neatstuff() / / FUNCTION: do random stuff / / AUTHOR: E. A. Estes, 3/3/86 / / ARGUMENTS: none / / RETURN VALUE: none / / MODULES CALLED: collecttaxes(), floor(), wmove(), drandom(), infloat(), / waddstr(), mvprintw(), getanswer() / / GLOBAL INPUTS: Player, *stdscr, *Statptr / / GLOBAL OUTPUTS: Player / / DESCRIPTION: / Handle gurus, medics, etc. / *************************************************************************/ neatstuff() { double temp; /* for temporary calculations */ int ch; /* input */ switch ((int) ROLL(0.0, 100.0)) { case 1: case 2: if (Player.p_poison > 0.0) { mvaddstr(4, 0, "You've found a medic! How much will you offer to be cured ? "); temp = floor(infloat()); if (temp < 0.0 || temp > Player.p_gold) /* negative gold, or more than available */ { mvaddstr(6, 0, "He was not amused, and made you worse.\n"); Player.p_poison += 1.0; } else if (drandom() / 2.0 > (temp + 1.0) / MAX(Player.p_gold, 1)) /* medic wants 1/2 of available gold */ mvaddstr(5, 0, "Sorry, he wasn't interested.\n"); else { mvaddstr(5, 0, "He accepted."); Player.p_poison = MAX(0.0, Player.p_poison - 1.0); Player.p_gold -= temp; } } break; case 3: mvaddstr(4, 0, "You've been caught raping and pillaging!\n"); Player.p_experience += 4000.0; Player.p_sin += 0.5; break; case 4: temp = ROLL(10.0, 75.0); mvprintw(4, 0, "You've found %.0f gold pieces, want them ? ", temp); ch = getanswer("NY", FALSE); if (ch == 'Y') collecttaxes(temp, 0.0); break; case 5: if (Player.p_sin > 1.0) { mvaddstr(4, 0, "You've found a Holy Orb!\n"); Player.p_sin -= 0.25; } break; case 6: if (Player.p_poison < 1.0) { mvaddstr(4, 0, "You've been hit with a plague!\n"); Player.p_poison += 1.0; } break; case 7: mvaddstr(4, 0, "You've found some holy water.\n"); ++Player.p_holywater; break; case 8: mvaddstr(4, 0, "You've met a Guru. . ."); if (drandom() * Player.p_sin > 1.0) addstr("You disgusted him with your sins!\n"); else if (Player.p_poison > 0.0) { addstr("He looked kindly upon you, and cured you.\n"); Player.p_poison = 0.0; } else { addstr("He rewarded you for your virtue.\n"); Player.p_mana += 50.0; Player.p_shield += 2.0; } break; case 9: mvaddstr(4, 0, "You've found an amulet.\n"); ++Player.p_amulets; break; case 10: if (Player.p_blindness) { mvaddstr(4, 0, "You've regained your sight!\n"); Player.p_blindness = FALSE; } break; default: /* deal with poison */ if (Player.p_poison > 0.0) { temp = Player.p_poison * Statptr->c_weakness * Player.p_maxenergy / 600.0; if (Player.p_energy > Player.p_maxenergy / 10.0 && temp + 5.0 < Player.p_energy) Player.p_energy -= temp; } break; } } /* */ /************************************************************************ / / FUNCTION NAME: genchar() / / FUNCTION: generate a random character / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: / int type - ASCII value of character type to generate / / RETURN VALUE: none / / MODULES CALLED: floor(), drandom() / / GLOBAL INPUTS: Wizard, Player, Stattable[] / / GLOBAL OUTPUTS: Player / / DESCRIPTION: / Use the lookup table for rolling stats. / *************************************************************************/ genchar(type) int type; { register int subscript; /* used for subscripting into Stattable */ register struct charstats *statptr;/* for pointing into Stattable */ subscript = type - '1'; if (subscript < C_MAGIC || subscript > C_EXPER) if (subscript != C_SUPER || !Wizard) /* fighter is default */ subscript = C_FIGHTER; statptr = &Stattable[subscript]; Player.p_quickness = ROLL(statptr->c_quickness.base, statptr->c_quickness.interval); Player.p_strength = ROLL(statptr->c_strength.base, statptr->c_strength.interval); Player.p_mana = ROLL(statptr->c_mana.base, statptr->c_mana.interval); Player.p_maxenergy = Player.p_energy = ROLL(statptr->c_energy.base, statptr->c_energy.interval); Player.p_brains = ROLL(statptr->c_brains.base, statptr->c_brains.interval); Player.p_magiclvl = ROLL(statptr->c_magiclvl.base, statptr->c_magiclvl.interval); Player.p_type = subscript; if (Player.p_type == C_HALFLING) /* give halfling some experience */ Player.p_experience = ROLL(600.0, 200.0); } /* */ /************************************************************************ / / FUNCTION NAME: playinit() / / FUNCTION: initialize for playing game / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: none / / RETURN VALUE: none / / MODULES CALLED: signal(), wclear(), noecho(), crmode(), initscr(), / wrefresh() / / GLOBAL INPUTS: *stdscr, ill_sig() / / GLOBAL OUTPUTS: Windows / / DESCRIPTION: / Catch a bunch of signals, and turn on curses stuff. / *************************************************************************/ playinit() { /* catch/ingnore signals */ #ifdef BSD41 sigignore(SIGQUIT); sigignore(SIGALRM); sigignore(SIGTERM); sigignore(SIGTSTP); sigignore(SIGTTIN); sigignore(SIGTTOU); sighold(SIGINT); sigset(SIGHUP, ill_sig); sigset(SIGTRAP, ill_sig); sigset(SIGIOT, ill_sig); sigset(SIGEMT, ill_sig); sigset(SIGFPE, ill_sig); sigset(SIGBUS, ill_sig); sigset(SIGSEGV, ill_sig); sigset(SIGSYS, ill_sig); sigset(SIGPIPE, ill_sig); #endif #ifdef BSD42 signal(SIGQUIT, ill_sig); signal(SIGALRM, SIG_IGN); signal(SIGTERM, SIG_IGN); signal(SIGTSTP, SIG_IGN); signal(SIGTTIN, SIG_IGN); signal(SIGTTOU, SIG_IGN); signal(SIGINT, ill_sig); signal(SIGHUP, SIG_DFL); signal(SIGTRAP, ill_sig); signal(SIGIOT, ill_sig); signal(SIGEMT, ill_sig); signal(SIGFPE, ill_sig); signal(SIGBUS, ill_sig); signal(SIGSEGV, ill_sig); signal(SIGSYS, ill_sig); signal(SIGPIPE, ill_sig); #endif #ifdef SYS3 signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN); signal(SIGTERM, SIG_IGN); signal(SIGALRM, SIG_IGN); signal(SIGHUP, ill_sig); signal(SIGTRAP, ill_sig); signal(SIGIOT, ill_sig); signal(SIGEMT, ill_sig); signal(SIGFPE, ill_sig); signal(SIGBUS, ill_sig); signal(SIGSEGV, ill_sig); signal(SIGSYS, ill_sig); signal(SIGPIPE, ill_sig); #endif #ifdef SYS5 signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN); signal(SIGTERM, SIG_IGN); signal(SIGALRM, SIG_IGN); signal(SIGHUP, ill_sig); signal(SIGTRAP, ill_sig); signal(SIGIOT, ill_sig); signal(SIGEMT, ill_sig); signal(SIGFPE, ill_sig); signal(SIGBUS, ill_sig); signal(SIGSEGV, ill_sig); signal(SIGSYS, ill_sig); signal(SIGPIPE, ill_sig); #endif initscr(); /* turn on curses */ noecho(); /* do not echo input */ crmode(); /* do not process erase, kill */ clear(); refresh(); Windows = TRUE; /* mark the state */ } /* */ /************************************************************************ / / FUNCTION NAME: cleanup() / / FUNCTION: close some files, and maybe exit / / AUTHOR: E. A. Estes, 12/4/85 / / ARGUMENTS: / bool doexit - exit flag / / RETURN VALUE: none / / MODULES CALLED: exit(), wmove(), fclose(), endwin(), nocrmode(), wrefresh() / / GLOBAL INPUTS: *Energyvoidfp, LINES, *stdscr, Windows, *Monstfp, / *Messagefp, *Playersfp / / GLOBAL OUTPUTS: none / / DESCRIPTION: / Close all open files. If we are "in curses" terminate curses. / If 'doexit' is set, exit, otherwise return. / *************************************************************************/ cleanup(doexit) bool doexit; { if (Windows) { move(LINES - 2, 0); refresh(); nocrmode(); endwin(); } fclose(Playersfp); fclose(Monstfp); fclose(Messagefp); fclose(Energyvoidfp); if (doexit) exit(0); /*NOTREACHED*/ }