1 /* NetHack 3.6 bemain.c $NHDT-Date: 1447844549 2015/11/18 11:02:29 $ $NHDT-Branch: master $:$NHDT-Revision: 1.18 $ */
2 /* Copyright (c) Dean Luick, 1996. */
3 /* NetHack may be freely redistributed. See license for details. */
4
5 #include "hack.h"
6 #include "dlb.h"
7 #include <fcntl.h>
8
9 static void whoami(void);
10 static void process_options(int argc, char **argv);
11 static void chdirx(const char *dir);
12 static void getlock(void);
13
14 #ifdef __begui__
15 #define MAIN nhmain
16 int nhmain(int argc, char **argv);
17 #else
18 #define MAIN main
19 #endif
20
21 int
MAIN(int argc,char ** argv)22 MAIN(int argc, char **argv)
23 {
24 int fd;
25 char *dir;
26 boolean resuming = FALSE; /* assume new game */
27
28 sys_early_init();
29
30 dir = nh_getenv("NETHACKDIR");
31 if (!dir)
32 dir = nh_getenv("HACKDIR");
33
34 choose_windows(DEFAULT_WINDOW_SYS);
35 chdirx(dir);
36 initoptions();
37
38 init_nhwindows(&argc, argv);
39 whoami();
40
41 /*
42 * It seems you really want to play.
43 */
44 u.uhp = 1; /* prevent RIP on early quits */
45 process_options(argc, argv); /* command line options */
46
47 set_playmode(); /* sets plname to "wizard" for wizard mode */
48 /* strip role,race,&c suffix; calls askname() if plname[] is empty
49 or holds a generic user name like "player" or "games" */
50 plnamesuffix();
51 /* unlike Unix where the game might be invoked with a script
52 which forces a particular character name for each player
53 using a shared account, we always allow player to rename
54 the character during role/race/&c selection */
55 iflags.renameallowed = TRUE;
56
57 getlock();
58
59 dlb_init(); /* must be before newgame() */
60
61 /*
62 * Initialize the vision system. This must be before mklev() on a
63 * new game or before a level restore on a saved game.
64 */
65 vision_init();
66
67 display_gamewindows();
68
69 /*
70 * First, try to find and restore a save file for specified character.
71 * We'll return here if new game player_selection() renames the hero.
72 */
73 attempt_restore:
74 if ((fd = restore_saved_game()) >= 0) {
75 #ifdef NEWS
76 if (iflags.news) {
77 display_file(NEWS, FALSE);
78 iflags.news = FALSE; /* in case dorecover() fails */
79 }
80 #endif
81 pline("Restoring save file...");
82 mark_synch(); /* flush output */
83 if (dorecover(fd)) {
84 resuming = TRUE; /* not starting new game */
85 if (discover)
86 You("are in non-scoring discovery mode.");
87 if (discover || wizard) {
88 if (yn("Do you want to keep the save file?") == 'n')
89 (void) delete_savefile();
90 else {
91 nh_compress(fqname(SAVEF, SAVEPREFIX, 0));
92 }
93 }
94 }
95 }
96
97 if (!resuming) {
98 /* new game: start by choosing role, race, etc;
99 player might change the hero's name while doing that,
100 in which case we try to restore under the new name
101 and skip selection this time if that didn't succeed */
102 if (!iflags.renameinprogress) {
103 player_selection();
104 if (iflags.renameinprogress) {
105 /* player has renamed the hero while selecting role;
106 discard current lock file and create another for
107 the new character name */
108 delete_levelfile(0); /* remove empty lock file */
109 getlock();
110 goto attempt_restore;
111 }
112 }
113 newgame();
114 if (discover)
115 You("are in non-scoring discovery mode.");
116 }
117
118 moveloop(resuming);
119 return 0;
120 }
121
122 static void
whoami(void)123 whoami(void)
124 {
125 /*
126 * Who am i? Algorithm: 1. Use name as specified in NETHACKOPTIONS
127 * 2. Use $USER or $LOGNAME (if 1. fails)
128 * The resulting name is overridden by command line options.
129 * If everything fails, or if the resulting name is some generic
130 * account like "games", "play", "player", "hack" then eventually
131 * we'll ask him.
132 */
133 char *s;
134
135 if (*plname)
136 return;
137 if (s = nh_getenv("USER")) {
138 (void) strncpy(plname, s, sizeof(plname) - 1);
139 return;
140 }
141 if (s = nh_getenv("LOGNAME")) {
142 (void) strncpy(plname, s, sizeof(plname) - 1);
143 return;
144 }
145 }
146
147 /* normalize file name - we don't like .'s, /'s, spaces */
148 void
regularize(char * s)149 regularize(char *s)
150 {
151 register char *lp;
152
153 while ((lp = strchr(s, '.')) || (lp = strchr(s, '/'))
154 || (lp = strchr(s, ' ')))
155 *lp = '_';
156 }
157
158 static void
process_options(int argc,char ** argv)159 process_options(int argc, char **argv)
160 {
161 int i;
162
163 while (argc > 1 && argv[1][0] == '-') {
164 argv++;
165 argc--;
166 switch (argv[0][1]) {
167 case 'D':
168 wizard = TRUE, discover = FALSE;
169 break;
170 case 'X':
171 discover = TRUE, wizard = FALSE;
172 break;
173 #ifdef NEWS
174 case 'n':
175 iflags.news = FALSE;
176 break;
177 #endif
178 case 'u':
179 if (argv[0][2])
180 (void) strncpy(plname, argv[0] + 2, sizeof(plname) - 1);
181 else if (argc > 1) {
182 argc--;
183 argv++;
184 (void) strncpy(plname, argv[0], sizeof(plname) - 1);
185 } else
186 raw_print("Player name expected after -u");
187 break;
188 case 'p': /* profession (role) */
189 if (argv[0][2]) {
190 if ((i = str2role(&argv[0][2])) >= 0)
191 flags.initrole = i;
192 } else if (argc > 1) {
193 argc--;
194 argv++;
195 if ((i = str2role(argv[0])) >= 0)
196 flags.initrole = i;
197 }
198 break;
199 case 'r': /* race */
200 if (argv[0][2]) {
201 if ((i = str2race(&argv[0][2])) >= 0)
202 flags.initrace = i;
203 } else if (argc > 1) {
204 argc--;
205 argv++;
206 if ((i = str2race(argv[0])) >= 0)
207 flags.initrace = i;
208 }
209 break;
210 case '@':
211 flags.randomall = 1;
212 break;
213 default:
214 raw_printf("Unknown option: %s", *argv);
215 break;
216 }
217 }
218 }
219
220 static void
chdirx(const char * dir)221 chdirx(const char *dir)
222 {
223 if (!dir)
224 dir = HACKDIR;
225
226 if (chdir(dir) < 0)
227 error("Cannot chdir to %s.", dir);
228
229 /* Warn the player if we can't write the record file */
230 /* perhaps we should also test whether . is writable */
231 check_recordfile(dir);
232 }
233
234 void
getlock(void)235 getlock(void)
236 {
237 int fd;
238
239 Sprintf(lock, "%d%s", getuid(), plname);
240 regularize(lock);
241 set_levelfile_name(lock, 0);
242 fd = creat(lock, FCMASK);
243 if (fd == -1) {
244 error("cannot creat lock file.");
245 } else {
246 if (write(fd, (genericptr_t) &hackpid, sizeof(hackpid))
247 != sizeof(hackpid)) {
248 error("cannot write lock");
249 }
250 if (close(fd) == -1) {
251 error("cannot close lock");
252 }
253 }
254 }
255
256 /* validate wizard mode if player has requested access to it */
257 boolean
authorize_wizard_mode()258 authorize_wizard_mode()
259 {
260 /* other ports validate user name or character name here */
261 return TRUE;
262 }
263
264 #ifndef __begui__
265 /*
266 * If we are not using the Be GUI, then just exit -- we don't need to
267 * do anything extra.
268 */
269 void nethack_exit(int status);
270
271 void
nethack_exit(int status)272 nethack_exit(int status)
273 {
274 exit(status);
275 }
276 #endif /* !__begui__ */
277
278 /*bemain.c*/
279