1 /* $OpenBSD: hack.mkobj.c,v 1.6 2003/05/19 06:30:56 pjanzen 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 #ifndef lint 65 static const char rcsid[] = "$OpenBSD: hack.mkobj.c,v 1.6 2003/05/19 06:30:56 pjanzen Exp $"; 66 #endif /* not lint */ 67 68 #include "hack.h" 69 70 char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%"; 71 72 struct obj * 73 mkobj_at(int let, int x, int y) 74 { 75 struct obj *otmp = mkobj(let); 76 otmp->ox = x; 77 otmp->oy = y; 78 otmp->nobj = fobj; 79 fobj = otmp; 80 return(otmp); 81 } 82 83 void 84 mksobj_at(int otyp, int x, int y) 85 { 86 struct obj *otmp = mksobj(otyp); 87 otmp->ox = x; 88 otmp->oy = y; 89 otmp->nobj = fobj; 90 fobj = otmp; 91 } 92 93 struct obj * 94 mkobj(int let) 95 { 96 if(!let) 97 let = mkobjstr[rn2(sizeof(mkobjstr) - 1)]; 98 return( 99 mksobj( 100 letter(let) ? 101 CORPSE + ((let > 'Z') ? (let-'a'+'Z'-'@'+1) : (let-'@')) 102 : probtype(let) 103 ) 104 ); 105 } 106 107 108 struct obj zeroobj; 109 110 struct obj * 111 mksobj(int otyp) 112 { 113 struct obj *otmp; 114 char let = objects[otyp].oc_olet; 115 116 otmp = newobj(0); 117 *otmp = zeroobj; 118 otmp->age = moves; 119 otmp->o_id = flags.ident++; 120 otmp->quan = 1; 121 otmp->olet = let; 122 otmp->otyp = otyp; 123 otmp->dknown = strchr("/=!?*", let) ? 0 : 1; 124 switch(let) { 125 case WEAPON_SYM: 126 otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1; 127 if(!rn2(11)) otmp->spe = rnd(3); 128 else if(!rn2(10)) { 129 otmp->cursed = 1; 130 otmp->spe = -rnd(3); 131 } 132 break; 133 case FOOD_SYM: 134 if(otmp->otyp >= CORPSE) break; 135 #ifdef NOT_YET_IMPLEMENTED 136 /* if tins are to be identified, need to adapt doname() etc */ 137 if(otmp->otyp == TIN) 138 otmp->spe = rnd(...); 139 #endif /* NOT_YET_IMPLEMENTED */ 140 /* fall into next case */ 141 case GEM_SYM: 142 otmp->quan = rn2(6) ? 1 : 2; 143 case TOOL_SYM: 144 case CHAIN_SYM: 145 case BALL_SYM: 146 case ROCK_SYM: 147 case POTION_SYM: 148 case SCROLL_SYM: 149 case AMULET_SYM: 150 break; 151 case ARMOR_SYM: 152 if(!rn2(8)) otmp->cursed = 1; 153 if(!rn2(10)) otmp->spe = rnd(3); 154 else if(!rn2(9)) { 155 otmp->spe = -rnd(3); 156 otmp->cursed = 1; 157 } 158 break; 159 case WAND_SYM: 160 if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else 161 otmp->spe = rn1(5, 162 (objects[otmp->otyp].bits & NODIR) ? 11 : 4); 163 break; 164 case RING_SYM: 165 if(objects[otmp->otyp].bits & SPEC) { 166 if(!rn2(3)) { 167 otmp->cursed = 1; 168 otmp->spe = -rnd(2); 169 } else otmp->spe = rnd(2); 170 } else if(otmp->otyp == RIN_TELEPORTATION || 171 otmp->otyp == RIN_AGGRAVATE_MONSTER || 172 otmp->otyp == RIN_HUNGER || !rn2(9)) 173 otmp->cursed = 1; 174 break; 175 default: 176 panic("impossible mkobj"); 177 } 178 otmp->owt = weight(otmp); 179 return(otmp); 180 } 181 182 int 183 letter(int c) 184 { 185 return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z')); 186 } 187 188 int 189 weight(struct obj *obj) 190 { 191 int wt = objects[obj->otyp].oc_weight; 192 193 return(wt ? wt*obj->quan : (obj->quan + 1)/2); 194 } 195 196 void 197 mkgold(long num, int x, int y) 198 { 199 struct gold *gold; 200 long amount = (num ? num : 1 + (rnd(dlevel+2) * rnd(30))); 201 202 if ((gold = g_at(x,y))) 203 gold->amount += amount; 204 else { 205 gold = newgold(); 206 gold->ngold = fgold; 207 gold->gx = x; 208 gold->gy = y; 209 gold->amount = amount; 210 fgold = gold; 211 /* do sth with display? */ 212 } 213 } 214