![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to object.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / rogue|
Return to object.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / rogue |
1.1 root 1: /*
2: * Copyright (c) 1988 The Regents of the University of California.
3: * All rights reserved.
4: *
5: * This code is derived from software contributed to Berkeley by
6: * Timothy C. Stoehr.
7: *
8: * Redistribution and use in source and binary forms are permitted
9: * provided that: (1) source distributions retain this entire copyright
10: * notice and comment, and (2) distributions including binaries display
11: * the following acknowledgement: ``This product includes software
12: * developed by the University of California, Berkeley and its contributors''
13: * in the documentation or other materials provided with the distribution
14: * and in all advertising materials mentioning features or use of this
15: * software. Neither the name of the University nor the names of its
16: * contributors may be used to endorse or promote products derived
17: * from this software without specific prior written permission.
18: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
19: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
20: * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
21: */
22:
23: #ifndef lint
24: static char sccsid[] = "@(#)object.c 5.3 (Berkeley) 6/1/90";
25: #endif /* not lint */
26:
27: /*
28: * object.c
29: *
30: * This source herein may be modified and/or distributed by anybody who
31: * so desires, with the following restrictions:
32: * 1.) No portion of this notice shall be removed.
33: * 2.) Credit shall not be taken for the creation of this source.
34: * 3.) This code is not to be traded, sold, or used for personal
35: * gain or profit.
36: *
37: */
38:
39: #include "rogue.h"
40:
41: object level_objects;
42: unsigned short dungeon[DROWS][DCOLS];
43: short foods = 0;
44: object *free_list = (object *) 0;
45: char *fruit = (char *) 0;
46:
47: fighter rogue = {
48: INIT_AW, /* armor, weapon */
49: INIT_RINGS, /* rings */
50: INIT_HP, /* Hp current,max */
51: INIT_STR, /* Str current,max */
52: INIT_PACK, /* pack */
53: INIT_GOLD, /* gold */
54: INIT_EXP, /* exp level,points */
55: 0, 0, /* row, col */
56: INIT_CHAR, /* char */
57: INIT_MOVES /* moves */
58: };
59:
60: struct id id_potions[POTIONS] = {
61: {100, "blue \0 ", "of increase strength ", 0},
62: {250, "red \0 ", "of restore strength ", 0},
63: {100, "green \0 ", "of healing ", 0},
64: {200, "grey \0 ", "of extra healing ", 0},
65: {10, "brown \0 ", "of poison ", 0},
66: {300, "clear \0 ", "of raise level ", 0},
67: {10, "pink \0 ", "of blindness ", 0},
68: {25, "white \0 ", "of hallucination ", 0},
69: {100, "purple \0 ", "of detect monster ", 0},
70: {100, "black \0 ", "of detect things ", 0},
71: {10, "yellow \0 ", "of confusion ", 0},
72: {80, "plaid \0 ", "of levitation ", 0},
73: {150, "burgundy \0 ", "of haste self ", 0},
74: {145, "beige \0 ", "of see invisible ", 0}
75: };
76:
77: struct id id_scrolls[SCROLS] = {
78: {505, " ", "of protect armor ", 0},
79: {200, " ", "of hold monster ", 0},
80: {235, " ", "of enchant weapon ", 0},
81: {235, " ", "of enchant armor ", 0},
82: {175, " ", "of identify ", 0},
83: {190, " ", "of teleportation ", 0},
84: {25, " ", "of sleep ", 0},
85: {610, " ", "of scare monster ", 0},
86: {210, " ", "of remove curse ", 0},
87: {80, " ", "of create monster ",0},
88: {25, " ", "of aggravate monster ",0},
89: {180, " ", "of magic mapping ", 0},
90: {90, " ", "of confuse monster ", 0}
91: };
92:
93: struct id id_weapons[WEAPONS] = {
94: {150, "short bow ", "", 0},
95: {8, "darts ", "", 0},
96: {15, "arrows ", "", 0},
97: {27, "daggers ", "", 0},
98: {35, "shurikens ", "", 0},
99: {360, "mace ", "", 0},
100: {470, "long sword ", "", 0},
101: {580, "two-handed sword ", "", 0}
102: };
103:
104: struct id id_armors[ARMORS] = {
105: {300, "leather armor ", "", (UNIDENTIFIED)},
106: {300, "ring mail ", "", (UNIDENTIFIED)},
107: {400, "scale mail ", "", (UNIDENTIFIED)},
108: {500, "chain mail ", "", (UNIDENTIFIED)},
109: {600, "banded mail ", "", (UNIDENTIFIED)},
110: {600, "splint mail ", "", (UNIDENTIFIED)},
111: {700, "plate mail ", "", (UNIDENTIFIED)}
112: };
113:
114: struct id id_wands[WANDS] = {
115: {25, " ", "of teleport away ",0},
116: {50, " ", "of slow monster ", 0},
117: {8, " ", "of invisibility ",0},
118: {55, " ", "of polymorph ",0},
119: {2, " ", "of haste monster ",0},
120: {20, " ", "of magic missile ",0},
121: {20, " ", "of cancellation ",0},
122: {0, " ", "of do nothing ",0},
123: {35, " ", "of drain life ",0},
124: {20, " ", "of cold ",0},
125: {20, " ", "of fire ",0}
126: };
127:
128: struct id id_rings[RINGS] = {
129: {250, " ", "of stealth ",0},
130: {100, " ", "of teleportation ", 0},
131: {255, " ", "of regeneration ",0},
132: {295, " ", "of slow digestion ",0},
133: {200, " ", "of add strength ",0},
134: {250, " ", "of sustain strength ",0},
135: {250, " ", "of dexterity ",0},
136: {25, " ", "of adornment ",0},
137: {300, " ", "of see invisible ",0},
138: {290, " ", "of maintain armor ",0},
139: {270, " ", "of searching ",0},
140: };
141:
142: extern short cur_level, max_level;
143: extern short party_room;
144: extern char *error_file;
145: extern boolean is_wood[];
146:
147: put_objects()
148: {
149: short i, n;
150: object *obj;
151:
152: if (cur_level < max_level) {
153: return;
154: }
155: n = coin_toss() ? get_rand(2, 4) : get_rand(3, 5);
156: while (rand_percent(33)) {
157: n++;
158: }
159: if (party_room != NO_ROOM) {
160: make_party();
161: }
162: for (i = 0; i < n; i++) {
163: obj = gr_object();
164: rand_place(obj);
165: }
166: put_gold();
167: }
168:
169: put_gold()
170: {
171: short i, j;
172: short row,col;
173: boolean is_maze, is_room;
174:
175: for (i = 0; i < MAXROOMS; i++) {
176: is_maze = (rooms[i].is_room & R_MAZE) ? 1 : 0;
177: is_room = (rooms[i].is_room & R_ROOM) ? 1 : 0;
178:
179: if (!(is_room || is_maze)) {
180: continue;
181: }
182: if (is_maze || rand_percent(GOLD_PERCENT)) {
183: for (j = 0; j < 50; j++) {
184: row = get_rand(rooms[i].top_row+1,
185: rooms[i].bottom_row-1);
186: col = get_rand(rooms[i].left_col+1,
187: rooms[i].right_col-1);
188: if ((dungeon[row][col] == FLOOR) ||
189: (dungeon[row][col] == TUNNEL)) {
190: plant_gold(row, col, is_maze);
191: break;
192: }
193: }
194: }
195: }
196: }
197:
198: plant_gold(row, col, is_maze)
199: short row, col;
200: boolean is_maze;
201: {
202: object *obj;
203:
204: obj = alloc_object();
205: obj->row = row; obj->col = col;
206: obj->what_is = GOLD;
207: obj->quantity = get_rand((2 * cur_level), (16 * cur_level));
208: if (is_maze) {
209: obj->quantity += obj->quantity / 2;
210: }
211: dungeon[row][col] |= OBJECT;
212: (void) add_to_pack(obj, &level_objects, 0);
213: }
214:
215: place_at(obj, row, col)
216: object *obj;
217: {
218: obj->row = row;
219: obj->col = col;
220: dungeon[row][col] |= OBJECT;
221: (void) add_to_pack(obj, &level_objects, 0);
222: }
223:
224: object *
225: object_at(pack, row, col)
226: register object *pack;
227: short row, col;
228: {
229: object *obj = (object *) 0;
230:
231: if (dungeon[row][col] & (MONSTER | OBJECT)) {
232: obj = pack->next_object;
233:
234: while (obj && ((obj->row != row) || (obj->col != col))) {
235: obj = obj->next_object;
236: }
237: if (!obj) {
238: message("object_at(): inconsistent", 1);
239: }
240: }
241: return(obj);
242: }
243:
244: object *
245: get_letter_object(ch)
246: {
247: object *obj;
248:
249: obj = rogue.pack.next_object;
250:
251: while (obj && (obj->ichar != ch)) {
252: obj = obj->next_object;
253: }
254: return(obj);
255: }
256:
257: free_stuff(objlist)
258: object *objlist;
259: {
260: object *obj;
261:
262: while (objlist->next_object) {
263: obj = objlist->next_object;
264: objlist->next_object =
265: objlist->next_object->next_object;
266: free_object(obj);
267: }
268: }
269:
270: char *
271: name_of(obj)
272: object *obj;
273: {
274: char *retstring;
275:
276: switch(obj->what_is) {
277: case SCROL:
278: retstring = obj->quantity > 1 ? "scrolls " : "scroll ";
279: break;
280: case POTION:
281: retstring = obj->quantity > 1 ? "potions " : "potion ";
282: break;
283: case FOOD:
284: if (obj->which_kind == RATION) {
285: retstring = "food ";
286: } else {
287: retstring = fruit;
288: }
289: break;
290: case WAND:
291: retstring = is_wood[obj->which_kind] ? "staff " : "wand ";
292: break;
293: case WEAPON:
294: switch(obj->which_kind) {
295: case DART:
296: retstring=obj->quantity > 1 ? "darts " : "dart ";
297: break;
298: case ARROW:
299: retstring=obj->quantity > 1 ? "arrows " : "arrow ";
300: break;
301: case DAGGER:
302: retstring=obj->quantity > 1 ? "daggers " : "dagger ";
303: break;
304: case SHURIKEN:
305: retstring=obj->quantity > 1?"shurikens ":"shuriken ";
306: break;
307: default:
308: retstring = id_weapons[obj->which_kind].title;
309: }
310: break;
311: case ARMOR:
312: retstring = "armor ";
313: break;
314: case RING:
315: retstring = "ring ";
316: break;
317: case AMULET:
318: retstring = "amulet ";
319: break;
320: default:
321: retstring = "unknown ";
322: break;
323: }
324: return(retstring);
325: }
326:
327: object *
328: gr_object()
329: {
330: object *obj;
331:
332: obj = alloc_object();
333:
334: if (foods < (cur_level / 3)) {
335: obj->what_is = FOOD;
336: foods++;
337: } else {
338: obj->what_is = gr_what_is();
339: }
340: switch(obj->what_is) {
341: case SCROL:
342: gr_scroll(obj);
343: break;
344: case POTION:
345: gr_potion(obj);
346: break;
347: case WEAPON:
348: gr_weapon(obj, 1);
349: break;
350: case ARMOR:
351: gr_armor(obj);
352: break;
353: case WAND:
354: gr_wand(obj);
355: break;
356: case FOOD:
357: get_food(obj, 0);
358: break;
359: case RING:
360: gr_ring(obj, 1);
361: break;
362: }
363: return(obj);
364: }
365:
366: unsigned short
367: gr_what_is()
368: {
369: short percent;
370: unsigned short what_is;
371:
372: percent = get_rand(1, 91);
373:
374: if (percent <= 30) {
375: what_is = SCROL;
376: } else if (percent <= 60) {
377: what_is = POTION;
378: } else if (percent <= 64) {
379: what_is = WAND;
380: } else if (percent <= 74) {
381: what_is = WEAPON;
382: } else if (percent <= 83) {
383: what_is = ARMOR;
384: } else if (percent <= 88) {
385: what_is = FOOD;
386: } else {
387: what_is = RING;
388: }
389: return(what_is);
390: }
391:
392: gr_scroll(obj)
393: object *obj;
394: {
395: short percent;
396:
397: percent = get_rand(0, 91);
398:
399: obj->what_is = SCROL;
400:
401: if (percent <= 5) {
402: obj->which_kind = PROTECT_ARMOR;
403: } else if (percent <= 10) {
404: obj->which_kind = HOLD_MONSTER;
405: } else if (percent <= 20) {
406: obj->which_kind = CREATE_MONSTER;
407: } else if (percent <= 35) {
408: obj->which_kind = IDENTIFY;
409: } else if (percent <= 43) {
410: obj->which_kind = TELEPORT;
411: } else if (percent <= 50) {
412: obj->which_kind = SLEEP;
413: } else if (percent <= 55) {
414: obj->which_kind = SCARE_MONSTER;
415: } else if (percent <= 64) {
416: obj->which_kind = REMOVE_CURSE;
417: } else if (percent <= 69) {
418: obj->which_kind = ENCH_ARMOR;
419: } else if (percent <= 74) {
420: obj->which_kind = ENCH_WEAPON;
421: } else if (percent <= 80) {
422: obj->which_kind = AGGRAVATE_MONSTER;
423: } else if (percent <= 86) {
424: obj->which_kind = CON_MON;
425: } else {
426: obj->which_kind = MAGIC_MAPPING;
427: }
428: }
429:
430: gr_potion(obj)
431: object *obj;
432: {
433: short percent;
434:
435: percent = get_rand(1, 118);
436:
437: obj->what_is = POTION;
438:
439: if (percent <= 5) {
440: obj->which_kind = RAISE_LEVEL;
441: } else if (percent <= 15) {
442: obj->which_kind = DETECT_OBJECTS;
443: } else if (percent <= 25) {
444: obj->which_kind = DETECT_MONSTER;
445: } else if (percent <= 35) {
446: obj->which_kind = INCREASE_STRENGTH;
447: } else if (percent <= 45) {
448: obj->which_kind = RESTORE_STRENGTH;
449: } else if (percent <= 55) {
450: obj->which_kind = HEALING;
451: } else if (percent <= 65) {
452: obj->which_kind = EXTRA_HEALING;
453: } else if (percent <= 75) {
454: obj->which_kind = BLINDNESS;
455: } else if (percent <= 85) {
456: obj->which_kind = HALLUCINATION;
457: } else if (percent <= 95) {
458: obj->which_kind = CONFUSION;
459: } else if (percent <= 105) {
460: obj->which_kind = POISON;
461: } else if (percent <= 110) {
462: obj->which_kind = LEVITATION;
463: } else if (percent <= 114) {
464: obj->which_kind = HASTE_SELF;
465: } else {
466: obj->which_kind = SEE_INVISIBLE;
467: }
468: }
469:
470: gr_weapon(obj, assign_wk)
471: object *obj;
472: int assign_wk;
473: {
474: short percent;
475: short i;
476: short blessing, increment;
477:
478: obj->what_is = WEAPON;
479: if (assign_wk) {
480: obj->which_kind = get_rand(0, (WEAPONS - 1));
481: }
482: if ((obj->which_kind == ARROW) || (obj->which_kind == DAGGER) ||
483: (obj->which_kind == SHURIKEN) | (obj->which_kind == DART)) {
484: obj->quantity = get_rand(3, 15);
485: obj->quiver = get_rand(0, 126);
486: } else {
487: obj->quantity = 1;
488: }
489: obj->hit_enchant = obj->d_enchant = 0;
490:
491: percent = get_rand(1, 96);
492: blessing = get_rand(1, 3);
493:
494: if (percent <= 16) {
495: increment = 1;
496: } else if (percent <= 32) {
497: increment = -1;
498: obj->is_cursed = 1;
499: }
500: if (percent <= 32) {
501: for (i = 0; i < blessing; i++) {
502: if (coin_toss()) {
503: obj->hit_enchant += increment;
504: } else {
505: obj->d_enchant += increment;
506: }
507: }
508: }
509: switch(obj->which_kind) {
510: case BOW:
511: case DART:
512: obj->damage = "1d1";
513: break;
514: case ARROW:
515: obj->damage = "1d2";
516: break;
517: case DAGGER:
518: obj->damage = "1d3";
519: break;
520: case SHURIKEN:
521: obj->damage = "1d4";
522: break;
523: case MACE:
524: obj->damage = "2d3";
525: break;
526: case LONG_SWORD:
527: obj->damage = "3d4";
528: break;
529: case TWO_HANDED_SWORD:
530: obj->damage = "4d5";
531: break;
532: }
533: }
534:
535: gr_armor(obj)
536: object *obj;
537: {
538: short percent;
539: short blessing;
540:
541: obj->what_is = ARMOR;
542: obj->which_kind = get_rand(0, (ARMORS - 1));
543: obj->class = obj->which_kind + 2;
544: if ((obj->which_kind == PLATE) || (obj->which_kind == SPLINT)) {
545: obj->class--;
546: }
547: obj->is_protected = 0;
548: obj->d_enchant = 0;
549:
550: percent = get_rand(1, 100);
551: blessing = get_rand(1, 3);
552:
553: if (percent <= 16) {
554: obj->is_cursed = 1;
555: obj->d_enchant -= blessing;
556: } else if (percent <= 33) {
557: obj->d_enchant += blessing;
558: }
559: }
560:
561: gr_wand(obj)
562: object *obj;
563: {
564: obj->what_is = WAND;
565: obj->which_kind = get_rand(0, (WANDS - 1));
566: obj->class = get_rand(3, 7);
567: }
568:
569: get_food(obj, force_ration)
570: object *obj;
571: boolean force_ration;
572: {
573: obj->what_is = FOOD;
574:
575: if (force_ration || rand_percent(80)) {
576: obj->which_kind = RATION;
577: } else {
578: obj->which_kind = FRUIT;
579: }
580: }
581:
582: put_stairs()
583: {
584: short row, col;
585:
586: gr_row_col(&row, &col, (FLOOR | TUNNEL));
587: dungeon[row][col] |= STAIRS;
588: }
589:
590: get_armor_class(obj)
591: object *obj;
592: {
593: if (obj) {
594: return(obj->class + obj->d_enchant);
595: }
596: return(0);
597: }
598:
599: object *
600: alloc_object()
601: {
602: object *obj;
603:
604: if (free_list) {
605: obj = free_list;
606: free_list = free_list->next_object;
607: } else if (!(obj = (object *) md_malloc(sizeof(object)))) {
608: message("cannot allocate object, saving game", 0);
609: save_into_file(error_file);
610: }
611: obj->quantity = 1;
612: obj->ichar = 'L';
613: obj->picked_up = obj->is_cursed = 0;
614: obj->in_use_flags = NOT_USED;
615: obj->identified = UNIDENTIFIED;
616: obj->damage = "1d1";
617: return(obj);
618: }
619:
620: free_object(obj)
621: object *obj;
622: {
623: obj->next_object = free_list;
624: free_list = obj;
625: }
626:
627: make_party()
628: {
629: short n;
630:
631: party_room = gr_room();
632:
633: n = rand_percent(99) ? party_objects(party_room) : 11;
634: if (rand_percent(99)) {
635: party_monsters(party_room, n);
636: }
637: }
638:
639: show_objects()
640: {
641: object *obj;
642: short mc, rc, row, col;
643: object *monster;
644:
645: obj = level_objects.next_object;
646:
647: while (obj) {
648: row = obj->row;
649: col = obj->col;
650:
651: rc = get_mask_char(obj->what_is);
652:
653: if (dungeon[row][col] & MONSTER) {
654: if (monster = object_at(&level_monsters, row, col)) {
655: monster->trail_char = rc;
656: }
657: }
658: mc = mvinch(row, col);
659: if (((mc < 'A') || (mc > 'Z')) &&
660: ((row != rogue.row) || (col != rogue.col))) {
661: mvaddch(row, col, rc);
662: }
663: obj = obj->next_object;
664: }
665:
666: monster = level_monsters.next_object;
667:
668: while (monster) {
669: if (monster->m_flags & IMITATES) {
670: mvaddch(monster->row, monster->col, (int) monster->disguise);
671: }
672: monster = monster->next_monster;
673: }
674: }
675:
676: put_amulet()
677: {
678: object *obj;
679:
680: obj = alloc_object();
681: obj->what_is = AMULET;
682: rand_place(obj);
683: }
684:
685: rand_place(obj)
686: object *obj;
687: {
688: short row, col;
689:
690: gr_row_col(&row, &col, (FLOOR | TUNNEL));
691: place_at(obj, row, col);
692: }
693:
694: c_object_for_wizard()
695: {
696: short ch, max, wk;
697: object *obj;
698: char buf[80];
699:
700: if (pack_count((object *) 0) >= MAX_PACK_COUNT) {
701: message("pack full", 0);
702: return;
703: }
704: message("type of object?", 0);
705:
706: while (r_index("!?:)]=/,\033", (ch = rgetchar()), 0) == -1) {
707: sound_bell();
708: }
709: check_message();
710:
711: if (ch == '\033') {
712: return;
713: }
714: obj = alloc_object();
715:
716: switch(ch) {
717: case '!':
718: obj->what_is = POTION;
719: max = POTIONS - 1;
720: break;
721: case '?':
722: obj->what_is = SCROL;
723: max = SCROLS - 1;
724: break;
725: case ',':
726: obj->what_is = AMULET;
727: break;
728: case ':':
729: get_food(obj, 0);
730: break;
731: case ')':
732: gr_weapon(obj, 0);
733: max = WEAPONS - 1;
734: break;
735: case ']':
736: gr_armor(obj);
737: max = ARMORS - 1;
738: break;
739: case '/':
740: gr_wand(obj);
741: max = WANDS - 1;
742: break;
743: case '=':
744: max = RINGS - 1;
745: obj->what_is = RING;
746: break;
747: }
748: if ((ch != ',') && (ch != ':')) {
749: GIL:
750: if (get_input_line("which kind?", "", buf, "", 0, 1)) {
751: wk = get_number(buf);
752: if ((wk >= 0) && (wk <= max)) {
753: obj->which_kind = (unsigned short) wk;
754: if (obj->what_is == RING) {
755: gr_ring(obj, 0);
756: }
757: } else {
758: sound_bell();
759: goto GIL;
760: }
761: } else {
762: free_object(obj);
763: return;
764: }
765: }
766: get_desc(obj, buf);
767: message(buf, 0);
768: (void) add_to_pack(obj, &rogue.pack, 1);
769: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.