X-Git-Url: https://git.cameronkatri.com/bsdgames-darwin.git/blobdiff_plain/77e3814f0c0e3dea4d0032e25666f77e6f83bfff..HEAD:/larn/store.c diff --git a/larn/store.c b/larn/store.c index 904cfade..234656d8 100644 --- a/larn/store.c +++ b/larn/store.c @@ -1,3 +1,5 @@ +/* $NetBSD: store.c,v 1.17 2021/05/02 12:50:45 rillig Exp $ */ + /*- * Copyright (c) 1988 The Regents of the University of California. * All rights reserved. @@ -10,11 +12,7 @@ * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors + * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * @@ -31,154 +29,188 @@ * SUCH DAMAGE. */ +#include #ifndef lint -static char sccsid[] = "@(#)store.c 5.4 (Berkeley) 5/13/91"; -#endif /* not lint */ - -/* store.c Larn is copyrighted 1986 by Noah Morgan. */ +#if 0 +static char sccsid[] = "@(#)store.c 5.4 (Berkeley) 5/13/91"; +#else +__RCSID("$NetBSD: store.c,v 1.17 2021/05/02 12:50:45 rillig Exp $"); +#endif +#endif /* not lint */ + +/* store.c Larn is copyrighted 1986 by Noah Morgan. */ #include "header.h" -static int dndcount=0,dnditm=0; - -/* this is the data for the stuff in the dnd store */ -int maxitm=83; /* number of items in the dnd inventory table */ -struct _itm itm[90] = { -/*cost memory iven name iven arg how - gp pointer iven[] ivenarg[] many */ - -{ 2, 0, OLEATHER, 0, 3 }, -{ 10, 0, OSTUDLEATHER, 0, 2 }, -{ 40, 0, ORING, 0, 2 }, -{ 85, 0, OCHAIN, 0, 2 }, -{ 220, 0, OSPLINT, 0, 1 }, -{ 400, 0, OPLATE, 0, 1 }, -{ 900, 0, OPLATEARMOR, 0, 1 }, -{ 2600, 0, OSSPLATE, 0, 1 }, -{ 150, 0, OSHIELD, 0, 1 }, - -/*cost memory iven name iven arg how - gp pointer iven[] ivenarg[] many */ - -{ 2, 0, ODAGGER, 0, 3 }, -{ 20, 0, OSPEAR, 0, 3 }, -{ 80, 0, OFLAIL, 0, 2 }, -{ 150, 0, OBATTLEAXE, 0, 2 }, -{ 450, 0, OLONGSWORD, 0, 2 }, -{ 1000, 0, O2SWORD, 0, 2 }, -{ 5000, 0, OSWORD, 0, 1 }, -{ 16500, 0, OLANCE, 0, 1 }, -{ 6000, 0, OSWORDofSLASHING, 0, 0 }, -{ 10000, 0, OHAMMER, 0, 0 }, - -/*cost memory iven name iven arg how - gp pointer iven[] ivenarg[] many */ - -{ 150, 0, OPROTRING, 1, 1 }, -{ 85, 0, OSTRRING, 1, 1 }, -{ 120, 0, ODEXRING, 1, 1 }, -{ 120, 0, OCLEVERRING, 1, 1 }, -{ 180, 0, OENERGYRING, 0, 1 }, -{ 125, 0, ODAMRING, 0, 1 }, -{ 220, 0, OREGENRING, 0, 1 }, -{ 1000, 0, ORINGOFEXTRA, 0, 1 }, - -{ 280, 0, OBELT, 0, 1 }, - -{ 400, 0, OAMULET, 0, 1 }, - -{ 6500, 0, OORBOFDRAGON, 0, 0 }, -{ 5500, 0, OSPIRITSCARAB, 0, 0 }, -{ 5000, 0, OCUBEofUNDEAD, 0, 0 }, -{ 6000, 0, ONOTHEFT, 0, 0 }, - -{ 590, 0, OCHEST, 6, 1 }, -{ 200, 0, OBOOK, 8, 1 }, -{ 10, 0, OCOOKIE, 0, 3 }, - -/*cost memory iven name iven arg how - gp pointer iven[] ivenarg[] many */ - -{ 20, potionname, OPOTION, 0, 6 }, -{ 90, potionname, OPOTION, 1, 5 }, -{ 520, potionname, OPOTION, 2, 1 }, -{ 100, potionname, OPOTION, 3, 2 }, -{ 50, potionname, OPOTION, 4, 2 }, -{ 150, potionname, OPOTION, 5, 2 }, -{ 70, potionname, OPOTION, 6, 1 }, -{ 30, potionname, OPOTION, 7, 7 }, -{ 200, potionname, OPOTION, 8, 1 }, -{ 50, potionname, OPOTION, 9, 1 }, -{ 80, potionname, OPOTION, 10, 1 }, - -/*cost memory iven name iven arg how - gp pointer iven[] ivenarg[] many */ - -{ 30, potionname, OPOTION, 11, 3 }, -{ 20, potionname, OPOTION, 12, 5 }, -{ 40, potionname, OPOTION, 13, 3 }, -{ 35, potionname, OPOTION, 14, 2 }, -{ 520, potionname, OPOTION, 15, 1 }, -{ 90, potionname, OPOTION, 16, 2 }, -{ 200, potionname, OPOTION, 17, 2 }, -{ 220, potionname, OPOTION, 18, 4 }, -{ 80, potionname, OPOTION, 19, 6 }, -{ 370, potionname, OPOTION, 20, 3 }, -{ 50, potionname, OPOTION, 22, 1 }, -{ 150, potionname, OPOTION, 23, 3 }, - -/*cost memory iven name iven arg how - gp pointer iven[] ivenarg[] many */ - -{ 100, scrollname, OSCROLL, 0, 2 }, -{ 125, scrollname, OSCROLL, 1, 2 }, -{ 60, scrollname, OSCROLL, 2, 4 }, -{ 10, scrollname, OSCROLL, 3, 4 }, -{ 100, scrollname, OSCROLL, 4, 3 }, -{ 200, scrollname, OSCROLL, 5, 2 }, -{ 110, scrollname, OSCROLL, 6, 1 }, -{ 500, scrollname, OSCROLL, 7, 2 }, -{ 200, scrollname, OSCROLL, 8, 2 }, -{ 250, scrollname, OSCROLL, 9, 4 }, -{ 20, scrollname, OSCROLL, 10, 5 }, -{ 30, scrollname, OSCROLL, 11, 3 }, - -/*cost memory iven name iven arg how - gp pointer iven[] ivenarg[] many */ - -{ 340, scrollname, OSCROLL, 12, 1 }, -{ 340, scrollname, OSCROLL, 13, 1 }, -{ 300, scrollname, OSCROLL, 14, 2 }, -{ 400, scrollname, OSCROLL, 15, 2 }, -{ 500, scrollname, OSCROLL, 16, 2 }, -{ 1000, scrollname, OSCROLL, 17, 1 }, -{ 500, scrollname, OSCROLL, 18, 1 }, -{ 340, scrollname, OSCROLL, 19, 2 }, -{ 220, scrollname, OSCROLL, 20, 3 }, -{ 3900, scrollname, OSCROLL, 21, 0 }, -{ 610, scrollname, OSCROLL, 22, 1 }, -{ 3000, scrollname, OSCROLL, 23, 0 } - }; +#include "extern.h" + +static void handsfull(void); +static void outofstock(void); +static void nogold(void); +static void dnditem(int); +static void banktitle(const char *); +static void obanksub(void); +static void otradhead(void); +static void cnsitm(void); + +static int dndcount = 0, dnditm = 0; + +/* number of items in the dnd inventory table */ +#define MAXITM 83 + +/* this is the data for the stuff in the dnd store */ +struct _itm itm[90] = { + /* + * cost iven name iven arg how gp + * iven[] ivenarg[] many + */ + + {2, OLEATHER, 0, 3}, + {10, OSTUDLEATHER, 0, 2}, + {40, ORING, 0, 2}, + {85, OCHAIN, 0, 2}, + {220, OSPLINT, 0, 1}, + {400, OPLATE, 0, 1}, + {900, OPLATEARMOR, 0, 1}, + {2600, OSSPLATE, 0, 1}, + {150, OSHIELD, 0, 1}, + + /* + * cost iven name iven arg how gp + * iven[] ivenarg[] many + */ + + {2, ODAGGER, 0, 3}, + {20, OSPEAR, 0, 3}, + {80, OFLAIL, 0, 2}, + {150, OBATTLEAXE, 0, 2}, + {450, OLONGSWORD, 0, 2}, + {1000, O2SWORD, 0, 2}, + {5000, OSWORD, 0, 1}, + {16500, OLANCE, 0, 1}, + {6000, OSWORDofSLASHING, 0, 0}, + {10000, OHAMMER, 0, 0}, + + /* + * cost iven name iven arg how gp + * iven[] ivenarg[] many + */ + + {150, OPROTRING, 1, 1}, + {85, OSTRRING, 1, 1}, + {120, ODEXRING, 1, 1}, + {120, OCLEVERRING, 1, 1}, + {180, OENERGYRING, 0, 1}, + {125, ODAMRING, 0, 1}, + {220, OREGENRING, 0, 1}, + {1000, ORINGOFEXTRA, 0, 1}, + + {280, OBELT, 0, 1}, + + {400, OAMULET, 0, 1}, + + {6500, OORBOFDRAGON, 0, 0}, + {5500, OSPIRITSCARAB, 0, 0}, + {5000, OCUBEofUNDEAD, 0, 0}, + {6000, ONOTHEFT, 0, 0}, + + {590, OCHEST, 6, 1}, + {200, OBOOK, 8, 1}, + {10, OCOOKIE, 0, 3}, + + /* + * cost iven name iven arg how gp + * iven[] ivenarg[] many + */ + + {20, OPOTION, 0, 6}, + {90, OPOTION, 1, 5}, + {520, OPOTION, 2, 1}, + {100, OPOTION, 3, 2}, + {50, OPOTION, 4, 2}, + {150, OPOTION, 5, 2}, + {70, OPOTION, 6, 1}, + {30, OPOTION, 7, 7}, + {200, OPOTION, 8, 1}, + {50, OPOTION, 9, 1}, + {80, OPOTION, 10, 1}, + + /* + * cost iven name iven arg how gp + * iven[] ivenarg[] many + */ + + {30, OPOTION, 11, 3}, + {20, OPOTION, 12, 5}, + {40, OPOTION, 13, 3}, + {35, OPOTION, 14, 2}, + {520, OPOTION, 15, 1}, + {90, OPOTION, 16, 2}, + {200, OPOTION, 17, 2}, + {220, OPOTION, 18, 4}, + {80, OPOTION, 19, 6}, + {370, OPOTION, 20, 3}, + {50, OPOTION, 22, 1}, + {150, OPOTION, 23, 3}, + + /* + * cost iven name iven arg how gp + * iven[] ivenarg[] many + */ + + {100, OSCROLL, 0, 2}, + {125, OSCROLL, 1, 2}, + {60, OSCROLL, 2, 4}, + {10, OSCROLL, 3, 4}, + {100, OSCROLL, 4, 3}, + {200, OSCROLL, 5, 2}, + {110, OSCROLL, 6, 1}, + {500, OSCROLL, 7, 2}, + {200, OSCROLL, 8, 2}, + {250, OSCROLL, 9, 4}, + {20, OSCROLL, 10, 5}, + {30, OSCROLL, 11, 3}, + + /* + * cost iven name iven arg how gp + * iven[] ivenarg[] many + */ + + {340, OSCROLL, 12, 1}, + {340, OSCROLL, 13, 1}, + {300, OSCROLL, 14, 2}, + {400, OSCROLL, 15, 2}, + {500, OSCROLL, 16, 2}, + {1000, OSCROLL, 17, 1}, + {500, OSCROLL, 18, 1}, + {340, OSCROLL, 19, 2}, + {220, OSCROLL, 20, 3}, + {3900, OSCROLL, 21, 0}, + {610, OSCROLL, 22, 1}, + {3000, OSCROLL, 23, 0} +}; /* function for the dnd store */ -dnd_2hed() - { +static void +dnd_2hed(void) +{ lprcat("Welcome to the Larn Thrift Shoppe. We stock many items explorers find useful\n"); lprcat(" in their adventures. Feel free to browse to your hearts content.\n"); lprcat("Also be advised, if you break 'em, you pay for 'em."); - } - -static void dnditem(); +} -dnd_hed() - { - register int i; - for (i=dnditm; i<26+dnditm; i++) dnditem(i); - cursor(50,18); lprcat("You have "); - } +static void +dnd_hed(void) +{ + int i; + for (i = dnditm; i < 26 + dnditm; i++) + dnditem(i); + cursor(50, 18); + lprcat("You have "); +} static void -handsfull() +handsfull(void) { lprcat("\nYou can't carry anything more!"); lflush(); @@ -186,74 +218,101 @@ handsfull() } static void -outofstock() +outofstock(void) { lprcat("\nSorry, but we are out of that item."); lflush(); nap(2200); } -static void nogold() +static void +nogold(void) { lprcat("\nYou don't have enough gold to pay for that!"); lflush(); nap(2200); } -dndstore() - { - register int i; - dnditm = 0; - nosignal = 1; /* disable signals */ - clear(); dnd_2hed(); - if (outstanding_taxes>0) - { - lprcat("\n\nThe Larn Revenue Service has ordered us to not do business with tax evaders.\n"); beep(); - lprintf("They have also told us that you owe %d gp in back taxes, and as we must\n",(long)outstanding_taxes); - lprcat("comply with the law, we cannot serve you at this time. Soo Sorry.\n"); - cursors(); - lprcat("\nPress "); standout("escape"); lprcat(" to leave: "); lflush(); - i=0; - while (i!='\33') i=getchar(); - drawscreen(); nosignal = 0; /* enable signals */ return; +void +dndstore(void) +{ + int i; + dnditm = 0; + nosignal = 1; /* disable signals */ + clear(); + dnd_2hed(); + if (outstanding_taxes > 0) { + lprcat("\n\nThe Larn Revenue Service has ordered us to not do business with tax evaders.\n"); + beep(); + lprintf("They have also told us that you owe %ld gp in back taxes, and as we must\n", (long) outstanding_taxes); + lprcat("comply with the law, we cannot serve you at this time. Soo Sorry.\n"); + cursors(); + lprcat("\nPress "); + standout("escape"); + lprcat(" to leave: "); + lflush(); + i = 0; + while (i != '\33') + i = ttgetch(); + drawscreen(); + nosignal = 0; /* enable signals */ + return; } - - dnd_hed(); - while (1) - { - cursor(59,18); lprintf("%d gold pieces",(long)c[GOLD]); - cltoeoln(); cl_dn(1,20); /* erase to eod */ - lprcat("\nEnter your transaction ["); standout("space"); - lprcat(" for more, "); standout("escape"); - lprcat(" to leave]? "); - i=0; - while ((i<'a' || i>'z') && (i!=' ') && (i!='\33') && (i!=12)) i=getchar(); - if (i==12) { clear(); dnd_2hed(); dnd_hed(); } - else if (i=='\33') - { drawscreen(); nosignal = 0; /* enable signals */ return; } - else if (i==' ') - { - cl_dn(1,4); - if ((dnditm += 26) >= maxitm) dnditm=0; dnd_hed(); - } - else - { /* buy something */ - lprc(i); /* echo the byte */ - i += dnditm - 'a'; - if (i>=maxitm) outofstock(); else - if (itm[i].qty <= 0) outofstock(); else - if (pocketfull()) handsfull(); else - if (c[GOLD] < itm[i].price*10) nogold(); else - { - if (itm[i].mem != 0) *itm[i].mem[itm[i].arg] = ' '; - c[GOLD] -= itm[i].price*10; - itm[i].qty--; take(itm[i].obj,itm[i].arg); - if (itm[i].qty==0) dnditem(i); nap(1001); + dnd_hed(); + while (1) { + cursor(59, 18); + lprintf("%ld gold pieces", (long) c[GOLD]); + cltoeoln(); + cl_dn(1, 20); /* erase to eod */ + lprcat("\nEnter your transaction ["); + standout("space"); + lprcat(" for more, "); + standout("escape"); + lprcat(" to leave]? "); + i = 0; + while ((i < 'a' || i > 'z') && (i != ' ') && (i != '\33') && (i != 12)) + i = ttgetch(); + if (i == 12) { + clear(); + dnd_2hed(); + dnd_hed(); + } else if (i == '\33') { + drawscreen(); + nosignal = 0; /* enable signals */ + return; + } else if (i == ' ') { + cl_dn(1, 4); + if ((dnditm += 26) >= MAXITM) + dnditm = 0; + dnd_hed(); + } else { /* buy something */ + lprc(i);/* echo the byte */ + i += dnditm - 'a'; + if (i >= MAXITM) + outofstock(); + else if (itm[i].qty <= 0) + outofstock(); + else if (pocketfull()) + handsfull(); + else if (c[GOLD] < itm[i].price * 10) + nogold(); + else { + if (itm[i].obj == OPOTION) { + potionname[itm[i].arg] = potionhide[itm[i].arg]; + } else if (itm[i].obj == OSCROLL) { + scrollname[itm[i].arg] = scrollhide[itm[i].arg]; + } + c[GOLD] -= itm[i].price * 10; + itm[i].qty--; + take(itm[i].obj, itm[i].arg); + if (itm[i].qty == 0) + dnditem(i); + nap(1001); } } } - } +} /* dnditem(index) @@ -261,431 +320,591 @@ dndstore() to print the item list; used in dndstore() enter with the index into itm */ static void -dnditem(i) - register int i; - { - register int j,k; - if (i >= maxitm) return; - cursor( (j=(i&1)*40+1) , (k=((i%26)>>1)+5) ); - if (itm[i].qty == 0) { lprintf("%39s",""); return; } - lprintf("%c) ",(i%26)+'a'); - if (itm[i].obj == OPOTION) - { lprcat("potion of "); lprintf("%s",&potionname[itm[i].arg][1]); } - else if (itm[i].obj == OSCROLL) - { lprcat("scroll of "); lprintf("%s",&scrollname[itm[i].arg][1]); } - else lprintf("%s",objectname[itm[i].obj]); - cursor( j+31,k ); lprintf("%6d",(long)(itm[i].price*10)); +dnditem(int i) +{ + int j, k; + if (i >= MAXITM) + return; + cursor((j = (i & 1) * 40 + 1), (k = ((i % 26) >> 1) + 5)); + if (itm[i].qty == 0) { + lprintf("%39s", ""); + return; } + lprintf("%c) ", (i % 26) + 'a'); + if (itm[i].obj == OPOTION) { + lprintf("potion of%s", potionhide[itm[i].arg]); + } else if (itm[i].obj == OSCROLL) { + lprintf("scroll of%s", scrollhide[itm[i].arg]); + } else + lprintf("%s", objectname[itm[i].obj]); + cursor(j + 31, k); + lprintf("%6ld", (long) (itm[i].price * 10)); +} + + - /* for the college of larn */ -char course[26]={0}; /* the list of courses taken */ -char coursetime[] = { 10, 15, 10, 20, 10, 10, 10, 5 }; +u_char course[26] = {0}; /* the list of courses taken */ +static char coursetime[] = {10, 15, 10, 20, 10, 10, 10, 5}; /* function to display the header info for the school */ -sch_hed() - { +static void +sch_hed(void) +{ clear(); lprcat("The College of Larn offers the exciting opportunity of higher education to\n"); lprcat("all inhabitants of the caves. Here is a list of the class schedule:\n\n\n"); lprcat("\t\t Course Name \t Time Needed\n\n"); - if (course[0]==0) lprcat("\t\ta) Fighters Training I 10 mobuls"); /*line 7 of crt*/ + if (course[0] == 0) + lprcat("\t\ta) Fighters Training I 10 mobuls"); /* line 7 of crt */ lprc('\n'); - if (course[1]==0) lprcat("\t\tb) Fighters Training II 15 mobuls"); + if (course[1] == 0) + lprcat("\t\tb) Fighters Training II 15 mobuls"); lprc('\n'); - if (course[2]==0) lprcat("\t\tc) Introduction to Wizardry 10 mobuls"); + if (course[2] == 0) + lprcat("\t\tc) Introduction to Wizardry 10 mobuls"); lprc('\n'); - if (course[3]==0) lprcat("\t\td) Applied Wizardry 20 mobuls"); + if (course[3] == 0) + lprcat("\t\td) Applied Wizardry 20 mobuls"); lprc('\n'); - if (course[4]==0) lprcat("\t\te) Behavioral Psychology 10 mobuls"); + if (course[4] == 0) + lprcat("\t\te) Behavioral Psychology 10 mobuls"); lprc('\n'); - if (course[5]==0) lprcat("\t\tf) Faith for Today 10 mobuls"); + if (course[5] == 0) + lprcat("\t\tf) Faith for Today 10 mobuls"); lprc('\n'); - if (course[6]==0) lprcat("\t\tg) Contemporary Dance 10 mobuls"); + if (course[6] == 0) + lprcat("\t\tg) Contemporary Dance 10 mobuls"); lprc('\n'); - if (course[7]==0) lprcat("\t\th) History of Larn 5 mobuls"); + if (course[7] == 0) + lprcat("\t\th) History of Larn 5 mobuls"); lprcat("\n\n\t\tAll courses cost 250 gold pieces."); - cursor(30,18); + cursor(30, 18); lprcat("You are presently carrying "); - } +} -oschool() - { - register int i; - long time_used; - nosignal = 1; /* disable signals */ +void +oschool(void) +{ + int i; + long time_used; + nosignal = 1; /* disable signals */ sch_hed(); - while (1) - { - cursor(57,18); lprintf("%d gold pieces. ",(long)c[GOLD]); cursors(); - lprcat("\nWhat is your choice ["); standout("escape"); - lprcat(" to leave] ? "); yrepcount=0; - i=0; while ((i<'a' || i>'h') && (i!='\33') && (i!=12)) i=getchar(); - if (i==12) { sch_hed(); continue; } - else if (i=='\33') - { nosignal = 0; drawscreen(); /* enable signals */ return; } + while (1) { + cursor(57, 18); + lprintf("%ld gold pieces. ", (long) c[GOLD]); + cursors(); + lprcat("\nWhat is your choice ["); + standout("escape"); + lprcat(" to leave] ? "); + yrepcount = 0; + i = 0; + while ((i < 'a' || i > 'h') && (i != '\33') && (i != 12)) + i = ttgetch(); + if (i == 12) { + sch_hed(); + continue; + } else if (i == '\33') { + nosignal = 0; + drawscreen(); /* enable signals */ + return; + } lprc(i); - if (c[GOLD] < 250) nogold(); else - if (course[i-'a']) - { lprcat("\nSorry, but that class is filled."); nap(1000); } - else - if (i <= 'h') - { - c[GOLD] -= 250; time_used=0; - switch(i) - { - case 'a': c[STRENGTH] += 2; c[CONSTITUTION]++; - lprcat("\nYou feel stronger!"); - cl_line(16,7); - break; - - case 'b': if (course[0]==0) - { - lprcat("\nSorry, but this class has a prerequisite of Fighters Training I"); - c[GOLD]+=250; time_used= -10000; break; - } - lprcat("\nYou feel much stronger!"); - cl_line(16,8); - c[STRENGTH] += 2; c[CONSTITUTION] += 2; break; - - case 'c': c[INTELLIGENCE] += 2; - lprcat("\nThe task before you now seems more attainable!"); - cl_line(16,9); break; - - case 'd': if (course[2]==0) - { - lprcat("\nSorry, but this class has a prerequisite of Introduction to Wizardry"); - c[GOLD]+=250; time_used= -10000; break; - } - lprcat("\nThe task before you now seems very attainable!"); - cl_line(16,10); - c[INTELLIGENCE] += 2; break; - - case 'e': c[CHARISMA] += 3; - lprcat("\nYou now feel like a born leader!"); - cl_line(16,11); break; - - case 'f': c[WISDOM] += 2; - lprcat("\nYou now feel more confident that you can find the potion in time!"); - cl_line(16,12); break; - - case 'g': c[DEXTERITY] += 3; - lprcat("\nYou feel like dancing!"); - cl_line(16,13); break; - - case 'h': c[INTELLIGENCE]++; - lprcat("\nYour instructor told you that the Eye of Larn is rumored to be guarded\n"); - lprcat("by a platinum dragon who possesses psionic abilities. "); - cl_line(16,14); break; - } - time_used += coursetime[i-'a']*100; - if (time_used > 0) - { - gtime += time_used; - course[i-'a']++; /* remember that he has taken that course */ - c[HP] = c[HPMAX]; c[SPELLS] = c[SPELLMAX]; /* he regenerated */ - - if (c[BLINDCOUNT]) c[BLINDCOUNT]=1; /* cure blindness too! */ - if (c[CONFUSE]) c[CONFUSE]=1; /* end confusion */ - adjtime((long)time_used); /* adjust parameters for time change */ - } + if (c[GOLD] < 250) + nogold(); + else if (course[i - 'a']) { + lprcat("\nSorry, but that class is filled."); nap(1000); + } else if (i <= 'h') { + c[GOLD] -= 250; + time_used = 0; + switch (i) { + case 'a': + c[STRENGTH] += 2; + c[CONSTITUTION]++; + lprcat("\nYou feel stronger!"); + cl_line(16, 7); + break; + + case 'b': + if (course[0] == 0) { + lprcat("\nSorry, but this class has a prerequisite of Fighters Training I"); + c[GOLD] += 250; + time_used = -10000; + break; + } + lprcat("\nYou feel much stronger!"); + cl_line(16, 8); + c[STRENGTH] += 2; + c[CONSTITUTION] += 2; + break; + + case 'c': + c[INTELLIGENCE] += 2; + lprcat("\nThe task before you now seems more attainable!"); + cl_line(16, 9); + break; + + case 'd': + if (course[2] == 0) { + lprcat("\nSorry, but this class has a prerequisite of Introduction to Wizardry"); + c[GOLD] += 250; + time_used = -10000; + break; + } + lprcat("\nThe task before you now seems very attainable!"); + cl_line(16, 10); + c[INTELLIGENCE] += 2; + break; + + case 'e': + c[CHARISMA] += 3; + lprcat("\nYou now feel like a born leader!"); + cl_line(16, 11); + break; + + case 'f': + c[WISDOM] += 2; + lprcat("\nYou now feel more confident that you can find the potion in time!"); + cl_line(16, 12); + break; + + case 'g': + c[DEXTERITY] += 3; + lprcat("\nYou feel like dancing!"); + cl_line(16, 13); + break; + + case 'h': + c[INTELLIGENCE]++; + lprcat("\nYour instructor told you that the Eye of Larn is rumored to be guarded\n"); + lprcat("by a platinum dragon who possesses psionic abilities. "); + cl_line(16, 14); + break; + } + time_used += coursetime[i - 'a'] * 100; + if (time_used > 0) { + gltime += time_used; + course[i - 'a']++; /* remember that he has + * taken that course */ + c[HP] = c[HPMAX]; + c[SPELLS] = c[SPELLMAX]; /* he regenerated */ + + if (c[BLINDCOUNT]) + c[BLINDCOUNT] = 1; /* cure blindness too! */ + if (c[CONFUSE]) + c[CONFUSE] = 1; /* end confusion */ + adjusttime((long) time_used); /* adjust parameters for + * time change */ } + nap(1000); } } - +} + + /* * for the first national bank of Larn */ -int lasttime=0; /* last time he was in bank */ -static void banktitle(); +int lasttime = 0; /* last time he was in bank */ -obank() - { +void +obank(void) +{ banktitle(" Welcome to the First National Bank of Larn."); - } -obank2() - { +} +void +obank2(void) +{ banktitle("Welcome to the 5th level branch office of the First National Bank of Larn."); - } +} + static void -banktitle(str) - char *str; - { - nosignal = 1; /* disable signals */ - clear(); lprcat(str); - if (outstanding_taxes>0) - { - register int i; - lprcat("\n\nThe Larn Revenue Service has ordered that your account be frozen until all\n"); beep(); - lprintf("levied taxes have been paid. They have also told us that you owe %d gp in\n",(long)outstanding_taxes); +banktitle(const char *str) +{ + nosignal = 1; /* disable signals */ + clear(); + lprcat(str); + if (outstanding_taxes > 0) { + int i; + lprcat("\n\nThe Larn Revenue Service has ordered that your account be frozen until all\n"); + beep(); + lprintf("levied taxes have been paid. They have also told us that you owe %ld gp in\n", (long) outstanding_taxes); lprcat("taxes, and we must comply with them. We cannot serve you at this time. Sorry.\n"); lprcat("We suggest you go to the LRS office and pay your taxes.\n"); - cursors(); - lprcat("\nPress "); standout("escape"); lprcat(" to leave: "); lflush(); - i=0; - while (i!='\33') i=getchar(); - drawscreen(); nosignal = 0; /* enable signals */ return; - } + cursors(); + lprcat("\nPress "); + standout("escape"); + lprcat(" to leave: "); + lflush(); + i = 0; + while (i != '\33') + i = ttgetch(); + drawscreen(); + nosignal = 0; /* enable signals */ + return; + } lprcat("\n\n\tGemstone\t Appraisal\t\tGemstone\t Appraisal"); - obanksub(); nosignal = 0; /* enable signals */ + obanksub(); + nosignal = 0; /* enable signals */ drawscreen(); - } +} /* * function to put interest on your bank account */ -ointerest() - { - register int i; - if (c[BANKACCOUNT]<0) c[BANKACCOUNT] = 0; - else if ((c[BANKACCOUNT]>0) && (c[BANKACCOUNT]<500000)) - { - i = (gtime-lasttime)/100; /* # mobuls elapsed */ - while ((i-- > 0) && (c[BANKACCOUNT]<500000)) - c[BANKACCOUNT] += c[BANKACCOUNT]/250; - if (c[BANKACCOUNT]>500000) c[BANKACCOUNT]=500000; /* interest limit */ - } - lasttime = (gtime/100)*100; +void +ointerest(void) +{ + int i; + if (c[BANKACCOUNT] < 0) + c[BANKACCOUNT] = 0; + else if ((c[BANKACCOUNT] > 0) && (c[BANKACCOUNT] < 500000)) { + i = (gltime - lasttime) / 100; /* # mobuls elapsed */ + while ((i-- > 0) && (c[BANKACCOUNT] < 500000)) + c[BANKACCOUNT] += c[BANKACCOUNT] / 250; + if (c[BANKACCOUNT] > 500000) + c[BANKACCOUNT] = 500000; /* interest limit */ } + lasttime = (gltime / 100) * 100; +} -static short gemorder[26]={0}; /* the reference to screen location for each */ -static long gemvalue[26]={0}; /* the appraisal of the gems */ -obanksub() - { - unsigned long amt; - register int i,k; - ointerest(); /* credit any needed interest */ - - for (k=i=0; i<26; i++) - switch(iven[i]) - { - case OLARNEYE: case ODIAMOND: case OEMERALD: - case ORUBY: case OSAPPHIRE: - - if (iven[i]==OLARNEYE) - { - gemvalue[i]=250000-((gtime*7)/100)*100; - if (gemvalue[i]<50000) gemvalue[i]=50000; - } - else gemvalue[i] = (255&ivenarg[i])*100; - gemorder[i]=k; - cursor( (k%2)*40+1 , (k>>1)+4 ); - lprintf("%c) %s",i+'a',objectname[iven[i]]); - cursor( (k%2)*40+33 , (k>>1)+4 ); - lprintf("%5d",(long)gemvalue[i]); k++; - }; - cursor(31,17); lprintf("You have %8d gold pieces in the bank.",(long)c[BANKACCOUNT]); - cursor(40,18); lprintf("You have %8d gold pieces",(long)c[GOLD]); - if (c[BANKACCOUNT]+c[GOLD] >= 500000) +static short gemorder[26] = {0}; /* the reference to screen location + * for each */ +static long gemvalue[26] = {0}; /* the appraisal of the gems */ +void +obanksub(void) +{ + long amt; + int i, k; + ointerest(); /* credit any needed interest */ + + for (k = i = 0; i < 26; i++) + switch (iven[i]) { + case OLARNEYE: + case ODIAMOND: + case OEMERALD: + case ORUBY: + case OSAPPHIRE: + + if (iven[i] == OLARNEYE) { + gemvalue[i] = 250000 - ((gltime * 7) / 100) * 100; + if (gemvalue[i] < 50000) + gemvalue[i] = 50000; + } else + gemvalue[i] = (255 & ivenarg[i]) * 100; + gemorder[i] = k; + cursor((k % 2) * 40 + 1, (k >> 1) + 4); + lprintf("%c) %s", i + 'a', objectname[iven[i]]); + cursor((k % 2) * 40 + 33, (k >> 1) + 4); + lprintf("%5ld", (long) gemvalue[i]); + k++; + }; + cursor(31, 17); + lprintf("You have %8ld gold pieces in the bank.", (long) c[BANKACCOUNT]); + cursor(40, 18); + lprintf("You have %8ld gold pieces", (long) c[GOLD]); + if (c[BANKACCOUNT] + c[GOLD] >= 500000) lprcat("\nNote: Larndom law states that only deposits under 500,000gp can earn interest."); - while (1) - { - cl_dn(1,20); - lprcat("\nYour wish? [("); standout("d"); lprcat(") deposit, ("); - standout("w"); lprcat(") withdraw, ("); standout("s"); - lprcat(") sell a stone, or "); standout("escape"); lprcat("] "); - yrepcount=0; - i=0; while (i!='d' && i!='w' && i!='s' && i!='\33') i=getchar(); - switch(i) - { - case 'd': lprcat("deposit\nHow much? "); amt = readnum((long)c[GOLD]); - if (amt<0) { lprcat("\nSorry, but we can't take negative gold!"); nap(2000); amt=0; } else - if (amt>c[GOLD]) - { lprcat(" You don't have that much."); nap(2000); } - else { c[GOLD] -= amt; c[BANKACCOUNT] += amt; } - break; - - case 'w': lprcat("withdraw\nHow much? "); amt = readnum((long)c[BANKACCOUNT]); - if (amt<0) { lprcat("\nSorry, but we don't have any negative gold!"); nap(2000); amt=0; } - else if (amt > c[BANKACCOUNT]) - { lprcat("\nYou don't have that much in the bank!"); nap(2000); } - else { c[GOLD] += amt; c[BANKACCOUNT] -= amt; } - break; - - case 's': lprcat("\nWhich stone would you like to sell? "); - i=0; while ((i<'a' || i>'z') && i!='*') i=getchar(); - if (i=='*') - for (i=0; i<26; i++) - { - if (gemvalue[i]) - { - c[GOLD]+=gemvalue[i]; iven[i]=0; - gemvalue[i]=0; k = gemorder[i]; - cursor( (k%2)*40+1 , (k>>1)+4 ); - lprintf("%39s",""); - } - } - else - { - if (gemvalue[i=i-'a']==0) - { - lprintf("\nItem %c is not a gemstone!",i+'a'); - nap(2000); break; - } - c[GOLD]+=gemvalue[i]; iven[i]=0; - gemvalue[i]=0; k = gemorder[i]; - cursor( (k%2)*40+1 , (k>>1)+4 ); lprintf("%39s",""); - } - break; - - case '\33': return; - }; - cursor(40,17); lprintf("%8d",(long)c[BANKACCOUNT]); - cursor(49,18); lprintf("%8d",(long)c[GOLD]); - } + while (1) { + cl_dn(1, 20); + lprcat("\nYour wish? [("); + standout("d"); + lprcat(") deposit, ("); + standout("w"); + lprcat(") withdraw, ("); + standout("s"); + lprcat(") sell a stone, or "); + standout("escape"); + lprcat("] "); + yrepcount = 0; + i = 0; + while (i != 'd' && i != 'w' && i != 's' && i != '\33') + i = ttgetch(); + switch (i) { + case 'd': + lprcat("deposit\nHow much? "); + amt = readnum((long) c[GOLD]); + if (amt < 0) { + lprcat("\nSorry, but we can't take negative gold!"); + nap(2000); + amt = 0; + } else if (amt > c[GOLD]) { + lprcat(" You don't have that much."); + nap(2000); + } else { + c[GOLD] -= amt; + c[BANKACCOUNT] += amt; + } + break; + + case 'w': + lprcat("withdraw\nHow much? "); + amt = readnum((long) c[BANKACCOUNT]); + if (amt < 0) { + lprcat("\nSorry, but we don't have any negative gold!"); + nap(2000); + amt = 0; + } else if (amt > c[BANKACCOUNT]) { + lprcat("\nYou don't have that much in the bank!"); + nap(2000); + } else { + c[GOLD] += amt; + c[BANKACCOUNT] -= amt; + } + break; + + case 's': + lprcat("\nWhich stone would you like to sell? "); + i = 0; + while ((i < 'a' || i > 'z') && i != '*') + i = ttgetch(); + if (i == '*') + for (i = 0; i < 26; i++) { + if (gemvalue[i]) { + c[GOLD] += gemvalue[i]; + iven[i] = 0; + gemvalue[i] = 0; + k = gemorder[i]; + cursor((k % 2) * 40 + 1, (k >> 1) + 4); + lprintf("%39s", ""); + } + } + else { + if (gemvalue[i = i - 'a'] == 0) { + lprintf("\nItem %c is not a gemstone!", i + 'a'); + nap(2000); + break; + } + c[GOLD] += gemvalue[i]; + iven[i] = 0; + gemvalue[i] = 0; + k = gemorder[i]; + cursor((k % 2) * 40 + 1, (k >> 1) + 4); + lprintf("%39s", ""); + } + break; + + case '\33': + return; + }; + cursor(40, 17); + lprintf("%8ld", (long) c[BANKACCOUNT]); + cursor(49, 18); + lprintf("%8ld", (long) c[GOLD]); } +} +#if 0 /* XXX: apparently unused */ /* subroutine to appraise any stone for the bank */ -appraise(gemstone) - register int gemstone; - { - register int j,amt; - for (j=0; j<26; j++) - if (iven[j]==gemstone) - { - lprintf("\nI see you have %s",objectname[gemstone]); - if (gemstone==OLARNEYE) lprcat(" I must commend you. I didn't think\nyou could get it."); - lprcat(" Shall I appraise it for you? "); yrepcount=0; - if (getyn()=='y') - { - lprcat("yes.\n Just one moment please \n"); nap(1000); - if (gemstone==OLARNEYE) - { - amt = 250000-((gtime*7)/100)*100; - if (amt<50000) amt=50000; - } - else amt = (255 & ivenarg[j]) * 100; - lprintf("\nI can see this is an excellent stone, It is worth %d",(long)amt); - lprcat("\nWould you like to sell it to us? "); yrepcount=0; - if (getyn()=='y') { lprcat("yes\n"); c[GOLD]+=amt; iven[j]=0; } - else lprcat("no thank you.\n"); - if (gemstone==OLARNEYE) lprcat("It is, of course, your privilege to keep the stone\n"); - } - else lprcat("no\nO. K.\n"); +static void +appraise(int gemstone) +{ + int j, amt; + for (j = 0; j < 26; j++) + if (iven[j] == gemstone) { + lprintf("\nI see you have %s", objectname[gemstone]); + if (gemstone == OLARNEYE) + lprcat(" I must commend you. I didn't think\nyou could get it."); + lprcat(" Shall I appraise it for you? "); + yrepcount = 0; + if (getyn() == 'y') { + lprcat("yes.\n Just one moment please \n"); + nap(1000); + if (gemstone == OLARNEYE) { + amt = 250000 - ((gltime * 7) / 100) * 100; + if (amt < 50000) + amt = 50000; + } else + amt = (255 & ivenarg[j]) * 100; + lprintf("\nI can see this is an excellent stone, It is worth %ld", (long) amt); + lprcat("\nWould you like to sell it to us? "); + yrepcount = 0; + if (getyn() == 'y') { + lprcat("yes\n"); + c[GOLD] += amt; + iven[j] = 0; + } else + lprcat("no thank you.\n"); + if (gemstone == OLARNEYE) + lprcat("It is, of course, your privilege to keep the stone\n"); + } else + lprcat("no\nO. K.\n"); } - } +} +#endif /* 0 - unused */ + /* function for the trading post */ -static otradhead() - { - clear(); +static void +otradhead(void) +{ + clear(); lprcat("Welcome to the Larn Trading Post. We buy items that explorers no longer find\n"); - lprcat("useful. Since the condition of the items you bring in is not certain,\n"); - lprcat("and we incur great expense in reconditioning the items, we usually pay\n"); - lprcat("only 20% of their value were they to be new. If the items are badly\n"); + lprcat("useful. Since the condition of the items you bring in is not certain,\n"); + lprcat("and we incur great expense in reconditioning the items, we usually pay\n"); + lprcat("only 20% of their value were they to be new. If the items are badly\n"); lprcat("damaged, we will pay only 10% of their new value.\n\n"); - } +} -otradepost() - { - register int i,j,value,isub,izarg; - dnditm = dndcount = 0; - nosignal = 1; /* disable signals */ - resetscroll(); otradhead(); - while (1) - { - lprcat("\nWhat item do you want to sell to us ["); standout("*"); - lprcat(" for list, or "); standout("escape"); lprcat("] ? "); - i=0; while (i>'z' || (i<'a' && i!='*' && i!='\33' && i!='.')) i=getchar(); - if (i == '\33') - { setscroll(); recalc(); drawscreen(); nosignal=0; /* enable signals */ return; } - isub = i - 'a'; j=0; - if (iven[isub]==OSCROLL) if (scrollname[ivenarg[isub]][0]==0) - { j=1; cnsitm(); } /* can't sell unidentified item */ - if (iven[isub]==OPOTION) if (potionname[ivenarg[isub]][0]==0) - { j=1; cnsitm(); } /* can't sell unidentified item */ - if (!j) - if (i=='*') { clear(); qshowstr(); otradhead(); } - else if (iven[isub]==0) lprintf("\nYou don't have item %c!",isub+'a'); - else - { - for (j=0; j= 0) value *= 2; - while ((izarg-- > 0) && ((value=14*(67+value)/10) < 500000)); - } - lprintf("\nItem (%c) is worth %d gold pieces to us. Do you want to sell it? ",i,(long)value); - yrepcount=0; - if (getyn()=='y') - { - lprcat("yes\n"); c[GOLD]+=value; - if (c[WEAR] == isub) c[WEAR] = -1; - if (c[WIELD] == isub) c[WIELD] = -1; - if (c[SHIELD] == isub) c[SHIELD] = -1; - adjustcvalues(iven[isub],ivenarg[isub]); - iven[isub]=0; - } - else lprcat("no thanks.\n"); - j = maxitm+100; /* get out of the inner loop */ +void +otradepost(void) +{ + int i, j, value, isub, izarg; + dnditm = dndcount = 0; + nosignal = 1; /* disable signals */ + resetscroll(); + otradhead(); + while (1) { + lprcat("\nWhat item do you want to sell to us ["); + standout("*"); + lprcat(" for list, or "); + standout("escape"); + lprcat("] ? "); + i = 0; + while (i > 'z' || (i < 'a' && i != '*' && i != '\33' && i != '.')) + i = ttgetch(); + if (i == '\33') { + setscroll(); + recalc(); + drawscreen(); + nosignal = 0; /* enable signals */ + return; + } + isub = i - 'a'; + j = 0; + if (iven[isub] == OSCROLL) + if (scrollname[ivenarg[isub]][0] == 0) { + j = 1; + cnsitm(); + } /* can't sell unidentified item */ + if (iven[isub] == OPOTION) + if (potionname[ivenarg[isub]][0] == 0) { + j = 1; + cnsitm(); + } /* can't sell unidentified item */ + if (!j) { + if (i == '*') { + clear(); + qshowstr(); + otradhead(); + } else if (iven[isub] == 0) + lprintf("\nYou don't have item %c!", isub + 'a'); + else { + for (j = 0; j < MAXITM; j++) + if ((itm[j].obj == iven[isub]) || (iven[isub] == ODIAMOND) || (iven[isub] == ORUBY) || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE)) { + srcount = 0; + show3(isub); /* show what the item + * was */ + if ((iven[isub] == ODIAMOND) || (iven[isub] == ORUBY) + || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE)) + value = 20 * ivenarg[isub]; + else if ((itm[j].obj == OSCROLL) || (itm[j].obj == OPOTION)) + value = 2 * itm[j + ivenarg[isub]].price; + else { + izarg = ivenarg[isub]; + value = itm[j].price; /* appreciate if a +n + * object */ + if (izarg >= 0) + value *= 2; + while ((izarg-- > 0) && ((value = 14 * (67 + value) / 10) < 500000)); + } + lprintf("\nItem (%c) is worth %ld gold pieces to us. Do you want to sell it? ", i, (long) value); + yrepcount = 0; + if (getyn() == 'y') { + lprcat("yes\n"); + c[GOLD] += value; + if (c[WEAR] == isub) + c[WEAR] = -1; + if (c[WIELD] == isub) + c[WIELD] = -1; + if (c[SHIELD] == isub) + c[SHIELD] = -1; + adjustcvalues(iven[isub], ivenarg[isub]); + iven[isub] = 0; + } else + lprcat("no thanks.\n"); + j = MAXITM + 100; /* get out of the inner + * loop */ + } + if (j <= MAXITM + 2) + lprcat("\nSo sorry, but we are not authorized to accept that item."); } - if (j <= maxitm+2) lprcat("\nSo sorry, but we are not authorized to accept that item."); } } - } +} -cnsitm() - { lprcat("\nSorry, we can't accept unidentified objects."); } +static void +cnsitm(void) +{ + lprcat("\nSorry, we can't accept unidentified objects."); +} /* * for the Larn Revenue Service */ -olrs() - { - register int i,first; - unsigned long amt; - first = nosignal = 1; /* disable signals */ - clear(); resetscroll(); cursor(1,4); +void +olrs(void) +{ + int i, first; + long amt; + first = nosignal = 1; /* disable signals */ + clear(); + resetscroll(); + cursor(1, 4); lprcat("Welcome to the Larn Revenue Service district office. How can we help you?"); - while (1) - { - if (first) { first=0; goto nxt; } + while (1) { + if (first) { + first = 0; + goto nxt; + } cursors(); lprcat("\n\nYour wish? [("); standout("p"); lprcat(") pay taxes, or "); standout("escape"); - lprcat("] "); yrepcount=0; - i=0; while (i!='p' && i!='\33') i=getchar(); - switch(i) - { - case 'p': lprcat("pay taxes\nHow much? "); amt = readnum((long)c[GOLD]); - if (amt<0) { lprcat("\nSorry, but we can't take negative gold\n"); amt=0; } else - if (amt>c[GOLD]) lprcat(" You don't have that much.\n"); - else c[GOLD] -= paytaxes((long)amt); - break; - - case '\33': nosignal = 0; /* enable signals */ - setscroll(); drawscreen(); return; - }; - -nxt: cursor(1,6); - if (outstanding_taxes>0) - lprintf("You presently owe %d gp in taxes. ",(long)outstanding_taxes); + lprcat("] "); + yrepcount = 0; + i = 0; + while (i != 'p' && i != '\33') + i = ttgetch(); + switch (i) { + case 'p': + lprcat("pay taxes\nHow much? "); + amt = readnum((long) c[GOLD]); + if (amt < 0) { + lprcat("\nSorry, but we can't take negative gold\n"); + amt = 0; + } else if (amt > c[GOLD]) + lprcat(" You don't have that much.\n"); + else + c[GOLD] -= paytaxes(amt); + break; + + case '\33': + nosignal = 0; /* enable signals */ + setscroll(); + drawscreen(); + return; + }; + +nxt: cursor(1, 6); + if (outstanding_taxes > 0) + lprintf("You presently owe %ld gp in taxes. ", (long) outstanding_taxes); else lprcat("You do not owe us any taxes. "); - cursor(1,8); - if (c[GOLD]>0) - lprintf("You have %6d gp. ",(long)c[GOLD]); + cursor(1, 8); + if (c[GOLD] > 0) + lprintf("You have %6ld gp. ", (long) c[GOLD]); else lprcat("You have no gold pieces. "); - } } +}