Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

phantasia(6), from 44lite

Browse Source
This commit is contained in:
jtc 1994-10-21 21:19:39 +00:00
parent a6878b5d81
commit 86a62b8dfd
23 changed files with 9731 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
games/phantasia/COPYRIGHT Normal file
View File

@ -0,0 +1,24 @@
This entire subtree is explicitly not copyrighted.
The following notice applies to all files found here. None of
these files contain AT&T proprietary source code.
_____________________________________________________________________________
/* DISCLAIMER:
*
* This game is distributed for free as is. It is not guaranteed to work
* in every conceivable environment. It is not even guaranteed to work
* in ANY environment.
*
* This game is distributed without notice of copyright, therefore it
* may be used in any manner the recipient sees fit. However, the
* author assumes no responsibility for maintaining or revising this
* game, in its original form, or any derivitives thereof.
*
* The author shall not be responsible for any loss, cost, or damage,
* including consequential damage, caused by reliance on this material.
*
* The author makes no warranties, express or implied, including warranties
* of merchantability or fitness for a particular purpose or use.
*
* AT&T is in no way connected with this game.
*/

30
games/phantasia/Makefile Normal file
View File

@ -0,0 +1,30 @@
# @(#)Makefile 8.1 (Berkeley) 5/31/93
PROG= phantasia
SRCS= main.c fight.c io.c interplayer.c gamesupport.c misc.c phantglobs.c
DPADD= ${LIBM} ${LIBCURSES} ${LIBTERM} ${LIBCOMPAT}
LDADD= -lm -lcurses -ltermlib -lcompat
HIDEGAME=hidegame
MAN6= phantasia.0
CLEANFILES+=map setup setup.o
all: setup phantasia ${MAN6}
setup: phantglobs.o setup.o monsters.asc ${LIBM}
${CC} phantglobs.o setup.o -o ${.TARGET} -lm
beforeinstall:
./setup -m ${.CURDIR}/monsters.asc
chown games.bin /var/games/phantasia/*
# Make Phantasia map. Change the map commands reflect your installation.
# PLOTDEVICE is used for plotting the map. Change as appropriate.
map: map.c
${CC} -O ${.CURDIR}/map.c -lplot -o ${.TARGET}
./map | plot > /dev/tty
phantasia.0: phantasia.6
tbl ${.CURDIR}/phantasia.6 | nroff -man > ${.TARGET}
.include <bsd.prog.mk>

6
games/phantasia/OWNER Normal file
View File

@ -0,0 +1,6 @@
Edward Estes
AT&T
5555 Touhy Ave.
Skokie, IL 60077
(312) 982-3969
ihnp4!ttrde!estes

82
games/phantasia/README Normal file
View File

@ -0,0 +1,82 @@
June 25, 1986
This is a much modified version of Phantasia. It is intended to fix
all reported bug fixes, enhance the game, and speed up the game.
I have to thank Chris Robertson for many ideas which have made the game
faster, and more user-friendly. Most of her changes/additions are
incorporated in this latest versions, although perhaps not in the exact
manner of her design. I left out a few items which were not in keeping
with the spirit of the game. (For example, I didn't like the extra lives
and the pausing of the game. I think it's too easy even WITHOUT that stuff.)
CHANGES:
- Wormholes have been deleted (I never liked them anyway).
- The source code has been greatly enhanced for speed, size, readability,
and maintainability.
fight.c should no longer cause optimizers to run out of space.
- A few loopholes have been tightened to make the game more enjoyable.
(Except for those who are in the habit of exercising those loopholes.)
- Chris' map is enclosed.
- The "charac" file is not compatible with older versions of Phantasia
(3.3.1 and 3.3.1+). A 'convert' program is provided to convert your
old file to the new format. See Makefile for details.
- Movements can be made with HJKL for WSNE, respectively.
- Players may examine others while playing ('x') option.
- Monsters are now stored in a binary data base, to speed calling
monsters, and to ease formatting of monster listings.
- Taxes are collected on all gold and gems.
- Dead players can be resurrected by the 'wizard'.
- 'setup' is smarter, although not as smart as it should be.
- Players can change their names and passwords
PORTABILTY:
I have tried to make this as non-machine/system specific as possible.
All identifiers are unique to 7 characters or less, dual case.
The code WILL NOT fit on a 16-bit machine without separate I/D.
Stdio MUST support fopen() with mode "r+". I think this is true
for all Version 7 and later.
'curses' library functions are required.
All problems/solutions with portability should be reported to me,
and fixes will be included in subsequent versions of this software.
Please send me any bugs, (of which I am sure there are many), you may find,
but PLEASE be specific. I cannot correct a bug which is described as:
"When I choose a character type, it blows up."
(What blows up? What exactly was printed at the terminal?
Which character type was chosen? Etc. . . ?)
Also, please tell me which version of UN*X you are running, and upon
which type of hardware.
I will also do my best to help anyone with problems just trying to
get the game running. Again, I need to know which version of UN*X
and what type of CPU. Also, a copy of the output from 'make'
would be extremely useful.
Any and all ideas/suggestions/additions are more than welcome. If
you feel strongly enough about it, write the change and send it to me,
and I will do my best to incorporate it in the next version of Phantasia.
Otherwise, I will give serious thought to adding it myself.
Follow the directions in the Makefile CAREFULLY to set up the game.
Read the comments at the beginning of 'main.c', if you haven't already.
Enjoy.
Ted Estes
AT&T Information Systems
Skokie, IL 60077
...!ihnp4!ttrdc!ttrda!estes

210
games/phantasia/convert.c Normal file
View File

@ -0,0 +1,210 @@
/*
* Convert Phantasia 3.3.1 and 3.3.1+ characs file format to 3.3.2
*
*/
#include "include.h"
#include "oldplayer.h"
struct oldplayer Oldplayer; /* old format structure */
struct player Newplayer; /* new format structure */
char Oldpfile[] = DEST/characs"; /* old format file */
char Newpfile[] = DEST/newcharacs"; /* new format file */
/************************************************************************
/
/ FUNCTION NAME: main()
/
/ FUNCTION: convert old Phantasia player file to new format
/
/ AUTHOR: C. Robertson, 9/1/85 E. A. Estes, 3/12/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: time(), exit(), fread(), fopen(), srandom(), floor(),
/ random(), strcmp(), fwrite(), strcpy(), fclose(), fprintf()
/
/ GLOBAL INPUTS: _iob[], Oldplayer, Newplayer
/
/ GLOBAL OUTPUTS: Oldplayer, Newplayer
/
/ DESCRIPTION:
/ Read in old player structures and write out to new file in
/ new format.
/ Old player file is unmodified.
/ New file is "DEST/newcharacs".
/ #define PHANTPLUS to convert from 3.3.1+.
/
/************************************************************************/
main()
{
FILE *oldcharac, *newcharac; /* to open old and new files */
if ((oldcharac = fopen(Oldpfile, "r")) == NULL)
{
fprintf(stderr, "Cannot open original character file!\n");
exit(1);
}
if ((newcharac = fopen(Newpfile, "w")) == NULL)
{
fprintf(stderr, "Cannot create new character file!\n");
exit(1);
}
srandom((unsigned) time((long *) NULL)); /* prime random numbers */
while (fread((char *) &Oldplayer, sizeof(struct oldplayer), 1, oldcharac) == 1)
/* read and convert old structures into new */
{
Newplayer.p_experience = Oldplayer.o_experience;
Newplayer.p_level = (double) Oldplayer.o_level;
Newplayer.p_strength = Oldplayer.o_strength;
Newplayer.p_sword = Oldplayer.o_sword;
Newplayer.p_might = 0.0; /* game will calculate */
Newplayer.p_energy = Oldplayer.o_energy;
Newplayer.p_maxenergy = Oldplayer.o_maxenergy;
Newplayer.p_shield = Oldplayer.o_shield;
Newplayer.p_quickness = (double) Oldplayer.o_quickness;
Newplayer.p_quksilver = (double) Oldplayer.o_quksilver;
Newplayer.p_speed = 0.0; /* game will calculate */
Newplayer.p_magiclvl = Oldplayer.o_magiclvl;
Newplayer.p_mana = Oldplayer.o_mana;
Newplayer.p_brains = Oldplayer.o_brains;
Newplayer.p_poison = Oldplayer.o_poison;
Newplayer.p_gold = Oldplayer.o_gold;
Newplayer.p_gems = Oldplayer.o_gems;
Newplayer.p_sin = Oldplayer.o_sin;
Newplayer.p_x = Oldplayer.o_x;
Newplayer.p_y = Oldplayer.o_y;
Newplayer.p_1scratch = Oldplayer.o_1scratch;
Newplayer.p_2scratch = Oldplayer.o_2scratch;
Newplayer.p_ring.ring_type = Oldplayer.o_ring.ring_type;
Newplayer.p_ring.ring_duration = Oldplayer.o_ring.ring_duration;
Newplayer.p_ring.ring_inuse = FALSE;
Newplayer.p_age = (long) Oldplayer.o_degenerated * N_AGE;
Newplayer.p_degenerated = Oldplayer.o_degenerated + 1;
/* convert character type into character type and special type */
if (Oldplayer.o_type < 0)
/* player with crown */
Oldplayer.o_type = -Oldplayer.o_type;
if (Oldplayer.o_type == 99)
/* valar */
{
Newplayer.p_specialtype = SC_VALAR;
Newplayer.p_type = (short) ROLL(C_MAGIC, C_EXPER - C_MAGIC + 1);
Newplayer.p_lives = Oldplayer.o_ring.ring_duration;
}
else if (Oldplayer.o_type == 90)
/* ex-valar */
{
Newplayer.p_specialtype = SC_EXVALAR;
Newplayer.p_type = (short) ROLL(C_MAGIC, C_EXPER - C_MAGIC + 1);
Newplayer.p_lives = 0;
}
else if (Oldplayer.o_type > 20)
/* council of wise */
{
Newplayer.p_specialtype = SC_COUNCIL;
Newplayer.p_type = Oldplayer.o_type - 20;
Newplayer.p_lives = Oldplayer.o_ring.ring_duration;
}
else if (Oldplayer.o_type > 10)
/* king */
{
Newplayer.p_specialtype = SC_KING;
Newplayer.p_type = Oldplayer.o_type - 10;
Newplayer.p_lives = 0;
}
else
/* normal player */
{
Newplayer.p_specialtype = SC_NONE;
Newplayer.p_type = Oldplayer.o_type;
Newplayer.p_lives = 0;
}
Newplayer.p_lives = 0;
Newplayer.p_crowns = Oldplayer.o_crowns;
Newplayer.p_charms = Oldplayer.o_charms;
Newplayer.p_amulets = Oldplayer.o_amulets;
Newplayer.p_holywater = Oldplayer.o_holywater;
Newplayer.p_lastused = Oldplayer.o_lastused;
/* convert status and name into status */
Newplayer.p_status = Oldplayer.o_status + S_OFF;
if (strcmp(Oldplayer.m_name, "<null>") == 0)
/* unused recored */
Newplayer.p_status = S_NOTUSED;
if (Oldplayer.o_quickness < 0)
/* hung up player */
{
Newplayer.p_quickness = (double) Oldplayer.o_tampered;
Oldplayer.o_tampered = T_OFF;
Newplayer.p_status = S_HUNGUP;
}
Newplayer.p_tampered = Oldplayer.o_tampered + T_OFF;
Newplayer.p_istat = I_OFF;
Newplayer.p_palantir = Oldplayer.o_palantir;
Newplayer.p_blessing = Oldplayer.o_blessing;
Newplayer.p_virgin = Oldplayer.o_virgin;
Newplayer.p_blindness = Oldplayer.o_blindness;
strcpy(Newplayer.p_name, Oldplayer.o_name);
strcpy(Newplayer.p_password, Oldplayer.o_password);
strcpy(Newplayer.p_login, Oldplayer.o_login);
/* write new structure */
fwrite((char *) &Newplayer, sizeof(Newplayer), 1, newcharac);
}
fclose(oldcharac); /* close files */
fclose(newcharac);
exit(0);
}
/* */
/************************************************************************
/
/ FUNCTION NAME: drandom()
/
/ FUNCTION: return a random number between 0.0 < 1.0
/
/ AUTHOR: E. A. Estes, 2/7/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: random number
/
/ MODULES CALLED: random()
/
/ GLOBAL INPUTS: none
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Return a random number.
/
/************************************************************************/
double
drandom()
{
if (sizeof(int) != 2)
return((double) (random() & 0x7fff) / 32768.0);
else
return((double) random() / 32768.0);
}

