![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to throw.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 throw.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / rogue |
1.1 root 1: /*
2: * throw.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[] = "@(#)throw.c 5.1 (Berkeley) 11/25/87";
15: #endif /* not lint */
16:
17: #include "rogue.h"
18:
19: extern short cur_room;
20: extern char *curse_message;
21: extern char hit_message[];
22:
23: throw()
24: {
25: short wch, d;
26: boolean first_miss = 1;
27: object *weapon;
28: short dir, row, col;
29: object *monster;
30:
31: while (!is_direction(dir = rgetchar(), &d)) {
32: sound_bell();
33: if (first_miss) {
34: message("direction? ", 0);
35: first_miss = 0;
36: }
37: }
38: check_message();
39: if (dir == CANCEL) {
40: return;
41: }
42: if ((wch = pack_letter("throw what?", WEAPON)) == CANCEL) {
43: return;
44: }
45: check_message();
46:
47: if (!(weapon = get_letter_object(wch))) {
48: message("no such item.", 0);
49: return;
50: }
51: if ((weapon->in_use_flags & BEING_USED) && weapon->is_cursed) {
52: message(curse_message, 0);
53: return;
54: }
55: row = rogue.row; col = rogue.col;
56:
57: if ((weapon->in_use_flags & BEING_WIELDED) && (weapon->quantity <= 1)) {
58: unwield(rogue.weapon);
59: } else if (weapon->in_use_flags & BEING_WORN) {
60: mv_aquatars();
61: unwear(rogue.armor);
62: print_stats(STAT_ARMOR);
63: } else if (weapon->in_use_flags & ON_EITHER_HAND) {
64: un_put_on(weapon);
65: }
66: monster = get_thrown_at_monster(weapon, d, &row, &col);
67: mvaddch(rogue.row, rogue.col, rogue.fchar);
68: refresh();
69:
70: if (rogue_can_see(row, col) && ((row != rogue.row) || (col != rogue.col))){
71: mvaddch(row, col, get_dungeon_char(row, col));
72: }
73: if (monster) {
74: wake_up(monster);
75: check_gold_seeker(monster);
76:
77: if (!throw_at_monster(monster, weapon)) {
78: flop_weapon(weapon, row, col);
79: }
80: } else {
81: flop_weapon(weapon, row, col);
82: }
83: vanish(weapon, 1, &rogue.pack);
84: }
85:
86: throw_at_monster(monster, weapon)
87: object *monster, *weapon;
88: {
89: short damage, hit_chance;
90: short t;
91:
92: hit_chance = get_hit_chance(weapon);
93: damage = get_weapon_damage(weapon);
94: if ((weapon->which_kind == ARROW) &&
95: (rogue.weapon && (rogue.weapon->which_kind == BOW))) {
96: damage += get_weapon_damage(rogue.weapon);
97: damage = ((damage * 2) / 3);
98: hit_chance += (hit_chance / 3);
99: } else if ((weapon->in_use_flags & BEING_WIELDED) &&
100: ((weapon->which_kind == DAGGER) ||
101: (weapon->which_kind == SHURIKEN) ||
102: (weapon->which_kind == DART))) {
103: damage = ((damage * 3) / 2);
104: hit_chance += (hit_chance / 3);
105: }
106: t = weapon->quantity;
107: weapon->quantity = 1;
108: sprintf(hit_message, "the %s", name_of(weapon));
109: weapon->quantity = t;
110:
111: if (!rand_percent(hit_chance)) {
112: (void) strcat(hit_message, "misses ");
113: return(0);
114: }
115: s_con_mon(monster);
116: (void) strcat(hit_message, "hit ");
117: (void) mon_damage(monster, damage);
118: return(1);
119: }
120:
121: object *
122: get_thrown_at_monster(obj, dir, row, col)
123: object *obj;
124: short dir;
125: short *row, *col;
126: {
127: short orow, ocol;
128: short i, ch;
129:
130: orow = *row; ocol = *col;
131:
132: ch = get_mask_char(obj->what_is);
133:
134: for (i = 0; i < 24; i++) {
135: get_dir_rc(dir, row, col, 0);
136: if ( (((*col <= 0) || (*col >= DCOLS-1)) ||
137: (dungeon[*row][*col] == NOTHING)) ||
138: ((dungeon[*row][*col] & (HORWALL | VERTWALL | HIDDEN)) &&
139: (!(dungeon[*row][*col] & TRAP)))) {
140: *row = orow;
141: *col = ocol;
142: return(0);
143: }
144: if ((i != 0) && rogue_can_see(orow, ocol)) {
145: mvaddch(orow, ocol, get_dungeon_char(orow, ocol));
146: }
147: if (rogue_can_see(*row, *col)) {
148: if (!(dungeon[*row][*col] & MONSTER)) {
149: mvaddch(*row, *col, ch);
150: }
151: refresh();
152: }
153: orow = *row; ocol = *col;
154: if (dungeon[*row][*col] & MONSTER) {
155: if (!imitating(*row, *col)) {
156: return(object_at(&level_monsters, *row, *col));
157: }
158: }
159: if (dungeon[*row][*col] & TUNNEL) {
160: i += 2;
161: }
162: }
163: return(0);
164: }
165:
166: flop_weapon(weapon, row, col)
167: object *weapon;
168: short row, col;
169: {
170: object *new_weapon, *monster;
171: short i = 0;
172: char msg[80];
173: boolean found = 0;
174: short mch, dch;
175: unsigned short mon;
176:
177: while ((i < 9) && dungeon[row][col] & ~(FLOOR | TUNNEL | DOOR | MONSTER)) {
178: rand_around(i++, &row, &col);
179: if ((row > (DROWS-2)) || (row < MIN_ROW) ||
180: (col > (DCOLS-1)) || (col < 0) || (!dungeon[row][col]) ||
181: (dungeon[row][col] & ~(FLOOR | TUNNEL | DOOR | MONSTER))) {
182: continue;
183: }
184: found = 1;
185: break;
186: }
187:
188: if (found || (i == 0)) {
189: new_weapon = alloc_object();
190: *new_weapon = *weapon;
191: new_weapon->in_use_flags = NOT_USED;
192: new_weapon->quantity = 1;
193: new_weapon->ichar = 'L';
194: place_at(new_weapon, row, col);
195: if (rogue_can_see(row, col) &&
196: ((row != rogue.row) || (col != rogue.col))) {
197: mon = dungeon[row][col] & MONSTER;
198: dungeon[row][col] &= (~MONSTER);
199: dch = get_dungeon_char(row, col);
200: if (mon) {
201: mch = mvinch(row, col);
202: if (monster = object_at(&level_monsters, row, col)) {
203: monster->trail_char = dch;
204: }
205: if ((mch < 'A') || (mch > 'Z')) {
206: mvaddch(row, col, dch);
207: }
208: } else {
209: mvaddch(row, col, dch);
210: }
211: dungeon[row][col] |= mon;
212: }
213: } else {
214: short t;
215:
216: t = weapon->quantity;
217: weapon->quantity = 1;
218: sprintf(msg, "the %svanishes as it hits the ground",
219: name_of(weapon));
220: weapon->quantity = t;
221: message(msg, 0);
222: }
223: }
224:
225: rand_around(i, r, c)
226: short i, *r, *c;
227: {
228: static char* pos = "\010\007\001\003\004\005\002\006\0";
229: static short row, col;
230: short j;
231:
232: if (i == 0) {
233: short x, y, o, t;
234:
235: row = *r;
236: col = *c;
237:
238: o = get_rand(1, 8);
239:
240: for (j = 0; j < 5; j++) {
241: x = get_rand(0, 8);
242: y = (x + o) % 9;
243: t = pos[x];
244: pos[x] = pos[y];
245: pos[y] = t;
246: }
247: }
248: switch((short)pos[i]) {
249: case 0:
250: *r = row + 1;
251: *c = col + 1;
252: break;
253: case 1:
254: *r = row + 1;
255: *c = col - 1;
256: break;
257: case 2:
258: *r = row - 1;
259: *c = col + 1;
260: break;
261: case 3:
262: *r = row - 1;
263: *c = col - 1;
264: break;
265: case 4:
266: *r = row;
267: *c = col + 1;
268: break;
269: case 5:
270: *r = row + 1;
271: *c = col;
272: break;
273: case 6:
274: *r = row;
275: *c = col;
276: break;
277: case 7:
278: *r = row - 1;
279: *c = col;
280: break;
281: case 8:
282: *r = row;
283: *c = col - 1;
284: break;
285: }
286: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.