pc-hack

PC HACK 3.61 source code (archival)
git clone http://frotz.net/git/pc-hack.git
Log | Files | Refs

mkobj.c (2967B)

      1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
      2 /* mkobj.c - version 1.0.3 */
      3 
      4 #include "hack.h"
      5 
      6 char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%";
      7 struct obj *mkobj(), *mksobj();
      8 
      9 struct obj *
     10 mkobj_at(let,x,y)
     11 register let,x,y;
     12 {
     13 	register struct obj *otmp = mkobj(let);
     14 	otmp->ox = x;
     15 	otmp->oy = y;
     16 	otmp->nobj = fobj;
     17 	fobj = otmp;
     18 	return(otmp);
     19 }
     20 
     21 mksobj_at(otyp,x,y)
     22 register otyp,x,y;
     23 {
     24 	register struct obj *otmp = mksobj(otyp);
     25 	otmp->ox = x;
     26 	otmp->oy = y;
     27 	otmp->nobj = fobj;
     28 	fobj = otmp;
     29 }
     30 
     31 struct obj *
     32 mkobj(let) {
     33 	if(!let)
     34 		let = mkobjstr[rn2(sizeof(mkobjstr) - 1)];
     35 	return(
     36 	    mksobj(
     37 		letter(let) ?
     38 		    CORPSE + ((let > 'Z') ? (let-'a'+'Z'-'@'+1) : (let-'@'))
     39 		:   probtype(let)
     40 	    )
     41 	);
     42 }
     43 	
     44 
     45 struct obj zeroobj;
     46 
     47 struct obj *
     48 mksobj(otyp)
     49 register otyp;
     50 {
     51 	register struct obj *otmp;
     52 	char let = objects[otyp].oc_olet;
     53 
     54 	otmp = newobj(0);
     55 	*otmp = zeroobj;
     56 	otmp->age = moves;
     57 	otmp->o_id = flags.ident++;
     58 	otmp->quan = 1;
     59 	otmp->olet = let;
     60 	otmp->otyp = otyp;
     61 	otmp->dknown = index("/=!?*", let) ? 0 : 1;
     62 	switch(let) {
     63 	case WEAPON_SYM:
     64 		otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1;
     65 		if(!rn2(11)) otmp->spe = rnd(3);
     66 		else if(!rn2(10)) {
     67 			otmp->cursed = 1;
     68 			otmp->spe = -rnd(3);
     69 		}
     70 		break;
     71 	case FOOD_SYM:
     72 		if(otmp->otyp >= CORPSE) break;
     73 #ifdef NOT_YET_IMPLEMENTED
     74 		/* if tins are to be identified, need to adapt doname() etc */
     75 		if(otmp->otyp == TIN)
     76 			otmp->spe = rnd(...);
     77 #endif /* NOT_YET_IMPLEMENTED /**/
     78 		/* fall into next case */
     79 	case GEM_SYM:
     80 		otmp->quan = rn2(6) ? 1 : 2;
     81 	case TOOL_SYM:
     82 	case CHAIN_SYM:
     83 	case BALL_SYM:
     84 	case ROCK_SYM:
     85 	case POTION_SYM:
     86 	case SCROLL_SYM:
     87 	case AMULET_SYM:
     88 		break;
     89 	case ARMOR_SYM:
     90 		if(!rn2(8)) otmp->cursed = 1;
     91 		if(!rn2(10)) otmp->spe = rnd(3);
     92 		else if(!rn2(9)) {
     93 			otmp->spe = -rnd(3);
     94 			otmp->cursed = 1;
     95 		}
     96 		break;
     97 	case WAND_SYM:
     98 		if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else
     99 		otmp->spe = rn1(5,
    100 			(objects[otmp->otyp].bits & NODIR) ? 11 : 4);
    101 		break;
    102 	case RING_SYM:
    103 		if(objects[otmp->otyp].bits & SPEC) {
    104 			if(!rn2(3)) {
    105 				otmp->cursed = 1;
    106 				otmp->spe = -rnd(2);
    107 			} else otmp->spe = rnd(2);
    108 		} else if(otmp->otyp == RIN_TELEPORTATION ||
    109 			  otmp->otyp == RIN_AGGRAVATE_MONSTER ||
    110 			  otmp->otyp == RIN_HUNGER || !rn2(9))
    111 			otmp->cursed = 1;
    112 		break;
    113 	default:
    114 		panic("impossible mkobj");
    115 	}
    116 	otmp->owt = weight(otmp);
    117 	return(otmp);
    118 }
    119 
    120 letter(c) {
    121 	return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z'));
    122 }
    123 
    124 weight(obj)
    125 register struct obj *obj;
    126 {
    127 register int wt = objects[obj->otyp].oc_weight;
    128 	return(wt ? wt*obj->quan : (obj->quan + 1)/2);
    129 }
    130 
    131 mkgold(num,x,y)
    132 register long num;
    133 {
    134 	register struct gold *gold;
    135 	register long amount = (num ? num : 1 + (rnd(dlevel+2) * rnd(30)));
    136 
    137 	if(gold = g_at(x,y))
    138 		gold->amount += amount;
    139 	else {
    140 		gold = newgold();
    141 		gold->ngold = fgold;
    142 		gold->gx = x;
    143 		gold->gy = y;
    144 		gold->amount = amount;
    145 		fgold = gold;
    146 		/* do sth with display? */
    147 	}
    148 }