1688
games/phantasia/fight.c Normal file
View File

File diff suppressed because it is too large Load Diff

722
games/phantasia/gamesupport.c Normal file
View File

@ -0,0 +1,722 @@
/*
* gamesupport.c - auxiliary routines for support of Phantasia
*/
#include "include.h"
/************************************************************************
/
/ FUNCTION NAME: changestats()
/
/ FUNCTION: examine/change statistics for a player
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS:
/ bool ingameflag - set if called while playing game (Wizard only)
/
/ RETURN VALUE: none
/
/ MODULES CALLED: freerecord(), writerecord(), descrstatus(), truncstring(),
/ time(), more(), wmove(), wclear(), strcmp(), printw(), strcpy(),
/ infloat(), waddstr(), cleanup(), findname(), userlist(), mvprintw(),
/ localtime(), getanswer(), descrtype(), getstring()
/
/ GLOBAL INPUTS: LINES, *Login, Other, Wizard, Player, *stdscr, Databuf[],
/ Fileloc
/
/ GLOBAL OUTPUTS: Echo
/
/ DESCRIPTION:
/ Prompt for player name to examine/change.
/ If the name is NULL, print a list of all players.
/ If we are called from within the game, check for the
/ desired name being the same as the current player's name.
/ Only the 'Wizard' may alter players.
/ Items are changed only if a non-zero value is specified.
/ To change an item to 0, use 0.1; it will be truncated later.
/
/ Players may alter their names and passwords, if the following
/ are true:
/ - current login matches the character's logins
/ - the password is known
/ - the player is not in the middle of the game (ingameflag == FALSE)
/
/ The last condition is imposed for two reasons:
/ - the game could possibly get a bit hectic if a player were
/ continually changing his/her name
/ - another player structure would be necessary to check for names
/ already in use
/
/************************************************************************/
changestats(ingameflag)
bool ingameflag;
{
static char flag[2] = /* for printing values of bools */
{'F', 'T'};
register struct player *playerp;/* pointer to structure to alter */
register char *prompt; /* pointer to prompt string */
int c; /* input */
int today; /* day of year of today */
int temp; /* temporary variable */
long loc; /* location in player file */
long now; /* time now */
double dtemp; /* temporary variable */
bool *bptr; /* pointer to bool item to change */
double *dptr; /* pointer to double item to change */
short *sptr; /* pointer to short item to change */
clear();
for (;;)
/* get name of player to examine/alter */
{
mvaddstr(5, 0, "Which character do you want to look at ? ");
getstring(Databuf, SZ_DATABUF);
truncstring(Databuf);
if (Databuf[0] == '\0')
userlist(ingameflag);
else
break;
}
loc = -1L;
if (!ingameflag)
/* use 'Player' structure */
playerp = &Player;
else if (strcmp(Databuf, Player.p_name) == 0)
/* alter/examine current player */
{
playerp = &Player;
loc = Fileloc;
}
else
/* use 'Other' structure */
playerp = &Other;
/* find player on file */
if (loc < 0L && (loc = findname(Databuf, playerp)) < 0L)
/* didn't find player */
{
clear();
mvaddstr(11, 0, "Not found.");
return;
}
time(&now);
today = localtime(&now)->tm_yday;
clear();
for (;;)
/* print player structure, and prompt for action */
{
mvprintw(0, 0,"A:Name %s\n", playerp->p_name);
if (Wizard)
printw("B:Password %s\n", playerp->p_password);
else
addstr("B:Password XXXXXXXX\n");
printw(" :Login %s\n", playerp->p_login);
printw("C:Experience %.0f\n", playerp->p_experience);
printw("D:Level %.0f\n", playerp->p_level);
printw("E:Strength %.0f\n", playerp->p_strength);
printw("F:Sword %.0f\n", playerp->p_sword);
printw(" :Might %.0f\n", playerp->p_might);
printw("G:Energy %.0f\n", playerp->p_energy);
printw("H:Max-Energy %.0f\n", playerp->p_maxenergy);
printw("I:Shield %.0f\n", playerp->p_shield);
printw("J:Quickness %.0f\n", playerp->p_quickness);
printw("K:Quicksilver %.0f\n", playerp->p_quksilver);
printw(" :Speed %.0f\n", playerp->p_speed);
printw("L:Magic Level %.0f\n", playerp->p_magiclvl);
printw("M:Mana %.0f\n", playerp->p_mana);
printw("N:Brains %.0f\n", playerp->p_brains);
if (Wizard || playerp->p_specialtype != SC_VALAR)
mvaddstr(0, 40, descrstatus(playerp));
mvprintw(1, 40, "O:Poison %0.3f\n", playerp->p_poison);
mvprintw(2, 40, "P:Gold %.0f\n", playerp->p_gold);
mvprintw(3, 40, "Q:Gem %.0f\n", playerp->p_gems);
mvprintw(4, 40, "R:Sin %0.3f\n", playerp->p_sin);
if (Wizard)
{
mvprintw(5, 40, "S:X-coord %.0f\n", playerp->p_x);
mvprintw(6, 40, "T:Y-coord %.0f\n", playerp->p_y);
}
else
{
mvaddstr(5, 40, "S:X-coord ?\n");
mvaddstr(6, 40, "T:Y-coord ?\n");
}
mvprintw(7, 40, "U:Age %ld\n", playerp->p_age);
mvprintw(8, 40, "V:Degenerated %d\n", playerp->p_degenerated);
mvprintw(9, 40, "W:Type %d (%s)\n",
playerp->p_type, descrtype(playerp, FALSE) + 1);
mvprintw(10, 40, "X:Special Type %d\n", playerp->p_specialtype);
mvprintw(11, 40, "Y:Lives %d\n", playerp->p_lives);
mvprintw(12, 40, "Z:Crowns %d\n", playerp->p_crowns);
mvprintw(13, 40, "0:Charms %d\n", playerp->p_charms);
mvprintw(14, 40, "1:Amulets %d\n", playerp->p_amulets);
mvprintw(15, 40, "2:Holy Water %d\n", playerp->p_holywater);
temp = today - playerp->p_lastused;
if (temp < 0)
/* last year */
temp += 365;
mvprintw(16, 40, "3:Lastused %d (%d)\n", playerp->p_lastused, temp);
mvprintw(18, 8, "4:Palantir %c 5:Blessing %c 6:Virgin %c 7:Blind %c",
flag[playerp->p_palantir],
flag[playerp->p_blessing],
flag[playerp->p_virgin],
flag[playerp->p_blindness]);
if (!Wizard)
mvprintw(19, 8, "8:Ring %c",
flag[playerp->p_ring.ring_type != R_NONE]);
else
mvprintw(19, 8, "8:Ring %d 9:Duration %d",
playerp->p_ring.ring_type, playerp->p_ring.ring_duration);
if (!Wizard
/* not wizard */
&& (ingameflag || strcmp(Login, playerp->p_login) != 0))
/* in game or not examining own character */
{
if (ingameflag)
{
more(LINES - 1);
clear();
return;
}
else
cleanup(TRUE);
/*NOTREACHED*/
}
mvaddstr(20, 0, "!:Quit ?:Delete");
mvaddstr(21, 0, "What would you like to change ? ");
if (Wizard)
c = getanswer(" ", TRUE);
else
/* examining own player; allow to change name and password */
c = getanswer("!BA", FALSE);
switch (c)
{
case 'A': /* change name */
case 'B': /* change password */
if (!Wizard)
/* prompt for password */
{
mvaddstr(23, 0, "Password ? ");
Echo = FALSE;
getstring(Databuf, 9);
Echo = TRUE;
if (strcmp(Databuf, playerp->p_password) != 0)
continue;
}
if (c == 'A')
/* get new name */
{
mvaddstr(23, 0, "New name: ");
getstring(Databuf, SZ_NAME);
truncstring(Databuf);
if (Databuf[0] != '\0')
if (Wizard || findname(Databuf, &Other) < 0L)
strcpy(playerp->p_name, Databuf);
}
else
/* get new password */
{
if (!Wizard)
Echo = FALSE;
do
/* get two copies of new password until they match */
{
/* get first copy */
mvaddstr(23, 0, "New password ? ");
getstring(Databuf, SZ_PASSWORD);
if (Databuf[0] == '\0')
break;
/* get second copy */
mvaddstr(23, 0, "One more time ? ");
getstring(playerp->p_password, SZ_PASSWORD);
}
while (strcmp(playerp->p_password, Databuf) != 0);
Echo = TRUE;
}
continue;
case 'C': /* change experience */
prompt = "experience";
dptr = &playerp->p_experience;
goto DALTER;
case 'D': /* change level */
prompt = "level";
dptr = &playerp->p_level;
goto DALTER;
case 'E': /* change strength */
prompt = "strength";
dptr = &playerp->p_strength;
goto DALTER;
case 'F': /* change swords */
prompt = "sword";
dptr = &playerp->p_sword;
goto DALTER;
case 'G': /* change energy */
prompt = "energy";
dptr = &playerp->p_energy;
goto DALTER;
case 'H': /* change maximum energy */
prompt = "max energy";
dptr = &playerp->p_maxenergy;
goto DALTER;
case 'I': /* change shields */
prompt = "shield";
dptr = &playerp->p_shield;
goto DALTER;
case 'J': /* change quickness */
prompt = "quickness";
dptr = &playerp->p_quickness;
goto DALTER;
case 'K': /* change quicksilver */
prompt = "quicksilver";
dptr = &playerp->p_quksilver;
goto DALTER;
case 'L': /* change magic */
prompt = "magic level";
dptr = &playerp->p_magiclvl;
goto DALTER;
case 'M': /* change mana */
prompt = "mana";
dptr = &playerp->p_mana;
goto DALTER;
case 'N': /* change brains */
prompt = "brains";
dptr = &playerp->p_brains;
goto DALTER;
case 'O': /* change poison */
prompt = "poison";
dptr = &playerp->p_poison;
goto DALTER;
case 'P': /* change gold */
prompt = "gold";
dptr = &playerp->p_gold;
goto DALTER;
case 'Q': /* change gems */
prompt = "gems";
dptr = &playerp->p_gems;
goto DALTER;
case 'R': /* change sin */
prompt = "sin";
dptr = &playerp->p_sin;
goto DALTER;
case 'S': /* change x coord */
prompt = "x";
dptr = &playerp->p_x;
goto DALTER;
case 'T': /* change y coord */
prompt = "y";
dptr = &playerp->p_y;
goto DALTER;
case 'U': /* change age */
mvprintw(23, 0, "age = %ld; age = ", playerp->p_age);
dtemp = infloat();
if (dtemp != 0.0)
playerp->p_age = (long) dtemp;
continue;
case 'V': /* change degen */
mvprintw(23, 0, "degen = %d; degen = ", playerp->p_degenerated);
dtemp = infloat();
if (dtemp != 0.0)
playerp->p_degenerated = (int) dtemp;
continue;
case 'W': /* change type */
prompt = "type";
sptr = &playerp->p_type;
goto SALTER;
case 'X': /* change special type */
prompt = "special type";
sptr = &playerp->p_specialtype;
goto SALTER;
case 'Y': /* change lives */
prompt = "lives";
sptr = &playerp->p_lives;
goto SALTER;
case 'Z': /* change crowns */
prompt = "crowns";
sptr = &playerp->p_crowns;
goto SALTER;
case '0': /* change charms */
prompt = "charm";
sptr = &playerp->p_charms;
goto SALTER;
case '1': /* change amulet */
prompt = "amulet";
sptr = &playerp->p_amulets;
goto SALTER;
case '2': /* change holy water */
prompt = "holy water";
sptr = &playerp->p_holywater;
goto SALTER;
case '3': /* change last-used */
prompt = "last-used";
sptr = &playerp->p_lastused;
goto SALTER;
case '4': /* change palantir */
prompt = "palantir";
bptr = &playerp->p_palantir;
goto BALTER;
case '5': /* change blessing */
prompt = "blessing";
bptr = &playerp->p_blessing;
goto BALTER;
case '6': /* change virgin */
prompt = "virgin";
bptr = &playerp->p_virgin;
goto BALTER;
case '7': /* change blindness */
prompt = "blindness";
bptr = &playerp->p_blindness;
goto BALTER;
case '8': /* change ring type */
prompt = "ring-type";
sptr = &playerp->p_ring.ring_type;
goto SALTER;
case '9': /* change ring duration */
prompt = "ring-duration";
sptr = &playerp->p_ring.ring_duration;
goto SALTER;
case '!': /* quit, update */
if (Wizard &&
(!ingameflag || playerp != &Player))
/* turn off status if not modifying self */
{
playerp->p_status = S_OFF;
playerp->p_tampered = T_OFF;
}
writerecord(playerp, loc);
clear();
return;
case '?': /* delete player */
if (ingameflag && playerp == &Player)
/* cannot delete self */
continue;
freerecord(playerp, loc);
clear();
return;
default:
continue;
}
DALTER:
mvprintw(23, 0, "%s = %f; %s = ", prompt, *dptr, prompt);
dtemp = infloat();
if (dtemp != 0.0)
*dptr = dtemp;
continue;
SALTER:
mvprintw(23, 0, "%s = %d; %s = ", prompt, *sptr, prompt);
dtemp = infloat();
if (dtemp != 0.0)
*sptr = (short) dtemp;
continue;
BALTER:
mvprintw(23, 0, "%s = %c; %s = ", prompt, flag[*bptr], prompt);
c = getanswer("\nTF", TRUE);
if (c == 'T')
*bptr = TRUE;
else if (c == 'F')
*bptr = FALSE;
continue;
}
}
/* */
/************************************************************************
/
/ FUNCTION NAME: monstlist()
/
/ FUNCTION: print a monster listing
/
/ AUTHOR: E. A. Estes, 2/27/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: puts(), fread(), fseek(), printf()
/
/ GLOBAL INPUTS: Curmonster, *Monstfp
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Read monster file, and print a monster listing on standard output.
/
/************************************************************************/
monstlist()
{
register int count = 0; /* count in file */
puts(" #) Name Str Brain Quick Energy Exper Treas Type Flock%\n");
fseek(Monstfp, 0L, 0);
while (fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp) == 1)
printf("%2d) %-20.20s%4.0f %4.0f %2.0f %5.0f %5.0f %2d %2d %3.0f\n", count++,
Curmonster.m_name, Curmonster.m_strength, Curmonster.m_brains,
Curmonster.m_speed, Curmonster.m_energy, Curmonster.m_experience,
Curmonster.m_treasuretype, Curmonster.m_type, Curmonster.m_flock);
}
/* */
/************************************************************************
/
/ FUNCTION NAME: scorelist()
/
/ FUNCTION: print player score board
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: fread(), fopen(), printf(), fclose()
/
/ GLOBAL INPUTS:
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Read the scoreboard file and print the contents.
/
/************************************************************************/
scorelist()
{
struct scoreboard sbuf; /* for reading entries */
register FILE *fp; /* to open the file */
if ((fp = fopen(_PATH_SCORE, "r")) != NULL)
{
while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
printf("%-20s (%-9s) Level: %6.0f Type: %s\n",
sbuf.sb_name, sbuf.sb_login, sbuf.sb_level, sbuf.sb_type);
fclose(fp);
}
}
/* */
/************************************************************************
/
/ FUNCTION NAME: activelist()
/
/ FUNCTION: print list of active players to standard output
/
/ AUTHOR: E. A. Estes, 3/7/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: descrstatus(), fread(), fseek(), printf(), descrtype()
/
/ GLOBAL INPUTS: Other, *Playersfp
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Read player file, and print list of active records to standard output.
/
/************************************************************************/
activelist()
{
fseek(Playersfp, 0L, 0);
printf("Current characters on file are:\n\n");
while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
if (Other.p_status != S_NOTUSED)
printf("%-20s (%-9s) Level: %6.0f %s (%s)\n",
Other.p_name, Other.p_login, Other.p_level,
descrtype(&Other, FALSE), descrstatus(&Other));
}
/* */
/************************************************************************
/
/ FUNCTION NAME: purgeoldplayers()
/
/ FUNCTION: purge inactive players from player file
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: freerecord(), time(), fread(), fseek(), localtime()
/
/ GLOBAL INPUTS: Other, *Playersfp
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Delete characters which have not been used with the last
/ three weeks.
/
/************************************************************************/
purgeoldplayers()
{
int today; /* day of year for today */
int daysold; /* how many days since the character has been used */
long ltime; /* time in seconds */
long loc = 0L; /* location in file */
time(&ltime);
today = localtime(&ltime)->tm_yday;
for (;;)
{
fseek(Playersfp, loc, 0);
if (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) != 1)
break;
daysold = today - Other.p_lastused;
if (daysold < 0)
daysold += 365;
if (daysold > N_DAYSOLD)
/* player hasn't been used in a while; delete */
freerecord(&Other, loc);
loc += SZ_PLAYERSTRUCT;
}
}
/* */
/************************************************************************
/
/ FUNCTION NAME: enterscore()
/
/ FUNCTION: enter player into scoreboard
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: fread(), fseek(), fopen(), error(), strcmp(), fclose(),
/ strcpy(), fwrite(), descrtype()
/
/ GLOBAL INPUTS: Player
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ The scoreboard keeps track of the highest character on a
/ per-login basis.
/ Search the scoreboard for an entry for the current login,
/ if an entry is found, and it is lower than the current player,
/ replace it, otherwise create an entry.
/
/************************************************************************/
enterscore()
{
struct scoreboard sbuf; /* buffer to read in scoreboard entries */
FILE *fp; /* to open scoreboard file */
long loc = 0L; /* location in scoreboard file */
bool found = FALSE; /* set if we found an entry for this login */
if ((fp = fopen(_PATH_SCORE, "r+")) != NULL)
{
while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
if (strcmp(Player.p_login, sbuf.sb_login) == 0)
{
found = TRUE;
break;
}
else
loc += SZ_SCORESTRUCT;
}
else
{
error(_PATH_SCORE);
/*NOTREACHED*/
}
/*
* At this point, 'loc' will either indicate a point beyond
* the end of file, or the place where the previous entry
* was found.
*/
if ((!found) || Player.p_level > sbuf.sb_level)
/* put new entry in for this login */
{
strcpy(sbuf.sb_login, Player.p_login);
strcpy(sbuf.sb_name, Player.p_name);
sbuf.sb_level = Player.p_level;
strcpy(sbuf.sb_type, descrtype(&Player, TRUE));
}
/* update entry */
fseek(fp, loc, 0);
fwrite((char *) &sbuf, SZ_SCORESTRUCT, 1, fp);
fclose(fp);
}

