1 /* $NetBSD: hack.mkobj.c,v 1.6 2003/04/02 18:36:38 jsm Exp $ */ 2 3 /* 4 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica, 5 * Amsterdam 6 * All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions are 10 * met: 11 * 12 * - Redistributions of source code must retain the above copyright notice, 13 * this list of conditions and the following disclaimer. 14 * 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. 18 * 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. 23 * 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. 35 */ 36 37 /* 38 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org> 39 * All rights reserved. 40 * 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. 51 * 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. 62 */ 63 64 #include <sys/cdefs.h> 65 #ifndef lint 66 __RCSID("$NetBSD: hack.mkobj.c,v 1.6 2003/04/02 18:36:38 jsm Exp $"); 67 #endif /* not lint */ 68 69 #include "hack.h" 70 #include "extern.h" 71 72 char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%"; 73 74 struct obj * 75 mkobj_at(let, x, y) 76 int let, x, y; 77 { 78 struct obj *otmp = mkobj(let); 79 otmp->ox = x; 80 otmp->oy = y; 81 otmp->nobj = fobj; 82 fobj = otmp; 83 return (otmp); 84 } 85 86 void 87 mksobj_at(otyp, x, y) 88 int otyp, x, y; 89 { 90 struct obj *otmp = mksobj(otyp); 91 otmp->ox = x; 92 otmp->oy = y; 93 otmp->nobj = fobj; 94 fobj = otmp; 95 } 96 97 struct obj * 98 mkobj(let) 99 int let; 100 { 101 if (!let) 102 let = mkobjstr[rn2(sizeof(mkobjstr) - 1)]; 103 return ( 104 mksobj( 105 letter(let) ? 106 CORPSE + ((let > 'Z') ? (let - 'a' + 'Z' - '@' + 1) : (let - '@')) 107 : probtype(let) 108 ) 109 ); 110 } 111 112 113 struct obj zeroobj; 114 115 struct obj * 116 mksobj(otyp) 117 int otyp; 118 { 119 struct obj *otmp; 120 char let = objects[otyp].oc_olet; 121 122 otmp = newobj(0); 123 *otmp = zeroobj; 124 otmp->age = moves; 125 otmp->o_id = flags.ident++; 126 otmp->quan = 1; 127 otmp->olet = let; 128 otmp->otyp = otyp; 129 otmp->dknown = strchr("/=!?*", let) ? 0 : 1; 130 switch (let) { 131 case WEAPON_SYM: 132 otmp->quan = (otmp->otyp <= ROCK) ? rn1(6, 6) : 1; 133 if (!rn2(11)) 134 otmp->spe = rnd(3); 135 else if (!rn2(10)) { 136 otmp->cursed = 1; 137 otmp->spe = -rnd(3); 138 } 139 break; 140 case FOOD_SYM: 141 if (otmp->otyp >= CORPSE) 142 break; 143 #ifdef NOT_YET_IMPLEMENTED 144 /* if tins are to be identified, need to adapt doname() etc */ 145 if (otmp->otyp == TIN) 146 otmp->spe = rnd(...); 147 #endif /* NOT_YET_IMPLEMENTED */ 148 /* fall into next case */ 149 case GEM_SYM: 150 otmp->quan = rn2(6) ? 1 : 2; 151 case TOOL_SYM: 152 case CHAIN_SYM: 153 case BALL_SYM: 154 case ROCK_SYM: 155 case POTION_SYM: 156 case SCROLL_SYM: 157 case AMULET_SYM: 158 break; 159 case ARMOR_SYM: 160 if (!rn2(8)) 161 otmp->cursed = 1; 162 if (!rn2(10)) 163 otmp->spe = rnd(3); 164 else if (!rn2(9)) { 165 otmp->spe = -rnd(3); 166 otmp->cursed = 1; 167 } 168 break; 169 case WAND_SYM: 170 if (otmp->otyp == WAN_WISHING) 171 otmp->spe = 3; 172 else 173 otmp->spe = rn1(5, 174 (objects[otmp->otyp].bits & NODIR) ? 11 : 4); 175 break; 176 case RING_SYM: 177 if (objects[otmp->otyp].bits & SPEC) { 178 if (!rn2(3)) { 179 otmp->cursed = 1; 180 otmp->spe = -rnd(2); 181 } else 182 otmp->spe = rnd(2); 183 } else if (otmp->otyp == RIN_TELEPORTATION || 184 otmp->otyp == RIN_AGGRAVATE_MONSTER || 185 otmp->otyp == RIN_HUNGER || !rn2(9)) 186 otmp->cursed = 1; 187 break; 188 default: 189 panic("impossible mkobj"); 190 } 191 otmp->owt = weight(otmp); 192 return (otmp); 193 } 194 195 int 196 letter(c) 197 int c; 198 { 199 return (('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z')); 200 } 201 202 int 203 weight(obj) 204 struct obj *obj; 205 { 206 int wt = objects[obj->otyp].oc_weight; 207 return (wt ? wt * obj->quan : (obj->quan + 1) / 2); 208 } 209 210 void 211 mkgold(long num, int x, int y) 212 { 213 struct gold *gold; 214 long amount = (num ? num : 1 + (rnd(dlevel + 2) * rnd(30))); 215 216 if ((gold = g_at(x, y)) != NULL) 217 gold->amount += amount; 218 else { 219 gold = newgold(); 220 gold->ngold = fgold; 221 gold->gx = x; 222 gold->gy = y; 223 gold->amount = amount; 224 fgold = gold; 225 /* do sth with display? */ 226 } 227 } 228