1 /* $NetBSD: hack.mkobj.c,v 1.7 2009/06/07 18:30:39 dholland Exp $ */
4 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are
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
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
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>
66 __RCSID("$NetBSD: hack.mkobj.c,v 1.7 2009/06/07 18:30:39 dholland Exp $");
72 static const char mkobjstr
[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%";
75 mkobj_at(int let
, int x
, int y
)
77 struct obj
*otmp
= mkobj(let
);
86 mksobj_at(int otyp
, int x
, int y
)
88 struct obj
*otmp
= mksobj(otyp
);
99 let
= mkobjstr
[rn2(sizeof(mkobjstr
) - 1)];
103 CORPSE
+ ((let
> 'Z') ? (let
- 'a' + 'Z' - '@' + 1) : (let
- '@'))
116 char let
= objects
[otyp
].oc_olet
;
121 otmp
->o_id
= flags
.ident
++;
125 otmp
->dknown
= strchr("/=!?*", let
) ? 0 : 1;
128 otmp
->quan
= (otmp
->otyp
<= ROCK
) ? rn1(6, 6) : 1;
137 if (otmp
->otyp
>= CORPSE
)
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 */
146 otmp
->quan
= rn2(6) ? 1 : 2;
166 if (otmp
->otyp
== WAN_WISHING
)
170 (objects
[otmp
->otyp
].bits
& NODIR
) ? 11 : 4);
173 if (objects
[otmp
->otyp
].bits
& SPEC
) {
179 } else if (otmp
->otyp
== RIN_TELEPORTATION
||
180 otmp
->otyp
== RIN_AGGRAVATE_MONSTER
||
181 otmp
->otyp
== RIN_HUNGER
|| !rn2(9))
185 panic("impossible mkobj");
187 otmp
->owt
= weight(otmp
);
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);
205 mkgold(long num
, int x
, int y
)
208 long amount
= (num
? num
: 1 + (rnd(dlevel
+ 2) * rnd(30)));
210 if ((gold
= g_at(x
, y
)) != NULL
)
211 gold
->amount
+= amount
;
217 gold
->amount
= amount
;
219 /* do sth with display? */