1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.mkobj.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.mkobj.c,v 1.5 1999/11/16 10:26:37 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.mkobj.c,v 1.2 2003/06/17 04:25:24 dillon Exp $ */
8 char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%";
9 struct obj *mkobj(), *mksobj();
15 struct obj *otmp = mkobj(let);
26 struct obj *otmp = mksobj(otyp);
36 let = mkobjstr[rn2(sizeof(mkobjstr) - 1)];
40 CORPSE + ((let > 'Z') ? (let-'a'+'Z'-'@'+1) : (let-'@'))
54 char let = objects[otyp].oc_olet;
59 otmp->o_id = flags.ident++;
63 otmp->dknown = index("/=!?*", let) ? 0 : 1;
66 otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1;
67 if(!rn2(11)) otmp->spe = rnd(3);
74 if(otmp->otyp >= CORPSE) break;
75 #ifdef NOT_YET_IMPLEMENTED
76 /* if tins are to be identified, need to adapt doname() etc */
79 #endif NOT_YET_IMPLEMENTED
80 /* fall into next case */
82 otmp->quan = rn2(6) ? 1 : 2;
92 if(!rn2(8)) otmp->cursed = 1;
93 if(!rn2(10)) otmp->spe = rnd(3);
100 if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else
102 (objects[otmp->otyp].bits & NODIR) ? 11 : 4);
105 if(objects[otmp->otyp].bits & SPEC) {
109 } else otmp->spe = rnd(2);
110 } else if(otmp->otyp == RIN_TELEPORTATION ||
111 otmp->otyp == RIN_AGGRAVATE_MONSTER ||
112 otmp->otyp == RIN_HUNGER || !rn2(9))
116 panic("impossible mkobj");
118 otmp->owt = weight(otmp);
123 return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z'));
129 int wt = objects[obj->otyp].oc_weight;
130 return(wt ? wt*obj->quan : (obj->quan + 1)/2);
137 long amount = (num ? num : 1 + (rnd(dlevel+2) * rnd(30)));
140 gold->amount += amount;
146 gold->amount = amount;
148 /* do sth with display? */