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         }