Mercurial > hg > early-roguelike

comparison arogue5/main.c @ 63:0ed67132cf10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import Advanced Rogue 5.8 from the Roguelike Restoration Project (r1490)
author elwin
date Thu, 09 Aug 2012 22:58:48 +0000
parents
children a98834ce7e04
comparison
equal deleted inserted replaced
62:0ef99244acb8 63:0ed67132cf10
1 /*
2 * Rogue
3 *
4 * Advanced Rogue
5 * Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka and AT&T
6 * All rights reserved.
7 *
8 * Based on "Rogue: Exploring the Dungeons of Doom"
9 * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
10 * All rights reserved.
11 *
12 * See the file LICENSE.TXT for full copyright and licensing information.
13 */
14
15 #include "curses.h"
16 #include <fcntl.h>
17 #include <sys/stat.h>
18 #include <limits.h>
19 #include <signal.h>
20 #include <time.h>
21 #include "mach_dep.h"
22 #include "network.h"
23 #include "rogue.h"
24
25 #ifdef CHECKTIME
26 static int num_checks; /* times we've gone over in checkout() */
27 #endif
28
29 /*
30 * fruits that you get at startup
31 */
32 static char *funfruit[] = {
33 "candleberry", "caprifig", "dewberry", "elderberry",
34 "gooseberry", "guanabana", "hagberry", "ilama",
35 "imbu", "jaboticaba", "jujube", "litchi",
36 "mombin", "pitanga", "prickly pear", "rambutan",
37 "sapodilla", "soursop", "sweetsop", "whortleberry",
38 "jellybean", "apple", "strawberry", "blueberry",
39 "peach", "banana"
40 };
41 #define NFRUIT (sizeof(funfruit) / sizeof (char *))
42
43 main(argc, argv, envp)
44 char **argv;
45 char **envp;
46 {
47 register char *env;
48 int lowtime;
49 time_t now;
50 char *roguedir = md_getroguedir();
51
52 md_init();
53
54 /*
55 * get home and options from environment
56 */
57
58 strncpy(home,md_gethomedir(),LINELEN);
59
60 /* Get default save file */
61 strcpy(file_name, home);
62 strcat(file_name, "arogue58.sav");
63
64 /* Get default score file */
65 strcpy(score_file, roguedir);
66
67 if (*score_file)
68 strcat(score_file,"/");
69
70 strcat(score_file, "arogue58.scr");
71
72 if ((env = getenv("ROGUEOPTS")) != NULL)
73 parse_opts(env);
74
75 if (whoami[0] == '\0')
76 strucpy(whoami, md_getusername(), strlen(md_getusername()));
77
78 if (env == NULL || fruit[0] == '\0') {
79 md_srand((long)(getpid()+time(0)));
80 strcpy(fruit, funfruit[rnd(NFRUIT)]);
81 }
82
83 /*
84 * check for print-score option
85 */
86 if (argc == 2 && strcmp(argv[1], "-s") == 0)
87 {
88 waswizard = TRUE;
89 score(0, SCOREIT, 0);
90 exit(0);
91 }
92
93 #ifdef NUMNET
94 /*
95 * Check for a network update
96 */
97 if (argc == 2 && strcmp(argv[1], "-u") == 0) {
98 unsigned long netread();
99 int errcheck, errors = 0;
100 unsigned long amount;
101 short monster;
102
103 /* Read in the amount and monster values to pass to score */
104 amount = netread(&errcheck, sizeof(unsigned long), stdin);
105 if (errcheck) errors++;
106
107 monster = (short) netread(&errcheck, sizeof(short), stdin);
108 if (errcheck) errors++;
109
110 /* Now do the update if there were no errors */
111 if (errors) exit(1);
112 else {
113 score(amount, UPDATE, monster);
114 exit(0);
115 }
116 }
117 #endif
118
119 #ifdef WIZARD
120 /*
121 * Check to see if he is a wizard
122 */
123 if (argc >= 2 && argv[1][0] == '\0')
124 if (strcmp(PASSWD, md_crypt(md_getpass("Wizard's password: "), "Si")) == 0)
125 {
126 printf("Hail Mighty Wizard\n");
127 wizard = TRUE;
128 argv++;
129 argc--;
130 }
131 #endif
132
133 #if MAXLOAD|MAXUSERS
134 if (too_much() && !wizard && !author())
135 {
136 printf("Sorry, %s, but the system is too loaded now.\n", whoami);
137 printf("Try again later. Meanwhile, why not enjoy a%s %s?\n",
138 vowelstr(fruit), fruit);
139 exit(1);
140 }
141 #endif
142 if (argc == 2)
143 if (!restore(argv[1], envp)) /* Note: restore will never return */
144 exit(1);
145 lowtime = (int) time(&now);
146 dnum = (wizard && getenv("SEED") != NULL ?
147 atoi(getenv("SEED")) :
148 lowtime + getpid());
149 if (wizard)
150 printf("Hello %s, welcome to dungeon #%d\n", whoami, dnum);
151 else
152 printf("Hello %s, just a moment while I dig the dungeon...\n", whoami);
153 fflush(stdout);
154 seed = dnum;
155 md_srand(seed);
156
157 init_things(); /* Set up probabilities of things */
158 init_colors(); /* Set up colors of potions */
159 init_stones(); /* Set up stone settings of rings */
160 init_materials(); /* Set up materials of wands */
161 initscr(); /* Start up cursor package */
162 init_names(); /* Set up names of scrolls */
163 init_misc(); /* Set up miscellaneous magic */
164 if (LINES < 24 || COLS < 80) {
165 printf("\nERROR: screen size to small for rogue\n");
166 byebye(-1);
167 }
168
169 if ((whoami == NULL) || (*whoami == '\0') || (strcmp(whoami,"dosuser")==0))
170 {
171 echo();
172 mvaddstr(23,2,"Rogue's Name? ");
173 wgetnstr(stdscr,whoami,LINELEN);
174 noecho();
175 }
176
177 if ((whoami == NULL) || (*whoami == '\0'))
178 strcpy(whoami,"Rodney");
179
180 setup();
181 /*
182 * Set up windows
183 */
184 cw = newwin(LINES, COLS, 0, 0);
185 mw = newwin(LINES, COLS, 0, 0);
186 hw = newwin(LINES, COLS, 0, 0);
187 msgw = newwin(4, COLS, 0, 0);
188 keypad(cw,1);
189 keypad(msgw,1);
190
191 init_player(); /* Roll up the rogue */
192 waswizard = wizard;
193 new_level(NORMLEV); /* Draw current level */
194 /*
195 * Start up daemons and fuses
196 */
197 daemon(doctor, &player, AFTER);
198 fuse(swander, 0, WANDERTIME, AFTER);
199 daemon(stomach, 0, AFTER);
200 daemon(runners, 0, AFTER);
201 if (player.t_ctype == C_THIEF)
202 daemon(trap_look, 0, AFTER);
203
204 /* Choose a quest item */
205 quest_item = rnd(MAXRELIC);
206 msg("You have been quested to retrieve the %s....",
207 rel_magic[quest_item].mi_name);
208 mpos = 0;
209 playit();
210 }
211
212 /*
213 * endit:
214 * Exit the program abnormally.
215 */
216 void
217 endit(int sig)
218 {
219 NOOP(sig);
220
221 fatal("Ok, if you want to exit that badly, I'll have to allow it\n");
222 }
223
224 /*
225 * fatal:
226 * Exit the program, printing a message.
227 */
228
229 fatal(s)
230 char *s;
231 {
232 clear();
233 move(LINES-2, 0);
234 printw("%s", s);
235 draw(stdscr);
236 endwin();
237 printf("\n"); /* So the cursor doesn't stop at the end of the line */
238 exit(0);
239 }
240
241 /*
242 * rnd:
243 * Pick a very random number.
244 */
245
246 rnd(range)
247 register int range;
248 {
249 return(range == 0 ? 0 : md_rand() % range);
250 }
251
252 /*
253 * roll:
254 * roll a number of dice
255 */
256
257 roll(number, sides)
258 register int number, sides;
259 {
260 register int dtotal = 0;
261
262 while(number--)
263 dtotal += rnd(sides)+1;
264 return dtotal;
265 }
266 # ifdef SIGTSTP
267 /*
268 * handle stop and start signals
269 */
270 void
271 tstp(int a)
272 {
273 mvcur(0, COLS - 1, LINES - 1, 0);
274 endwin();
275 fflush(stdout);
276 kill(0, SIGTSTP);
277 signal(SIGTSTP, tstp);
278 raw();
279 noecho();
280 keypad(cw,1);
281 clearok(curscr, TRUE);
282 touchwin(cw);
283 draw(cw);
284 md_flushinp();
285 }
286 # endif
287
288 setup()
289 {
290 #ifdef CHECKTIME
291 int checkout();
292 #endif
293
294 #ifndef DUMP
295 #ifdef SIGHUP
296 signal(SIGHUP, auto_save);
297 #endif
298 signal(SIGILL, bugkill);
299 #ifdef SIGTRAP
300 signal(SIGTRAP, bugkill);
301 #endif
302 #ifdef SIGIOT
303 signal(SIGIOT, bugkill);
304 #endif
305 #if 0
306 signal(SIGEMT, bugkill);
307 signal(SIGFPE, bugkill);
308 signal(SIGBUS, bugkill);
309 signal(SIGSEGV, bugkill);
310 signal(SIGSYS, bugkill);
311 signal(SIGPIPE, bugkill);
312 #endif
313 signal(SIGTERM, auto_save);
314 #endif
315
316 signal(SIGINT, quit);
317 #ifndef DUMP
318 #ifdef SIGQUIT
319 signal(SIGQUIT, endit);
320 #endif
321 #endif
322 #ifdef SIGTSTP
323 signal(SIGTSTP, tstp);
324 #endif
325 #ifdef CHECKTIME
326 if (!author())
327 {
328 signal(SIGALRM, checkout);
329 alarm(CHECKTIME * 60);
330 num_checks = 0;
331 }
332 #endif
333 crmode(); /* Cbreak mode */
334 noecho(); /* Echo off */
335 }
336
337 /*
338 * playit:
339 * The main loop of the program. Loop until the game is over,
340 * refreshing things and looking at the proper times.
341 */
342
343 playit()
344 {
345 register char *opts;
346
347
348 /*
349 * parse environment declaration of options
350 */
351 if ((opts = getenv("ROGUEOPTS")) != NULL)
352 parse_opts(opts);
353
354
355 player.t_oldpos = hero;
356 oldrp = roomin(&hero);
357 after = TRUE;
358 while (playing)
359 command(); /* Command execution */
360 endit(0);
361 }
362
363 #if MAXLOAD|MAXUSERS
364 /*
365 * see if the system is being used too much for this game
366 */
367 too_much()
368 {
369 #ifdef MAXLOAD
370 double avec[3];
371 #endif
372
373 #ifdef MAXLOAD
374 loadav(avec);
375 return (avec[2] > (MAXLOAD / 10.0));
376 #else
377 return (ucount() > MAXUSERS);
378 #endif
379 }
380 #endif
381
382 /*
383 * author:
384 * See if a user is an author of the program
385 */