NetBSD/games/larn/global.c

946 lines
16 KiB
C

/* $NetBSD: global.c,v 1.7 2001/02/05 00:57:33 christos Exp $ */
/*
* global.c Larn is copyrighted 1986 by Noah Morgan.
*
* raiselevel() subroutine to raise the player one level
* loselevel() subroutine to lower the player by one level
* raiseexperience(x) subroutine to increase experience points
* loseexperience(x) subroutine to lose experience points
* losehp(x) subroutine to remove hit points from the player
* losemhp(x) subroutine to remove max # hit points from the player
* raisehp(x) subroutine to gain hit points
* raisemhp(x) subroutine to gain maximum hit points
* losespells(x) subroutine to lose spells
* losemspells(x) subroutine to lose maximum spells
* raisespells(x) subroutine to gain spells
* raisemspells(x) subroutine to gain maximum spells
* recalc() function to recalculate the armor class of the player
* makemonst(lev) function to return monster number for a randomly
* selected monster
* positionplayer() function to be sure player is not in a wall
* quit() subroutine to ask if the player really wants to quit
*/
#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: global.c,v 1.7 2001/02/05 00:57:33 christos Exp $");
#endif /* not lint */
#include <string.h>
#include <unistd.h>
#include "header.h"
#include "extern.h"
extern int score[], dropflag;
extern int random; /* the random number seed */
extern char *what[], *who[];
extern char winner[];
extern char sciv[SCORESIZE + 1][26][2];
extern char *password;
/*
***********
RAISE LEVEL
***********
raiselevel()
subroutine to raise the player one level
uses the skill[] array to find level boundarys
uses c[EXPERIENCE] c[LEVEL]
*/
void
raiselevel()
{
if (c[LEVEL] < MAXPLEVEL)
raiseexperience((long) (skill[c[LEVEL]] - c[EXPERIENCE]));
}
/*
***********
LOOSE LEVEL
***********
loselevel()
subroutine to lower the players character level by one
*/
void
loselevel()
{
if (c[LEVEL] > 1)
loseexperience((long) (c[EXPERIENCE] - skill[c[LEVEL] - 1] + 1));
}
/*
****************
RAISE EXPERIENCE
****************
raiseexperience(x)
subroutine to increase experience points
*/
void
raiseexperience(x)
long x;
{
int i, tmp;
i = c[LEVEL];
c[EXPERIENCE] += x;
while (c[EXPERIENCE] >= skill[c[LEVEL]] && (c[LEVEL] < MAXPLEVEL)) {
tmp = (c[CONSTITUTION] - c[HARDGAME]) >> 1;
c[LEVEL]++;
raisemhp((int) (rnd(3) + rnd((tmp > 0) ? tmp : 1)));
raisemspells((int) rund(3));
if (c[LEVEL] < 7 - c[HARDGAME])
raisemhp((int) (c[CONSTITUTION] >> 2));
}
if (c[LEVEL] != i) {
cursors();
beep();
lprintf("\nWelcome to level %d", (long) c[LEVEL]); /* if we changed levels */
}
bottomline();
}
/*
****************
LOOSE EXPERIENCE
****************
loseexperience(x)
subroutine to lose experience points
*/
void
loseexperience(x)
long x;
{
int i, tmp;
i = c[LEVEL];
c[EXPERIENCE] -= x;
if (c[EXPERIENCE] < 0)
c[EXPERIENCE] = 0;
while (c[EXPERIENCE] < skill[c[LEVEL] - 1]) {
if (--c[LEVEL] <= 1)
c[LEVEL] = 1; /* down one level */
tmp = (c[CONSTITUTION] - c[HARDGAME]) >> 1; /* lose hpoints */
losemhp((int) rnd((tmp > 0) ? tmp : 1)); /* lose hpoints */
if (c[LEVEL] < 7 - c[HARDGAME])
losemhp((int) (c[CONSTITUTION] >> 2));
losemspells((int) rund(3)); /* lose spells */
}
if (i != c[LEVEL]) {
cursors();
beep();
lprintf("\nYou went down to level %d!", (long) c[LEVEL]);
}
bottomline();
}
/*
********
LOOSE HP
********
losehp(x)
losemhp(x)
subroutine to remove hit points from the player
warning -- will kill player if hp goes to zero
*/
void
losehp(x)
int x;
{
if ((c[HP] -= x) <= 0) {
beep();
lprcat("\n");
nap(3000);
died(lastnum);
}
}
void
losemhp(x)
int x;
{
c[HP] -= x;
if (c[HP] < 1)
c[HP] = 1;
c[HPMAX] -= x;
if (c[HPMAX] < 1)
c[HPMAX] = 1;
}
/*
********
RAISE HP
********
raisehp(x)
raisemhp(x)
subroutine to gain maximum hit points
*/
void
raisehp(x)
int x;
{
if ((c[HP] += x) > c[HPMAX])
c[HP] = c[HPMAX];
}
void
raisemhp(x)
int x;
{
c[HPMAX] += x;
c[HP] += x;
}
/*
************
RAISE SPELLS
************
raisespells(x)
raisemspells(x)
subroutine to gain maximum spells
*/
void
raisespells(x)
int x;
{
if ((c[SPELLS] += x) > c[SPELLMAX])
c[SPELLS] = c[SPELLMAX];
}
void
raisemspells(x)
int x;
{
c[SPELLMAX] += x;
c[SPELLS] += x;
}
/*
************
LOOSE SPELLS
************
losespells(x)
losemspells(x)
subroutine to lose maximum spells
*/
void
losespells(x)
int x;
{
if ((c[SPELLS] -= x) < 0)
c[SPELLS] = 0;
}
void
losemspells(x)
int x;
{
if ((c[SPELLMAX] -= x) < 0)
c[SPELLMAX] = 0;
if ((c[SPELLS] -= x) < 0)
c[SPELLS] = 0;
}
/*
makemonst(lev)
int lev;
function to return monster number for a randomly selected monster
for the given cave level
*/
int
makemonst(lev)
int lev;
{
int tmp, x;
if (lev < 1)
lev = 1;
if (lev > 12)
lev = 12;
tmp = WATERLORD;
if (lev < 5)
while (tmp == WATERLORD)
tmp = rnd((x = monstlevel[lev - 1]) ? x : 1);
else
while (tmp == WATERLORD)
tmp = rnd((x = monstlevel[lev - 1] - monstlevel[lev - 4]) ? x : 1) + monstlevel[lev - 4];
while (monster[tmp].genocided && tmp < MAXMONST)
tmp++; /* genocided? */
return (tmp);
}
/*
positionplayer()
function to be sure player is not in a wall
*/
void
positionplayer()
{
int try;
try = 2;
while ((item[playerx][playery] || mitem[playerx][playery]) && (try))
if (++playerx >= MAXX - 1) {
playerx = 1;
if (++playery >= MAXY - 1) {
playery = 1;
--try;
}
}
if (try == 0)
lprcat("Failure in positionplayer\n");
}
/*
recalc() function to recalculate the armor class of the player
*/
void
recalc()
{
int i, j, k;
c[AC] = c[MOREDEFENSES];
if (c[WEAR] >= 0)
switch (iven[c[WEAR]]) {
case OSHIELD:
c[AC] += 2 + ivenarg[c[WEAR]];
break;
case OLEATHER:
c[AC] += 2 + ivenarg[c[WEAR]];
break;
case OSTUDLEATHER:
c[AC] += 3 + ivenarg[c[WEAR]];
break;
case ORING:
c[AC] += 5 + ivenarg[c[WEAR]];
break;
case OCHAIN:
c[AC] += 6 + ivenarg[c[WEAR]];
break;
case OSPLINT:
c[AC] += 7 + ivenarg[c[WEAR]];
break;
case OPLATE:
c[AC] += 9 + ivenarg[c[WEAR]];
break;
case OPLATEARMOR:
c[AC] += 10 + ivenarg[c[WEAR]];
break;
case OSSPLATE:
c[AC] += 12 + ivenarg[c[WEAR]];
break;
}
if (c[SHIELD] >= 0)
if (iven[c[SHIELD]] == OSHIELD)
c[AC] += 2 + ivenarg[c[SHIELD]];
if (c[WIELD] < 0)
c[WCLASS] = 0;
else {
i = ivenarg[c[WIELD]];
switch (iven[c[WIELD]]) {
case ODAGGER:
c[WCLASS] = 3 + i;
break;
case OBELT:
c[WCLASS] = 7 + i;
break;
case OSHIELD:
c[WCLASS] = 8 + i;
break;
case OSPEAR:
c[WCLASS] = 10 + i;
break;
case OFLAIL:
c[WCLASS] = 14 + i;
break;
case OBATTLEAXE:
c[WCLASS] = 17 + i;
break;
case OLANCE:
c[WCLASS] = 19 + i;
break;
case OLONGSWORD:
c[WCLASS] = 22 + i;
break;
case O2SWORD:
c[WCLASS] = 26 + i;
break;
case OSWORD:
c[WCLASS] = 32 + i;
break;
case OSWORDofSLASHING:
c[WCLASS] = 30 + i;
break;
case OHAMMER:
c[WCLASS] = 35 + i;
break;
default:
c[WCLASS] = 0;
}
}
c[WCLASS] += c[MOREDAM];
/* now for regeneration abilities based on rings */
c[REGEN] = 1;
c[ENERGY] = 0;
j = 0;
for (k = 25; k > 0; k--)
if (iven[k]) {
j = k;
k = 0;
}
for (i = 0; i <= j; i++) {
switch (iven[i]) {
case OPROTRING:
c[AC] += ivenarg[i] + 1;
break;
case ODAMRING:
c[WCLASS] += ivenarg[i] + 1;
break;
case OBELT:
c[WCLASS] += ((ivenarg[i] << 1)) + 2;
break;
case OREGENRING:
c[REGEN] += ivenarg[i] + 1;
break;
case ORINGOFEXTRA:
c[REGEN] += 5 * (ivenarg[i] + 1);
break;
case OENERGYRING:
c[ENERGY] += ivenarg[i] + 1;
break;
}
}
}
/*
quit()
subroutine to ask if the player really wants to quit
*/
void
quit()
{
int i;
cursors();
strcpy(lastmonst, "");
lprcat("\n\nDo you really want to quit?");
while (1) {
i = lgetchar();
if (i == 'y') {
died(300);
return;
}
if ((i == 'n') || (i == '\33')) {
lprcat(" no");
lflush();
return;
}
lprcat("\n");
setbold();
lprcat("Yes");
resetbold();
lprcat(" or ");
setbold();
lprcat("No");
resetbold();
lprcat(" please? Do you want to quit? ");
}
}
/*
function to ask --more-- then the user must enter a space
*/
void
more()
{
lprcat("\n --- press ");
standout("space");
lprcat(" to continue --- ");
while (lgetchar() != ' ');
}
/*
function to put something in the players inventory
returns 0 if success, 1 if a failure
*/
int
take(itm, arg)
int itm, arg;
{
int i, limit;
/* cursors(); */
if ((limit = 15 + (c[LEVEL] >> 1)) > 26)
limit = 26;
for (i = 0; i < limit; i++)
if (iven[i] == 0) {
iven[i] = itm;
ivenarg[i] = arg;
limit = 0;
switch (itm) {
case OPROTRING:
case ODAMRING:
case OBELT:
limit = 1;
break;
case ODEXRING:
c[DEXTERITY] += ivenarg[i] + 1;
limit = 1;
break;
case OSTRRING:
c[STREXTRA] += ivenarg[i] + 1;
limit = 1;
break;
case OCLEVERRING:
c[INTELLIGENCE] += ivenarg[i] + 1;
limit = 1;
break;
case OHAMMER:
c[DEXTERITY] += 10;
c[STREXTRA] += 10;
c[INTELLIGENCE] -= 10;
limit = 1;
break;
case OORBOFDRAGON:
c[SLAYING]++;
break;
case OSPIRITSCARAB:
c[NEGATESPIRIT]++;
break;
case OCUBEofUNDEAD:
c[CUBEofUNDEAD]++;
break;
case ONOTHEFT:
c[NOTHEFT]++;
break;
case OSWORDofSLASHING:
c[DEXTERITY] += 5;
limit = 1;
break;
};
lprcat("\nYou pick up:");
srcount = 0;
show3(i);
if (limit)
bottomline();
return (0);
}
lprcat("\nYou can't carry anything else");
return (1);
}
/*
subroutine to drop an object
returns 1 if something there already else 0
*/
int
drop_object(k)
int k;
{
int itm;
if ((k < 0) || (k > 25))
return (0);
itm = iven[k];
cursors();
if (itm == 0) {
lprintf("\nYou don't have item %c! ", k + 'a');
return (1);
}
if (item[playerx][playery]) {
beep();
lprcat("\nThere's something here already");
return (1);
}
if (playery == MAXY - 1 && playerx == 33)
return (1); /* not in entrance */
item[playerx][playery] = itm;
iarg[playerx][playery] = ivenarg[k];
srcount = 0;
lprcat("\n You drop:");
show3(k); /* show what item you dropped */
know[playerx][playery] = 0;
iven[k] = 0;
if (c[WIELD] == k)
c[WIELD] = -1;
if (c[WEAR] == k)
c[WEAR] = -1;
if (c[SHIELD] == k)
c[SHIELD] = -1;
adjustcvalues(itm, ivenarg[k]);
dropflag = 1; /* say dropped an item so wont ask to pick it
* up right away */
return (0);
}
/*
function to enchant armor player is currently wearing
*/
void
enchantarmor()
{
int tmp;
if (c[WEAR] < 0) {
if (c[SHIELD] < 0) {
cursors();
beep();
lprcat("\nYou feel a sense of loss");
return;
} else {
tmp = iven[c[SHIELD]];
if (tmp != OSCROLL)
if (tmp != OPOTION) {
ivenarg[c[SHIELD]]++;
bottomline();
}
}
}
tmp = iven[c[WEAR]];
if (tmp != OSCROLL)
if (tmp != OPOTION) {
ivenarg[c[WEAR]]++;
bottomline();
}
}
/*
function to enchant a weapon presently being wielded
*/
void
enchweapon()
{
int tmp;
if (c[WIELD] < 0) {
cursors();
beep();
lprcat("\nYou feel a sense of loss");
return;
}
tmp = iven[c[WIELD]];
if (tmp != OSCROLL)
if (tmp != OPOTION) {
ivenarg[c[WIELD]]++;
if (tmp == OCLEVERRING)
c[INTELLIGENCE]++;
else if (tmp == OSTRRING)
c[STREXTRA]++;
else if (tmp == ODEXRING)
c[DEXTERITY]++;
bottomline();
}
}
/*
routine to tell if player can carry one more thing
returns 1 if pockets are full, else 0
*/
int
pocketfull()
{
int i, limit;
if ((limit = 15 + (c[LEVEL] >> 1)) > 26)
limit = 26;
for (i = 0; i < limit; i++)
if (iven[i] == 0)
return (0);
return (1);
}
/*
function to return 1 if a monster is next to the player else returns 0
*/
int
nearbymonst()
{
int tmp, tmp2;
for (tmp = playerx - 1; tmp < playerx + 2; tmp++)
for (tmp2 = playery - 1; tmp2 < playery + 2; tmp2++)
if (mitem[tmp][tmp2])
return (1); /* if monster nearby */
return (0);
}
/*
function to steal an item from the players pockets
returns 1 if steals something else returns 0
*/
int
stealsomething()
{
int i, j;
j = 100;
while (1) {
i = rund(26);
if (iven[i])
if (c[WEAR] != i)
if (c[WIELD] != i)
if (c[SHIELD] != i) {
srcount = 0;
show3(i);
adjustcvalues(iven[i], ivenarg[i]);
iven[i] = 0;
return (1);
}
if (--j <= 0)
return (0);
}
}
/*
function to return 1 is player carrys nothing else return 0
*/
int
emptyhanded()
{
int i;
for (i = 0; i < 26; i++)
if (iven[i])
if (i != c[WIELD])
if (i != c[WEAR])
if (i != c[SHIELD])
return (0);
return (1);
}
/*
function to create a gem on a square near the player
*/
void
creategem()
{
int i, j;
switch (rnd(4)) {
case 1:
i = ODIAMOND;
j = 50;
break;
case 2:
i = ORUBY;
j = 40;
break;
case 3:
i = OEMERALD;
j = 30;
break;
default:
i = OSAPPHIRE;
j = 20;
break;
};
createitem(i, rnd(j) + j / 10);
}
/*
function to change character levels as needed when dropping an object
that affects these characteristics
*/
void
adjustcvalues(itm, arg)
int itm, arg;
{
int flag;
flag = 0;
switch (itm) {
case ODEXRING:
c[DEXTERITY] -= arg + 1;
flag = 1;
break;
case OSTRRING:
c[STREXTRA] -= arg + 1;
flag = 1;
break;
case OCLEVERRING:
c[INTELLIGENCE] -= arg + 1;
flag = 1;
break;
case OHAMMER:
c[DEXTERITY] -= 10;
c[STREXTRA] -= 10;
c[INTELLIGENCE] += 10;
flag = 1;
break;
case OSWORDofSLASHING:
c[DEXTERITY] -= 5;
flag = 1;
break;
case OORBOFDRAGON:
--c[SLAYING];
return;
case OSPIRITSCARAB:
--c[NEGATESPIRIT];
return;
case OCUBEofUNDEAD:
--c[CUBEofUNDEAD];
return;
case ONOTHEFT:
--c[NOTHEFT];
return;
case OLANCE:
c[LANCEDEATH] = 0;
return;
case OPOTION:
case OSCROLL:
return;
default:
flag = 1;
};
if (flag)
bottomline();
}
/*
function to read a string from token input "string"
returns a pointer to the string
*/
void
gettokstr(str)
char *str;
{
int i, j;
i = 50;
while ((lgetchar() != '"') && (--i > 0));
i = 36;
while (--i > 0) {
if ((j = lgetchar()) != '"')
*str++ = j;
else
i = 0;
}
*str = 0;
i = 50;
if (j != '"')
/* if end due to too long, then find closing quote */
while ((lgetchar() != '"') && (--i > 0));
}
/*
function to ask user for a password (no echo)
returns 1 if entered correctly, 0 if not
*/
static char gpwbuf[33];
int
getpassword()
{
int i, j;
char *gpwp;
scbr(); /* system("stty -echo cbreak"); */
gpwp = gpwbuf;
lprcat("\nEnter Password: ");
lflush();
i = strlen(password);
for (j = 0; j < i; j++)
read(0, gpwp++, 1);
gpwbuf[i] = 0;
sncbr(); /* system("stty echo -cbreak"); */
if (strcmp(gpwbuf, password) != 0) {
lprcat("\nSorry\n");
lflush();
return (0);
} else
return (1);
}
/*
subroutine to get a yes or no response from the user
returns y or n
*/
int
getyn()
{
int i;
i = 0;
while (i != 'y' && i != 'n' && i != '\33')
i = lgetchar();
return (i);
}
/*
function to calculate the pack weight of the player
returns the number of pounds the player is carrying
*/
int
packweight()
{
int i, j, k;
k = c[GOLD] / 1000;
j = 25;
while ((iven[j] == 0) && (j > 0))
--j;
for (i = 0; i <= j; i++)
switch (iven[i]) {
case 0:
break;
case OSSPLATE:
case OPLATEARMOR:
k += 40;
break;
case OPLATE:
k += 35;
break;
case OHAMMER:
k += 30;
break;
case OSPLINT:
k += 26;
break;
case OSWORDofSLASHING:
case OCHAIN:
case OBATTLEAXE:
case O2SWORD:
k += 23;
break;
case OLONGSWORD:
case OSWORD:
case ORING:
case OFLAIL:
k += 20;
break;
case OLANCE:
case OSTUDLEATHER:
k += 15;
break;
case OLEATHER:
case OSPEAR:
k += 8;
break;
case OORBOFDRAGON:
case OBELT:
k += 4;
break;
case OSHIELD:
k += 7;
break;
case OCHEST:
k += 30 + ivenarg[i];
break;
default:
k++;
};
return (k);
}
#ifndef MACRORND
/* macros to generate random numbers 1<=rnd(N)<=N 0<=rund(N)<=N-1 */
int
rnd(x)
int x;
{
return ((((randx = randx * 1103515245 + 12345) >> 7) % (x)) + 1);
}
int
rund(x)
int x;
{
return ((((randx = randx * 1103515245 + 12345) >> 7) % (x)));
}
#endif /* MACRORND */