projects / unix-history / blame
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
add manual page, Berkeley specific copyright
[unix-history] / usr / src / games / larn / store.c
CommitLineData
ae290a88
KB		 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
f9ab636d 19static char sccsid[] = "@(#)store.c 5.2 (Berkeley) %G%";
ae290a88
KB		 20#endif /* not lint */
21
22/* store.c Larn is copyrighted 1986 by Noah Morgan. */
23#include "header.h"
24static int dndcount=0,dnditm=0;
25
26/* this is the data for the stuff in the dnd store */
27int maxitm=83; /* number of items in the dnd inventory table */
28struct _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 */
148dnd_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
155dnd_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
162dndstore()
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 */
220static handsfull()
221 { lprcat("\nYou can't carry anything more!"); lflush(); nap(2200); }
222static outofstock()
223 { lprcat("\nSorry, but we are out of that item."); lflush(); nap(2200); }
224static 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 */
232static 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\f
249/*
250 for the college of larn
251 */
f9ab636d 252char course[26]={0}; /* the list of courses taken */
ae290a88
KB		 253char coursetime[] = { 10, 15, 10, 20, 10, 10, 10, 5 };
254/*
255 function to display the header info for the school
256 */
257sch_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
285oschool()
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\f
370/*
371 * for the first national bank of Larn
372 */
373int lasttime=0; /* last time he was in bank */
374obank()
375 {
376 banktitle(" Welcome to the First National Bank of Larn.");
377 }
378obank2()
379 {
380 banktitle("Welcome to the 5th level branch office of the First National Bank of Larn.");
381 }
382static 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 */
408ointerest()
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
f9ab636d
KB		 422static short gemorder[26]={0}; /* the reference to screen location for each */
423static long gemvalue[26]={0}; /* the appraisal of the gems */
ae290a88
KB		 424obanksub()
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 */
512appraise(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 */
543static 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
553otradepost()
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
610cnsitm()
611 { lprcat("\nSorry, we can't accept unidentified objects."); }
612
613/*
614 * for the Larn Revenue Service
615 */
616olrs()
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
645nxt: 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 }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.