17
games/phantasia/include.h Normal file
View File

@ -0,0 +1,17 @@
/*
* include.h - includes all important files for Phantasia
*/
#include <ctype.h>
#include <curses.h>
#include <math.h>
#include <setjmp.h>
#include <signal.h>
#include <time.h>
#include <errno.h>
#include "macros.h"
#include "phantdefs.h"
#include "phantstruct.h"
#include "phantglobs.h"
#include "pathnames.h"

1208
games/phantasia/interplayer.c Normal file
View File

File diff suppressed because it is too large Load Diff

436
games/phantasia/io.c Normal file
View File

@ -0,0 +1,436 @@
/*
* io.c - input/output routines for Phantasia
*/
#include "include.h"
/************************************************************************
/
/ FUNCTION NAME: getstring()
/
/ FUNCTION: read a string from operator
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS:
/ char *cp - pointer to buffer area to fill
/ int mx - maximum number of characters to put in buffer
/
/ RETURN VALUE: none
/
/ MODULES CALLED: wmove(), _filbuf(), clearok(), waddstr(), wrefresh(),
/ wclrtoeol()
/
/ GLOBAL INPUTS: Echo, _iob[], Wizard, *stdscr
/
/ GLOBAL OUTPUTS: _iob[]
/
/ DESCRIPTION:
/ Read a string from the keyboard.
/ This routine is specially designed to:
/
/ - strip non-printing characters (unless Wizard)
/ - echo, if desired
/ - redraw the screen if CH_REDRAW is entered
/ - read in only 'mx - 1' characters or less characters
/ - nul-terminate string, and throw away newline
/
/ 'mx' is assumed to be at least 2.
/
/************************************************************************/
getstring(cp, mx)
register char *cp;
register int mx;
{
register char *inptr; /* pointer into string for next string */
int x, y; /* original x, y coordinates on screen */
int ch; /* input */
getyx(stdscr, y, x); /* get coordinates on screen */
inptr = cp;
*inptr = '\0'; /* clear string to start */
--mx; /* reserve room in string for nul terminator */
do
/* get characters and process */
{
if (Echo)
mvaddstr(y, x, cp); /* print string on screen */
clrtoeol(); /* clear any data after string */
refresh(); /* update screen */
ch = getchar(); /* get character */
switch (ch)
{
case CH_ERASE: /* back up one character */
if (inptr > cp)
--inptr;
break;
case CH_KILL: /* back up to original location */
inptr = cp;
break;
case CH_NEWLINE: /* terminate string */
break;
case CH_REDRAW: /* redraw screen */
clearok(stdscr, TRUE);
continue;
default: /* put data in string */
if (ch >= ' ' || Wizard)
/* printing char; put in string */
*inptr++ = ch;
}
*inptr = '\0'; /* terminate string */
}
while (ch != CH_NEWLINE && inptr < cp + mx);
}
/* */
/************************************************************************
/
/ FUNCTION NAME: more()
/
/ FUNCTION: pause and prompt player
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS:
/ int where - line on screen on which to pause
/
/ RETURN VALUE: none
/
/ MODULES CALLED: wmove(), waddstr(), getanswer()
/
/ GLOBAL INPUTS: *stdscr
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Print a message, and wait for a space character.
/
/************************************************************************/
more(where)
int where;
{
mvaddstr(where, 0, "-- more --");
getanswer(" ", FALSE);
}
/* */
/************************************************************************
/
/ FUNCTION NAME: infloat()
/
/ FUNCTION: input a floating point number from operator
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: floating point number from operator
/
/ MODULES CALLED: sscanf(), getstring()
/
/ GLOBAL INPUTS: Databuf[]
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Read a string from player, and scan for a floating point
/ number.
/ If no valid number is found, return 0.0.
/
/************************************************************************/
double
infloat()
{
double result; /* return value */
getstring(Databuf, SZ_DATABUF);
if (sscanf(Databuf, "%lf", &result) < 1)
/* no valid number entered */
result = 0.0;
return(result);
}
/* */
/************************************************************************
/
/ FUNCTION NAME: inputoption()
/
/ FUNCTION: input an option value from player
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: floor(), drandom(), getanswer()
/
/ GLOBAL INPUTS: Player
/
/ GLOBAL OUTPUTS: Player
/
/ DESCRIPTION:
/ Age increases with every move.
/ Refresh screen, and get a single character option from player.
/ Return a random value if player's ring has gone bad.
/
/************************************************************************/
inputoption()
{
++Player.p_age; /* increase age */
if (Player.p_ring.ring_type != R_SPOILED)
/* ring ok */
return(getanswer("T ", TRUE));
else
/* bad ring */
{
getanswer(" ", TRUE);
return((int) ROLL(0.0, 5.0) + '0');
}
}
/* */
/************************************************************************
/
/ FUNCTION NAME: interrupt()
/
/ FUNCTION: handle interrupt from operator
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: fork(), exit(), wait(), death(), alarm(), execl(), wmove(),
/ getgid(), signal(), getenv(), wclear(), setuid(), getuid(), setgid(),
/ crmode(), clearok(), waddstr(), cleanup(), wrefresh(), leavegame(),
/ getanswer()
/
/ GLOBAL INPUTS: Player, *stdscr
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Allow player to quit upon hitting the interrupt key.
/ If the player wants to quit while in battle, he/she automatically
/ dies.
/
/************************************************************************/
interrupt()
{
char line[81]; /* a place to store data already on screen */
register int loop; /* counter */
int x, y; /* coordinates on screen */
int ch; /* input */
unsigned savealarm; /* to save alarm value */
#ifdef SYS3
signal(SIGINT, SIG_IGN);
#endif
#ifdef SYS5
signal(SIGINT, SIG_IGN);
#endif
savealarm = alarm(0); /* turn off any alarms */
getyx(stdscr, y, x); /* save cursor location */
for (loop = 0; loop < 80; ++loop) /* save line on screen */
{
move(4, loop);
line[loop] = inch();
}
line[80] = '\0'; /* nul terminate */
if (Player.p_status == S_INBATTLE || Player.p_status == S_MONSTER)
/* in midst of fighting */
{
mvaddstr(4, 0, "Quitting now will automatically kill your character. Still want to ? ");
ch = getanswer("NY", FALSE);
if (ch == 'Y')
death("Bailing out");
/*NOTREACHED*/
}
else
{
mvaddstr(4, 0, "Do you really want to quit ? ");
ch = getanswer("NY", FALSE);
if (ch == 'Y')
leavegame();
/*NOTREACHED*/
}
mvaddstr(4, 0, line); /* restore data on screen */
move(y, x); /* restore cursor */
refresh();
#ifdef SYS3
signal(SIGINT, interrupt);
#endif
#ifdef SYS5
signal(SIGINT, interrupt);
#endif
alarm(savealarm); /* restore alarm */
}
/* */
/************************************************************************
/
/ FUNCTION NAME: getanswer()
/
/ FUNCTION: get an answer from operator
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS:
/ char *choices - string of (upper case) valid choices
/ bool def - set if default answer
/
/ RETURN VALUE: none
/
/ MODULES CALLED: alarm(), wmove(), waddch(), signal(), setjmp(), strchr(),
/ _filbuf(), clearok(), toupper(), wrefresh(), mvprintw(), wclrtoeol()
/
/ GLOBAL INPUTS: catchalarm(), Echo, _iob[], _ctype[], *stdscr, Timeout,
/ Timeoenv[]
/
/ GLOBAL OUTPUTS: _iob[]
/
/ DESCRIPTION:
/ Get a single character answer from operator.
/ Timeout waiting for response. If we timeout, or the
/ answer in not in the list of valid choices, print choices,
/ and wait again, otherwise return the first character in ths
/ list of choices.
/ Give up after 3 tries.
/
/************************************************************************/
getanswer(choices, def)
char *choices;
bool def;
{
int ch; /* input */
int loop; /* counter */
int oldx, oldy; /* original coordinates on screen */
getyx(stdscr, oldy, oldx);
alarm(0); /* make sure alarm is off */
for (loop = 3; loop; --loop)
/* try for 3 times */
{
if (setjmp(Timeoenv) != 0)
/* timed out waiting for response */
{
if (def || loop <= 1)
/* return default answer */
break;
else
/* prompt, and try again */
goto YELL;
}
else
/* wait for response */
{
clrtoeol();
refresh();
#ifdef BSD41
sigset(SIGALRM, catchalarm);
#else
signal(SIGALRM, catchalarm);
#endif
/* set timeout */
if (Timeout)
alarm(7); /* short */
else
alarm(600); /* long */
ch = getchar();
alarm(0); /* turn off timeout */
if (ch < 0)
/* caught some signal */
{
++loop;
continue;
}
else if (ch == CH_REDRAW)
/* redraw screen */
{
clearok(stdscr, TRUE); /* force clear screen */
++loop; /* don't count this input */
continue;
}
else if (Echo)
{
addch(ch); /* echo character */
refresh();
}
if (islower(ch))
/* convert to upper case */
ch = toupper(ch);
if (def || strchr(choices, ch) != NULL)
/* valid choice */
return(ch);
else if (!def && loop > 1)
/* bad choice; prompt, and try again */
{
YELL: mvprintw(oldy + 1, 0, "Please choose one of : [%s]\n", choices);
move(oldy, oldx);
clrtoeol();
continue;
}
else
/* return default answer */
break;
}
}
return(*choices);
}
/* */
/************************************************************************
/
/ FUNCTION NAME: catchalarm()
/
/ FUNCTION: catch timer when waiting for input
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: longjmp()
/
/ GLOBAL INPUTS: Timeoenv[]
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Come here when the alarm expires while waiting for input.
/ Simply longjmp() into getanswer().
/
/************************************************************************/
void
catchalarm()
{
longjmp(Timeoenv, 1);
}

