![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to things.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / games / rogue|
Return to things.c CVS log | Up to [Research Unix] / researchv10no / games / rogue |
1.1 root 1: /*
2: * Contains functions for dealing with things like
3: * potions and scrolls
4: *
5: * @(#)things.c 3.37 (Berkeley) 6/15/81
6: */
7:
8: #include <curses.h>
9: #include <ctype.h>
10: #include "rogue.h"
11:
12: /*
13: * inv_name:
14: * return the name of something as it would appear in an
15: * inventory.
16: */
17: char *
18: inv_name(obj, drop)
19: register struct object *obj;
20: register bool drop;
21: {
22: register char *pb;
23:
24: switch(obj->o_type)
25: {
26: when SCROLL:
27: if (obj->o_count == 1)
28: strcpy(prbuf, "A scroll ");
29: else
30: sprintf(prbuf, "%d scrolls ", obj->o_count);
31: pb = &prbuf[strlen(prbuf)];
32: if (s_know[obj->o_which])
33: sprintf(pb, "of %s", s_magic[obj->o_which].mi_name);
34: else if (s_guess[obj->o_which])
35: sprintf(pb, "called %s", s_guess[obj->o_which]);
36: else
37: sprintf(pb, "titled '%s'", s_names[obj->o_which]);
38: when POTION:
39: if (obj->o_count == 1)
40: strcpy(prbuf, "A potion ");
41: else
42: sprintf(prbuf, "%d potions ", obj->o_count);
43: pb = &prbuf[strlen(prbuf)];
44: if (p_know[obj->o_which])
45: sprintf(pb, "of %s(%s)", p_magic[obj->o_which].mi_name,
46: p_colors[obj->o_which]);
47: else if (p_guess[obj->o_which])
48: sprintf(pb, "called %s(%s)", p_guess[obj->o_which],
49: p_colors[obj->o_which]);
50: else if (obj->o_count == 1)
51: sprintf(prbuf, "A%s %s potion",
52: vowelstr(p_colors[obj->o_which]),
53: p_colors[obj->o_which]);
54: else
55: sprintf(prbuf, "%d %s potions", obj->o_count,
56: p_colors[obj->o_which]);
57: when FOOD:
58: if (obj->o_which == 1)
59: if (obj->o_count == 1)
60: sprintf(prbuf, "A%s %s", vowelstr(fruit), fruit);
61: else
62: sprintf(prbuf, "%d %ss", obj->o_count, fruit);
63: else
64: if (obj->o_count == 1)
65: strcpy(prbuf, "Some food");
66: else
67: sprintf(prbuf, "%d rations of food", obj->o_count);
68: when WEAPON:
69: if (obj->o_count > 1)
70: sprintf(prbuf, "%d ", obj->o_count);
71: else
72: strcpy(prbuf, "A ");
73: pb = &prbuf[strlen(prbuf)];
74: if (obj->o_flags & ISKNOW)
75: sprintf(pb, "%s %s", num(obj->o_hplus, obj->o_dplus),
76: w_names[obj->o_which]);
77: else
78: sprintf(pb, "%s", w_names[obj->o_which]);
79: if (obj->o_count > 1)
80: strcat(prbuf, "s");
81: when ARMOR:
82: if (obj->o_flags & ISKNOW)
83: sprintf(prbuf, "%s %s",
84: num(a_class[obj->o_which] - obj->o_ac, 0),
85: a_names[obj->o_which]);
86: else
87: sprintf(prbuf, "%s", a_names[obj->o_which]);
88: when AMULET:
89: strcpy(prbuf, "The Amulet of Yendor");
90: when STICK:
91: sprintf(prbuf, "A %s ", ws_type[obj->o_which]);
92: pb = &prbuf[strlen(prbuf)];
93: if (ws_know[obj->o_which])
94: sprintf(pb, "of %s%s(%s)", ws_magic[obj->o_which].mi_name,
95: charge_str(obj), ws_made[obj->o_which]);
96: else if (ws_guess[obj->o_which])
97: sprintf(pb, "called %s(%s)", ws_guess[obj->o_which],
98: ws_made[obj->o_which]);
99: else
100: sprintf(&prbuf[2], "%s %s", ws_made[obj->o_which],
101: ws_type[obj->o_which]);
102: when RING:
103: if (r_know[obj->o_which])
104: sprintf(prbuf, "A%s ring of %s(%s)", ring_num(obj),
105: r_magic[obj->o_which].mi_name, r_stones[obj->o_which]);
106: else if (r_guess[obj->o_which])
107: sprintf(prbuf, "A ring called %s(%s)",
108: r_guess[obj->o_which], r_stones[obj->o_which]);
109: else
110: sprintf(prbuf, "A%s %s ring", vowelstr(r_stones[obj->o_which]),
111: r_stones[obj->o_which]);
112: otherwise:
113: debug("Picked up something funny");
114: sprintf(prbuf, "Something bizarre %s", unctrl(obj->o_type));
115: }
116: if (obj == cur_armor)
117: strcat(prbuf, " (being worn)");
118: if (obj == cur_weapon)
119: strcat(prbuf, " (weapon in hand)");
120: if (obj == cur_ring[LEFT])
121: strcat(prbuf, " (on left hand)");
122: else if (obj == cur_ring[RIGHT])
123: strcat(prbuf, " (on right hand)");
124: if (drop && isupper(prbuf[0]))
125: prbuf[0] = tolower(prbuf[0]);
126: else if (!drop && islower(*prbuf))
127: *prbuf = toupper(*prbuf);
128: if (!drop)
129: strcat(prbuf, ".");
130: return prbuf;
131: }
132:
133: /*
134: * money:
135: * Add to characters purse
136: */
137: money()
138: {
139: register struct room *rp;
140:
141: for (rp = rooms; rp < &rooms[MAXROOMS]; rp++)
142: if (ce(hero, rp->r_gold))
143: {
144: if (notify)
145: {
146: if (!terse)
147: addmsg("You found ");
148: msg("%d gold pieces.", rp->r_goldval);
149: }
150: purse += rp->r_goldval;
151: rp->r_goldval = 0;
152: cmov(rp->r_gold);
153: addch(FLOOR);
154: return;
155: }
156: msg("That gold must have been counterfeit");
157: }
158:
159: /*
160: * drop:
161: * put something down
162: */
163: drop()
164: {
165: register char ch;
166: register struct linked_list *obj, *nobj;
167: register struct object *op;
168:
169: ch = mvwinch(stdscr, hero.y, hero.x);
170: if (ch != FLOOR && ch != PASSAGE)
171: {
172: msg("There is something there already");
173: return;
174: }
175: if ((obj = get_item("drop", 0)) == NULL)
176: return;
177: op = (struct object *) ldata(obj);
178: if (!dropcheck(op))
179: return;
180: /*
181: * Take it out of the pack
182: */
183: if (op->o_count >= 2 && op->o_type != WEAPON)
184: {
185: nobj = new_item(sizeof *op);
186: op->o_count--;
187: op = (struct object *) ldata(nobj);
188: *op = *((struct object *) ldata(obj));
189: op->o_count = 1;
190: obj = nobj;
191: if (op->o_group != 0)
192: inpack++;
193: }
194: else
195: detach(pack, obj);
196: inpack--;
197: /*
198: * Link it into the level object list
199: */
200: attach(lvl_obj, obj);
201: mvaddch(hero.y, hero.x, op->o_type);
202: op->o_pos = hero;
203: msg("Dropped %s", inv_name(op, TRUE));
204: }
205:
206: /*
207: * do special checks for dropping or unweilding|unwearing|unringing
208: */
209: dropcheck(op)
210: register struct object *op;
211: {
212: str_t save_max;
213:
214: if (op == NULL)
215: return TRUE;
216: if (op != cur_armor && op != cur_weapon
217: && op != cur_ring[LEFT] && op != cur_ring[RIGHT])
218: return TRUE;
219: if (op->o_flags & ISCURSED)
220: {
221: msg("You can't. It appears to be cursed.");
222: return FALSE;
223: }
224: if (op == cur_weapon)
225: cur_weapon = NULL;
226: else if (op == cur_armor)
227: {
228: waste_time();
229: cur_armor = NULL;
230: }
231: else if (op == cur_ring[LEFT] || op == cur_ring[RIGHT])
232: {
233: switch (op->o_which)
234: {
235: case R_ADDSTR:
236: save_max = max_stats.s_str;
237: chg_str(-op->o_ac);
238: max_stats.s_str = save_max;
239: break;
240: case R_SEEINVIS:
241: player.t_flags &= ~CANSEE;
242: extinguish(unsee);
243: light(&hero);
244: mvwaddch(cw, hero.y, hero.x, PLAYER);
245: break;
246: }
247: cur_ring[op == cur_ring[LEFT] ? LEFT : RIGHT] = NULL;
248: }
249: return TRUE;
250: }
251:
252: /*
253: * return a new thing
254: */
255: struct linked_list *
256: new_thing()
257: {
258: register struct linked_list *item;
259: register struct object *cur;
260: register int j, k;
261:
262: item = new_item(sizeof *cur);
263: cur = (struct object *) ldata(item);
264: cur->o_hplus = cur->o_dplus = 0;
265: cur->o_damage = cur->o_hurldmg = "0d0";
266: cur->o_ac = 11;
267: cur->o_count = 1;
268: cur->o_group = 0;
269: cur->o_flags = 0;
270: /*
271: * Decide what kind of object it will be
272: * If we haven't had food for a while, let it be food.
273: */
274: switch (no_food > 3 ? 2 : pick_one(things, NUMTHINGS))
275: {
276: when 0:
277: cur->o_type = POTION;
278: cur->o_which = pick_one(p_magic, MAXPOTIONS);
279: when 1:
280: cur->o_type = SCROLL;
281: cur->o_which = pick_one(s_magic, MAXSCROLLS);
282: when 2:
283: no_food = 0;
284: cur->o_type = FOOD;
285: if (rnd(100) > 10)
286: cur->o_which = 0;
287: else
288: cur->o_which = 1;
289: when 3:
290: cur->o_type = WEAPON;
291: cur->o_which = rnd(MAXWEAPONS);
292: init_weapon(cur, cur->o_which);
293: if ((k = rnd(100)) < 10)
294: {
295: cur->o_flags |= ISCURSED;
296: cur->o_hplus -= rnd(3)+1;
297: }
298: else if (k < 15)
299: cur->o_hplus += rnd(3)+1;
300: when 4:
301: cur->o_type = ARMOR;
302: for (j = 0, k = rnd(100); j < MAXARMORS; j++)
303: if (k < a_chances[j])
304: break;
305: if (j == MAXARMORS)
306: {
307: debug("Picked a bad armor %d", k);
308: j = 0;
309: }
310: cur->o_which = j;
311: cur->o_ac = a_class[j];
312: if ((k = rnd(100)) < 20)
313: {
314: cur->o_flags |= ISCURSED;
315: cur->o_ac += rnd(3)+1;
316: }
317: else if (k < 28)
318: cur->o_ac -= rnd(3)+1;
319: when 5:
320: cur->o_type = RING;
321: cur->o_which = pick_one(r_magic, MAXRINGS);
322: switch (cur->o_which)
323: {
324: when R_ADDSTR:
325: case R_PROTECT:
326: case R_ADDHIT:
327: case R_ADDDAM:
328: if ((cur->o_ac = rnd(3)) == 0)
329: {
330: cur->o_ac = -1;
331: cur->o_flags |= ISCURSED;
332: }
333: when R_AGGR:
334: case R_TELEPORT:
335: cur->o_flags |= ISCURSED;
336: }
337: when 6:
338: cur->o_type = STICK;
339: cur->o_which = pick_one(ws_magic, MAXSTICKS);
340: fix_stick(cur);
341: otherwise:
342: debug("Picked a bad kind of object");
343: wait_for(' ');
344: }
345: return item;
346: }
347:
348: /*
349: * pick an item out of a list of nitems possible magic items
350: */
351: pick_one(magic, nitems)
352: register struct magic_item *magic;
353: int nitems;
354: {
355: register struct magic_item *end;
356: register int i;
357: register struct magic_item *start;
358:
359: start = magic;
360: for (end = &magic[nitems], i = rnd(100); magic < end; magic++)
361: if (i < magic->mi_prob)
362: break;
363: if (magic == end)
364: {
365: if (wizard)
366: {
367: msg("bad pick_one: %d from %d items", i, nitems);
368: for (magic = start; magic < end; magic++)
369: msg("%s: %d%%", magic->mi_name, magic->mi_prob);
370: }
371: magic = start;
372: }
373: return magic - start;
374: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.