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