16
games/phantasia/macros.h Normal file
View File

@ -0,0 +1,16 @@
/*
* macros.h - macro definitions for Phantasia
*/
#define ROLL(BASE,INTERVAL) floor((BASE) + (INTERVAL) * drandom())
#define SGN(X) ((X) < 0 ? -1 : 1)
#define CIRCLE(X, Y) floor(distance(X, 0.0, Y, 0.0) / 125.0 + 1)
#define MAX(A, B) ((A) > (B) ? (A) : (B))
#define MIN(A, B) ((A) < (B) ? (A) : (B))
#define ILLCMD() mvaddstr(5, 0, Illcmd)
#define MAXMOVE() (Player.p_level * 1.5 + 1)
#define ILLMOVE() mvaddstr(5, 0, Illmove)
#define ILLSPELL() mvaddstr(5, 0, Illspell)
#define NOMANA() mvaddstr(5, 0, Nomana)
#define SOMEBETTER() addstr(Somebetter)
#define NOBETTER() mvaddstr(17, 0, Nobetter)

1288
games/phantasia/main.c Normal file
View File

File diff suppressed because it is too large Load Diff

160
games/phantasia/map.c Normal file
View File

@ -0,0 +1,160 @@
#define minusminus plusplus
#define minusplus plusminus
main()
{
/* Set up */
openpl();
space(-1400, -1000, 1200, 1200);
/* Big box */
move(-1400, -1000);
cont(-1400, 1000);
cont(600, 1000);
cont(600, -1000);
cont(-1400, -1000);
/* Grid -- horizontal lines every 200 */
linemod("dotted");
line(600, -800, -1400, -800);
line(-1400, -600, 600, -600);
line(600, -400, -1400, -400);
line(-1400, -200, 600, -200);
linemod("solid");
line(600, 0, -1400, 0);
linemod("dotted");
line(-1400, 200, 600, 200);
line(600, 400, -1400, 400);
line(-1400, 600, 600, 600);
line(600, 800, -1400, 800);
/* Grid -- vertical lines every 200 */
line(-1200, 1000, -1200, -1000);
line(-1000, 1000, -1000, -1000);
line(-800, 1000, -800, -1000);
line(-600, 1000, -600, -1000);
linemod("solid");
line(-400, 1000, -400, -1000);
linemod("dotted");
line(-200, 1000, -200, -1000);
line(0, 1000, 0, -1000);
line(200, 1000, 200, -1000);
line(400, 1000, 400, -1000);
/* Circles radius +250 on "center" */
linemod("solid");
circle(-400, 0, 250);
circle(-400, 0, 500);
circle(-400, 0, 750);
circle(-400, 0, 1000);
/* A few labels */
move(-670, 1075);
label("- THE PHANTASIA UNIVERSE -");
line(-630, 1045, -115, 1045);
move(-360, 80);
label("Lorien");
move(-385, -100);
label("Ithilien");
move(-560, 80);
label("Rohan");
move(-580, -100);
label("Anorien");
plusplus("Rovanion", -250, 320);
plusplus("The Iron Hills", -100, 560);
plusplus("Rhun", 250, 570);
minusplus("Dunland", -700, 160);
minusplus("Eriador", -920, 300);
minusplus("The Northern Waste", -1240, 320);
minusminus("Gondor", -720, -180);
minusminus("South Gondor", -940, -270);
minusminus("Far Harad", -1100, -500);
plusminus("Mordor", -180, -300);
plusminus("Khand", 0, -500);
plusminus("Near Harad", 40, -780);
move(340, 900);
label("The Moors");
move(300, 840);
label("Adventurous");
move(340, -840);
label("The Moors");
move(300, -900);
label("Adventurous");
move(-1340, 900);
label("The Moors");
move(-1340, 840);
label("Adventurous");
move(-1340, -840);
label("The Moors");
move(-1340, -900);
label("Adventurous");
move(700, 1000);
label("OUTER CIRCLES:");
line(690, 970, 1000, 970);
move(700, 900);
label("> 9: The Outer Waste");
move(700, 800);
label("> 20: The Dead Marshes");
move(700, 700);
label("> 35: Kennaquhair");
move(700, 600);
label("> 55: Morannon");
move(700, 300);
label("(0,0): The Lord's Chamber");
move(700, -400);
label("Grid squares are 100 x 100");
move(700, -800);
label("Created by Ted Estes");
move(700, -860);
label("Plotted by Chris Robertson");
move(700, -920);
label(" c 1985");
circle(723, -923, 20);
/* Close down */
move(-1380, 1180);
closepl();
exit(0);
}
plusplus(s, x, y) /* draw strings in plus plus quadrant */
char *s;
int x, y;
{
char s1[2];
while (*s)
{
move(x, y);
s1[0] = *s++;
s1[1] = '\0';
label(s1);
x += 25;
y -= 30;
}
}
plusminus(s, x, y) /* draw strings in plus minus quadrant */
char *s;
int x, y;
{
char s1[2];
while (*s)
{
move(x, y);
s1[0] = *s++;
s1[1] = '\0';
label(s1);
x += 25;
y += 30;
}
}

