Generally use NULL instead of explicitly casting 0 to some pointer type (part2).
[dragonfly.git] / games / hack / hack.main.c
CommitLineData
984263bc
MD
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 $ */
c7106d58 4/* $DragonFly: src/games/hack/hack.main.c,v 1.4 2006/08/21 19:45:32 pavalos Exp $ */
984263bc 5
c7106d58 6#include <sys/stat.h>
984263bc
MD
7#include "hack.h"
8
9#ifdef QUEST
10#define gamename "quest"
11#else
12#define gamename "hack"
13#endif
14
c7106d58
PA
15void (*afternmv)(void);
16bool (*occupation)(void);
fd2d026f 17const char *occtxt;
984263bc 18
984263bc
MD
19
20int hackpid; /* current pid */
21int locknum; /* max num of players */
22#ifdef DEF_PAGER
23char *catmore; /* default pager */
24#endif
25char SAVEF[PL_NSIZ + 11] = "save/"; /* save/99999player */
26char *hname; /* name of the game (argv[0] of call) */
27char obuf[BUFSIZ]; /* BUFSIZ is defined in stdio.h */
28
984263bc
MD
29extern long wailmsg;
30
31#ifdef CHDIR
c7106d58 32static void chdirx(const char *, bool);
984263bc
MD
33#endif
34
c7106d58
PA
35int
36main(int argc, char *argv[])
984263bc
MD
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")))
c7106d58 86 strncpy(plname, s, sizeof(plname)-1);
984263bc 87 if(!*plname && (s = getenv("LOGNAME")))
c7106d58 88 strncpy(plname, s, sizeof(plname)-1);
984263bc 89 if(!*plname && (s = getlogin()))
c7106d58 90 strncpy(plname, s, sizeof(plname)-1);
984263bc
MD
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() */
c7106d58 117 signal(SIGHUP, hangup);
984263bc
MD
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':
984263bc 141 wizard = TRUE;
984263bc
MD
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])
c7106d58 151 strncpy(plname, argv[0]+2, sizeof(plname)-1);
984263bc
MD
152 else if(argc > 1) {
153 argc--;
154 argv++;
c7106d58 155 strncpy(plname, argv[0], sizeof(plname)-1);
984263bc
MD
156 } else
157 printf("Player name expected after -u\n");
158 break;
159 default:
160 /* allow -T for Tourist, etc. */
c7106d58 161 strncpy(pl_character, argv[0]+1,
984263bc 162 sizeof(pl_character)-1);
984263bc
MD
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
c7106d58 180 if(wizard) strcpy(plname, "wizard"); else
984263bc
MD
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 */
c7106d58
PA
195 signal(SIGQUIT,SIG_IGN);
196 signal(SIGINT,SIG_IGN);
984263bc 197 if(!locknum)
c7106d58 198 strcpy(lock,plname);
984263bc
MD
199 getlock(); /* sets lock if locknum != 0 */
200#ifdef WIZARD
201 } else {
202 char *sfoo;
c7106d58
PA
203 strcpy(lock,plname);
204 if((sfoo = getenv("MAGIC")))
984263bc
MD
205 while(*sfoo) {
206 switch(*sfoo++) {
c7106d58 207 case 'n': srandom(*sfoo++);
984263bc
MD
208 break;
209 }
210 }
c7106d58 211 if((sfoo = getenv("GENOCIDED"))){
984263bc
MD
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
c7106d58
PA
223 strncpy(genocided, sfoo, sizeof(genocided)-1);
224 strcpy(fut_geno, genocided);
984263bc
MD
225 }
226 }
227#endif
228 setftty();
c7106d58 229 sprintf(SAVEF, "save/%d%s", getuid(), plname);
984263bc
MD
230 regularize(SAVEF+5); /* avoid . or / in name */
231 if((fd = open(SAVEF,0)) >= 0 &&
232 (uptodate(fd) || unlink(SAVEF) == 666)) {
c7106d58 233 signal(SIGINT,done1);
984263bc 234 pline("Restoring old save file...");
c7106d58 235 fflush(stdout);
984263bc
MD
236 if(!dorecover(fd))
237 goto not_recovered;
238 pline("Hello %s, welcome to %s!", plname, gamename);
239 flags.move = 0;
240 } else {
241not_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
c7106d58 250 signal(SIGINT,done1);
984263bc
MD
251 mklev();
252 u.ux = xupstair;
253 u.uy = yupstair;
c7106d58 254 inshop();
984263bc
MD
255 setsee();
256 flags.botlx = 1;
257 makedog();
258 { struct monst *mtmp;
c7106d58 259 if((mtmp = m_at(u.ux, u.uy))) mnexto(mtmp); /* riv05!a3 */
984263bc
MD
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)))) {
984263bc
MD
293 movemon();
294 if(!rn2(70))
60233e58 295 makemon(NULL, 0, 0);
984263bc
MD
296 }
297 if(Glib) glibr();
c7106d58 298 p_timeout();
984263bc
MD
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();
c7106d58 327 if(Searching && multi >= 0) dosearch();
984263bc
MD
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
902ec341 384 rhack(NULL);
984263bc
MD
385 }
386 if(multi && multi%7 == 0)
c7106d58 387 fflush(stdout);
984263bc
MD
388 }
389}
390
c7106d58
PA
391void
392glo(int foo)
984263bc
MD
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 */
c7106d58
PA
407void
408askname(void)
409{
984263bc
MD
410int c,ct;
411 printf("\nWho are you? ");
c7106d58 412 fflush(stdout);
984263bc
MD
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 = '_';
c7106d58 423 if(ct < (int)sizeof(plname)-1) plname[ct++] = c;
984263bc
MD
424 }
425 plname[ct] = 0;
426 if(ct == 0) askname();
427}
428
429/*VARARGS1*/
c7106d58
PA
430void
431impossible(const char *s, ...)
984263bc 432{
c7106d58
PA
433 va_list ap;
434 va_start(ap, s);
435 vpline(s, ap);
436 va_end(ap);
984263bc
MD
437 pline("Program in disorder - perhaps you'd better Quit.");
438}
439
440#ifdef CHDIR
441static void
c7106d58 442chdirx(const char *dir, bool wr)
984263bc
MD
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
c7106d58 478 close(fd);
984263bc
MD
479 }
480}
481#endif
482
c7106d58
PA
483void
484stop_occupation(void)
984263bc
MD
485{
486 if(occupation) {
487 pline("You stop %s.", occtxt);
488 occupation = 0;
489 }
490}