1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.mkobj.c - version 1.0.3 */
7 char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%";
8 struct obj *mkobj(), *mksobj();
14 struct obj *otmp = mkobj(let);
25 struct obj *otmp = mksobj(otyp);
35 let = mkobjstr[rn2(sizeof(mkobjstr) - 1)];
39 CORPSE + ((let > 'Z') ? (let-'a'+'Z'-'@'+1) : (let-'@'))
53 char let = objects[otyp].oc_olet;
58 otmp->o_id = flags.ident++;
62 otmp->dknown = index("/=!?*", let) ? 0 : 1;
65 otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1;
66 if(!rn2(11)) otmp->spe = rnd(3);
73 if(otmp->otyp >= CORPSE) break;
74 #ifdef NOT_YET_IMPLEMENTED
75 /* if tins are to be identified, need to adapt doname() etc */
78 #endif NOT_YET_IMPLEMENTED
79 /* fall into next case */
81 otmp->quan = rn2(6) ? 1 : 2;
91 if(!rn2(8)) otmp->cursed = 1;
92 if(!rn2(10)) otmp->spe = rnd(3);
99 if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else
101 (objects[otmp->otyp].bits & NODIR) ? 11 : 4);
104 if(objects[otmp->otyp].bits & SPEC) {
108 } else otmp->spe = rnd(2);
109 } else if(otmp->otyp == RIN_TELEPORTATION ||
110 otmp->otyp == RIN_AGGRAVATE_MONSTER ||
111 otmp->otyp == RIN_HUNGER || !rn2(9))
115 panic("impossible mkobj");
117 otmp->owt = weight(otmp);
122 return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z'));
128 int wt = objects[obj->otyp].oc_weight;
129 return(wt ? wt*obj->quan : (obj->quan + 1)/2);
136 long amount = (num ? num : 1 + (rnd(dlevel+2) * rnd(30)));
139 gold->amount += amount;
145 gold->amount = amount;
147 /* do sth with display? */