Mercurial > hg > early-roguelike

comparison xrogue/trader.c @ 133:e6179860cb76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import XRogue 8.0 from the Roguelike Restoration Project (r1490)
author John "Elwin" Edwards
date Tue, 21 Apr 2015 08:55:20 -0400
parents
children ce0cf824c192
comparison
equal deleted inserted replaced
124:d10fc4a065ac 133:e6179860cb76
1 /*
2 trader.c - Anything to do with trading posts
3
4 XRogue: Expeditions into the Dungeons of Doom
5 Copyright (C) 1991 Robert Pietkivitch
6 All rights reserved.
7
8 Based on "Advanced Rogue"
9 Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka and AT&T
10 All rights reserved.
11
12 See the file LICENSE.TXT for full copyright and licensing information.
13 */
14
15 #include <curses.h>
16 #include "rogue.h"
17
18 /*
19 * buy_it:
20 * Buy the item on which the hero stands
21 */
22
23 buy_it()
24 {
25 reg int wh;
26 struct linked_list *item = NULL;
27 struct object *obj = NULL;
28 int wasfood = FALSE;
29
30 if (purse <= 0) {
31 msg("You have no money.");
32 return;
33 }
34 if (curprice < 0) { /* if not yet priced */
35 wh = price_it();
36 if (!wh) /* nothing to price */
37 return;
38 msg("Do you want to buy it? ");
39 do {
40 wh = wgetch(cw);
41 if (wh == ESC || wh == 'n') {
42 msg("");
43 return;
44 }
45 } until(wh == 'y');
46 }
47 mpos = 0;
48 if (curprice > purse) {
49 msg("You can't afford it!");
50 return;
51 }
52 /*
53 * See if the hero has done all his transacting
54 */
55 if (!open_market())
56 return;
57 /*
58 * The hero bought the item here
59 */
60 item = find_obj(hero.y, hero.x);
61 obj = OBJPTR(item);
62 mpos = 0;
63 wasfood = ISMULT(obj->o_type);
64 if (add_pack((struct linked_list *)NULL,TRUE)) {/* try to put it in his pack */
65 purse -= curprice; /* take his money */
66 ++trader; /* another transaction */
67 trans_line(); /* show remaining deals */
68 curprice = -1; /* reset stuff */
69 curpurch[0] = 0;
70 if (!wasfood) /* if it was food then the object has been deleted */
71 {
72 whatis (item); /* identify it */
73 obj = OBJPTR(item);
74 obj->o_flags &= ~ISPOST; /* turn off ISPOST */
75 obj->o_flags |= ISKNOW; /* he knows the item */
76 msg("%s", inv_name(obj, TRUE));
77 }
78 else
79 msg("a food ration.");
80 }
81 }
82
83 /*
84 * do_post:
85 * Put a trading post room and stuff on the screen
86 */
87
88 do_post(startup)
89 bool startup; /* True if equipping the player at the beginning of the game */
90 {
91 coord tp;
92 reg int i, j = 0, k;
93 reg struct room *rp;
94 reg struct object *op;
95 reg struct linked_list *ll;
96
97 o_free_list(lvl_obj); /* throw old items away */
98
99 for (rp = rooms; rp < &rooms[MAXROOMS]; rp++)
100 rp->r_flags = ISGONE; /* kill all rooms */
101
102 rp = &rooms[0]; /* point to only room */
103 rp->r_flags = 0; /* this room NOT gone */
104 rp->r_max.x = 40;
105 rp->r_max.y = 10; /* 10 * 40 room */
106 rp->r_pos.x = (cols - rp->r_max.x) / 2; /* center horizontal */
107 rp->r_pos.y = 1; /* 2nd line */
108 draw_room(rp); /* draw the only room */
109
110 /* Are we equipping the player? */
111 if (startup) {
112 int wpt;
113
114 /*
115 * Give the rogue some weaponry.
116 * Create every kind of weapon there is.
117 */
118 for (wpt=0; wpt<MAXWEAPONS; wpt++) {
119 ll = spec_item(WEAPON, wpt, rnd(100)/80+1, rnd(121)/60);
120 attach(lvl_obj, ll);
121 op = OBJPTR(ll);
122 op->o_flags |= (ISPOST | ISKNOW);
123 do {
124 rnd_pos(rp,&tp);
125 } until (mvinch(tp.y, tp.x) == FLOOR);
126 op->o_pos = tp;
127 mvaddch(tp.y,tp.x,op->o_type);
128 }
129
130 /*
131 * Suit of armor.
132 * Create every kind of armor there is.
133 */
134 for (i=0; i<MAXARMORS; i++) {
135 ll = spec_item(ARMOR, i, rnd(100)/75, 0);
136 attach(lvl_obj, ll);
137 op = OBJPTR(ll);
138 op->o_flags |= (ISPOST | ISKNOW);
139 op->o_weight = armors[i].a_wght;
140 do {
141 rnd_pos(rp,&tp);
142 } until (mvinch(tp.y, tp.x) == FLOOR);
143 op->o_pos = tp;
144 mvaddch(tp.y,tp.x,op->o_type);
145 }
146
147 /* Now create some rods/wands/staffs */
148 for (i=rnd(4)+2; i>0; i--) {
149 if (i == 1 && player.t_ctype != C_FIGHTER) j = WS_HIT;
150 else if (i == 5 && (player.t_ctype == C_RANGER ||
151 player.t_ctype == C_PALADIN ||
152 player.t_ctype == C_MONK)) j = WS_FEAR;
153 else switch (rnd(8)) {
154 case 0: j = WS_SLOW_M;
155 when 1: j = WS_TELMON;
156 when 2: j = WS_CONFMON;
157 when 3: j = WS_PARALYZE;
158 when 4: j = WS_MDEG;
159 when 5: j = WS_WONDER;
160 when 6: j = WS_LIGHT;
161 when 7: j = WS_CANCEL;
162 }
163 ll = spec_item(STICK, j, 0, 0);
164 attach(lvl_obj, ll);
165 op = OBJPTR(ll);
166
167 /* Let clerics and MU'S know what kind they are */
168 switch (player.t_ctype) {
169 case C_MAGICIAN:
170 case C_CLERIC:
171 case C_DRUID:
172 op->o_flags |= (ISPOST | ISKNOW);
173 otherwise:
174 op->o_flags |= ISPOST;
175 }
176 fix_stick(op);
177 do {
178 rnd_pos(rp,&tp);
179 } until (mvinch(tp.y, tp.x) == FLOOR);
180 op->o_pos = tp;
181 mvaddch(tp.y,tp.x,op->o_type);
182 }
183
184 /* Now let's make some rings */
185 for (i=rnd(5)+3; i>0; i--) {
186 k = 0;
187 if (i == 6 && player.t_ctype != C_MONK) j = R_HEALTH;
188 else if (i == 7) j = R_HEROISM;
189 else switch (rnd(21)) {
190 case 0: j = R_ADDINTEL; k = roll(1,3);
191 when 1: j = R_ADDSTR; k = roll(1,3);
192 when 2: j = R_ADDWISDOM; k = roll(1,3);
193 when 3: j = R_ADDHIT; k = roll(1,3);
194 when 4: j = R_ADDDAM; k = roll(1,3);
195 when 5: j = R_PROTECT; k = roll(1,3);
196 when 6: j = R_DIGEST; k = 1;
197 when 7: j = R_SUSABILITY;
198 when 8: j = R_SEEINVIS;
199 when 9: j = R_ALERT;
200 when 10: j = R_FIRE;
201 when 11: j = R_WARMTH;
202 when 12: j = R_FREEDOM;
203 when 13: j = R_STEALTH;
204 when 14: j = R_CARRY;
205 when 15: j = R_LIGHT;
206 when 16: j = R_TELCONTROL;
207 when 17: j = R_DELUSION;
208 when 18: j = R_FEAR;
209 when 19: j = R_AGGR;
210 when 20: j = R_SEARCH;
211 }
212 ll = spec_item(RING, j, k, 0);
213 attach(lvl_obj, ll);
214 op = OBJPTR(ll);
215
216 /*
217 * Let fighters, thieves, and monks know what kind
218 * of rings these are.
219 */
220 switch (player.t_ctype) {
221 case C_FIGHTER:
222 case C_THIEF:
223 case C_MONK:
224 op->o_flags |= (ISPOST | ISKNOW);
225 otherwise:
226 op->o_flags |= ISPOST;
227 }
228 do {
229 rnd_pos(rp,&tp);
230 } until (mvinch(tp.y, tp.x) == FLOOR);
231 op->o_pos = tp;
232 mvaddch(tp.y,tp.x,op->o_type);
233 }
234
235 /* Let's offer some potions */
236 for (i=rnd(4)+3; i>0; i--) {
237 if (i == 1 && player.t_ctype == C_ASSASSIN) j = P_POISON;
238 else if (i == 6) j = P_PHASE;
239 else switch (rnd(11)) {
240 case 0: j = P_CLEAR;
241 when 1: j = P_HEALING;
242 when 2: j = P_MFIND;
243 when 3: j = P_HASTE;
244 when 4: j = P_RESTORE;
245 when 5: j = P_FLY;
246 when 6: j = P_FFIND;
247 when 7: j = P_SEEINVIS;
248 when 8: j = P_TFIND;
249 when 9: j = P_INVIS;
250 when 10: j = P_SKILL;
251 }
252
253 /* Make the potion */
254 ll = spec_item(POTION, j, 0, 0);
255 attach(lvl_obj, ll);
256 op = OBJPTR(ll);
257 op->o_flags |= ISPOST;
258
259 /* Place the potion */
260 do {
261 rnd_pos(rp,&tp);
262 } until (mvinch(tp.y, tp.x) == FLOOR);
263 op->o_pos = tp;
264 mvaddch(tp.y,tp.x,op->o_type);
265 }
266
267 /* Let's offer some scrolls */
268 for (i=rnd(4)+3; i>0; i--) {
269 if (i == 1 && player.t_ctype != C_MONK) j = S_CURING;
270 else if (i == 6 && player.t_ctype != C_THIEF) j = S_FINDTRAPS;
271 else switch (rnd(11)) {
272 case 0: j = S_CONFUSE;
273 when 1: j = S_MAP;
274 when 2: j = S_LIGHT;
275 when 3: j = S_SLEEP;
276 when 4: j = S_IDENT;
277 when 5: j = S_GFIND;
278 when 6: j = S_REMOVE;
279 when 7: j = S_HOLD;
280 when 8: j = S_PETRIFY;
281 when 9: j = S_SCARE;
282 when 10: j = S_TELEP;
283 }
284
285 /* Make the scroll */
286 ll = spec_item(SCROLL, j, 0, 0);
287 attach(lvl_obj, ll);
288 op = OBJPTR(ll);
289 op->o_flags |= ISPOST;
290
291 /* Place the scroll */
292 do {
293 rnd_pos(rp,&tp);
294 } until (mvinch(tp.y, tp.x) == FLOOR);
295 op->o_pos = tp;
296 mvaddch(tp.y,tp.x,op->o_type);
297 }
298
299 /* And finally, let's get some food */
300 for (i=rnd(3)+2; i>0; i--) {
301 ll = spec_item(FOOD, 0, 0, 0);
302 attach(lvl_obj, ll);
303 op = OBJPTR(ll);
304 op->o_weight = things[TYP_FOOD].mi_wght;
305 op->o_flags |= ISPOST;
306 do {
307 rnd_pos(rp,&tp);
308 } until (mvinch(tp.y, tp.x) == FLOOR);
309 op->o_pos = tp;
310 mvaddch(tp.y,tp.x,op->o_type);
311 }
312 }
313 else { /* in trading post itself */
314 i = roll(10, 4); /* 10 to 40 items */
315 for (; i > 0 ; i--) { /* place all the items */
316 ll = new_thing(ALL, TRUE); /* get something */
317 attach(lvl_obj, ll);
318 op = OBJPTR(ll);
319 op->o_flags |= ISPOST; /* object in trading post */
320 do {
321 rnd_pos(rp,&tp);
322 } until (mvinch(tp.y, tp.x) == FLOOR);
323 op->o_pos = tp;
324 mvaddch(tp.y,tp.x,op->o_type);
325 }
326 }
327 wmove(cw,12,0);
328 nofont(cw);
329 trader = 0;
330 if (startup) {
331 waddstr(cw,"Welcome to Friendly Fiend's Equipage\n\r");
332 waddstr(cw,"====================================\n\r");
333 }
334 else {
335 waddstr(cw,"Welcome to Friendly Fiend's Flea Market\n\r");
336 waddstr(cw,"=======================================\n\r");
337 }
338 waddstr(cw,"$: Prices object that you stand upon.\n\r");
339 waddstr(cw,"#: Buys the object that you stand upon.\n\r");
340 waddstr(cw,"%: Trades in something in your pack for gold.\n\r");
341 newfont(cw);
342 trans_line();
343 }
344
345 /*
346 * open_market:
347 * Retruns TRUE when ok do to transacting
348 */
349
350 open_market()
351 {
352 if (trader >= MAXPURCH && !wizard && level != 0) {
353 msg("The market is closed. The stairs are that-a-way! ");