1703
games/phantasia/misc.c Normal file
View File

File diff suppressed because it is too large Load Diff

100
games/phantasia/monsters.asc Normal file
View File

@ -0,0 +1,100 @@
A Water Leaper 12 14 16 24 59 0 0 62
A Leech 4 19 29 30 66 0 0 73
An Urisk 13 30 15 46 127 1 0 3
Shellycoat 28 21 18 63 226 2 0 0
A Naiad 21 62 27 58 378 2 0 11
A Nixie 22 58 28 108 604 3 0 6
A Glaistig 21 106 25 127 1002 3 0 0
A Mermaid 18 116 22 108 809 3 0 0
A Merman 24 115 23 109 808 4 0 0
A Siren 22 128 31 89 915 4 0 24
A Lamprey 14 67 33 156 1562 4 15 37
A Kopoacinth 26 36 26 206 2006 5 0 20
A Kelpie 61 25 24 223 4025 5 0 0
An Aspidchelone 114 104 19 898 10041 7 0 2
An Idiot 13 14 16 28 49 0 0 0
Some Green Slime 1 5 45 100 57 0 0 26
A Pixie 11 29 23 26 64 0 0 32
A Serpent 10 18 25 25 79 0 0 10
A Cluricaun 12 27 20 30 81 0 14 5
An Imp 22 30 14 40 92 0 0 1
A Centipede 3 8 18 15 33 0 0 61
A Beetle 2 11 21 26 44 0 0 48
A Fir Darrig 18 22 17 35 107 0 14 1
Modnar 15 23 20 40 101 7 2 12
A Gnome 7 45 26 23 111 0 0 21
A Sprite 9 37 25 31 132 1 0 43
A Mimic 11 55 29 47 213 1 3 2
A Kobold 13 10 14 21 121 1 12 68
A Spider 6 11 28 28 124 1 0 57
An Uldra 14 37 21 32 93 1 0 6
A Gnoll 20 25 15 40 166 1 0 61
A Bogie 23 28 19 57 189 1 0 57
A Fachan 9 40 15 45 139 1 14 10
A Moron 3 1 10 10 28 0 0 100
An Orc 25 13 16 26 141 1 0 92
A Ghillie Dhu 12 16 13 28 104 2 14 2
A Bogle 19 15 16 35 157 2 14 15
A Shrieker 2 62 27 9 213 2 16 0
A Carrion Crawler 12 20 20 65 142 2 0 42
A Trow 15 17 23 51 136 2 0 36
A Warg 20 10 17 45 152 2 0 88
A Stirge 2 6 35 25 153 2 0 95
A Crebain 5 11 31 31 82 2 0 81
A Killmoulis 30 19 8 75 175 3 14 22
A Hob-goblin 35 20 15 72 246 3 0 18
A Unicorn 27 57 27 57 627 3 1 0
A Fenoderee 16 6 21 65 222 3 0 42
An Ogre 42 14 16 115 409 3 0 19
A Dodo 62 12 11 76 563 3 0 3
A Hydra 14 27 33 99 599 3 0 27
A Hamadryad 23 47 26 62 426 3 0 12
A Bwca 21 17 19 55 387 3 14 1
An Owlbear 35 16 18 100 623 4 0 22
Black Annis 37 52 15 65 786 4 0 2
A Jello Blob 100 25 7 264 1257 4 0 13
A Jubjub Bird 45 23 12 114 1191 4 0 0
A Wichtlein 13 40 25 61 800 4 0 8
A Cocodrill 39 28 24 206 1438 4 0 38
A Troll 75 12 20 185 1013 4 24 29
A Bonnacon 89 26 9 255 1661 4 17 14
A Gargoyle 22 21 29 200 1753 5 0 7
A Chaladrius 8 49 37 172 1929 5 0 20
A Gwyllion 27 73 20 65 1888 5 0 4
A Cinomulgus 23 2 10 199 263 5 0 18
A Peridexion 26 32 24 98 1300 5 0 2
Smeagol 41 33 27 373 2487 5 18 0
A Wraith 52 102 22 200 3112 5 25 13
A Snotgurgle 143 19 26 525 4752 6 0 3
A Phooka 42 63 21 300 4125 5 0 12
A Vortex 101 30 31 500 6992 6 9 4
Shelob 147 64 28 628 5003 7 13 0
A Thaumaturgist 35 200 23 400 7628 6 7 0
Smaug 251 76 26 1022 9877 7 0 0
A Cold-drake 301 102 24 1222 10888 7 0 0
A Red Dragon 342 141 23 1299 11649 8 0 0
Scatha the Worm 406 208 20 1790 11999 8 0 0
Tiamat 506 381 29 2000 13001 9 11 0
A Bandersnatch 105 98 22 450 7981 6 0 3
A Harpy 103 49 24 263 7582 6 0 2
A Tigris 182 38 17 809 7777 6 0 3
A Gryphon 201 45 19 813 8888 7 0 1
A Coblynau 205 46 18 585 8333 6 0 2
A Chimaera 173 109 28 947 12006 7 0 0
A Jack-in-Irons 222 36 12 1000 9119 7 0 0
Saruman 55 373 17 1500 17101 11 6 0
A Balrog 500 100 25 705 8103 7 8 0
Argus 201 87 14 1500 10010 8 0 0
A Titan 302 1483 12 1625 11011 8 0 0
Cacus 256 43 19 1750 12012 8 0 0
Begion 403 154 10 1875 13013 8 0 0
Grendel 197 262 23 2000 14014 8 0 0
A Nazgul 250 251 26 1011 9988 12 10 9
A Succubus 186 1049 27 2007 19984 9 19 0
Red Cap 143 50 35 1965 23456 9 0 0
A Nuckelavee 300 75 20 2185 11111 8 0 0
Cerberus 236 96 29 2600 25862 9 20 0
A Jabberwock 185 136 25 2265 23256 9 22 0
Ungoliant 399 2398 37 2784 27849 10 21 0
Leanan-Sidhe 486 5432 46 3000 30004 9 5 0
The Dark Lord 9999 9999 31 19999 30005 13 4 0

