c07e82afbd0d2b85b7ec0b369bd4e4033db741a6
[dragonfly.git] / games / rogue / init.c
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  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  * 3. All advertising materials mentioning features or use of this software
17  *    must display the following acknowledgement:
18  *      This product includes software developed by the University of
19  *      California, Berkeley and its contributors.
20  * 4. Neither the name of the University nor the names of its contributors
21  *    may be used to endorse or promote products derived from this software
22  *    without specific prior written permission.
23  *
24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34  * SUCH DAMAGE.
35  *
36  * @(#)init.c   8.1 (Berkeley) 5/31/93
37  * $FreeBSD: src/games/rogue/init.c,v 1.4 1999/11/30 03:49:22 billf Exp $
38  * $DragonFly: src/games/rogue/init.c,v 1.3 2006/09/02 19:31:07 pavalos Exp $
39  */
40
41 /*
42  * init.c
43  *
44  * This source herein may be modified and/or distributed by anybody who
45  * so desires, with the following restrictions:
46  *    1.)  No portion of this notice shall be removed.
47  *    2.)  Credit shall not be taken for the creation of this source.
48  *    3.)  This code is not to be traded, sold, or used for personal
49  *         gain or profit.
50  *
51  */
52
53 #include <stdio.h>
54 #include "rogue.h"
55
56 char login_name[MAX_OPT_LEN];
57 char *nick_name = (char *) 0;
58 char *rest_file = 0;
59 boolean cant_int = 0;
60 boolean did_int = 0;
61 boolean score_only;
62 boolean init_curses = 0;
63 boolean save_is_interactive = 1;
64 boolean ask_quit = 1;
65 boolean no_skull = 0;
66 boolean passgo = 0;
67 boolean flush = 1;
68 const char *error_file = "rogue.esave";
69 const char *byebye_string = "Okay, bye bye!";
70
71 extern char *fruit;
72 extern char *save_file;
73 extern short party_room;
74 extern boolean jump;
75
76 static void     player_init(void);
77 static void     do_args(int, char **);
78 static void     do_opts(void);
79 static void     env_get_value(char **, char *, boolean);
80 static void     init_str(char **, const char *);
81
82 boolean
83 init(int argc, char *argv[])
84 {
85         const char *pn;
86         int seed;
87
88         pn = md_gln();
89         if ((!pn) || (strlen(pn) >= MAX_OPT_LEN)) {
90                 clean_up("Hey!  Who are you?");
91         }
92         strcpy(login_name, pn);
93
94         do_args(argc, argv);
95         do_opts();
96
97         if (!score_only && !rest_file) {
98                 printf("Hello %s, just a moment while I dig the dungeon...",
99                         nick_name);
100                 fflush(stdout);
101         }
102
103         initscr();
104         if ((LINES < DROWS) || (COLS < DCOLS)) {
105                 clean_up("must be played on 24 x 80 screen");
106         }
107         start_window();
108         init_curses = 1;
109
110         md_heed_signals();
111
112         if (score_only) {
113                 put_scores((object *) 0, 0);
114         }
115         seed = md_gseed();
116         srrandom(seed);
117         if (rest_file) {
118                 restore(rest_file);
119                 return(1);
120         }
121         mix_colors();
122         get_wand_and_ring_materials();
123         make_scroll_titles();
124
125         level_objects.next_object = (object *) 0;
126         level_monsters.next_monster = (object *) 0;
127         player_init();
128         ring_stats(0);
129         return(0);
130 }
131
132 static void
133 player_init(void)
134 {
135         object *obj;
136
137         rogue.pack.next_object = (object *) 0;
138
139         obj = alloc_object();
140         get_food(obj, 1);
141         add_to_pack(obj, &rogue.pack, 1);
142
143         obj = alloc_object();           /* initial armor */
144         obj->what_is = ARMOR;
145         obj->which_kind = RINGMAIL;
146         obj->class = RINGMAIL+2;
147         obj->is_protected = 0;
148         obj->d_enchant = 1;
149         add_to_pack(obj, &rogue.pack, 1);
150         do_wear(obj);
151
152         obj = alloc_object();           /* initial weapons */
153         obj->what_is = WEAPON;
154         obj->which_kind = MACE;
155         obj->damage = "2d3";
156         obj->hit_enchant = obj->d_enchant = 1;
157         obj->identified = 1;
158         add_to_pack(obj, &rogue.pack, 1);
159         do_wield(obj);
160
161         obj = alloc_object();
162         obj->what_is = WEAPON;
163         obj->which_kind = BOW;
164         obj->damage = "1d2";
165         obj->hit_enchant = 1;
166         obj->d_enchant = 0;
167         obj->identified = 1;
168         add_to_pack(obj, &rogue.pack, 1);
169
170         obj = alloc_object();
171         obj->what_is = WEAPON;
172         obj->which_kind = ARROW;
173         obj->quantity = get_rand(25, 35);
174         obj->damage = "1d2";
175         obj->hit_enchant = 0;
176         obj->d_enchant = 0;
177         obj->identified = 1;
178         add_to_pack(obj, &rogue.pack, 1);
179 }
180
181 void
182 clean_up(const char *estr)
183 {
184         if (save_is_interactive) {
185                 if (init_curses) {
186                         move(DROWS-1, 0);
187                         refresh();
188                         stop_window();
189                 }
190                 printf("\n%s\n", estr);
191         }
192         md_exit(0);
193 }
194
195 void
196 start_window(void)
197 {
198         crmode();
199         noecho();
200 #ifndef BAD_NONL
201         nonl();
202 #endif
203         md_control_keybord(0);
204 }
205
206 void
207 stop_window(void)
208 {
209         endwin();
210         md_control_keybord(1);
211 }
212
213 void
214 byebye(void)
215 {
216         md_ignore_signals();
217         if (ask_quit) {
218                 quit(1);
219         } else {
220                 clean_up(byebye_string);
221         }
222         md_heed_signals();
223 }
224
225 void
226 onintr(void)
227 {
228         md_ignore_signals();
229         if (cant_int) {
230                 did_int = 1;
231         } else {
232                 check_message();
233                 message("interrupt", 1);
234         }
235         md_heed_signals();
236 }
237
238 void
239 error_save(void)
240 {
241         save_is_interactive = 0;
242         save_into_file(error_file);
243         clean_up("");
244 }
245
246 static void
247 do_args(int argc, char *argv[])
248 {
249         short i, j;
250
251         for (i = 1; i < argc; i++) {
252                 if (argv[i][0] == '-') {
253                         for (j = 1; argv[i][j]; j++) {
254                                 switch(argv[i][j]) {
255                                 case 's':
256                                         score_only = 1;
257                                         break;
258                                 }
259                         }
260                 } else {
261                         rest_file = argv[i];
262                 }
263         }
264 }
265
266 static void
267 do_opts(void)
268 {
269         char *eptr;
270
271         if ((eptr = md_getenv("ROGUEOPTS"))) {
272                 for (;;) {
273                         while ((*eptr) == ' ') {
274                                 eptr++;
275                         }
276                         if (!(*eptr)) {
277                                 break;
278                         }
279                         if (!strncmp(eptr, "fruit=", 6)) {
280                                 eptr += 6;
281                                 env_get_value(&fruit, eptr, 1);
282                         } else if (!strncmp(eptr, "file=", 5)) {
283                                 eptr += 5;
284                                 env_get_value(&save_file, eptr, 0);
285                         } else if (!strncmp(eptr, "jump", 4)) {
286                                 jump = 1;
287                         } else if (!strncmp(eptr, "name=", 5)) {
288                                 eptr += 5;
289                                 env_get_value(&nick_name, eptr, 0);
290                         } else if (!strncmp(eptr, "noaskquit", 9)) {
291                                 ask_quit = 0;
292                         } else if (!strncmp(eptr, "noskull", 7) ||
293                                         !strncmp(eptr,"notomb", 6)) {
294                                 no_skull = 1;
295                         } else if (!strncmp(eptr, "passgo", 6)) {
296                                 passgo = 1;
297                         } else if (!strncmp(eptr, "noflush", 7)) {
298                                 flush = 0;
299                         }
300                         while ((*eptr) && (*eptr != ',')) {
301                                 eptr++;
302                         }
303                         if (!(*(eptr++))) {
304                                 break;
305                         }
306                 }
307         }
308         /* If some strings have not been set through ROGUEOPTS, assign defaults
309          * to them so that the options editor has data to work with.
310          */
311         init_str(&nick_name, login_name);
312         init_str(&save_file, "rogue.save");
313         init_str(&fruit, "slime-mold");
314 }
315
316 static void
317 env_get_value(char **s, char *e, boolean add_blank)
318 {
319         short i = 0;
320         const char *t;
321
322         t = e;
323
324         while ((*e) && (*e != ',')) {
325                 if (*e == ':') {
326                         *e = ';';               /* ':' reserved for score file purposes */
327                 }
328                 e++;
329                 if (++i >= MAX_OPT_LEN) {
330                         break;
331                 }
332         }
333         *s = md_malloc(MAX_OPT_LEN + 2);
334         strncpy(*s, t, i);
335         if (add_blank) {
336                 (*s)[i++] = ' ';
337         }
338         (*s)[i] = '\0';
339 }
340
341 static void
342 init_str(char **str, const char *dflt)
343 {
344         if (!(*str)) {
345                 *str = md_malloc(MAX_OPT_LEN + 2);
346                 strcpy(*str, dflt);
347         }
348 }