![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to store.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / larn|
Return to store.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / larn |
1.1 root 1: /*
2: * Copyright (c) 1988 Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted
6: * provided that the above copyright notice and this paragraph are
7: * duplicated in all such forms and that any documentation,
8: * advertising materials, and other materials related to such
9: * distribution and use acknowledge that the software was developed
10: * by the University of California, Berkeley. The name of the
11: * University may not be used to endorse or promote products derived
12: * from this software without specific prior written permission.
13: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15: * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16: */
17:
18: #ifndef lint
19: static char sccsid[] = "@(#)store.c 5.2 (Berkeley) 7/22/88";
20: #endif /* not lint */
21:
22: /* store.c Larn is copyrighted 1986 by Noah Morgan. */
23: #include "header.h"
24: static int dndcount=0,dnditm=0;
25:
26: /* this is the data for the stuff in the dnd store */
27: int maxitm=83; /* number of items in the dnd inventory table */
28: struct _itm itm[90] = {
29: /*cost memory iven name iven arg how
30: gp pointer iven[] ivenarg[] many */
31:
32: { 2, 0, OLEATHER, 0, 3 },
33: { 10, 0, OSTUDLEATHER, 0, 2 },
34: { 40, 0, ORING, 0, 2 },
35: { 85, 0, OCHAIN, 0, 2 },
36: { 220, 0, OSPLINT, 0, 1 },
37: { 400, 0, OPLATE, 0, 1 },
38: { 900, 0, OPLATEARMOR, 0, 1 },
39: { 2600, 0, OSSPLATE, 0, 1 },
40: { 150, 0, OSHIELD, 0, 1 },
41:
42: /*cost memory iven name iven arg how
43: gp pointer iven[] ivenarg[] many */
44:
45: { 2, 0, ODAGGER, 0, 3 },
46: { 20, 0, OSPEAR, 0, 3 },
47: { 80, 0, OFLAIL, 0, 2 },
48: { 150, 0, OBATTLEAXE, 0, 2 },
49: { 450, 0, OLONGSWORD, 0, 2 },
50: { 1000, 0, O2SWORD, 0, 2 },
51: { 5000, 0, OSWORD, 0, 1 },
52: { 16500, 0, OLANCE, 0, 1 },
53: { 6000, 0, OSWORDofSLASHING, 0, 0 },
54: { 10000, 0, OHAMMER, 0, 0 },
55:
56: /*cost memory iven name iven arg how
57: gp pointer iven[] ivenarg[] many */
58:
59: { 150, 0, OPROTRING, 1, 1 },
60: { 85, 0, OSTRRING, 1, 1 },
61: { 120, 0, ODEXRING, 1, 1 },
62: { 120, 0, OCLEVERRING, 1, 1 },
63: { 180, 0, OENERGYRING, 0, 1 },
64: { 125, 0, ODAMRING, 0, 1 },
65: { 220, 0, OREGENRING, 0, 1 },
66: { 1000, 0, ORINGOFEXTRA, 0, 1 },
67:
68: { 280, 0, OBELT, 0, 1 },
69:
70: { 400, 0, OAMULET, 0, 1 },
71:
72: { 6500, 0, OORBOFDRAGON, 0, 0 },
73: { 5500, 0, OSPIRITSCARAB, 0, 0 },
74: { 5000, 0, OCUBEofUNDEAD, 0, 0 },
75: { 6000, 0, ONOTHEFT, 0, 0 },
76:
77: { 590, 0, OCHEST, 6, 1 },
78: { 200, 0, OBOOK, 8, 1 },
79: { 10, 0, OCOOKIE, 0, 3 },
80:
81: /*cost memory iven name iven arg how
82: gp pointer iven[] ivenarg[] many */
83:
84: { 20, potionname, OPOTION, 0, 6 },
85: { 90, potionname, OPOTION, 1, 5 },
86: { 520, potionname, OPOTION, 2, 1 },
87: { 100, potionname, OPOTION, 3, 2 },
88: { 50, potionname, OPOTION, 4, 2 },
89: { 150, potionname, OPOTION, 5, 2 },
90: { 70, potionname, OPOTION, 6, 1 },
91: { 30, potionname, OPOTION, 7, 7 },
92: { 200, potionname, OPOTION, 8, 1 },
93: { 50, potionname, OPOTION, 9, 1 },
94: { 80, potionname, OPOTION, 10, 1 },
95:
96: /*cost memory iven name iven arg how
97: gp pointer iven[] ivenarg[] many */
98:
99: { 30, potionname, OPOTION, 11, 3 },
100: { 20, potionname, OPOTION, 12, 5 },
101: { 40, potionname, OPOTION, 13, 3 },
102: { 35, potionname, OPOTION, 14, 2 },
103: { 520, potionname, OPOTION, 15, 1 },
104: { 90, potionname, OPOTION, 16, 2 },
105: { 200, potionname, OPOTION, 17, 2 },
106: { 220, potionname, OPOTION, 18, 4 },
107: { 80, potionname, OPOTION, 19, 6 },
108: { 370, potionname, OPOTION, 20, 3 },
109: { 50, potionname, OPOTION, 22, 1 },
110: { 150, potionname, OPOTION, 23, 3 },
111:
112: /*cost memory iven name iven arg how
113: gp pointer iven[] ivenarg[] many */
114:
115: { 100, scrollname, OSCROLL, 0, 2 },
116: { 125, scrollname, OSCROLL, 1, 2 },
117: { 60, scrollname, OSCROLL, 2, 4 },
118: { 10, scrollname, OSCROLL, 3, 4 },
119: { 100, scrollname, OSCROLL, 4, 3 },
120: { 200, scrollname, OSCROLL, 5, 2 },
121: { 110, scrollname, OSCROLL, 6, 1 },
122: { 500, scrollname, OSCROLL, 7, 2 },
123: { 200, scrollname, OSCROLL, 8, 2 },
124: { 250, scrollname, OSCROLL, 9, 4 },
125: { 20, scrollname, OSCROLL, 10, 5 },
126: { 30, scrollname, OSCROLL, 11, 3 },
127:
128: /*cost memory iven name iven arg how
129: gp pointer iven[] ivenarg[] many */
130:
131: { 340, scrollname, OSCROLL, 12, 1 },
132: { 340, scrollname, OSCROLL, 13, 1 },
133: { 300, scrollname, OSCROLL, 14, 2 },
134: { 400, scrollname, OSCROLL, 15, 2 },
135: { 500, scrollname, OSCROLL, 16, 2 },
136: { 1000, scrollname, OSCROLL, 17, 1 },
137: { 500, scrollname, OSCROLL, 18, 1 },
138: { 340, scrollname, OSCROLL, 19, 2 },
139: { 220, scrollname, OSCROLL, 20, 3 },
140: { 3900, scrollname, OSCROLL, 21, 0 },
141: { 610, scrollname, OSCROLL, 22, 1 },
142: { 3000, scrollname, OSCROLL, 23, 0 }
143: };
144:
145: /*
146: function for the dnd store
147: */
148: dnd_2hed()
149: {
150: lprcat("Welcome to the Larn Thrift Shoppe. We stock many items explorers find useful\n");
151: lprcat(" in their adventures. Feel free to browse to your hearts content.\n");
152: lprcat("Also be advised, if you break 'em, you pay for 'em.");
153: }
154:
155: dnd_hed()
156: {
157: register int i;
158: for (i=dnditm; i<26+dnditm; i++) dnditem(i);
159: cursor(50,18); lprcat("You have ");
160: }
161:
162: dndstore()
163: {
164: register int i;
165: dnditm = 0;
166: nosignal = 1; /* disable signals */
167: clear(); dnd_2hed();
168: if (outstanding_taxes>0)
169: {
170: lprcat("\n\nThe Larn Revenue Service has ordered us to not do business with tax evaders.\n"); beep();
171: lprintf("They have also told us that you owe %d gp in back taxes, and as we must\n",(long)outstanding_taxes);
172: lprcat("comply with the law, we cannot serve you at this time. Soo Sorry.\n");
173: cursors();
174: lprcat("\nPress "); standout("escape"); lprcat(" to leave: "); lflush();
175: i=0;
176: while (i!='\33') i=getchar();
177: drawscreen(); nosignal = 0; /* enable signals */ return;
178: }
179:
180: dnd_hed();
181: while (1)
182: {
183: cursor(59,18); lprintf("%d gold pieces",(long)c[GOLD]);
184: cltoeoln(); cl_dn(1,20); /* erase to eod */
185: lprcat("\nEnter your transaction ["); standout("space");
186: lprcat(" for more, "); standout("escape");
187: lprcat(" to leave]? ");
188: i=0;
189: while ((i<'a' || i>'z') && (i!=' ') && (i!='\33') && (i!=12)) i=getchar();
190: if (i==12) { clear(); dnd_2hed(); dnd_hed(); }
191: else if (i=='\33')
192: { drawscreen(); nosignal = 0; /* enable signals */ return; }
193: else if (i==' ')
194: {
195: cl_dn(1,4);
196: if ((dnditm += 26) >= maxitm) dnditm=0; dnd_hed();
197: }
198: else
199: { /* buy something */
200: lprc(i); /* echo the byte */
201: i += dnditm - 'a';
202: if (i>=maxitm) outofstock(); else
203: if (itm[i].qty <= 0) outofstock(); else
204: if (pocketfull()) handsfull(); else
205: if (c[GOLD] < itm[i].price*10) nogold(); else
206: {
207: if (itm[i].mem != 0) *itm[i].mem[itm[i].arg] = ' ';
208: c[GOLD] -= itm[i].price*10;
209: itm[i].qty--; take(itm[i].obj,itm[i].arg);
210: if (itm[i].qty==0) dnditem(i); nap(1001);
211: }
212: }
213:
214: }
215: }
216:
217: /*
218: function for the players hands are full
219: */
220: static handsfull()
221: { lprcat("\nYou can't carry anything more!"); lflush(); nap(2200); }
222: static outofstock()
223: { lprcat("\nSorry, but we are out of that item."); lflush(); nap(2200); }
224: static nogold()
225: { lprcat("\nYou don't have enough gold to pay for that!"); lflush(); nap(2200); }
226:
227: /*
228: dnditem(index)
229:
230: to print the item list; used in dndstore() enter with the index into itm
231: */
232: static dnditem(i)
233: register int i;
234: {
235: register int j,k;
236: if (i >= maxitm) return;
237: cursor( (j=(i&1)*40+1) , (k=((i%26)>>1)+5) );
238: if (itm[i].qty == 0) { lprintf("%39s",""); return; }
239: lprintf("%c) ",(i%26)+'a');
240: if (itm[i].obj == OPOTION)
241: { lprcat("potion of "); lprintf("%s",&potionname[itm[i].arg][1]); }
242: else if (itm[i].obj == OSCROLL)
243: { lprcat("scroll of "); lprintf("%s",&scrollname[itm[i].arg][1]); }
244: else lprintf("%s",objectname[itm[i].obj]);
245: cursor( j+31,k ); lprintf("%6d",(long)(itm[i].price*10));
246: }
247:
248:
249: /*
250: for the college of larn
251: */
252: char course[26]={0}; /* the list of courses taken */
253: char coursetime[] = { 10, 15, 10, 20, 10, 10, 10, 5 };
254: /*
255: function to display the header info for the school
256: */
257: sch_hed()
258: {
259: clear();
260: lprcat("The College of Larn offers the exciting opportunity of higher education to\n");
261: lprcat("all inhabitants of the caves. Here is a list of the class schedule:\n\n\n");
262: lprcat("\t\t Course Name \t Time Needed\n\n");
263:
264: if (course[0]==0) lprcat("\t\ta) Fighters Training I 10 mobuls"); /*line 7 of crt*/
265: lprc('\n');
266: if (course[1]==0) lprcat("\t\tb) Fighters Training II 15 mobuls");
267: lprc('\n');
268: if (course[2]==0) lprcat("\t\tc) Introduction to Wizardry 10 mobuls");
269: lprc('\n');
270: if (course[3]==0) lprcat("\t\td) Applied Wizardry 20 mobuls");
271: lprc('\n');
272: if (course[4]==0) lprcat("\t\te) Behavioral Psychology 10 mobuls");
273: lprc('\n');
274: if (course[5]==0) lprcat("\t\tf) Faith for Today 10 mobuls");
275: lprc('\n');
276: if (course[6]==0) lprcat("\t\tg) Contemporary Dance 10 mobuls");
277: lprc('\n');
278: if (course[7]==0) lprcat("\t\th) History of Larn 5 mobuls");
279:
280: lprcat("\n\n\t\tAll courses cost 250 gold pieces.");
281: cursor(30,18);
282: lprcat("You are presently carrying ");
283: }
284:
285: oschool()
286: {
287: register int i;
288: long time_used;
289: nosignal = 1; /* disable signals */
290: sch_hed();
291: while (1)
292: {
293: cursor(57,18); lprintf("%d gold pieces. ",(long)c[GOLD]); cursors();
294: lprcat("\nWhat is your choice ["); standout("escape");
295: lprcat(" to leave] ? "); yrepcount=0;
296: i=0; while ((i<'a' || i>'h') && (i!='\33') && (i!=12)) i=getchar();
297: if (i==12) { sch_hed(); continue; }
298: else if (i=='\33')
299: { nosignal = 0; drawscreen(); /* enable signals */ return; }
300: lprc(i);
301: if (c[GOLD] < 250) nogold(); else
302: if (course[i-'a'])
303: { lprcat("\nSorry, but that class is filled."); nap(1000); }
304: else
305: if (i <= 'h')
306: {
307: c[GOLD] -= 250; time_used=0;
308: switch(i)
309: {
310: case 'a': c[STRENGTH] += 2; c[CONSTITUTION]++;
311: lprcat("\nYou feel stronger!");
312: cl_line(16,7);
313: break;
314:
315: case 'b': if (course[0]==0)
316: {
317: lprcat("\nSorry, but this class has a prerequisite of Fighters Training I");
318: c[GOLD]+=250; time_used= -10000; break;
319: }
320: lprcat("\nYou feel much stronger!");
321: cl_line(16,8);
322: c[STRENGTH] += 2; c[CONSTITUTION] += 2; break;
323:
324: case 'c': c[INTELLIGENCE] += 2;
325: lprcat("\nThe task before you now seems more attainable!");
326: cl_line(16,9); break;
327:
328: case 'd': if (course[2]==0)
329: {
330: lprcat("\nSorry, but this class has a prerequisite of Introduction to Wizardry");
331: c[GOLD]+=250; time_used= -10000; break;
332: }
333: lprcat("\nThe task before you now seems very attainable!");
334: cl_line(16,10);
335: c[INTELLIGENCE] += 2; break;
336:
337: case 'e': c[CHARISMA] += 3;
338: lprcat("\nYou now feel like a born leader!");
339: cl_line(16,11); break;
340:
341: case 'f': c[WISDOM] += 2;
342: lprcat("\nYou now feel more confident that you can find the potion in time!");
343: cl_line(16,12); break;
344:
345: case 'g': c[DEXTERITY] += 3;
346: lprcat("\nYou feel like dancing!");
347: cl_line(16,13); break;
348:
349: case 'h': c[INTELLIGENCE]++;
350: lprcat("\nYour instructor told you that the Eye of Larn is rumored to be guarded\n");
351: lprcat("by a platinum dragon who possesses psionic abilities. ");
352: cl_line(16,14); break;
353: }
354: time_used += coursetime[i-'a']*100;
355: if (time_used > 0)
356: {
357: gtime += time_used;
358: course[i-'a']++; /* remember that he has taken that course */
359: c[HP] = c[HPMAX]; c[SPELLS] = c[SPELLMAX]; /* he regenerated */
360:
361: if (c[BLINDCOUNT]) c[BLINDCOUNT]=1; /* cure blindness too! */
362: if (c[CONFUSE]) c[CONFUSE]=1; /* end confusion */
363: adjtime((long)time_used); /* adjust parameters for time change */
364: }
365: nap(1000);
366: }
367: }
368: }
369:
370: /*
371: * for the first national bank of Larn
372: */
373: int lasttime=0; /* last time he was in bank */
374: obank()
375: {
376: banktitle(" Welcome to the First National Bank of Larn.");
377: }
378: obank2()
379: {
380: banktitle("Welcome to the 5th level branch office of the First National Bank of Larn.");
381: }
382: static banktitle(str)
383: char *str;
384: {
385: nosignal = 1; /* disable signals */
386: clear(); lprcat(str);
387: if (outstanding_taxes>0)
388: {
389: register int i;
390: lprcat("\n\nThe Larn Revenue Service has ordered that your account be frozen until all\n"); beep();
391: lprintf("levied taxes have been paid. They have also told us that you owe %d gp in\n",(long)outstanding_taxes);
392: lprcat("taxes, and we must comply with them. We cannot serve you at this time. Sorry.\n");
393: lprcat("We suggest you go to the LRS office and pay your taxes.\n");
394: cursors();
395: lprcat("\nPress "); standout("escape"); lprcat(" to leave: "); lflush();
396: i=0;
397: while (i!='\33') i=getchar();
398: drawscreen(); nosignal = 0; /* enable signals */ return;
399: }
400: lprcat("\n\n\tGemstone\t Appraisal\t\tGemstone\t Appraisal");
401: obanksub(); nosignal = 0; /* enable signals */
402: drawscreen();
403: }
404:
405: /*
406: * function to put interest on your bank account
407: */
408: ointerest()
409: {
410: register int i;
411: if (c[BANKACCOUNT]<0) c[BANKACCOUNT] = 0;
412: else if ((c[BANKACCOUNT]>0) && (c[BANKACCOUNT]<500000))
413: {
414: i = (gtime-lasttime)/100; /* # mobuls elapsed */
415: while ((i-- > 0) && (c[BANKACCOUNT]<500000))
416: c[BANKACCOUNT] += c[BANKACCOUNT]/250;
417: if (c[BANKACCOUNT]>500000) c[BANKACCOUNT]=500000; /* interest limit */
418: }
419: lasttime = (gtime/100)*100;
420: }
421:
422: static short gemorder[26]={0}; /* the reference to screen location for each */
423: static long gemvalue[26]={0}; /* the appraisal of the gems */
424: obanksub()
425: {
426: unsigned long amt;
427: register int i,k;
428: ointerest(); /* credit any needed interest */
429:
430: for (k=i=0; i<26; i++)
431: switch(iven[i])
432: {
433: case OLARNEYE: case ODIAMOND: case OEMERALD:
434: case ORUBY: case OSAPPHIRE:
435:
436: if (iven[i]==OLARNEYE)
437: {
438: gemvalue[i]=250000-((gtime*7)/100)*100;
439: if (gemvalue[i]<50000) gemvalue[i]=50000;
440: }
441: else gemvalue[i] = (255&ivenarg[i])*100;
442: gemorder[i]=k;
443: cursor( (k%2)*40+1 , (k>>1)+4 );
444: lprintf("%c) %s",i+'a',objectname[iven[i]]);
445: cursor( (k%2)*40+33 , (k>>1)+4 );
446: lprintf("%5d",(long)gemvalue[i]); k++;
447: };
448: cursor(31,17); lprintf("You have %8d gold pieces in the bank.",(long)c[BANKACCOUNT]);
449: cursor(40,18); lprintf("You have %8d gold pieces",(long)c[GOLD]);
450: if (c[BANKACCOUNT]+c[GOLD] >= 500000)
451: lprcat("\nNote: Larndom law states that only deposits under 500,000gp can earn interest.");
452: while (1)
453: {
454: cl_dn(1,20);
455: lprcat("\nYour wish? [("); standout("d"); lprcat(") deposit, (");
456: standout("w"); lprcat(") withdraw, ("); standout("s");
457: lprcat(") sell a stone, or "); standout("escape"); lprcat("] ");
458: yrepcount=0;
459: i=0; while (i!='d' && i!='w' && i!='s' && i!='\33') i=getchar();
460: switch(i)
461: {
462: case 'd': lprcat("deposit\nHow much? "); amt = readnum((long)c[GOLD]);
463: if (amt<0) { lprcat("\nSorry, but we can't take negative gold!"); nap(2000); amt=0; } else
464: if (amt>c[GOLD])
465: { lprcat(" You don't have that much."); nap(2000); }
466: else { c[GOLD] -= amt; c[BANKACCOUNT] += amt; }
467: break;
468:
469: case 'w': lprcat("withdraw\nHow much? "); amt = readnum((long)c[BANKACCOUNT]);
470: if (amt<0) { lprcat("\nSorry, but we don't have any negative gold!"); nap(2000); amt=0; }
471: else if (amt > c[BANKACCOUNT])
472: { lprcat("\nYou don't have that much in the bank!"); nap(2000); }
473: else { c[GOLD] += amt; c[BANKACCOUNT] -= amt; }
474: break;
475:
476: case 's': lprcat("\nWhich stone would you like to sell? ");
477: i=0; while ((i<'a' || i>'z') && i!='*') i=getchar();
478: if (i=='*')
479: for (i=0; i<26; i++)
480: {
481: if (gemvalue[i])
482: {
483: c[GOLD]+=gemvalue[i]; iven[i]=0;
484: gemvalue[i]=0; k = gemorder[i];
485: cursor( (k%2)*40+1 , (k>>1)+4 );
486: lprintf("%39s","");
487: }
488: }
489: else
490: {
491: if (gemvalue[i=i-'a']==0)
492: {
493: lprintf("\nItem %c is not a gemstone!",i+'a');
494: nap(2000); break;
495: }
496: c[GOLD]+=gemvalue[i]; iven[i]=0;
497: gemvalue[i]=0; k = gemorder[i];
498: cursor( (k%2)*40+1 , (k>>1)+4 ); lprintf("%39s","");
499: }
500: break;
501:
502: case '\33': return;
503: };
504: cursor(40,17); lprintf("%8d",(long)c[BANKACCOUNT]);
505: cursor(49,18); lprintf("%8d",(long)c[GOLD]);
506: }
507: }
508:
509: /*
510: subroutine to appraise any stone for the bank
511: */
512: appraise(gemstone)
513: register int gemstone;
514: {
515: register int j,amt;
516: for (j=0; j<26; j++)
517: if (iven[j]==gemstone)
518: {
519: lprintf("\nI see you have %s",objectname[gemstone]);
520: if (gemstone==OLARNEYE) lprcat(" I must commend you. I didn't think\nyou could get it.");
521: lprcat(" Shall I appraise it for you? "); yrepcount=0;
522: if (getyn()=='y')
523: {
524: lprcat("yes.\n Just one moment please \n"); nap(1000);
525: if (gemstone==OLARNEYE)
526: {
527: amt = 250000-((gtime*7)/100)*100;
528: if (amt<50000) amt=50000;
529: }
530: else amt = (255 & ivenarg[j]) * 100;
531: lprintf("\nI can see this is an excellent stone, It is worth %d",(long)amt);
532: lprcat("\nWould you like to sell it to us? "); yrepcount=0;
533: if (getyn()=='y') { lprcat("yes\n"); c[GOLD]+=amt; iven[j]=0; }
534: else lprcat("no thank you.\n");
535: if (gemstone==OLARNEYE) lprcat("It is, of course, your privilege to keep the stone\n");
536: }
537: else lprcat("no\nO. K.\n");
538: }
539: }
540: /*
541: function for the trading post
542: */
543: static otradhead()
544: {
545: clear();
546: lprcat("Welcome to the Larn Trading Post. We buy items that explorers no longer find\n");
547: lprcat("useful. Since the condition of the items you bring in is not certain,\n");
548: lprcat("and we incur great expense in reconditioning the items, we usually pay\n");
549: lprcat("only 20% of their value were they to be new. If the items are badly\n");
550: lprcat("damaged, we will pay only 10% of their new value.\n\n");
551: }
552:
553: otradepost()
554: {
555: register int i,j,value,isub,izarg;
556: dnditm = dndcount = 0;
557: nosignal = 1; /* disable signals */
558: resetscroll(); otradhead();
559: while (1)
560: {
561: lprcat("\nWhat item do you want to sell to us ["); standout("*");
562: lprcat(" for list, or "); standout("escape"); lprcat("] ? ");
563: i=0; while (i>'z' || (i<'a' && i!='*' && i!='\33' && i!='.')) i=getchar();
564: if (i == '\33')
565: { setscroll(); recalc(); drawscreen(); nosignal=0; /* enable signals */ return; }
566: isub = i - 'a'; j=0;
567: if (iven[isub]==OSCROLL) if (scrollname[ivenarg[isub]][0]==0)
568: { j=1; cnsitm(); } /* can't sell unidentified item */
569: if (iven[isub]==OPOTION) if (potionname[ivenarg[isub]][0]==0)
570: { j=1; cnsitm(); } /* can't sell unidentified item */
571: if (!j)
572: if (i=='*') { clear(); qshowstr(); otradhead(); }
573: else if (iven[isub]==0) lprintf("\nYou don't have item %c!",isub+'a');
574: else
575: {
576: for (j=0; j<maxitm; j++)
577: if ((itm[j].obj == iven[isub]) || (iven[isub] == ODIAMOND) || (iven[isub] == ORUBY) || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE))
578: {
579: srcount=0; show3(isub); /* show what the item was */
580: if ((iven[isub] == ODIAMOND) || (iven[isub] == ORUBY)
581: || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE))
582: value = 20*ivenarg[isub];
583: else
584: if ((itm[j].obj == OSCROLL) || (itm[j].obj == OPOTION)) value = 2*itm[j+ivenarg[isub]].price;
585: else
586: {
587: izarg=ivenarg[isub]; value = itm[j].price; /* appreciate if a +n object */
588: if (izarg >= 0) value *= 2;
589: while ((izarg-- > 0) && ((value=14*(67+value)/10) < 500000));
590: }
591: lprintf("\nItem (%c) is worth %d gold pieces to us. Do you want to sell it? ",i,(long)value);
592: yrepcount=0;
593: if (getyn()=='y')
594: {
595: lprcat("yes\n"); c[GOLD]+=value;
596: if (c[WEAR] == isub) c[WEAR] = -1;
597: if (c[WIELD] == isub) c[WIELD] = -1;
598: if (c[SHIELD] == isub) c[SHIELD] = -1;
599: adjustcvalues(iven[isub],ivenarg[isub]);
600: iven[isub]=0;
601: }
602: else lprcat("no thanks.\n");
603: j = maxitm+100; /* get out of the inner loop */
604: }
605: if (j <= maxitm+2) lprcat("\nSo sorry, but we are not authorized to accept that item.");
606: }
607: }
608: }
609:
610: cnsitm()
611: { lprcat("\nSorry, we can't accept unidentified objects."); }
612:
613: /*
614: * for the Larn Revenue Service
615: */
616: olrs()
617: {
618: register int i,first;
619: unsigned long amt;
620: first = nosignal = 1; /* disable signals */
621: clear(); resetscroll(); cursor(1,4);
622: lprcat("Welcome to the Larn Revenue Service district office. How can we help you?");
623: while (1)
624: {
625: if (first) { first=0; goto nxt; }
626: cursors();
627: lprcat("\n\nYour wish? [(");
628: standout("p");
629: lprcat(") pay taxes, or ");
630: standout("escape");
631: lprcat("] "); yrepcount=0;
632: i=0; while (i!='p' && i!='\33') i=getchar();
633: switch(i)
634: {
635: case 'p': lprcat("pay taxes\nHow much? "); amt = readnum((long)c[GOLD]);
636: if (amt<0) { lprcat("\nSorry, but we can't take negative gold\n"); amt=0; } else
637: if (amt>c[GOLD]) lprcat(" You don't have that much.\n");
638: else c[GOLD] -= paytaxes((long)amt);
639: break;
640:
641: case '\33': nosignal = 0; /* enable signals */
642: setscroll(); drawscreen(); return;
643: };
644:
645: nxt: cursor(1,6);
646: if (outstanding_taxes>0)
647: lprintf("You presently owe %d gp in taxes. ",(long)outstanding_taxes);
648: else
649: lprcat("You do not owe us any taxes. ");
650: cursor(1,8);
651: if (c[GOLD]>0)
652: lprintf("You have %6d gp. ",(long)c[GOLD]);
653: else
654: lprcat("You have no gold pieces. ");
655: }
656: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.