larn/store.c

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