xref: /dragonfly/games/hack/hack.main.c (revision f746689a) 
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.main.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.main.c,v 1.9 1999/11/16 10:26:36 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.main.c,v 1.4 2006/08/21 19:45:32 pavalos Exp $ */
5 
6 #include <sys/stat.h>
7 #include "hack.h"
8 
9 #ifdef QUEST
10 #define	gamename	"quest"
11 #else
12 #define	gamename	"hack"
13 #endif
14 
15 void (*afternmv)(void);
16 bool (*occupation)(void);
17 const char *occtxt;
18 
19 
20 int hackpid;				/* current pid */
21 int locknum;				/* max num of players */
22 #ifdef DEF_PAGER
23 char *catmore;				/* default pager */
24 #endif
25 char SAVEF[PL_NSIZ + 11] = "save/";	/* save/99999player */
26 char *hname;		/* name of the game (argv[0] of call) */
27 char obuf[BUFSIZ];	/* BUFSIZ is defined in stdio.h */
28 
29 extern long wailmsg;
30 
31 #ifdef CHDIR
32 static void	chdirx(const char *, bool);
33 #endif
34 
35 int
36 main(int argc, char *argv[])
37 {
38 	int fd;
39 #ifdef CHDIR
40 	char *dir;
41 #endif
42 
43 	hname = argv[0];
44 	hackpid = getpid();
45 
46 #ifdef CHDIR			/* otherwise no chdir() */
47 	/*
48 	 * See if we must change directory to the playground.
49 	 * (Perhaps hack runs suid and playground is inaccessible
50 	 *  for the player.)
51 	 * The environment variable HACKDIR is overridden by a
52 	 *  -d command line option (must be the first option given)
53 	 */
54 
55 	dir = getenv("HACKDIR");
56 	if(argc > 1 && !strncmp(argv[1], "-d", 2)) {
57 		argc--;
58 		argv++;
59 		dir = argv[0]+2;
60 		if(*dir == '=' || *dir == ':') dir++;
61 		if(!*dir && argc > 1) {
62 			argc--;
63 			argv++;
64 			dir = argv[0];
65 		}
66 		if(!*dir)
67 		    error("Flag -d must be followed by a directory name.");
68 	}
69 #endif
70 
71 	/*
72 	 * Who am i? Algorithm: 1. Use name as specified in HACKOPTIONS
73 	 *			2. Use $USER or $LOGNAME	(if 1. fails)
74 	 *			3. Use getlogin()		(if 2. fails)
75 	 * The resulting name is overridden by command line options.
76 	 * If everything fails, or if the resulting name is some generic
77 	 * account like "games", "play", "player", "hack" then eventually
78 	 * we'll ask him.
79 	 * Note that we trust him here; it is possible to play under
80 	 * somebody else's name.
81 	 */
82 	{ char *s;
83 
84 	  initoptions();
85 	  if(!*plname && (s = getenv("USER")))
86 		strncpy(plname, s, sizeof(plname)-1);
87 	  if(!*plname && (s = getenv("LOGNAME")))
88 		strncpy(plname, s, sizeof(plname)-1);
89 	  if(!*plname && (s = getlogin()))
90 		strncpy(plname, s, sizeof(plname)-1);
91 	}
92 
93 	/*
94 	 * Now we know the directory containing 'record' and
95 	 * may do a prscore().
96 	 */
97 	if(argc > 1 && !strncmp(argv[1], "-s", 2)) {
98 #ifdef CHDIR
99 		chdirx(dir,0);
100 #endif
101 		prscore(argc, argv);
102 		exit(0);
103 	}
104 
105 	/*
106 	 * It seems he really wants to play.
107 	 * Remember tty modes, to be restored on exit.
108 	 */
109 	gettty();
110 	setbuf(stdout,obuf);
111 	umask(007);
112 	setrandom();
113 	startup();
114 	cls();
115 	u.uhp = 1;	/* prevent RIP on early quits */
116 	u.ux = FAR;	/* prevent nscr() */
117 	signal(SIGHUP, hangup);
118 
119 	/*
120 	 * Find the creation date of this game,
121 	 * so as to avoid restoring outdated savefiles.
122 	 */
123 	gethdate(hname);
124 
125 	/*
126 	 * We cannot do chdir earlier, otherwise gethdate will fail.
127 	 */
128 #ifdef CHDIR
129 	chdirx(dir,1);
130 #endif
131 
132 	/*
133 	 * Process options.
134 	 */
135 	while(argc > 1 && argv[1][0] == '-'){
136 		argv++;
137 		argc--;
138 		switch(argv[0][1]){
139 #ifdef WIZARD
140 		case 'D':
141 				wizard = TRUE;
142 			break;
143 #endif
144 #ifdef NEWS
145 		case 'n':
146 			flags.nonews = TRUE;
147 			break;
148 #endif
149 		case 'u':
150 			if(argv[0][2])
151 			  strncpy(plname, argv[0]+2, sizeof(plname)-1);
152 			else if(argc > 1) {
153 			  argc--;
154 			  argv++;
155 			  strncpy(plname, argv[0], sizeof(plname)-1);
156 			} else
157 				printf("Player name expected after -u\n");
158 			break;
159 		default:
160 			/* allow -T for Tourist, etc. */
161 			strncpy(pl_character, argv[0]+1,
162 				sizeof(pl_character)-1);
163 		}
164 	}
165 
166 	if(argc > 1)
167 		locknum = atoi(argv[1]);
168 #ifdef MAX_NR_OF_PLAYERS
169 	if(!locknum || locknum > MAX_NR_OF_PLAYERS)
170 		locknum = MAX_NR_OF_PLAYERS;
171 #endif
172 #ifdef DEF_PAGER
173 	if(!(catmore = getenv("HACKPAGER")) && !(catmore = getenv("PAGER")))
174 		catmore = DEF_PAGER;
175 #endif
176 #ifdef MAIL
177 	getmailstatus();
178 #endif
179 #ifdef WIZARD
180 	if(wizard) strcpy(plname, "wizard"); else
181 #endif
182 	if(!*plname || !strncmp(plname, "player", 4)
183 		    || !strncmp(plname, "games", 4))
184 		askname();
185 	plnamesuffix();		/* strip suffix from name; calls askname() */
186 				/* again if suffix was whole name */
187 				/* accepts any suffix */
188 #ifdef WIZARD
189 	if(!wizard) {
190 #endif
191 		/*
192 		 * check for multiple games under the same name
193 		 * (if !locknum) or check max nr of players (otherwise)
194 		 */
195 		signal(SIGQUIT,SIG_IGN);
196 		signal(SIGINT,SIG_IGN);
197 		if(!locknum)
198 			strcpy(lock,plname);
199 		getlock();	/* sets lock if locknum != 0 */
200 #ifdef WIZARD
201 	} else {
202 		char *sfoo;
203 		strcpy(lock,plname);
204 		if((sfoo = getenv("MAGIC")))
205 			while(*sfoo) {
206 				switch(*sfoo++) {
207 				case 'n': srandom(*sfoo++);
208 					break;
209 				}
210 			}
211 		if((sfoo = getenv("GENOCIDED"))){
212 			if(*sfoo == '!'){
213 				struct permonst *pm = mons;
214 				char *gp = genocided;
215 
216 				while(pm < mons+CMNUM+2){
217 					if(!index(sfoo, pm->mlet))
218 						*gp++ = pm->mlet;
219 					pm++;
220 				}
221 				*gp = 0;
222 			} else
223 				strncpy(genocided, sfoo, sizeof(genocided)-1);
224 			strcpy(fut_geno, genocided);
225 		}
226 	}
227 #endif
228 	setftty();
229 	sprintf(SAVEF, "save/%d%s", getuid(), plname);
230 	regularize(SAVEF+5);		/* avoid . or / in name */
231 	if((fd = open(SAVEF,0)) >= 0 &&
232 	   (uptodate(fd) || unlink(SAVEF) == 666)) {
233 		signal(SIGINT,done1);
234 		pline("Restoring old save file...");
235 		fflush(stdout);
236 		if(!dorecover(fd))
237 			goto not_recovered;
238 		pline("Hello %s, welcome to %s!", plname, gamename);
239 		flags.move = 0;
240 	} else {
241 not_recovered:
242 		fobj = fcobj = invent = 0;
243 		fmon = fallen_down = 0;
244 		ftrap = 0;
245 		fgold = 0;
246 		flags.ident = 1;
247 		init_objects();
248 		u_init();
249 
250 		signal(SIGINT,done1);
251 		mklev();
252 		u.ux = xupstair;
253 		u.uy = yupstair;
254 		inshop();
255 		setsee();
256 		flags.botlx = 1;
257 		makedog();
258 		{ struct monst *mtmp;
259 		  if((mtmp = m_at(u.ux, u.uy))) mnexto(mtmp);	/* riv05!a3 */
260 		}
261 		seemons();
262 #ifdef NEWS
263 		if(flags.nonews || !readnews())
264 			/* after reading news we did docrt() already */
265 #endif
266 			docrt();
267 
268 		/* give welcome message before pickup messages */
269 		pline("Hello %s, welcome to %s!", plname, gamename);
270 
271 		pickup(1);
272 		read_engr_at(u.ux,u.uy);
273 		flags.move = 1;
274 	}
275 
276 	flags.moonphase = phase_of_the_moon();
277 	if(flags.moonphase == FULL_MOON) {
278 		pline("You are lucky! Full moon tonight.");
279 		u.uluck++;
280 	} else if(flags.moonphase == NEW_MOON) {
281 		pline("Be careful! New moon tonight.");
282 	}
283 
284 	initrack();
285 
286 	for(;;) {
287 		if(flags.move) {	/* actual time passed */
288 
289 			settrack();
290 
291 			if(moves%2 == 0 ||
292 			  (!(Fast & ~INTRINSIC) && (!Fast || rn2(3)))) {
293 				movemon();
294 				if(!rn2(70))
295 				    makemon(NULL, 0, 0);
296 			}
297 			if(Glib) glibr();
298 			p_timeout();
299 			++moves;
300 			if(flags.time) flags.botl = 1;
301 			if(u.uhp < 1) {
302 				pline("You die...");
303 				done("died");
304 			}
305 			if(u.uhp*10 < u.uhpmax && moves-wailmsg > 50){
306 			    wailmsg = moves;
307 			    if(u.uhp == 1)
308 			    pline("You hear the wailing of the Banshee...");
309 			    else
310 			    pline("You hear the howling of the CwnAnnwn...");
311 			}
312 			if(u.uhp < u.uhpmax) {
313 				if(u.ulevel > 9) {
314 					if(Regeneration || !(moves%3)) {
315 					    flags.botl = 1;
316 					    u.uhp += rnd((int) u.ulevel-9);
317 					    if(u.uhp > u.uhpmax)
318 						u.uhp = u.uhpmax;
319 					}
320 				} else if(Regeneration ||
321 					(!(moves%(22-u.ulevel*2)))) {
322 					flags.botl = 1;
323 					u.uhp++;
324 				}
325 			}
326 			if(Teleportation && !rn2(85)) tele();
327 			if(Searching && multi >= 0) dosearch();
328 			gethungry();
329 			invault();
330 			amulet();
331 		}
332 		if(multi < 0) {
333 			if(!++multi){
334 				pline(nomovemsg ? nomovemsg :
335 					"You can move again.");
336 				nomovemsg = 0;
337 				if(afternmv) (*afternmv)();
338 				afternmv = 0;
339 			}
340 		}
341 
342 		find_ac();
343 #ifndef QUEST
344 		if(!flags.mv || Blind)
345 #endif
346 		{
347 			seeobjs();
348 			seemons();
349 			nscr();
350 		}
351 		if(flags.botl || flags.botlx) bot();
352 
353 		flags.move = 1;
354 
355 		if(multi >= 0 && occupation) {
356 			if(monster_nearby())
357 				stop_occupation();
358 			else if ((*occupation)() == 0)
359 				occupation = 0;
360 			continue;
361 		}
362 
363 		if(multi > 0) {
364 #ifdef QUEST
365 			if(flags.run >= 4) finddir();
366 #endif
367 			lookaround();
368 			if(!multi) {	/* lookaround may clear multi */
369 				flags.move = 0;
370 				continue;
371 			}
372 			if(flags.mv) {
373 				if(multi < COLNO && !--multi)
374 					flags.mv = flags.run = 0;
375 				domove();
376 			} else {
377 				--multi;
378 				rhack(save_cm);
379 			}
380 		} else if(multi == 0) {
381 #ifdef MAIL
382 			ckmailstatus();
383 #endif
384 			rhack(NULL);
385 		}
386 		if(multi && multi%7 == 0)
387 			fflush(stdout);
388 	}
389 }
390 
391 void
392 glo(int foo)
393 {
394 	/* construct the string  xlock.n  */
395 	char *tf;
396 
397 	tf = lock;
398 	while(*tf && *tf != '.') tf++;
399 	(void) sprintf(tf, ".%d", foo);
400 }
401 
402 /*
403  * plname is filled either by an option (-u Player  or  -uPlayer) or
404  * explicitly (-w implies wizard) or by askname.
405  * It may still contain a suffix denoting pl_character.
406  */
407 void
408 askname(void)
409 {
410 int c,ct;
411 	printf("\nWho are you? ");
412 	fflush(stdout);
413 	ct = 0;
414 	while((c = getchar()) != '\n'){
415 		if(c == EOF) error("End of input\n");
416 		/* some people get confused when their erase char is not ^H */
417 		if(c == '\010') {
418 			if(ct) ct--;
419 			continue;
420 		}
421 		if(c != '-')
422 		if(c < 'A' || (c > 'Z' && c < 'a') || c > 'z') c = '_';
423 		if(ct < (int)sizeof(plname)-1) plname[ct++] = c;
424 	}
425 	plname[ct] = 0;
426 	if(ct == 0) askname();
427 }
428 
429 /*VARARGS1*/
430 void
431 impossible(const char *s, ...)
432 {
433 	va_list ap;
434 	va_start(ap, s);
435 	vpline(s, ap);
436 	va_end(ap);
437 	pline("Program in disorder - perhaps you'd better Quit.");
438 }
439 
440 #ifdef CHDIR
441 static void
442 chdirx(const char *dir, bool wr)
443 {
444 
445 #ifdef SECURE
446 	if(dir					/* User specified directory? */
447 #ifdef HACKDIR
448 	       && strcmp(dir, HACKDIR)		/* and not the default? */
449 #endif
450 		) {
451 		/* revoke */
452 		setgid(getgid());
453 	}
454 #endif
455 
456 #ifdef HACKDIR
457 	if(dir == NULL)
458 		dir = HACKDIR;
459 #endif
460 
461 	if(dir && chdir(dir) < 0) {
462 		perror(dir);
463 		error("Cannot chdir to %s.", dir);
464 	}
465 
466 	/* warn the player if he cannot write the record file */
467 	/* perhaps we should also test whether . is writable */
468 	/* unfortunately the access systemcall is worthless */
469 	if(wr) {
470 	    int fd;
471 
472 	    if(dir == NULL)
473 		dir = ".";
474 	    if((fd = open(RECORD, 2)) < 0) {
475 		printf("Warning: cannot write %s/%s", dir, RECORD);
476 		getret();
477 	    } else
478 		close(fd);
479 	}
480 }
481 #endif
482 
483 void
484 stop_occupation(void)
485 {
486 	if(occupation) {
487 		pline("You stop %s.", occtxt);
488 		occupation = 0;
489 	}
490 }
491