54
games/phantasia/oldplayer.h Normal file
View File

@ -0,0 +1,54 @@
/*
* oldplayer.h - old player structure
*/
struct oldplayer /* player statistics */
{
char o_name[21]; /* name */
char o_password[9]; /* password */
char o_login[10]; /* login */
double o_x; /* x coord */
double o_y; /* y coord */
double o_experience; /* experience */
int o_level; /* level */
short o_quickness; /* quickness */
double o_strength; /* strength */
double o_sin; /* sin */
double o_mana; /* mana */
double o_gold; /* gold */
double o_energy; /* energy */
double o_maxenergy; /* maximum energy */
double o_magiclvl; /* magic level */
double o_brains; /* brains */
short o_crowns; /* crowns */
struct
{
short ring_type; /* type of ring */
short ring_duration; /* duration of ring */
} o_ring; /* ring stuff */
bool o_palantir; /* palantir */
double o_poison; /* poison */
short o_holywater; /* holy water */
short o_amulets; /* amulets */
bool o_blessing; /* blessing */
short o_charms; /* charms */
double o_gems; /* gems */
short o_quksilver; /* quicksilver */
double o_sword; /* sword */
double o_shield; /* shield */
short o_type; /* character type */
bool o_virgin; /* virgin */
short o_lastused; /* day of year last used */
short o_status; /* playing, cloaked, etc. */
short o_tampered; /* decree'd, etc. flag */
double o_1scratch,
o_2scratch; /* variables used for decree, player battle */
bool o_blindness; /* blindness */
int o_notused; /* not used */
long o_age; /* age in seconds */
short o_degenerated; /* age/2500 last degenerated */
short o_istat; /* used for inter-terminal battle */
#ifdef PHANTPLUS
short o_lives;
#endif
};

44
games/phantasia/pathnames.h Normal file
View File

@ -0,0 +1,44 @@
/*-
* Copyright (c) 1989, 1993
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 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
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* @(#)pathnames.h 8.2 (Berkeley) 4/2/94
*/
#define _PATH_GAMEPROG "/usr/games/phantasia"
#define _PATH_GOLD "/var/games/phantasia/gold"
#define _PATH_LASTDEAD "/var/games/phantasia/lastdead"
#define _PATH_MESS "/var/games/phantasia/mess"
#define _PATH_MONST "/var/games/phantasia/monsters"
#define _PATH_MOTD "/var/games/phantasia/motd"
#define _PATH_PEOPLE "/var/games/phantasia/characs"
#define _PATH_SCORE "/var/games/phantasia/scoreboard"
#define _PATH_VOID "/var/games/phantasia/void"

1220
games/phantasia/phantasia.6 Normal file
View File

File diff suppressed because it is too large Load Diff

139
games/phantasia/phantdefs.h Normal file
View File

@ -0,0 +1,139 @@
/*
* phantdefs.h - important constants for Phantasia
*/
/* ring constants */
#define R_NONE 0 /* no ring */
#define R_NAZREG 1 /* regular Nazgul ring (expires) */
#define R_DLREG 2 /* regular Dark Lord ring (does not expire) */
#define R_BAD 3 /* bad ring */
#define R_SPOILED 4 /* ring which has gone bad */
/* status constants */
#define S_NOTUSED 0 /* record not in use */
#define S_OFF 1 /* not playing */
#define S_PLAYING 2 /* playing - nothing else */
#define S_CLOAKED 3 /* playing - cloaked */
#define S_INBATTLE 4 /* playing - in battle */
#define S_MONSTER 5 /* playing - fighting monster */
#define S_TRADING 6 /* playing - at a trading post */
#define S_HUNGUP 7 /* error occured with character */
/* tampered constants */
#define T_OFF 0 /* nothing */
#define T_NRGVOID 1 /* hit an energy void */
#define T_GRAIL 2 /* landed on the holy grail */
#define T_TRANSPORT 3 /* transported by king */
#define T_BESTOW 4 /* gold bestowed by king */
#define T_CURSED 5 /* cursed by king */
#define T_MONSTER 6 /* monster lobbed by valar */
#define T_BLESSED 7 /* blessed by valar */
#define T_RELOCATE 8 /* moved by valar */
#define T_HEAL 9 /* healed by valar */
#define T_VAPORIZED 10 /* vaporized by wizard */
#define T_EXVALAR 11 /* no longer valar */
/* inter-terminal battle status constants */
#define I_OFF 0 /* nothing */
#define I_RAN 1 /* ran away */
#define I_STUCK 2 /* tried to run unsuccessfully */
#define I_BLEWIT 3 /* tried to luckout unsuccessfully */
#define I_KILLED 4 /* killed foe */
/* constants for altering coordinates */
#define A_SPECIFIC 0 /* coordinates specified */
#define A_FORCED 1 /* coordinates specified, ignore Beyond */
#define A_NEAR 2 /* coordinates not specified, move near */
#define A_FAR 3 /* coordinates not specified, move far */
/* constants for character types */
#define C_MAGIC 0 /* magic user */
#define C_FIGHTER 1 /* fighter */
#define C_ELF 2 /* elf */
#define C_DWARF 3 /* dwarf */
#define C_HALFLING 4 /* halfling */
#define C_EXPER 5 /* experimento */
#define C_SUPER 6 /* super being */
/* constants for special character types */
#define SC_NONE 0 /* not a special character */
#define SC_KING 1 /* king */
#define SC_COUNCIL 2 /* council of the wise */
#define SC_VALAR 3 /* valar */
#define SC_EXVALAR 4 /* ex-valar */
/* special monster constants */
#define SM_NONE 0 /* nothing special */
#define SM_UNICORN 1 /* unicorn */
#define SM_MODNAR 2 /* Modnar */
#define SM_MIMIC 3 /* mimic */
#define SM_DARKLORD 4 /* Dark Lord */
#define SM_LEANAN 5 /* Leanan-Sidhe */
#define SM_SARUMAN 6 /* Saruman */
#define SM_THAUMATURG 7 /* thaumaturgist */
#define SM_BALROG 8 /* balrog */
#define SM_VORTEX 9 /* vortex */
#define SM_NAZGUL 10 /* nazgul */
#define SM_TIAMAT 11 /* Tiamat */
#define SM_KOBOLD 12 /* kobold */
#define SM_SHELOB 13 /* Shelob */
#define SM_FAERIES 14 /* assorted faeries */
#define SM_LAMPREY 15 /* lamprey */
#define SM_SHRIEKER 16 /* shrieker */
#define SM_BONNACON 17 /* bonnacon */
#define SM_SMEAGOL 18 /* Smeagol */
#define SM_SUCCUBUS 19 /* succubus */
#define SM_CERBERUS 20 /* Cerberus */
#define SM_UNGOLIANT 21 /* Ungoliant */
#define SM_JABBERWOCK 22 /* jabberwock */
#define SM_MORGOTH 23 /* Morgoth */
#define SM_TROLL 24 /* troll */
#define SM_WRAITH 25 /* wraith */
/* constants for spells */
#define ML_ALLORNOTHING 0.0 /* magic level for 'all or nothing' */
#define MM_ALLORNOTHING 1.0 /* mana used for 'all or nothing' */
#define ML_MAGICBOLT 5.0 /* magic level for 'magic bolt' */
#define ML_FORCEFIELD 15.0 /* magic level for 'force field' */
#define MM_FORCEFIELD 30.0 /* mana used for 'force field' */
#define ML_XFORM 25.0 /* magic level for 'transform' */
#define MM_XFORM 50.0 /* mana used for 'transform' */
#define ML_INCRMIGHT 35.0 /* magic level for 'increase might' */
#define MM_INCRMIGHT 75.0 /* mana used for 'increase might' */
#define ML_INVISIBLE 45.0 /* magic level for 'invisibility' */
#define MM_INVISIBLE 90.0 /* mana used for 'invisibility' */
#define ML_XPORT 60.0 /* magic level for 'transport' */
#define MM_XPORT 125.0 /* mana used for 'transport' */
#define ML_PARALYZE 75.0 /* magic level for 'paralyze' */
#define MM_PARALYZE 150.0 /* mana used for 'paralyze' */
#define MM_SPECIFY 1000.0 /* mana used for 'specify' */
#define ML_CLOAK 20.0 /* magic level for 'cloak' */
#define MEL_CLOAK 7.0 /* experience level for 'cloak' */
#define MM_CLOAK 35.0 /* mana used for 'cloak' */
#define ML_TELEPORT 40.0 /* magic level for 'teleport' */
#define MEL_TELEPORT 12.0 /* experience level for 'teleport' */
#define MM_INTERVENE 1000.0 /* mana used to 'intervene' */
/* some miscellaneous constants */
#define SZ_DATABUF 100 /* size of input buffer */
#define SZ_PLAYERSTRUCT sizeof(struct player) /* size of player structure */
#define SZ_VOIDSTRUCT sizeof(struct energyvoid) /* size of energy void struct */
#define SZ_SCORESTRUCT sizeof(struct scoreboard) /* size of score board entry */
#define SZ_MONSTERSTRUCT sizeof(struct monster) /* size of monster structure */
#define SZ_NAME 21 /* size of player name (incl. trailing nul) */
#define SZ_PASSWORD 9 /* size of password (incl. trailing nul) */
#define SZ_LOGIN 9 /* size of login (incl. trailing nul) */
#define N_DAYSOLD 21 /* number of days old for purge */
#define N_AGE 500 /* age to degenerate ratio */
#define N_GEMVALUE (1000.0) /* number of gold pieces to gem ratio */
#define N_TAXAMOUNT (7.0) /* tax percent */
#define D_BEYOND (1.1e6) /* distance to beyond point of no return */
#define D_EXPER (2000.0) /* distance experimentos are allowed */
#define CH_MARKDELETE '\001' /* used to alter name of deleted players */
#define CH_KILL '\030' /* kill character (ctrl-X) */
#define CH_ERASE '\010' /* erase character (ctrl-H) */
#define CH_NEWLINE '\n' /* newline */
#define CH_REDRAW '\014' /* redraw screen character (ctrl-L) */

