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.2 2003/06/17 04:25:24 dillon 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 init(argc, argv) 77 int argc; 78 char *argv[]; 79 { 80 const char *pn; 81 int seed; 82 83 pn = md_gln(); 84 if ((!pn) || (strlen(pn) >= MAX_OPT_LEN)) { 85 clean_up("Hey! Who are you?"); 86 } 87 (void) strcpy(login_name, pn); 88 89 do_args(argc, argv); 90 do_opts(); 91 92 if (!score_only && !rest_file) { 93 printf("Hello %s, just a moment while I dig the dungeon...", 94 nick_name); 95 fflush(stdout); 96 } 97 98 initscr(); 99 if ((LINES < DROWS) || (COLS < DCOLS)) { 100 clean_up("must be played on 24 x 80 screen"); 101 } 102 start_window(); 103 init_curses = 1; 104 105 md_heed_signals(); 106 107 if (score_only) { 108 put_scores((object *) 0, 0); 109 } 110 seed = md_gseed(); 111 (void) srrandom(seed); 112 if (rest_file) { 113 restore(rest_file); 114 return(1); 115 } 116 mix_colors(); 117 get_wand_and_ring_materials(); 118 make_scroll_titles(); 119 120 level_objects.next_object = (object *) 0; 121 level_monsters.next_monster = (object *) 0; 122 player_init(); 123 ring_stats(0); 124 return(0); 125 } 126 127 player_init() 128 { 129 object *obj; 130 131 rogue.pack.next_object = (object *) 0; 132 133 obj = alloc_object(); 134 get_food(obj, 1); 135 (void) add_to_pack(obj, &rogue.pack, 1); 136 137 obj = alloc_object(); /* initial armor */ 138 obj->what_is = ARMOR; 139 obj->which_kind = RINGMAIL; 140 obj->class = RINGMAIL+2; 141 obj->is_protected = 0; 142 obj->d_enchant = 1; 143 (void) add_to_pack(obj, &rogue.pack, 1); 144 do_wear(obj); 145 146 obj = alloc_object(); /* initial weapons */ 147 obj->what_is = WEAPON; 148 obj->which_kind = MACE; 149 obj->damage = "2d3"; 150 obj->hit_enchant = obj->d_enchant = 1; 151 obj->identified = 1; 152 (void) add_to_pack(obj, &rogue.pack, 1); 153 do_wield(obj); 154 155 obj = alloc_object(); 156 obj->what_is = WEAPON; 157 obj->which_kind = BOW; 158 obj->damage = "1d2"; 159 obj->hit_enchant = 1; 160 obj->d_enchant = 0; 161 obj->identified = 1; 162 (void) add_to_pack(obj, &rogue.pack, 1); 163 164 obj = alloc_object(); 165 obj->what_is = WEAPON; 166 obj->which_kind = ARROW; 167 obj->quantity = get_rand(25, 35); 168 obj->damage = "1d2"; 169 obj->hit_enchant = 0; 170 obj->d_enchant = 0; 171 obj->identified = 1; 172 (void) add_to_pack(obj, &rogue.pack, 1); 173 } 174 175 clean_up(estr) 176 const char *estr; 177 { 178 if (save_is_interactive) { 179 if (init_curses) { 180 move(DROWS-1, 0); 181 refresh(); 182 stop_window(); 183 } 184 printf("\n%s\n", estr); 185 } 186 md_exit(0); 187 } 188 189 start_window() 190 { 191 crmode(); 192 noecho(); 193 #ifndef BAD_NONL 194 nonl(); 195 #endif 196 md_control_keybord(0); 197 } 198 199 stop_window() 200 { 201 endwin(); 202 md_control_keybord(1); 203 } 204 205 void 206 byebye() 207 { 208 md_ignore_signals(); 209 if (ask_quit) { 210 quit(1); 211 } else { 212 clean_up(byebye_string); 213 } 214 md_heed_signals(); 215 } 216 217 void 218 onintr() 219 { 220 md_ignore_signals(); 221 if (cant_int) { 222 did_int = 1; 223 } else { 224 check_message(); 225 message("interrupt", 1); 226 } 227 md_heed_signals(); 228 } 229 230 void 231 error_save() 232 { 233 save_is_interactive = 0; 234 save_into_file(error_file); 235 clean_up(""); 236 } 237 238 do_args(argc, argv) 239 int argc; 240 char *argv[]; 241 { 242 short i, j; 243 244 for (i = 1; i < argc; i++) { 245 if (argv[i][0] == '-') { 246 for (j = 1; argv[i][j]; j++) { 247 switch(argv[i][j]) { 248 case 's': 249 score_only = 1; 250 break; 251 } 252 } 253 } else { 254 rest_file = argv[i]; 255 } 256 } 257 } 258 259 do_opts() 260 { 261 char *eptr; 262 263 if (eptr = md_getenv("ROGUEOPTS")) { 264 for (;;) { 265 while ((*eptr) == ' ') { 266 eptr++; 267 } 268 if (!(*eptr)) { 269 break; 270 } 271 if (!strncmp(eptr, "fruit=", 6)) { 272 eptr += 6; 273 env_get_value(&fruit, eptr, 1); 274 } else if (!strncmp(eptr, "file=", 5)) { 275 eptr += 5; 276 env_get_value(&save_file, eptr, 0); 277 } else if (!strncmp(eptr, "jump", 4)) { 278 jump = 1; 279 } else if (!strncmp(eptr, "name=", 5)) { 280 eptr += 5; 281 env_get_value(&nick_name, eptr, 0); 282 } else if (!strncmp(eptr, "noaskquit", 9)) { 283 ask_quit = 0; 284 } else if (!strncmp(eptr, "noskull", 7) || 285 !strncmp(eptr,"notomb", 6)) { 286 no_skull = 1; 287 } else if (!strncmp(eptr, "passgo", 6)) { 288 passgo = 1; 289 } else if (!strncmp(eptr, "noflush", 7)) { 290 flush = 0; 291 } 292 while ((*eptr) && (*eptr != ',')) { 293 eptr++; 294 } 295 if (!(*(eptr++))) { 296 break; 297 } 298 } 299 } 300 /* If some strings have not been set through ROGUEOPTS, assign defaults 301 * to them so that the options editor has data to work with. 302 */ 303 init_str(&nick_name, login_name); 304 init_str(&save_file, "rogue.save"); 305 init_str(&fruit, "slime-mold"); 306 } 307 308 env_get_value(s, e, add_blank) 309 char **s, *e; 310 boolean add_blank; 311 { 312 short i = 0; 313 const char *t; 314 315 t = e; 316 317 while ((*e) && (*e != ',')) { 318 if (*e == ':') { 319 *e = ';'; /* ':' reserved for score file purposes */ 320 } 321 e++; 322 if (++i >= MAX_OPT_LEN) { 323 break; 324 } 325 } 326 *s = md_malloc(MAX_OPT_LEN + 2); 327 (void) strncpy(*s, t, i); 328 if (add_blank) { 329 (*s)[i++] = ' '; 330 } 331 (*s)[i] = '\0'; 332 } 333 334 init_str(str, dflt) 335 char **str; 336 const char *dflt; 337 { 338 if (!(*str)) { 339 *str = md_malloc(MAX_OPT_LEN + 2); 340 (void) strcpy(*str, dflt); 341 } 342 } 343