![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.u_init.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack|
Return to hack.u_init.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 ! root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ ! 2: /* hack.u_init.c - version 1.0.3 */ ! 3: ! 4: #include "hack.h" ! 5: #include <stdio.h> ! 6: #include <signal.h> ! 7: #define Strcpy (void) strcpy ! 8: #define Strcat (void) strcat ! 9: #define UNDEF_TYP 0 ! 10: #define UNDEF_SPE '\177' ! 11: extern struct obj *addinv(); ! 12: extern char *eos(); ! 13: extern char plname[]; ! 14: ! 15: struct you zerou; ! 16: char pl_character[PL_CSIZ]; ! 17: char *(roles[]) = { /* must all have distinct first letter */ ! 18: /* roles[4] may be changed to -man */ ! 19: "Tourist", "Speleologist", "Fighter", "Knight", ! 20: "Cave-man", "Wizard" ! 21: }; ! 22: #define NR_OF_ROLES SIZE(roles) ! 23: char rolesyms[NR_OF_ROLES + 1]; /* filled by u_init() */ ! 24: ! 25: struct trobj { ! 26: uchar trotyp; ! 27: schar trspe; ! 28: char trolet; ! 29: Bitfield(trquan,6); ! 30: Bitfield(trknown,1); ! 31: }; ! 32: ! 33: #ifdef WIZARD ! 34: struct trobj Extra_objs[] = { ! 35: { 0, 0, 0, 0, 0 }, ! 36: { 0, 0, 0, 0, 0 } ! 37: }; ! 38: #endif WIZARD ! 39: ! 40: struct trobj Cave_man[] = { ! 41: { MACE, 1, WEAPON_SYM, 1, 1 }, ! 42: { BOW, 1, WEAPON_SYM, 1, 1 }, ! 43: { ARROW, 0, WEAPON_SYM, 25, 1 }, /* quan is variable */ ! 44: { LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1 }, ! 45: { 0, 0, 0, 0, 0} ! 46: }; ! 47: ! 48: struct trobj Fighter[] = { ! 49: { TWO_HANDED_SWORD, 0, WEAPON_SYM, 1, 1 }, ! 50: { RING_MAIL, 0, ARMOR_SYM, 1, 1 }, ! 51: { 0, 0, 0, 0, 0 } ! 52: }; ! 53: ! 54: struct trobj Knight[] = { ! 55: { LONG_SWORD, 0, WEAPON_SYM, 1, 1 }, ! 56: { SPEAR, 2, WEAPON_SYM, 1, 1 }, ! 57: { RING_MAIL, 1, ARMOR_SYM, 1, 1 }, ! 58: { HELMET, 0, ARMOR_SYM, 1, 1 }, ! 59: { SHIELD, 0, ARMOR_SYM, 1, 1 }, ! 60: { PAIR_OF_GLOVES, 0, ARMOR_SYM, 1, 1 }, ! 61: { 0, 0, 0, 0, 0 } ! 62: }; ! 63: ! 64: struct trobj Speleologist[] = { ! 65: { STUDDED_LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1 }, ! 66: { UNDEF_TYP, 0, POTION_SYM, 2, 0 }, ! 67: { FOOD_RATION, 0, FOOD_SYM, 3, 1 }, ! 68: { PICK_AXE, UNDEF_SPE, TOOL_SYM, 1, 0 }, ! 69: { ICE_BOX, 0, TOOL_SYM, 1, 0 }, ! 70: { 0, 0, 0, 0, 0} ! 71: }; ! 72: ! 73: struct trobj Tinopener[] = { ! 74: { CAN_OPENER, 0, TOOL_SYM, 1, 1 }, ! 75: { 0, 0, 0, 0, 0 } ! 76: }; ! 77: ! 78: struct trobj Tourist[] = { ! 79: { UNDEF_TYP, 0, FOOD_SYM, 10, 1 }, ! 80: { POT_EXTRA_HEALING, 0, POTION_SYM, 2, 0 }, ! 81: { EXPENSIVE_CAMERA, 0, TOOL_SYM, 1, 1 }, ! 82: { DART, 2, WEAPON_SYM, 25, 1 }, /* quan is variable */ ! 83: { 0, 0, 0, 0, 0 } ! 84: }; ! 85: ! 86: struct trobj Wizard[] = { ! 87: { ELVEN_CLOAK, 0, ARMOR_SYM, 1, 1 }, ! 88: { UNDEF_TYP, UNDEF_SPE, WAND_SYM, 2, 0 }, ! 89: { UNDEF_TYP, UNDEF_SPE, RING_SYM, 2, 0 }, ! 90: { UNDEF_TYP, UNDEF_SPE, POTION_SYM, 2, 0 }, ! 91: { UNDEF_TYP, UNDEF_SPE, SCROLL_SYM, 3, 0 }, ! 92: { 0, 0, 0, 0, 0 } ! 93: }; ! 94: ! 95: u_init(){ ! 96: register int i; ! 97: char exper = 'y', pc; ! 98: extern char readchar(); ! 99: if(flags.female) /* should have been set in HACKOPTIONS */ ! 100: roles[4] = "Cave-woman"; ! 101: for(i = 0; i < NR_OF_ROLES; i++) ! 102: rolesyms[i] = roles[i][0]; ! 103: rolesyms[i] = 0; ! 104: ! 105: if(pc = pl_character[0]) { ! 106: if('a' <= pc && pc <= 'z') pc += 'A'-'a'; ! 107: if((i = role_index(pc)) >= 0) ! 108: goto got_suffix; /* implies experienced */ ! 109: printf("\nUnknown role: %c\n", pc); ! 110: pl_character[0] = pc = 0; ! 111: } ! 112: ! 113: printf("\nAre you an experienced player? [ny] "); ! 114: ! 115: while(!index("ynYN \n\004", (exper = readchar()))) ! 116: bell(); ! 117: if(exper == '\004') /* Give him an opportunity to get out */ ! 118: end_of_input(); ! 119: printf("%c\n", exper); /* echo */ ! 120: if(index("Nn \n", exper)) { ! 121: exper = 0; ! 122: goto beginner; ! 123: } ! 124: ! 125: printf("\nTell me what kind of character you are:\n"); ! 126: printf("Are you"); ! 127: for(i = 0; i < NR_OF_ROLES; i++) { ! 128: printf(" a %s", roles[i]); ! 129: if(i == 2) /* %% */ ! 130: printf(",\n\t"); ! 131: else if(i < NR_OF_ROLES - 2) ! 132: printf(","); ! 133: else if(i == NR_OF_ROLES - 2) ! 134: printf(" or"); ! 135: } ! 136: printf("? [%s] ", rolesyms); ! 137: ! 138: while(pc = readchar()) { ! 139: if('a' <= pc && pc <= 'z') pc += 'A'-'a'; ! 140: if((i = role_index(pc)) >= 0) { ! 141: printf("%c\n", pc); /* echo */ ! 142: (void) fflush(stdout); /* should be seen */ ! 143: break; ! 144: } ! 145: if(pc == '\n') ! 146: break; ! 147: if(pc == '\004') /* Give him the opportunity to get out */ ! 148: end_of_input(); ! 149: bell(); ! 150: } ! 151: if(pc == '\n') ! 152: pc = 0; ! 153: ! 154: beginner: ! 155: if(!pc) { ! 156: printf("\nI'll choose a character for you.\n"); ! 157: i = rn2(NR_OF_ROLES); ! 158: pc = rolesyms[i]; ! 159: printf("This game you will be a%s %s.\n", ! 160: exper ? "n experienced" : "", ! 161: roles[i]); ! 162: getret(); ! 163: /* give him some feedback in case mklev takes much time */ ! 164: (void) putchar('\n'); ! 165: (void) fflush(stdout); ! 166: } ! 167: if(exper) { ! 168: roles[i][0] = pc; ! 169: } ! 170: ! 171: got_suffix: ! 172: ! 173: (void) strncpy(pl_character, roles[i], PL_CSIZ-1); ! 174: pl_character[PL_CSIZ-1] = 0; ! 175: flags.beginner = 1; ! 176: u = zerou; ! 177: u.usym = '@'; ! 178: u.ulevel = 1; ! 179: init_uhunger(); ! 180: #ifdef QUEST ! 181: u.uhorizon = 6; ! 182: #endif QUEST ! 183: uarm = uarm2 = uarmh = uarms = uarmg = uwep = uball = uchain = ! 184: uleft = uright = 0; ! 185: ! 186: switch(pc) { ! 187: case 'c': ! 188: case 'C': ! 189: Cave_man[2].trquan = 12 + rnd(9)*rnd(9); ! 190: u.uhp = u.uhpmax = 16; ! 191: u.ustr = u.ustrmax = 18; ! 192: ini_inv(Cave_man); ! 193: break; ! 194: case 't': ! 195: case 'T': ! 196: Tourist[3].trquan = 20 + rnd(20); ! 197: u.ugold = u.ugold0 = rnd(1000); ! 198: u.uhp = u.uhpmax = 10; ! 199: u.ustr = u.ustrmax = 8; ! 200: ini_inv(Tourist); ! 201: if(!rn2(25)) ini_inv(Tinopener); ! 202: break; ! 203: case 'w': ! 204: case 'W': ! 205: for(i=1; i<=4; i++) if(!rn2(5)) ! 206: Wizard[i].trquan += rn2(3) - 1; ! 207: u.uhp = u.uhpmax = 15; ! 208: u.ustr = u.ustrmax = 16; ! 209: ini_inv(Wizard); ! 210: break; ! 211: case 's': ! 212: case 'S': ! 213: Fast = INTRINSIC; ! 214: Stealth = INTRINSIC; ! 215: u.uhp = u.uhpmax = 12; ! 216: u.ustr = u.ustrmax = 10; ! 217: ini_inv(Speleologist); ! 218: if(!rn2(10)) ini_inv(Tinopener); ! 219: break; ! 220: case 'k': ! 221: case 'K': ! 222: u.uhp = u.uhpmax = 12; ! 223: u.ustr = u.ustrmax = 10; ! 224: ini_inv(Knight); ! 225: break; ! 226: case 'f': ! 227: case 'F': ! 228: u.uhp = u.uhpmax = 14; ! 229: u.ustr = u.ustrmax = 17; ! 230: ini_inv(Fighter); ! 231: break; ! 232: default: /* impossible */ ! 233: u.uhp = u.uhpmax = 12; ! 234: u.ustr = u.ustrmax = 16; ! 235: } ! 236: find_ac(); ! 237: if(!rn2(20)) { ! 238: register int d = rn2(7) - 2; /* biased variation */ ! 239: u.ustr += d; ! 240: u.ustrmax += d; ! 241: } ! 242: ! 243: #ifdef WIZARD ! 244: if(wizard) wiz_inv(); ! 245: #endif WIZARD ! 246: ! 247: /* make sure he can carry all he has - especially for T's */ ! 248: while(inv_weight() > 0 && u.ustr < 118) ! 249: u.ustr++, u.ustrmax++; ! 250: } ! 251: ! 252: ini_inv(trop) register struct trobj *trop; { ! 253: register struct obj *obj; ! 254: extern struct obj *mkobj(); ! 255: while(trop->trolet) { ! 256: obj = mkobj(trop->trolet); ! 257: obj->known = trop->trknown; ! 258: /* not obj->dknown = 1; - let him look at it at least once */ ! 259: obj->cursed = 0; ! 260: if(obj->olet == WEAPON_SYM){ ! 261: obj->quan = trop->trquan; ! 262: trop->trquan = 1; ! 263: } ! 264: if(trop->trspe != UNDEF_SPE) ! 265: obj->spe = trop->trspe; ! 266: if(trop->trotyp != UNDEF_TYP) ! 267: obj->otyp = trop->trotyp; ! 268: else ! 269: if(obj->otyp == WAN_WISHING) /* gitpyr!robert */ ! 270: obj->otyp = WAN_DEATH; ! 271: obj->owt = weight(obj); /* defined after setting otyp+quan */ ! 272: obj = addinv(obj); ! 273: if(obj->olet == ARMOR_SYM){ ! 274: switch(obj->otyp){ ! 275: case SHIELD: ! 276: if(!uarms) setworn(obj, W_ARMS); ! 277: break; ! 278: case HELMET: ! 279: if(!uarmh) setworn(obj, W_ARMH); ! 280: break; ! 281: case PAIR_OF_GLOVES: ! 282: if(!uarmg) setworn(obj, W_ARMG); ! 283: break; ! 284: case ELVEN_CLOAK: ! 285: if(!uarm2) ! 286: setworn(obj, W_ARM); ! 287: break; ! 288: default: ! 289: if(!uarm) setworn(obj, W_ARM); ! 290: } ! 291: } ! 292: if(obj->olet == WEAPON_SYM) ! 293: if(!uwep) setuwep(obj); ! 294: #ifndef PYRAMID_BUG ! 295: if(--trop->trquan) continue; /* make a similar object */ ! 296: #else ! 297: if(trop->trquan) { /* check if zero first */ ! 298: --trop->trquan; ! 299: if(trop->trquan) ! 300: continue; /* make a similar object */ ! 301: } ! 302: #endif PYRAMID_BUG ! 303: trop++; ! 304: } ! 305: } ! 306: ! 307: #ifdef WIZARD ! 308: wiz_inv(){ ! 309: register struct trobj *trop = &Extra_objs[0]; ! 310: extern char *getenv(); ! 311: register char *ep = getenv("INVENT"); ! 312: register int type; ! 313: while(ep && *ep) { ! 314: type = atoi(ep); ! 315: ep = index(ep, ','); ! 316: if(ep) while(*ep == ',' || *ep == ' ') ep++; ! 317: if(type <= 0 || type > NROFOBJECTS) continue; ! 318: trop->trotyp = type; ! 319: trop->trolet = objects[type].oc_olet; ! 320: trop->trspe = 4; ! 321: trop->trknown = 1; ! 322: trop->trquan = 1; ! 323: ini_inv(trop); ! 324: } ! 325: /* give him a wand of wishing by default */ ! 326: trop->trotyp = WAN_WISHING; ! 327: trop->trolet = WAND_SYM; ! 328: trop->trspe = 20; ! 329: trop->trknown = 1; ! 330: trop->trquan = 1; ! 331: ini_inv(trop); ! 332: } ! 333: #endif WIZARD ! 334: ! 335: plnamesuffix() { ! 336: register char *p; ! 337: if(p = rindex(plname, '-')) { ! 338: *p = 0; ! 339: pl_character[0] = p[1]; ! 340: pl_character[1] = 0; ! 341: if(!plname[0]) { ! 342: askname(); ! 343: plnamesuffix(); ! 344: } ! 345: } ! 346: } ! 347: ! 348: role_index(pc) ! 349: char pc; ! 350: { /* must be called only from u_init() */ ! 351: /* so that rolesyms[] is defined */ ! 352: register char *cp; ! 353: ! 354: if(cp = index(rolesyms, pc)) ! 355: return(cp - rolesyms); ! 356: return(-1); ! 357: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.