113
games/phantasia/phantglobs.c Normal file
View File

@ -0,0 +1,113 @@
/*
* phantglobs.c - globals for Phantasia
*/
#include "include.h"
double Circle; /* which circle player is in */
double Shield; /* force field thrown up in monster battle */
bool Beyond; /* set if player is beyond point of no return */
bool Marsh; /* set if player is in dead marshes */
bool Throne; /* set if player is on throne */
bool Changed; /* set if important player stats have changed */
bool Wizard; /* set if player is the 'wizard' of the game */
bool Timeout; /* set if short timeout waiting for input */
bool Windows; /* set if we are set up for curses stuff */
bool Luckout; /* set if we have tried to luck out in fight */
bool Foestrikes; /* set if foe gets a chance to hit in battleplayer() */
bool Echo; /* set if echo input to terminal */
int Users; /* number of users currently playing */
int Whichmonster; /* which monster we are fighting */
int Lines; /* line on screen counter for fight routines */
jmp_buf Fightenv; /* used to jump into fight routine */
jmp_buf Timeoenv; /* used for timing out waiting for input */
long Fileloc; /* location in file of player statistics */
char *Login; /* pointer to login of player */
char *Enemyname; /* pointer name of monster/player we are battling*/
struct player Player; /* stats for player */
struct player Other; /* stats for another player */
struct monster Curmonster;/* stats for current monster */
struct energyvoid Enrgyvoid;/* energy void buffer */
struct charstats *Statptr;/* pointer into Stattable[] */
/* lookup table for character type dependent statistics */
struct charstats Stattable[7] =
{
/* MAGIC USER */
/* max brains, max mana, weakness, gold tote, ring duration */
15.0, 200.0, 18.0, 175.0, 10,
/* quickness strength mana energy brains magic lvl */
30, 6, 0.0, 10, 6, 2.0, 50,51,75.0, 30,16,20.0, 60,26, 6.0, 5, 5,2.75,
/* FIGHTER */
/* max brains, max mana, weakness, gold tote, ring duration */
10.0, 110.0, 15.0, 220.0, 20,
/* quickness strength mana energy brains magic lvl */
30, 6, 0.0, 40,16, 3.0, 30,21,40.0, 45,26,30.0, 25,21, 3.0, 3, 4, 1.5,
/* ELF */
/* max brains, max mana, weakness, gold tote, ring duration */
12.0, 150.0, 17.0, 190.0, 13,
/* quickness strength mana energy brains magic lvl */
32, 7, 0.0, 35,11, 2.5, 45,46,65.0, 30,21,25.0, 40,26, 4.0, 4, 4, 2.0,
/* DWARF */
/* max brains, max mana, weakness, gold tote, ring duration */
7.0, 80.0, 13.0, 255.0, 25,
/* quickness strength mana energy brains magic lvl */
25, 6, 0.0, 50,21, 5.0, 25,21,30.0, 60,41,35.0, 20,21, 2.5, 2, 4, 1.0,
/* HALFLING */
/* max brains, max mana, weakness, gold tote, ring duration */
11.0, 80.0, 10.0, 125.0, 40,
/* quickness strength mana energy brains magic lvl */
34, 0, 0.0, 20, 6, 2.0, 25,21,30.0, 55,36,30.0, 40,36, 4.5, 1, 4, 1.0,
/* EXPERIMENTO */
/* max brains, max mana, weakness, gold tote, ring duration */
9.0, 90.0, 16.0, 160.0, 20,
/* quickness strength mana energy brains magic lvl */
27, 0, 0.0, 25, 0, 0.0, 100,0, 0.0, 35, 0, 0.0, 25, 0, 0.0, 2, 0, 0.0,
/* SUPER */
/* max brains, max mana, weakness, gold tote, ring duration */
15.0, 200.0, 10.0, 225.0, 40,
/* quickness strength mana energy brains magic lvl */
38, 0, 0.0, 65, 0, 5.0, 100,0,75.0, 80, 0,35.0, 85, 0, 6.0, 9, 0,2.75
};
/* menu of items for purchase */
struct menuitem Menu[] =
{
"Mana", 1,
"Shield", 5,
"Book", 200,
"Sword", 500,
"Charm", 1000,
"Quicksilver", 2500,
"Blessing", 1000,
};
FILE *Playersfp; /* pointer to open player file */
FILE *Monstfp; /* pointer to open monster file */
FILE *Messagefp; /* pointer to open message file */
FILE *Energyvoidfp; /* pointer to open energy void file */
char Databuf[SZ_DATABUF]; /* a place to read data into */
/* some canned strings for messages */
char Illcmd[] = "Illegal command.\n";
char Illmove[] = "Too far.\n";
char Illspell[] = "Illegal spell.\n";
char Nomana[] = "Not enought mana for that spell.\n";
char Somebetter[] = "But you already have something better.\n";
char Nobetter[] = "That's no better than what you already have.\n";

86
games/phantasia/phantglobs.h Normal file
View File

@ -0,0 +1,86 @@
/*
* phantglobs.h - global declarations for Phantasia
*/
extern double Circle; /* which circle player is in */
extern double Shield; /* force field thrown up in monster battle */
extern bool Beyond; /* set if player is beyond point of no return */
extern bool Marsh; /* set if player is in dead marshes */
extern bool Throne; /* set if player is on throne */
extern bool Changed; /* set if important player stats have changed */
extern bool Wizard; /* set if player is the 'wizard' of the game */
extern bool Timeout; /* set if short timeout waiting for input */
extern bool Windows; /* set if we are set up for curses stuff */
extern bool Luckout; /* set if we have tried to luck out in fight */
extern bool Foestrikes; /* set if foe gets a chance to hit in battleplayer()*/
extern bool Echo; /* set if echo input to terminal */
extern int Users; /* number of users currently playing */
extern int Whichmonster; /* which monster we are fighting */
extern int Lines; /* line on screen counter for fight routines */
extern jmp_buf Fightenv; /* used to jump into fight routine */
extern jmp_buf Timeoenv; /* used for timing out waiting for input */
extern long Fileloc; /* location in file of player statistics */
extern char *Login; /* pointer to login of current player */
extern char *Enemyname; /* pointer name of monster/player we are battling*/
extern struct player Player; /* stats for player */
extern struct player Other; /* stats for another player */
extern struct monster Curmonster;/* stats for current monster */
extern struct energyvoid Enrgyvoid;/* energy void buffer */
extern struct charstats Stattable[];/* used for rolling and changing player stats*/
extern struct charstats *Statptr;/* pointer into Stattable[] */
extern struct menuitem Menu[]; /* menu of items for purchase */
extern FILE *Playersfp; /* pointer to open player file */
extern FILE *Monstfp; /* pointer to open monster file */
extern FILE *Messagefp; /* pointer to open message file */
extern FILE *Energyvoidfp; /* pointer to open energy void file */
extern char Databuf[]; /* a place to read data into */
/* some canned strings for messages */
extern char Illcmd[];
extern char Illmove[];
extern char Illspell[];
extern char Nomana[];
extern char Somebetter[];
extern char Nobetter[];
/* library functions and system calls */
extern long time();
extern char *getlogin();
extern char *getpass();
extern char *strchr();
extern char *strcat();
extern char *strcpy();
extern char *strncpy();
extern char *getenv();
struct passwd *getpwuid();
extern char *fgets();
/* functions which we need to know about */
extern int interrupt();
extern int ill_sig();
extern void catchalarm();
extern long recallplayer();
extern long findname();
extern long allocrecord();
extern long rollnewplayer();
extern long allocvoid();
extern double drandom();
extern double distance();
extern double infloat();
extern double explevel();
extern char *descrlocation();
extern char *descrtype();
extern char *descrstatus();

