Mercurial > hg > early-roguelike

comparison rogue3/main.c @ 0:527e2150eaf0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import Rogue 3.6 from the Roguelike Restoration Project (r1490)
author edwarj4
date Tue, 13 Oct 2009 13:33:34 +0000
parents
children b4856d4d4c4e
comparison
equal deleted inserted replaced
-1:000000000000 0:527e2150eaf0
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
27 main(argc, argv, envp)
28 char **argv;
29 char **envp;
30 {
31 char *env;
32 struct linked_list *item;
33 struct object *obj;
34 int lowtime;
35 time_t now;
36
37 md_init(MD_STRIP_CTRL_KEYPAD);
38
39 open_score();
40
41 /*
42 * Drop setuid/setgid after opening the scoreboard file.
43 */
44
45 md_normaluser();
46
47 /*
48 * check for print-score option
49 */
50 if (argc == 2 && strcmp(argv[1], "-s") == 0)
51 {
52 waswizard = TRUE;
53 score(0, -1, 0);
54 exit(0);
55 }
56 /*
57 * Check to see if he is a wizard
58 */
59 if (argc >= 2 && argv[1][0] == '\0')
60 if (strcmp(PASSWD, crypt(md_getpass("Wizard's password: "), "mT")) == 0)
61 {
62 wizard = TRUE;
63 argv++;
64 argc--;
65 }
66
67 /*
68 * get home and options from environment
69 */
70 strcpy(home, md_gethomedir());
71
72 if (strlen(home) > PATH_MAX - strlen("rogue.save") - 1)
73 *home = 0;
74
75 strcpy(file_name, home);
76 strcat(file_name, "rogue.save");
77
78 if ((env = getenv("ROGUEOPTS")) != NULL)
79 parse_opts(env);
80 if (env == NULL || whoami[0] == '\0')
81 strucpy(whoami, md_getusername(), strlen(md_getusername()));
82 if (env == NULL || fruit[0] == '\0')
83 strcpy(fruit, "slime-mold");
84
85 if (too_much() && !wizard && !author())
86 {
87 printf("Sorry, %s, but the system is too loaded now.\n", whoami);
88 printf("Try again later. Meanwhile, why not enjoy a%s %s?\n",
89 vowelstr(fruit), fruit);
90 exit(1);
91 }
92
93 if (argc == 2)
94 if (!restore(argv[1], envp)) /* Note: restore will never return */
95 exit(1);
96
97 time(&now);
98 lowtime = (int) now;
99
100 env = getenv("SEED");
101
102 if (env)
103 seed = atoi(env);
104 else
105 seed = 0;
106
107 if (seed > 0)
108 {
109 waswizard = 1; /* don't save scores if SEED specified */
110 dnum = seed;
111 }
112 else
113 dnum = lowtime + md_getpid();
114
115 if (wizard || env)
116 printf("Hello %s, welcome to dungeon #%d", whoami, dnum);
117 else
118 printf("Hello %s, just a moment while I dig the dungeon...", whoami);
119
120 fflush(stdout);
121 seed = dnum;
122 init_player(); /* Roll up the rogue */
123 init_things(); /* Set up probabilities of things */
124 init_names(); /* Set up names of scrolls */
125 init_colors(); /* Set up colors of potions */
126 init_stones(); /* Set up stone settings of rings */
127 init_materials(); /* Set up materials of wands */
128 initscr(); /* Start up cursor package */
129
130 if (COLS < 70)
131 {
132 endwin();
133 printf("\n\nSorry, %s, but your terminal window has too few columns.\n", whoami);
134 printf("Your terminal has %d columns, needs 70.\n",COLS);
135 exit(1);
136 }
137 if (LINES < 22)
138 {
139 endwin();
140 printf("\n\nSorry, %s, but your terminal window has too few lines.\n", whoami);
141 printf("Your terminal has %d lines, needs 22.\n",LINES);
142 exit(1);
143 }
144
145
146 setup();
147 /*
148 * Set up windows
149 */
150 cw = newwin(LINES, COLS, 0, 0);
151 mw = newwin(LINES, COLS, 0, 0);
152 hw = newwin(LINES, COLS, 0, 0);
153 keypad(cw,1);
154 waswizard = wizard;
155 new_level(); /* Draw current level */
156 /*
157 * Start up daemons and fuses
158 */
159 start_daemon(doctor, 0, AFTER);
160 fuse(swander, 0, WANDERTIME, AFTER);
161 start_daemon(stomach, 0, AFTER);
162 start_daemon(runners, 0, AFTER);
163 /*
164 * Give the rogue his weaponry. First a mace.
165 */
166 item = new_item(sizeof *obj);
167 obj = (struct object *) ldata(item);
168 obj->o_type = WEAPON;
169 obj->o_which = MACE;
170 init_weapon(obj, MACE);
171 obj->o_hplus = 1;
172 obj->o_dplus = 1;
173 obj->o_flags |= ISKNOW;
174 add_pack(item, TRUE);
175 cur_weapon = obj;
176 /*
177 * Now a +1 bow
178 */
179 item = new_item(sizeof *obj);
180 obj = (struct object *) ldata(item);
181 obj->o_type = WEAPON;
182 obj->o_which = BOW;
183 init_weapon(obj, BOW);
184 obj->o_hplus = 1;
185 obj->o_dplus = 0;
186 obj->o_flags |= ISKNOW;
187 add_pack(item, TRUE);
188 /*
189 * Now some arrows
190 */
191 item = new_item(sizeof *obj);
192 obj = (struct object *) ldata(item);
193 obj->o_type = WEAPON;
194 obj->o_which = ARROW;
195 init_weapon(obj, ARROW);
196 obj->o_count = 25+rnd(15);
197 obj->o_hplus = obj->o_dplus = 0;
198 obj->o_flags |= ISKNOW;
199 add_pack(item, TRUE);
200 /*
201 * And his suit of armor
202 */
203 item = new_item(sizeof *obj);
204 obj = (struct object *) ldata(item);
205 obj->o_type = ARMOR;
206 obj->o_which = RING_MAIL;
207 obj->o_ac = a_class[RING_MAIL] - 1;
208 obj->o_flags |= ISKNOW;
209 cur_armor = obj;
210 add_pack(item, TRUE);
211 /*
212 * Give him some food too
213 */
214 item = new_item(sizeof *obj);
215 obj = (struct object *) ldata(item);
216 obj->o_type = FOOD;
217 obj->o_count = 1;
218 obj->o_which = 0;
219 add_pack(item, TRUE);
220 playit();
221 }
222
223 /*
224 * endit:
225 * Exit the program abnormally.
226 */
227
228 void
229 endit(int p)
230 {
231 fatal("Ok, if you want to exit that badly, I'll have to allow it\n");
232 }
233
234 /*
235 * fatal:
236 * Exit the program, printing a message.
237 */
238
239 void
240 fatal(char *s)
241 {
242 clear();
243 move(LINES-2, 0);
244 printw("%s", s);
245 draw(stdscr);
246 endwin();
247 exit(0);
248 }
249
250 /*
251 * rnd:
252 * Pick a very random number.
253 */
254
255 int
256 rnd(int range)
257 {
258 return range == 0 ? 0 : abs(RN) % range;
259 }
260
261 /*
262 * roll:
263 * roll a number of dice
264 */
265
266 int
267 roll(int number, int sides)
268 {
269 int dtotal = 0;
270
271 while(number--)
272 dtotal += rnd(sides)+1;
273 return dtotal;
274 }
275 /*
276 * handle stop and start signals
277 */
278
279 void
280 tstp(int p)
281 {
282 #ifdef SIGTSTP
283 signal(SIGTSTP, SIG_IGN);
284 #endif
285 mvcur(0, COLS - 1, LINES - 1, 0);
286 endwin();
287 fflush(stdout);
288 #ifdef SIGTSTP
289 signal(SIGTSTP, SIG_DFL);
290 kill(0, SIGTSTP);
291 signal(SIGTSTP, tstp);
292 #endif
293 crmode();
294 noecho();
295 clearok(curscr, TRUE);
296 touchwin(cw);
297 draw(cw);
298 flush_type(); /* flush input */
299 }
300
301 void
302 setup()
303 {
304 #ifdef SIGHUP
305 signal(SIGHUP, auto_save);
306 #endif
307 signal(SIGILL, auto_save);
308 #ifdef SIGTRAP
309 signal(SIGTRAP, auto_save);
310 #endif
311 #ifdef SIGIOT
312 signal(SIGIOT, auto_save);
313 #endif
314 #ifdef SIGEMT
315 signal(SIGEMT, auto_save);
316 #endif
317 signal(SIGFPE, auto_save);
318 #ifdef SIGBUS
319 signal(SIGBUS, auto_save);
320 #endif
321 signal(SIGSEGV, auto_save);
322 #ifdef SIGSYS
323 signal(SIGSYS, auto_save);
324 #endif
325 #ifdef SIGPIPE
326 signal(SIGPIPE, auto_save);
327 #endif
328 signal(SIGTERM, auto_save);
329 signal(SIGINT, quit);
330 #ifdef SIGQUIT
331 signal(SIGQUIT, endit);
332 #endif
333 #ifdef SIGTSTP
334 signal(SIGTSTP, tstp);
335 #endif
336
337 if (!author())
338 {
339 #ifdef SIGALRM
340 signal(SIGALRM, checkout);
341 alarm(CHECKTIME * 60);
342 #endif
343 num_checks = 0;
344 }
345
346 crmode(); /* Cbreak mode */
347 noecho(); /* Echo off */
348 }
349
350 /*
351 * playit:
352 * The main loop of the program. Loop until the game is over,
353 * refreshing things and looking at the proper times.
354 */
355
356 void
357 playit()
358 {
359 char *opts;
360
361 /*
362 * set up defaults for slow terminals
363 */
364
365
366 if (baudrate() < 1200)
367 {
368 terse = TRUE;
369 jump = TRUE;
370 }
371
372 /*
373 * parse environment declaration of options
374 */
375 if ((opts = getenv("ROGUEOPTS")) != NULL)
376 parse_opts(opts);
377
378
379 oldpos = hero;
380 oldrp = roomin(&hero);
381 while (playing)
382 command(); /* Command execution */
383 endit(-1);
384 }
385
386 /*
387 * see if the system is being used too much for this game