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