124
games/phantasia/phantstruct.h Normal file
View File

@ -0,0 +1,124 @@
/*
* phantstruct.h - structure definitions for Phantasia
*/
struct player /* player statistics */
{
double p_experience; /* experience */
double p_level; /* level */
double p_strength; /* strength */
double p_sword; /* sword */
double p_might; /* effect strength */
double p_energy; /* energy */
double p_maxenergy; /* maximum energy */
double p_shield; /* shield */
double p_quickness; /* quickness */
double p_quksilver; /* quicksilver */
double p_speed; /* effective quickness */
double p_magiclvl; /* magic level */
double p_mana; /* mana */
double p_brains; /* brains */
double p_poison; /* poison */
double p_gold; /* gold */
double p_gems; /* gems */
double p_sin; /* sin */
double p_x; /* x coord */
double p_y; /* y coord */
double p_1scratch,
p_2scratch; /* variables used for decree, player battle */
struct
{
short ring_type; /* type of ring */
short ring_duration; /* duration of ring */
bool ring_inuse; /* ring in use flag */
} p_ring; /* ring stuff */
long p_age; /* age of player */
int p_degenerated; /* age/3000 last degenerated */
short p_type; /* character type */
short p_specialtype; /* special character type */
short p_lives; /* multiple lives for council, valar */
short p_crowns; /* crowns */
short p_charms; /* charms */
short p_amulets; /* amulets */
short p_holywater; /* holy water */
short p_lastused; /* day of year last used */
short p_status; /* playing, cloaked, etc. */
short p_tampered; /* decree'd, etc. flag */
short p_istat; /* used for inter-terminal battle */
bool p_palantir; /* palantir */
bool p_blessing; /* blessing */
bool p_virgin; /* virgin */
bool p_blindness; /* blindness */
char p_name[SZ_NAME]; /* name */
char p_password[SZ_PASSWORD];/* password */
char p_login[SZ_LOGIN]; /* login */
};
struct monster /* monster stats */
{
double m_strength; /* strength */
double m_brains; /* brains */
double m_speed; /* speed */
double m_energy; /* energy */
double m_experience; /* experience */
double m_flock; /* % chance of flocking */
double m_o_strength; /* original strength */
double m_o_speed; /* original speed */
double m_maxspeed; /* maximum speed */
double m_o_energy; /* original energy */
double m_melee; /* melee damage */
double m_skirmish; /* skirmish damage */
int m_treasuretype; /* treasure type */
int m_type; /* special type */
char m_name[26]; /* name */
};
struct energyvoid /* energy void */
{
double ev_x; /* x coordinate */
double ev_y; /* y coordinate */
bool ev_active; /* active or not */
};
struct scoreboard /* scoreboard entry */
{
double sb_level; /* level of player */
char sb_type[4]; /* character type of player */
char sb_name[SZ_NAME]; /* name of player */
char sb_login[SZ_LOGIN]; /* login of player */
};
struct charstats /* character type statistics */
{
double c_maxbrains; /* max brains per level */
double c_maxmana; /* max mana per level */
double c_weakness; /* how strongly poison affects player */
double c_goldtote; /* how much gold char can carry */
int c_ringduration; /* bad ring duration */
struct
{
double base; /* base for roll */
double interval; /* interval for roll */
double increase; /* increment per level */
} c_quickness, /* quickness */
c_strength, /* strength */
c_mana, /* mana */
c_energy, /* energy level */
c_brains, /* brains */
c_magiclvl; /* magic level */
};
struct menuitem /* menu item for purchase */
{
char *item; /* menu item name */
double cost; /* cost of item */
};

261
games/phantasia/setup.c Normal file
View File

@ -0,0 +1,261 @@
/*
* setup.c - set up all files for Phantasia
*/
#include "include.h"
#include <sys/types.h>
#include <sys/stat.h>
#include <stdlib.h>
/* */
/************************************************************************
/
/ FUNCTION NAME: main()
/
/ FUNCTION: setup files for Phantasia 3.3.2
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: time(), exit(), stat(), Error(), creat(), close(), fopen(),
/ fgets(), floor(), srandom(), umask(), drandom(), strcpy(), getuid(),
/ unlink(), fwrite(), fclose(), sscanf(), printf(), strlen(), fprintf()
/
/ GLOBAL INPUTS: Curmonster, _iob[], Databuf[], *Monstfp, Enrgyvoid
/
/ GLOBAL OUTPUTS: Curmonster, Databuf[], *Monstfp, Enrgyvoid
/
/ DESCRIPTION:
/
/ This program tries to verify the parameters specified in
/ the Makefile.
/
/ Create all necessary files. Note that nothing needs to be
/ put in these files.
/ Also, the monster binary data base is created here.
/
/************************************************************************/
static char *files[] = { /* all files to create */
_PATH_MONST,
_PATH_PEOPLE,
_PATH_MESS,
_PATH_LASTDEAD,
_PATH_MOTD,
_PATH_GOLD,
_PATH_VOID,
_PATH_SCORE,
NULL,
};
char *monsterfile="monsters.asc";
int
main(argc, argv)
int argc;
char *argv[];
{
register char **filename; /* for pointing to file names */
register int fd; /* file descriptor */
FILE *fp; /* for opening files */
struct stat fbuf; /* for getting files statistics */
int ch;
while ((ch = getopt(argc, argv, "m:")) != EOF)
switch(ch) {
case 'm':
monsterfile = optarg;
break;
case '?':
default:
break;
}
argc -= optind;
argv += optind;
srandom((unsigned) time((long *) NULL)); /* prime random numbers */
umask(0117); /* only owner can read/write created files */
/* try to create data files */
filename = &files[0];
while (*filename != NULL)
/* create each file */
{
if (stat(*filename, &fbuf) == 0)
/* file exists; remove it */
{
if (!strcmp(*filename, _PATH_PEOPLE))
/* do not reset character file if it already exists */
{
++filename;
continue;
}
if (unlink(*filename) < 0)
Error("Cannot unlink %s.\n", *filename);
/*NOTREACHED*/
}
if ((fd = creat(*filename, 0660)) < 0)
Error("Cannot create %s.\n", *filename);
/*NOTREACHED*/
close(fd); /* close newly created file */
++filename; /* process next file */
}
/* put holy grail info into energy void file */
Enrgyvoid.ev_active = TRUE;
Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6);
Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6);
if ((fp = fopen(_PATH_VOID, "w")) == NULL)
Error("Cannot update %s.\n", _PATH_VOID);
else
{
fwrite(&Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);
fclose(fp);
}
/* create binary monster data base */
if ((Monstfp = fopen(_PATH_MONST, "w")) == NULL)
Error("Cannot update %s.\n", _PATH_MONST);
else
{
if ((fp = fopen(monsterfile, "r")) == NULL)
{
fclose(Monstfp);
Error("cannot open %s to create monster database.\n", "monsters.asc");
}
else
{
Curmonster.m_o_strength =
Curmonster.m_o_speed =
Curmonster.m_maxspeed =
Curmonster.m_o_energy =
Curmonster.m_melee =
Curmonster.m_skirmish = 0.0;
while (fgets(Databuf, SZ_DATABUF, fp) != NULL)
/* read in text file, convert to binary */
{
sscanf(&Databuf[24], "%lf%lf%lf%lf%lf%d%d%lf",
&Curmonster.m_strength, &Curmonster.m_brains,
&Curmonster.m_speed, &Curmonster.m_energy,
&Curmonster.m_experience, &Curmonster.m_treasuretype,
&Curmonster.m_type, &Curmonster.m_flock);
Databuf[24] = '\0';
strcpy(Curmonster.m_name, Databuf);
fwrite((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
}
fclose(fp);
fclose(Monstfp);
}
}
#ifdef MAKE_INSTALLS_THIS_AND_DOESNT_WANT_TO_HEAR_ABOUT_IT
/* write to motd file */
printf("One line 'motd' ? ");
if (fgets(Databuf, SZ_DATABUF, stdin) == NULL)
Databuf[0] = '\0';
if ((fp = fopen(_PATH_MOTD, "w")) == NULL)
Error("Cannot update %s.\n", _PATH_MOTD);
else
{
fwrite(Databuf, sizeof(char), strlen(Databuf), fp);
fclose(fp);
}
/* report compile-time options */
printf("Compiled options:\n\n");
printf("Phantasia destination directory: %s\n", _PATH_PHANTDIR);
printf("Wizard: root UID: 0\n");
#ifdef BSD41
printf("Compiled for BSD 4.1\n");
#endif
#ifdef BSD42
printf("Compiled for BSD 4.2\n");
#endif
#ifdef SYS3
printf("Compiled for System III\n");
#endif
#ifdef SYS5
printf("Compiled for System V\n");
#endif
#endif
exit(0);
/*NOTREACHED*/
}
/* */
/************************************************************************
/
/ FUNCTION NAME: Error()
/
/ FUNCTION: print an error message, and exit
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS:
/ char *str - format string for printf()
/ char *file - file which caused error
/
/ RETURN VALUE: none
/
/ MODULES CALLED: exit(), perror(), fprintf()
/
/ GLOBAL INPUTS: _iob[]
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/ Print an error message, then exit.
/
/************************************************************************/
Error(str, file)
char *str, *file;
{
fprintf(stderr, "Error: ");
fprintf(stderr, str, file);
perror(file);
exit(1);
/*NOTREACHED*/
}
/* */
/************************************************************************
/
/ FUNCTION NAME: drandom()
/
/ FUNCTION: return a random number
/
/ AUTHOR: E. A. Estes, 2/7/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: random()
/
/ GLOBAL INPUTS: none
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/
/************************************************************************/
double
drandom()
{
if (sizeof(int) != 2)
return((double) (random() & 0x7fff) / 32768.0);
else
return((double) random() / 32768.0);
}