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