games/hack/hack.mkobj.c

   1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2 /* hack.mkobj.c - version 1.0.3 */
   3 /* $FreeBSD$ */
   4
   5 #include "hack.h"
   6
   7 char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%";
   8 struct obj *mkobj(), *mksobj();
   9
  10 struct obj *
  11 mkobj_at(let,x,y)
  12 int let,x,y;
  13 {
  14         struct obj *otmp = mkobj(let);
  15         otmp->ox = x;
  16         otmp->oy = y;
  17         otmp->nobj = fobj;
  18         fobj = otmp;
  19         return(otmp);
  20 }
  21
  22 mksobj_at(otyp,x,y)
  23 int otyp,x,y;
  24 {
  25         struct obj *otmp = mksobj(otyp);
  26         otmp->ox = x;
  27         otmp->oy = y;
  28         otmp->nobj = fobj;
  29         fobj = otmp;
  30 }
  31
  32 struct obj *
  33 mkobj(let) {
  34         if(!let)
  35                 let = mkobjstr[rn2(sizeof(mkobjstr) - 1)];
  36         return(
  37             mksobj(
  38                 letter(let) ?
  39                     CORPSE + ((let > 'Z') ? (let-'a'+'Z'-'@'+1) : (let-'@'))
  40                 :   probtype(let)
  41             )
  42         );
  43 }
  44
  45
  46 struct obj zeroobj;
  47
  48 struct obj *
  49 mksobj(otyp)
  50 int otyp;
  51 {
  52         struct obj *otmp;
  53         char let = objects[otyp].oc_olet;
  54
  55         otmp = newobj(0);
  56         *otmp = zeroobj;
  57         otmp->age = moves;
  58         otmp->o_id = flags.ident++;
  59         otmp->quan = 1;
  60         otmp->olet = let;
  61         otmp->otyp = otyp;
  62         otmp->dknown = index("/=!?*", let) ? 0 : 1;
  63         switch(let) {
  64         case WEAPON_SYM:
  65                 otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1;
  66                 if(!rn2(11)) otmp->spe = rnd(3);
  67                 else if(!rn2(10)) {
  68                         otmp->cursed = 1;
  69                         otmp->spe = -rnd(3);
  70                 }
  71                 break;
  72         case FOOD_SYM:
  73                 if(otmp->otyp >= CORPSE) break;
  74 #ifdef NOT_YET_IMPLEMENTED
  75                 /* if tins are to be identified, need to adapt doname() etc */
  76                 if(otmp->otyp == TIN)
  77                         otmp->spe = rnd(...);
  78 #endif NOT_YET_IMPLEMENTED
  79                 /* fall into next case */
  80         case GEM_SYM:
  81                 otmp->quan = rn2(6) ? 1 : 2;
  82         case TOOL_SYM:
  83         case CHAIN_SYM:
  84         case BALL_SYM:
  85         case ROCK_SYM:
  86         case POTION_SYM:
  87         case SCROLL_SYM:
  88         case AMULET_SYM:
  89                 break;
  90         case ARMOR_SYM:
  91                 if(!rn2(8)) otmp->cursed = 1;
  92                 if(!rn2(10)) otmp->spe = rnd(3);
  93                 else if(!rn2(9)) {
  94                         otmp->spe = -rnd(3);
  95                         otmp->cursed = 1;
  96                 }
  97                 break;
  98         case WAND_SYM:
  99                 if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else
 100                 otmp->spe = rn1(5,
 101                         (objects[otmp->otyp].bits & NODIR) ? 11 : 4);
 102                 break;
 103         case RING_SYM:
 104                 if(objects[otmp->otyp].bits & SPEC) {
 105                         if(!rn2(3)) {
 106                                 otmp->cursed = 1;
 107                                 otmp->spe = -rnd(2);
 108                         } else otmp->spe = rnd(2);
 109                 } else if(otmp->otyp == RIN_TELEPORTATION ||
 110                           otmp->otyp == RIN_AGGRAVATE_MONSTER ||
 111                           otmp->otyp == RIN_HUNGER || !rn2(9))
 112                         otmp->cursed = 1;
 113                 break;
 114         default:
 115                 panic("impossible mkobj");
 116         }
 117         otmp->owt = weight(otmp);
 118         return(otmp);
 119 }
 120
 121 letter(c) {
 122         return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z'));
 123 }
 124
 125 weight(obj)
 126 struct obj *obj;
 127 {
 128 int wt = objects[obj->otyp].oc_weight;
 129         return(wt ? wt*obj->quan : (obj->quan + 1)/2);
 130 }
 131
 132 mkgold(num,x,y)
 133 long num;
 134 {
 135         struct gold *gold;
 136         long amount = (num ? num : 1 + (rnd(dlevel+2) * rnd(30)));
 137
 138         if(gold = g_at(x,y))
 139                 gold->amount += amount;
 140         else {
 141                 gold = newgold();
 142                 gold->ngold = fgold;
 143                 gold->gx = x;
 144                 gold->gy = y;
 145                 gold->amount = amount;
 146                 fgold = gold;
 147                 /* do sth with display? */
 148         }
 149 }