Do not run mandoc for lintmanpages if MANPAGES is empty.
[netbsd-mini2440.git] / games / hack / hack.mkobj.c
blobb5c53cb0089d9aeb2dfc934382d8516caaf634a9
1 /* $NetBSD: hack.mkobj.c,v 1.7 2009/06/07 18:30:39 dholland Exp $ */
3 /*
4 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
5 * Amsterdam
6 * All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are
10 * met:
12 * - Redistributions of source code must retain the above copyright notice,
13 * this list of conditions and the following disclaimer.
15 * - Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
19 * - Neither the name of the Stichting Centrum voor Wiskunde en
20 * Informatica, nor the names of its contributors may be used to endorse or
21 * promote products derived from this software without specific prior
22 * written permission.
24 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
25 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
26 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
27 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
28 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
30 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
31 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
32 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
33 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
34 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
38 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
39 * All rights reserved.
41 * Redistribution and use in source and binary forms, with or without
42 * modification, are permitted provided that the following conditions
43 * are met:
44 * 1. Redistributions of source code must retain the above copyright
45 * notice, this list of conditions and the following disclaimer.
46 * 2. Redistributions in binary form must reproduce the above copyright
47 * notice, this list of conditions and the following disclaimer in the
48 * documentation and/or other materials provided with the distribution.
49 * 3. The name of the author may not be used to endorse or promote products
50 * derived from this software without specific prior written permission.
52 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
53 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
54 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
55 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
56 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
57 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
58 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
59 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
60 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
61 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
64 #include <sys/cdefs.h>
65 #ifndef lint
66 __RCSID("$NetBSD: hack.mkobj.c,v 1.7 2009/06/07 18:30:39 dholland Exp $");
67 #endif /* not lint */
69 #include "hack.h"
70 #include "extern.h"
72 static const char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%";
74 struct obj *
75 mkobj_at(int let, int x, int y)
77 struct obj *otmp = mkobj(let);
78 otmp->ox = x;
79 otmp->oy = y;
80 otmp->nobj = fobj;
81 fobj = otmp;
82 return (otmp);
85 void
86 mksobj_at(int otyp, int x, int y)
88 struct obj *otmp = mksobj(otyp);
89 otmp->ox = x;
90 otmp->oy = y;
91 otmp->nobj = fobj;
92 fobj = otmp;
95 struct obj *
96 mkobj(int let)
98 if (!let)
99 let = mkobjstr[rn2(sizeof(mkobjstr) - 1)];
100 return (
101 mksobj(
102 letter(let) ?
103 CORPSE + ((let > 'Z') ? (let - 'a' + 'Z' - '@' + 1) : (let - '@'))
104 : probtype(let)
110 struct obj zeroobj;
112 struct obj *
113 mksobj(int otyp)
115 struct obj *otmp;
116 char let = objects[otyp].oc_olet;
118 otmp = newobj(0);
119 *otmp = zeroobj;
120 otmp->age = moves;
121 otmp->o_id = flags.ident++;
122 otmp->quan = 1;
123 otmp->olet = let;
124 otmp->otyp = otyp;
125 otmp->dknown = strchr("/=!?*", let) ? 0 : 1;
126 switch (let) {
127 case WEAPON_SYM:
128 otmp->quan = (otmp->otyp <= ROCK) ? rn1(6, 6) : 1;
129 if (!rn2(11))
130 otmp->spe = rnd(3);
131 else if (!rn2(10)) {
132 otmp->cursed = 1;
133 otmp->spe = -rnd(3);
135 break;
136 case FOOD_SYM:
137 if (otmp->otyp >= CORPSE)
138 break;
139 #ifdef NOT_YET_IMPLEMENTED
140 /* if tins are to be identified, need to adapt doname() etc */
141 if (otmp->otyp == TIN)
142 otmp->spe = rnd(...);
143 #endif /* NOT_YET_IMPLEMENTED */
144 /* fall into next case */
145 case GEM_SYM:
146 otmp->quan = rn2(6) ? 1 : 2;
147 case TOOL_SYM:
148 case CHAIN_SYM:
149 case BALL_SYM:
150 case ROCK_SYM:
151 case POTION_SYM:
152 case SCROLL_SYM:
153 case AMULET_SYM:
154 break;
155 case ARMOR_SYM:
156 if (!rn2(8))
157 otmp->cursed = 1;
158 if (!rn2(10))
159 otmp->spe = rnd(3);
160 else if (!rn2(9)) {
161 otmp->spe = -rnd(3);
162 otmp->cursed = 1;
164 break;
165 case WAND_SYM:
166 if (otmp->otyp == WAN_WISHING)
167 otmp->spe = 3;
168 else
169 otmp->spe = rn1(5,
170 (objects[otmp->otyp].bits & NODIR) ? 11 : 4);
171 break;
172 case RING_SYM:
173 if (objects[otmp->otyp].bits & SPEC) {
174 if (!rn2(3)) {
175 otmp->cursed = 1;
176 otmp->spe = -rnd(2);
177 } else
178 otmp->spe = rnd(2);
179 } else if (otmp->otyp == RIN_TELEPORTATION ||
180 otmp->otyp == RIN_AGGRAVATE_MONSTER ||
181 otmp->otyp == RIN_HUNGER || !rn2(9))
182 otmp->cursed = 1;
183 break;
184 default:
185 panic("impossible mkobj");
187 otmp->owt = weight(otmp);
188 return (otmp);
192 letter(int c)
194 return (('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z'));
198 weight(struct obj *obj)
200 int wt = objects[obj->otyp].oc_weight;
201 return (wt ? wt * obj->quan : (obj->quan + 1) / 2);
204 void
205 mkgold(long num, int x, int y)
207 struct gold *gold;
208 long amount = (num ? num : 1 + (rnd(dlevel + 2) * rnd(30)));
210 if ((gold = g_at(x, y)) != NULL)
211 gold->amount += amount;
212 else {
213 gold = newgold();
214 gold->ngold = fgold;
215 gold->gx = x;
216 gold->gy = y;
217 gold->amount = amount;
218 fgold = gold;
219 /* do sth with display? */