1 /*
2 * Copyright (c) 1988, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * This code is derived from software contributed to Berkeley by
6 * Timothy C. Stoehr.
7 *
8 * %sccs.include.redist.c%
9 */
10
11 #ifndef lint
12 static char sccsid[] = "@(#)init.c 8.1 (Berkeley) 05/31/93";
13 #endif /* not lint */
14
15 /*
16 * init.c
17 *
18 * This source herein may be modified and/or distributed by anybody who
19 * so desires, with the following restrictions:
20 * 1.) No portion of this notice shall be removed.
21 * 2.) Credit shall not be taken for the creation of this source.
22 * 3.) This code is not to be traded, sold, or used for personal
23 * gain or profit.
24 *
25 */
26
27 #include <stdio.h>
28 #include "rogue.h"
29
30 char login_name[MAX_OPT_LEN];
31 char *nick_name = (char *) 0;
32 char *rest_file = 0;
33 boolean cant_int = 0;
34 boolean did_int = 0;
35 boolean score_only;
36 boolean init_curses = 0;
37 boolean save_is_interactive = 1;
38 boolean ask_quit = 1;
39 boolean no_skull = 0;
40 boolean passgo = 0;
41 char *error_file = "rogue.esave";
42 char *byebye_string = "Okay, bye bye!";
43
44 extern char *fruit;
45 extern char *save_file;
46 extern short party_room;
47 extern boolean jump;
48
init(argc,argv)49 init(argc, argv)
50 int argc;
51 char *argv[];
52 {
53 char *pn;
54 int seed;
55
56 pn = md_gln();
57 if ((!pn) || (strlen(pn) >= MAX_OPT_LEN)) {
58 clean_up("Hey! Who are you?");
59 }
60 (void) strcpy(login_name, pn);
61
62 do_args(argc, argv);
63 do_opts();
64
65 if (!score_only && !rest_file) {
66 printf("Hello %s, just a moment while I dig the dungeon...",
67 nick_name);
68 fflush(stdout);
69 }
70
71 initscr();
72 if ((LINES < DROWS) || (COLS < DCOLS)) {
73 clean_up("must be played on 24 x 80 screen");
74 }
75 start_window();
76 init_curses = 1;
77
78 md_heed_signals();
79
80 if (score_only) {
81 put_scores((object *) 0, 0);
82 }
83 seed = md_gseed();
84 (void) srrandom(seed);
85 if (rest_file) {
86 restore(rest_file);
87 return(1);
88 }
89 mix_colors();
90 get_wand_and_ring_materials();
91 make_scroll_titles();
92
93 level_objects.next_object = (object *) 0;
94 level_monsters.next_monster = (object *) 0;
95 player_init();
96 ring_stats(0);
97 return(0);
98 }
99
player_init()100 player_init()
101 {
102 object *obj;
103
104 rogue.pack.next_object = (object *) 0;
105
106 obj = alloc_object();
107 get_food(obj, 1);
108 (void) add_to_pack(obj, &rogue.pack, 1);
109
110 obj = alloc_object(); /* initial armor */
111 obj->what_is = ARMOR;
112 obj->which_kind = RINGMAIL;
113 obj->class = RINGMAIL+2;
114 obj->is_protected = 0;
115 obj->d_enchant = 1;
116 (void) add_to_pack(obj, &rogue.pack, 1);
117 do_wear(obj);
118
119 obj = alloc_object(); /* initial weapons */
120 obj->what_is = WEAPON;
121 obj->which_kind = MACE;
122 obj->damage = "2d3";
123 obj->hit_enchant = obj->d_enchant = 1;
124 obj->identified = 1;
125 (void) add_to_pack(obj, &rogue.pack, 1);
126 do_wield(obj);
127
128 obj = alloc_object();
129 obj->what_is = WEAPON;
130 obj->which_kind = BOW;
131 obj->damage = "1d2";
132 obj->hit_enchant = 1;
133 obj->d_enchant = 0;
134 obj->identified = 1;
135 (void) add_to_pack(obj, &rogue.pack, 1);
136
137 obj = alloc_object();
138 obj->what_is = WEAPON;
139 obj->which_kind = ARROW;
140 obj->quantity = get_rand(25, 35);
141 obj->damage = "1d2";
142 obj->hit_enchant = 0;
143 obj->d_enchant = 0;
144 obj->identified = 1;
145 (void) add_to_pack(obj, &rogue.pack, 1);
146 }
147
clean_up(estr)148 clean_up(estr)
149 char *estr;
150 {
151 if (save_is_interactive) {
152 if (init_curses) {
153 move(DROWS-1, 0);
154 refresh();
155 stop_window();
156 }
157 printf("\n%s\n", estr);
158 }
159 md_exit(0);
160 }
161
start_window()162 start_window()
163 {
164 crmode();
165 noecho();
166 #ifndef BAD_NONL
167 nonl();
168 #endif
169 md_control_keybord(0);
170 }
171
stop_window()172 stop_window()
173 {
174 endwin();
175 md_control_keybord(1);
176 }
177
178 void
byebye()179 byebye()
180 {
181 md_ignore_signals();
182 if (ask_quit) {
183 quit(1);
184 } else {
185 clean_up(byebye_string);
186 }
187 md_heed_signals();
188 }
189
190 void
onintr()191 onintr()
192 {
193 md_ignore_signals();
194 if (cant_int) {
195 did_int = 1;
196 } else {
197 check_message();
198 message("interrupt", 1);
199 }
200 md_heed_signals();
201 }
202
203 void
error_save()204 error_save()
205 {
206 save_is_interactive = 0;
207 save_into_file(error_file);
208 clean_up("");
209 }
210
do_args(argc,argv)211 do_args(argc, argv)
212 int argc;
213 char *argv[];
214 {
215 short i, j;
216
217 for (i = 1; i < argc; i++) {
218 if (argv[i][0] == '-') {
219 for (j = 1; argv[i][j]; j++) {
220 switch(argv[i][j]) {
221 case 's':
222 score_only = 1;
223 break;
224 }
225 }
226 } else {
227 rest_file = argv[i];
228 }
229 }
230 }
231
do_opts()232 do_opts()
233 {
234 char *eptr;
235
236 if (eptr = md_getenv("ROGUEOPTS")) {
237 for (;;) {
238 while ((*eptr) == ' ') {
239 eptr++;
240 }
241 if (!(*eptr)) {
242 break;
243 }
244 if (!strncmp(eptr, "fruit=", 6)) {
245 eptr += 6;
246 env_get_value(&fruit, eptr, 1);
247 } else if (!strncmp(eptr, "file=", 5)) {
248 eptr += 5;
249 env_get_value(&save_file, eptr, 0);
250 } else if (!strncmp(eptr, "jump", 4)) {
251 jump = 1;
252 } else if (!strncmp(eptr, "name=", 5)) {
253 eptr += 5;
254 env_get_value(&nick_name, eptr, 0);
255 } else if (!strncmp(eptr, "noaskquit", 9)) {
256 ask_quit = 0;
257 } else if (!strncmp(eptr, "noskull", 5) ||
258 !strncmp(eptr,"notomb", 6)) {
259 no_skull = 1;
260 } else if (!strncmp(eptr, "passgo", 5)) {
261 passgo = 1;
262 }
263 while ((*eptr) && (*eptr != ',')) {
264 eptr++;
265 }
266 if (!(*(eptr++))) {
267 break;
268 }
269 }
270 }
271 /* If some strings have not been set through ROGUEOPTS, assign defaults
272 * to them so that the options editor has data to work with.
273 */
274 init_str(&nick_name, login_name);
275 init_str(&save_file, "rogue.save");
276 init_str(&fruit, "slime-mold");
277 }
278
env_get_value(s,e,add_blank)279 env_get_value(s, e, add_blank)
280 char **s, *e;
281 boolean add_blank;
282 {
283 short i = 0;
284 char *t;
285
286 t = e;
287
288 while ((*e) && (*e != ',')) {
289 if (*e == ':') {
290 *e = ';'; /* ':' reserved for score file purposes */
291 }
292 e++;
293 if (++i >= MAX_OPT_LEN) {
294 break;
295 }
296 }
297 *s = md_malloc(MAX_OPT_LEN + 2);
298 (void) strncpy(*s, t, i);
299 if (add_blank) {
300 (*s)[i++] = ' ';
301 }
302 (*s)[i] = '\0';
303 }
304
init_str(str,dflt)305 init_str(str, dflt)
306 char **str, *dflt;
307 {
308 if (!(*str)) {
309 *str = md_malloc(MAX_OPT_LEN + 2);
310 (void) strcpy(*str, dflt);
311 }
312 }
313