1 /* $NetBSD: store.c,v 1.17 2021/05/02 12:50:45 rillig Exp $ */
2
3 /*-
4 * Copyright (c) 1988 The Regents of the University of California.
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #include <sys/cdefs.h>
33 #ifndef lint
34 #if 0
35 static char sccsid[] = "@(#)store.c 5.4 (Berkeley) 5/13/91";
36 #else
37 __RCSID("$NetBSD: store.c,v 1.17 2021/05/02 12:50:45 rillig Exp $");
38 #endif
39 #endif /* not lint */
40
41 /* store.c Larn is copyrighted 1986 by Noah Morgan. */
42 #include "header.h"
43 #include "extern.h"
44
45 static void handsfull(void);
46 static void outofstock(void);
47 static void nogold(void);
48 static void dnditem(int);
49 static void banktitle(const char *);
50 static void obanksub(void);
51 static void otradhead(void);
52 static void cnsitm(void);
53
54 static int dndcount = 0, dnditm = 0;
55
56 /* number of items in the dnd inventory table */
57 #define MAXITM 83
58
59 /* this is the data for the stuff in the dnd store */
60 struct _itm itm[90] = {
61 /*
62 * cost iven name iven arg how gp
63 * iven[] ivenarg[] many
64 */
65
66 {2, OLEATHER, 0, 3},
67 {10, OSTUDLEATHER, 0, 2},
68 {40, ORING, 0, 2},
69 {85, OCHAIN, 0, 2},
70 {220, OSPLINT, 0, 1},
71 {400, OPLATE, 0, 1},
72 {900, OPLATEARMOR, 0, 1},
73 {2600, OSSPLATE, 0, 1},
74 {150, OSHIELD, 0, 1},
75
76 /*
77 * cost iven name iven arg how gp
78 * iven[] ivenarg[] many
79 */
80
81 {2, ODAGGER, 0, 3},
82 {20, OSPEAR, 0, 3},
83 {80, OFLAIL, 0, 2},
84 {150, OBATTLEAXE, 0, 2},
85 {450, OLONGSWORD, 0, 2},
86 {1000, O2SWORD, 0, 2},
87 {5000, OSWORD, 0, 1},
88 {16500, OLANCE, 0, 1},
89 {6000, OSWORDofSLASHING, 0, 0},
90 {10000, OHAMMER, 0, 0},
91
92 /*
93 * cost iven name iven arg how gp
94 * iven[] ivenarg[] many
95 */
96
97 {150, OPROTRING, 1, 1},
98 {85, OSTRRING, 1, 1},
99 {120, ODEXRING, 1, 1},
100 {120, OCLEVERRING, 1, 1},
101 {180, OENERGYRING, 0, 1},
102 {125, ODAMRING, 0, 1},
103 {220, OREGENRING, 0, 1},
104 {1000, ORINGOFEXTRA, 0, 1},
105
106 {280, OBELT, 0, 1},
107
108 {400, OAMULET, 0, 1},
109
110 {6500, OORBOFDRAGON, 0, 0},
111 {5500, OSPIRITSCARAB, 0, 0},
112 {5000, OCUBEofUNDEAD, 0, 0},
113 {6000, ONOTHEFT, 0, 0},
114
115 {590, OCHEST, 6, 1},
116 {200, OBOOK, 8, 1},
117 {10, OCOOKIE, 0, 3},
118
119 /*
120 * cost iven name iven arg how gp
121 * iven[] ivenarg[] many
122 */
123
124 {20, OPOTION, 0, 6},
125 {90, OPOTION, 1, 5},
126 {520, OPOTION, 2, 1},
127 {100, OPOTION, 3, 2},
128 {50, OPOTION, 4, 2},
129 {150, OPOTION, 5, 2},
130 {70, OPOTION, 6, 1},
131 {30, OPOTION, 7, 7},
132 {200, OPOTION, 8, 1},
133 {50, OPOTION, 9, 1},
134 {80, OPOTION, 10, 1},
135
136 /*
137 * cost iven name iven arg how gp
138 * iven[] ivenarg[] many
139 */
140
141 {30, OPOTION, 11, 3},
142 {20, OPOTION, 12, 5},
143 {40, OPOTION, 13, 3},
144 {35, OPOTION, 14, 2},
145 {520, OPOTION, 15, 1},
146 {90, OPOTION, 16, 2},
147 {200, OPOTION, 17, 2},
148 {220, OPOTION, 18, 4},
149 {80, OPOTION, 19, 6},
150 {370, OPOTION, 20, 3},
151 {50, OPOTION, 22, 1},
152 {150, OPOTION, 23, 3},
153
154 /*
155 * cost iven name iven arg how gp
156 * iven[] ivenarg[] many
157 */
158
159 {100, OSCROLL, 0, 2},
160 {125, OSCROLL, 1, 2},
161 {60, OSCROLL, 2, 4},
162 {10, OSCROLL, 3, 4},
163 {100, OSCROLL, 4, 3},
164 {200, OSCROLL, 5, 2},
165 {110, OSCROLL, 6, 1},
166 {500, OSCROLL, 7, 2},
167 {200, OSCROLL, 8, 2},
168 {250, OSCROLL, 9, 4},
169 {20, OSCROLL, 10, 5},
170 {30, OSCROLL, 11, 3},
171
172 /*
173 * cost iven name iven arg how gp
174 * iven[] ivenarg[] many
175 */
176
177 {340, OSCROLL, 12, 1},
178 {340, OSCROLL, 13, 1},
179 {300, OSCROLL, 14, 2},
180 {400, OSCROLL, 15, 2},
181 {500, OSCROLL, 16, 2},
182 {1000, OSCROLL, 17, 1},
183 {500, OSCROLL, 18, 1},
184 {340, OSCROLL, 19, 2},
185 {220, OSCROLL, 20, 3},
186 {3900, OSCROLL, 21, 0},
187 {610, OSCROLL, 22, 1},
188 {3000, OSCROLL, 23, 0}
189 };
190
191 /*
192 function for the dnd store
193 */
194 static void
dnd_2hed(void)195 dnd_2hed(void)
196 {
197 lprcat("Welcome to the Larn Thrift Shoppe. We stock many items explorers find useful\n");
198 lprcat(" in their adventures. Feel free to browse to your hearts content.\n");
199 lprcat("Also be advised, if you break 'em, you pay for 'em.");
200 }
201
202 static void
dnd_hed(void)203 dnd_hed(void)
204 {
205 int i;
206 for (i = dnditm; i < 26 + dnditm; i++)
207 dnditem(i);
208 cursor(50, 18);
209 lprcat("You have ");
210 }
211
212 static void
handsfull(void)213 handsfull(void)
214 {
215 lprcat("\nYou can't carry anything more!");
216 lflush();
217 nap(2200);
218 }
219
220 static void
outofstock(void)221 outofstock(void)
222 {
223 lprcat("\nSorry, but we are out of that item.");
224 lflush();
225 nap(2200);
226 }
227
228 static void
nogold(void)229 nogold(void)
230 {
231 lprcat("\nYou don't have enough gold to pay for that!");
232 lflush();
233 nap(2200);
234 }
235
236 void
dndstore(void)237 dndstore(void)
238 {
239 int i;
240 dnditm = 0;
241 nosignal = 1; /* disable signals */
242 clear();
243 dnd_2hed();
244 if (outstanding_taxes > 0) {
245 lprcat("\n\nThe Larn Revenue Service has ordered us to not do business with tax evaders.\n");
246 beep();
247 lprintf("They have also told us that you owe %ld gp in back taxes, and as we must\n", (long) outstanding_taxes);
248 lprcat("comply with the law, we cannot serve you at this time. Soo Sorry.\n");
249 cursors();
250 lprcat("\nPress ");
251 standout("escape");
252 lprcat(" to leave: ");
253 lflush();
254 i = 0;
255 while (i != '\33')
256 i = ttgetch();
257 drawscreen();
258 nosignal = 0; /* enable signals */
259 return;
260 }
261 dnd_hed();
262 while (1) {
263 cursor(59, 18);
264 lprintf("%ld gold pieces", (long) c[GOLD]);
265 cltoeoln();
266 cl_dn(1, 20); /* erase to eod */
267 lprcat("\nEnter your transaction [");
268 standout("space");
269 lprcat(" for more, ");
270 standout("escape");
271 lprcat(" to leave]? ");
272 i = 0;
273 while ((i < 'a' || i > 'z') && (i != ' ') && (i != '\33') && (i != 12))
274 i = ttgetch();
275 if (i == 12) {
276 clear();
277 dnd_2hed();
278 dnd_hed();
279 } else if (i == '\33') {
280 drawscreen();
281 nosignal = 0; /* enable signals */
282 return;
283 } else if (i == ' ') {
284 cl_dn(1, 4);
285 if ((dnditm += 26) >= MAXITM)
286 dnditm = 0;
287 dnd_hed();
288 } else { /* buy something */
289 lprc(i);/* echo the byte */
290 i += dnditm - 'a';
291 if (i >= MAXITM)
292 outofstock();
293 else if (itm[i].qty <= 0)
294 outofstock();
295 else if (pocketfull())
296 handsfull();
297 else if (c[GOLD] < itm[i].price * 10)
298 nogold();
299 else {
300 if (itm[i].obj == OPOTION) {
301 potionname[itm[i].arg] = potionhide[itm[i].arg];
302 } else if (itm[i].obj == OSCROLL) {
303 scrollname[itm[i].arg] = scrollhide[itm[i].arg];
304 }
305 c[GOLD] -= itm[i].price * 10;
306 itm[i].qty--;
307 take(itm[i].obj, itm[i].arg);
308 if (itm[i].qty == 0)
309 dnditem(i);
310 nap(1001);
311 }
312 }
313
314 }
315 }
316
317 /*
318 dnditem(index)
319
320 to print the item list; used in dndstore() enter with the index into itm
321 */
322 static void
dnditem(int i)323 dnditem(int i)
324 {
325 int j, k;
326 if (i >= MAXITM)
327 return;
328 cursor((j = (i & 1) * 40 + 1), (k = ((i % 26) >> 1) + 5));
329 if (itm[i].qty == 0) {
330 lprintf("%39s", "");
331 return;
332 }
333 lprintf("%c) ", (i % 26) + 'a');
334 if (itm[i].obj == OPOTION) {
335 lprintf("potion of%s", potionhide[itm[i].arg]);
336 } else if (itm[i].obj == OSCROLL) {
337 lprintf("scroll of%s", scrollhide[itm[i].arg]);
338 } else
339 lprintf("%s", objectname[itm[i].obj]);
340 cursor(j + 31, k);
341 lprintf("%6ld", (long) (itm[i].price * 10));
342 }
343
344
345
346 /*
347 for the college of larn
348 */
349 u_char course[26] = {0}; /* the list of courses taken */
350 static char coursetime[] = {10, 15, 10, 20, 10, 10, 10, 5};
351 /*
352 function to display the header info for the school
353 */
354 static void
sch_hed(void)355 sch_hed(void)
356 {
357 clear();
358 lprcat("The College of Larn offers the exciting opportunity of higher education to\n");
359 lprcat("all inhabitants of the caves. Here is a list of the class schedule:\n\n\n");
360 lprcat("\t\t Course Name \t Time Needed\n\n");
361
362 if (course[0] == 0)
363 lprcat("\t\ta) Fighters Training I 10 mobuls"); /* line 7 of crt */
364 lprc('\n');
365 if (course[1] == 0)
366 lprcat("\t\tb) Fighters Training II 15 mobuls");
367 lprc('\n');
368 if (course[2] == 0)
369 lprcat("\t\tc) Introduction to Wizardry 10 mobuls");
370 lprc('\n');
371 if (course[3] == 0)
372 lprcat("\t\td) Applied Wizardry 20 mobuls");
373 lprc('\n');
374 if (course[4] == 0)
375 lprcat("\t\te) Behavioral Psychology 10 mobuls");
376 lprc('\n');
377 if (course[5] == 0)
378 lprcat("\t\tf) Faith for Today 10 mobuls");
379 lprc('\n');
380 if (course[6] == 0)
381 lprcat("\t\tg) Contemporary Dance 10 mobuls");
382 lprc('\n');
383 if (course[7] == 0)
384 lprcat("\t\th) History of Larn 5 mobuls");
385
386 lprcat("\n\n\t\tAll courses cost 250 gold pieces.");
387 cursor(30, 18);
388 lprcat("You are presently carrying ");
389 }
390
391 void
oschool(void)392 oschool(void)
393 {
394 int i;
395 long time_used;
396 nosignal = 1; /* disable signals */
397 sch_hed();
398 while (1) {
399 cursor(57, 18);
400 lprintf("%ld gold pieces. ", (long) c[GOLD]);
401 cursors();
402 lprcat("\nWhat is your choice [");
403 standout("escape");
404 lprcat(" to leave] ? ");
405 yrepcount = 0;
406 i = 0;
407 while ((i < 'a' || i > 'h') && (i != '\33') && (i != 12))
408 i = ttgetch();
409 if (i == 12) {
410 sch_hed();
411 continue;
412 } else if (i == '\33') {
413 nosignal = 0;
414 drawscreen(); /* enable signals */
415 return;
416 }
417 lprc(i);
418 if (c[GOLD] < 250)
419 nogold();
420 else if (course[i - 'a']) {
421 lprcat("\nSorry, but that class is filled.");
422 nap(1000);
423 } else if (i <= 'h') {
424 c[GOLD] -= 250;
425 time_used = 0;
426 switch (i) {
427 case 'a':
428 c[STRENGTH] += 2;
429 c[CONSTITUTION]++;
430 lprcat("\nYou feel stronger!");
431 cl_line(16, 7);
432 break;
433
434 case 'b':
435 if (course[0] == 0) {
436 lprcat("\nSorry, but this class has a prerequisite of Fighters Training I");
437 c[GOLD] += 250;
438 time_used = -10000;
439 break;
440 }
441 lprcat("\nYou feel much stronger!");
442 cl_line(16, 8);
443 c[STRENGTH] += 2;
444 c[CONSTITUTION] += 2;
445 break;
446
447 case 'c':
448 c[INTELLIGENCE] += 2;
449 lprcat("\nThe task before you now seems more attainable!");
450 cl_line(16, 9);
451 break;
452
453 case 'd':
454 if (course[2] == 0) {
455 lprcat("\nSorry, but this class has a prerequisite of Introduction to Wizardry");
456 c[GOLD] += 250;
457 time_used = -10000;
458 break;
459 }
460 lprcat("\nThe task before you now seems very attainable!");
461 cl_line(16, 10);
462 c[INTELLIGENCE] += 2;
463 break;
464
465 case 'e':
466 c[CHARISMA] += 3;
467 lprcat("\nYou now feel like a born leader!");
468 cl_line(16, 11);
469 break;
470
471 case 'f':
472 c[WISDOM] += 2;
473 lprcat("\nYou now feel more confident that you can find the potion in time!");
474 cl_line(16, 12);
475 break;
476
477 case 'g':
478 c[DEXTERITY] += 3;
479 lprcat("\nYou feel like dancing!");
480 cl_line(16, 13);
481 break;
482
483 case 'h':
484 c[INTELLIGENCE]++;
485 lprcat("\nYour instructor told you that the Eye of Larn is rumored to be guarded\n");
486 lprcat("by a platinum dragon who possesses psionic abilities. ");
487 cl_line(16, 14);
488 break;
489 }
490 time_used += coursetime[i - 'a'] * 100;
491 if (time_used > 0) {
492 gltime += time_used;
493 course[i - 'a']++; /* remember that he has
494 * taken that course */
495 c[HP] = c[HPMAX];
496 c[SPELLS] = c[SPELLMAX]; /* he regenerated */
497
498 if (c[BLINDCOUNT])
499 c[BLINDCOUNT] = 1; /* cure blindness too! */
500 if (c[CONFUSE])
501 c[CONFUSE] = 1; /* end confusion */
502 adjusttime((long) time_used); /* adjust parameters for
503 * time change */
504 }
505 nap(1000);
506 }
507 }
508 }
509
510
511 /*
512 * for the first national bank of Larn
513 */
514 int lasttime = 0; /* last time he was in bank */
515
516 void
obank(void)517 obank(void)
518 {
519 banktitle(" Welcome to the First National Bank of Larn.");
520 }
521 void
obank2(void)522 obank2(void)
523 {
524 banktitle("Welcome to the 5th level branch office of the First National Bank of Larn.");
525 }
526
527 static void
banktitle(const char * str)528 banktitle(const char *str)
529 {
530 nosignal = 1; /* disable signals */
531 clear();
532 lprcat(str);
533 if (outstanding_taxes > 0) {
534 int i;
535 lprcat("\n\nThe Larn Revenue Service has ordered that your account be frozen until all\n");
536 beep();
537 lprintf("levied taxes have been paid. They have also told us that you owe %ld gp in\n", (long) outstanding_taxes);
538 lprcat("taxes, and we must comply with them. We cannot serve you at this time. Sorry.\n");
539 lprcat("We suggest you go to the LRS office and pay your taxes.\n");
540 cursors();
541 lprcat("\nPress ");
542 standout("escape");
543 lprcat(" to leave: ");
544 lflush();
545 i = 0;
546 while (i != '\33')
547 i = ttgetch();
548 drawscreen();
549 nosignal = 0; /* enable signals */
550 return;
551 }
552 lprcat("\n\n\tGemstone\t Appraisal\t\tGemstone\t Appraisal");
553 obanksub();
554 nosignal = 0; /* enable signals */
555 drawscreen();
556 }
557
558 /*
559 * function to put interest on your bank account
560 */
561 void
ointerest(void)562 ointerest(void)
563 {
564 int i;
565 if (c[BANKACCOUNT] < 0)
566 c[BANKACCOUNT] = 0;
567 else if ((c[BANKACCOUNT] > 0) && (c[BANKACCOUNT] < 500000)) {
568 i = (gltime - lasttime) / 100; /* # mobuls elapsed */
569 while ((i-- > 0) && (c[BANKACCOUNT] < 500000))
570 c[BANKACCOUNT] += c[BANKACCOUNT] / 250;
571 if (c[BANKACCOUNT] > 500000)
572 c[BANKACCOUNT] = 500000; /* interest limit */
573 }
574 lasttime = (gltime / 100) * 100;
575 }
576
577 static short gemorder[26] = {0}; /* the reference to screen location
578 * for each */
579 static long gemvalue[26] = {0}; /* the appraisal of the gems */
580 void
obanksub(void)581 obanksub(void)
582 {
583 long amt;
584 int i, k;
585 ointerest(); /* credit any needed interest */
586
587 for (k = i = 0; i < 26; i++)
588 switch (iven[i]) {
589 case OLARNEYE:
590 case ODIAMOND:
591 case OEMERALD:
592 case ORUBY:
593 case OSAPPHIRE:
594
595 if (iven[i] == OLARNEYE) {
596 gemvalue[i] = 250000 - ((gltime * 7) / 100) * 100;
597 if (gemvalue[i] < 50000)
598 gemvalue[i] = 50000;
599 } else
600 gemvalue[i] = (255 & ivenarg[i]) * 100;
601 gemorder[i] = k;
602 cursor((k % 2) * 40 + 1, (k >> 1) + 4);
603 lprintf("%c) %s", i + 'a', objectname[iven[i]]);
604 cursor((k % 2) * 40 + 33, (k >> 1) + 4);
605 lprintf("%5ld", (long) gemvalue[i]);
606 k++;
607 };
608 cursor(31, 17);
609 lprintf("You have %8ld gold pieces in the bank.", (long) c[BANKACCOUNT]);
610 cursor(40, 18);
611 lprintf("You have %8ld gold pieces", (long) c[GOLD]);
612 if (c[BANKACCOUNT] + c[GOLD] >= 500000)
613 lprcat("\nNote: Larndom law states that only deposits under 500,000gp can earn interest.");
614 while (1) {
615 cl_dn(1, 20);
616 lprcat("\nYour wish? [(");
617 standout("d");
618 lprcat(") deposit, (");
619 standout("w");
620 lprcat(") withdraw, (");
621 standout("s");
622 lprcat(") sell a stone, or ");
623 standout("escape");
624 lprcat("] ");
625 yrepcount = 0;
626 i = 0;
627 while (i != 'd' && i != 'w' && i != 's' && i != '\33')
628 i = ttgetch();
629 switch (i) {
630 case 'd':
631 lprcat("deposit\nHow much? ");
632 amt = readnum((long) c[GOLD]);
633 if (amt < 0) {
634 lprcat("\nSorry, but we can't take negative gold!");
635 nap(2000);
636 amt = 0;
637 } else if (amt > c[GOLD]) {
638 lprcat(" You don't have that much.");
639 nap(2000);
640 } else {
641 c[GOLD] -= amt;
642 c[BANKACCOUNT] += amt;
643 }
644 break;
645
646 case 'w':
647 lprcat("withdraw\nHow much? ");
648 amt = readnum((long) c[BANKACCOUNT]);
649 if (amt < 0) {
650 lprcat("\nSorry, but we don't have any negative gold!");
651 nap(2000);
652 amt = 0;
653 } else if (amt > c[BANKACCOUNT]) {
654 lprcat("\nYou don't have that much in the bank!");
655 nap(2000);
656 } else {
657 c[GOLD] += amt;
658 c[BANKACCOUNT] -= amt;
659 }
660 break;
661
662 case 's':
663 lprcat("\nWhich stone would you like to sell? ");
664 i = 0;
665 while ((i < 'a' || i > 'z') && i != '*')
666 i = ttgetch();
667 if (i == '*')
668 for (i = 0; i < 26; i++) {
669 if (gemvalue[i]) {
670 c[GOLD] += gemvalue[i];
671 iven[i] = 0;
672 gemvalue[i] = 0;
673 k = gemorder[i];
674 cursor((k % 2) * 40 + 1, (k >> 1) + 4);
675 lprintf("%39s", "");
676 }
677 }
678 else {
679 if (gemvalue[i = i - 'a'] == 0) {
680 lprintf("\nItem %c is not a gemstone!", i + 'a');
681 nap(2000);
682 break;
683 }
684 c[GOLD] += gemvalue[i];
685 iven[i] = 0;
686 gemvalue[i] = 0;
687 k = gemorder[i];
688 cursor((k % 2) * 40 + 1, (k >> 1) + 4);
689 lprintf("%39s", "");
690 }
691 break;
692
693 case '\33':
694 return;
695 };
696 cursor(40, 17);
697 lprintf("%8ld", (long) c[BANKACCOUNT]);
698 cursor(49, 18);
699 lprintf("%8ld", (long) c[GOLD]);
700 }
701 }
702
703 #if 0 /* XXX: apparently unused */
704 /*
705 subroutine to appraise any stone for the bank
706 */
707 static void
708 appraise(int gemstone)
709 {
710 int j, amt;
711 for (j = 0; j < 26; j++)
712 if (iven[j] == gemstone) {
713 lprintf("\nI see you have %s", objectname[gemstone]);
714 if (gemstone == OLARNEYE)
715 lprcat(" I must commend you. I didn't think\nyou could get it.");
716 lprcat(" Shall I appraise it for you? ");
717 yrepcount = 0;
718 if (getyn() == 'y') {
719 lprcat("yes.\n Just one moment please \n");
720 nap(1000);
721 if (gemstone == OLARNEYE) {
722 amt = 250000 - ((gltime * 7) / 100) * 100;
723 if (amt < 50000)
724 amt = 50000;
725 } else
726 amt = (255 & ivenarg[j]) * 100;
727 lprintf("\nI can see this is an excellent stone, It is worth %ld", (long) amt);
728 lprcat("\nWould you like to sell it to us? ");
729 yrepcount = 0;
730 if (getyn() == 'y') {
731 lprcat("yes\n");
732 c[GOLD] += amt;
733 iven[j] = 0;
734 } else
735 lprcat("no thank you.\n");
736 if (gemstone == OLARNEYE)
737 lprcat("It is, of course, your privilege to keep the stone\n");
738 } else
739 lprcat("no\nO. K.\n");
740 }
741 }
742 #endif /* 0 - unused */
743
744 /*
745 function for the trading post
746 */
747 static void
otradhead(void)748 otradhead(void)
749 {
750 clear();
751 lprcat("Welcome to the Larn Trading Post. We buy items that explorers no longer find\n");
752 lprcat("useful. Since the condition of the items you bring in is not certain,\n");
753 lprcat("and we incur great expense in reconditioning the items, we usually pay\n");
754 lprcat("only 20% of their value were they to be new. If the items are badly\n");
755 lprcat("damaged, we will pay only 10% of their new value.\n\n");
756 }
757
758 void
otradepost(void)759 otradepost(void)
760 {
761 int i, j, value, isub, izarg;
762 dnditm = dndcount = 0;
763 nosignal = 1; /* disable signals */
764 resetscroll();
765 otradhead();
766 while (1) {
767 lprcat("\nWhat item do you want to sell to us [");
768 standout("*");
769 lprcat(" for list, or ");
770 standout("escape");
771 lprcat("] ? ");
772 i = 0;
773 while (i > 'z' || (i < 'a' && i != '*' && i != '\33' && i != '.'))
774 i = ttgetch();
775 if (i == '\33') {
776 setscroll();
777 recalc();
778 drawscreen();
779 nosignal = 0; /* enable signals */
780 return;
781 }
782 isub = i - 'a';
783 j = 0;
784 if (iven[isub] == OSCROLL)
785 if (scrollname[ivenarg[isub]][0] == 0) {
786 j = 1;
787 cnsitm();
788 } /* can't sell unidentified item */
789 if (iven[isub] == OPOTION)
790 if (potionname[ivenarg[isub]][0] == 0) {
791 j = 1;
792 cnsitm();
793 } /* can't sell unidentified item */
794 if (!j) {
795 if (i == '*') {
796 clear();
797 qshowstr();
798 otradhead();
799 } else if (iven[isub] == 0)
800 lprintf("\nYou don't have item %c!", isub + 'a');
801 else {
802 for (j = 0; j < MAXITM; j++)
803 if ((itm[j].obj == iven[isub]) || (iven[isub] == ODIAMOND) || (iven[isub] == ORUBY) || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE)) {
804 srcount = 0;
805 show3(isub); /* show what the item
806 * was */
807 if ((iven[isub] == ODIAMOND) || (iven[isub] == ORUBY)
808 || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE))
809 value = 20 * ivenarg[isub];
810 else if ((itm[j].obj == OSCROLL) || (itm[j].obj == OPOTION))
811 value = 2 * itm[j + ivenarg[isub]].price;
812 else {
813 izarg = ivenarg[isub];
814 value = itm[j].price; /* appreciate if a +n
815 * object */
816 if (izarg >= 0)
817 value *= 2;
818 while ((izarg-- > 0) && ((value = 14 * (67 + value) / 10) < 500000));
819 }
820 lprintf("\nItem (%c) is worth %ld gold pieces to us. Do you want to sell it? ", i, (long) value);
821 yrepcount = 0;
822 if (getyn() == 'y') {
823 lprcat("yes\n");
824 c[GOLD] += value;
825 if (c[WEAR] == isub)
826 c[WEAR] = -1;
827 if (c[WIELD] == isub)
828 c[WIELD] = -1;
829 if (c[SHIELD] == isub)
830 c[SHIELD] = -1;
831 adjustcvalues(iven[isub], ivenarg[isub]);
832 iven[isub] = 0;
833 } else
834 lprcat("no thanks.\n");
835 j = MAXITM + 100; /* get out of the inner
836 * loop */
837 }
838 if (j <= MAXITM + 2)
839 lprcat("\nSo sorry, but we are not authorized to accept that item.");
840 }
841 }
842 }
843 }
844
845 static void
cnsitm(void)846 cnsitm(void)
847 {
848 lprcat("\nSorry, we can't accept unidentified objects.");
849 }
850
851 /*
852 * for the Larn Revenue Service
853 */
854 void
olrs(void)855 olrs(void)
856 {
857 int i, first;
858 long amt;
859 first = nosignal = 1; /* disable signals */
860 clear();
861 resetscroll();
862 cursor(1, 4);
863 lprcat("Welcome to the Larn Revenue Service district office. How can we help you?");
864 while (1) {
865 if (first) {
866 first = 0;
867 goto nxt;
868 }
869 cursors();
870 lprcat("\n\nYour wish? [(");
871 standout("p");
872 lprcat(") pay taxes, or ");
873 standout("escape");
874 lprcat("] ");
875 yrepcount = 0;
876 i = 0;
877 while (i != 'p' && i != '\33')
878 i = ttgetch();
879 switch (i) {
880 case 'p':
881 lprcat("pay taxes\nHow much? ");
882 amt = readnum((long) c[GOLD]);
883 if (amt < 0) {
884 lprcat("\nSorry, but we can't take negative gold\n");
885 amt = 0;
886 } else if (amt > c[GOLD])
887 lprcat(" You don't have that much.\n");
888 else
889 c[GOLD] -= paytaxes(amt);
890 break;
891
892 case '\33':
893 nosignal = 0; /* enable signals */
894 setscroll();
895 drawscreen();
896 return;
897 };
898
899 nxt: cursor(1, 6);
900 if (outstanding_taxes > 0)
901 lprintf("You presently owe %ld gp in taxes. ", (long) outstanding_taxes);
902 else
903 lprcat("You do not owe us any taxes. ");
904 cursor(1, 8);
905 if (c[GOLD] > 0)
906 lprintf("You have %6ld gp. ", (long) c[GOLD]);
907 else
908 lprcat("You have no gold pieces. ");
909 }
910 }
911