larn/store.c

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