2.11BSD/src/games/phantasia/phant.h

/*
 * phant.h	Include file for Phantasia
 */

#include <setjmp.h>
#include <curses.h>
#include <time.h>
#include <pwd.h>
#include <signal.h>
#include <math.h>

/* ring constants */
#define NONE	0
#define NAZBAD	1
#define NAZREG	2
#define DLREG	3
#define DLBAD	4
#define SPOILED 5

/* some functions and pseudo-functions */
#define toupper(CH)	((CH) > 96 ? (CH) ^ 32 : (CH))	/* may be upper or lower */
#define tolower(CH)	((CH) | 32)			/* must be upper */
#define rnd()		(((double) rand()) / RAND)
#define roll(BASE,INTERVAL)	floor((BASE) + (INTERVAL) * rnd())
#define sgn(x)	(-(x < 0) + (x > 0))
#define abs(x)	((x) < 0 ? -(x) : (x))
#define circ(x,y)	floor(sqrt((double) ((x) * (x) + (y) * (y))) / 125 + 1)
#define max(A,B)	((A) > (B) ? (A) : (B))
#define min(A,B)	((A) < (B) ? (A) : (B))
#define valarstuff(ARG)	decree(ARG)
#define illcmd()	mvaddstr(6,0,"Illegal command.\n")
#define maxmove 	floor(charac.lvl * 1.5 + 1)
#define illmove()	mvaddstr(6,0,"Too far.\n")
#define rndattack()	if (rnd() < 0.2 && charac.status == PLAYING && !throne) \
				fight(&charac,-1)
#define strcalc(STR,SICK)	max(0,min(0.9 * STR, SICK * STR/20))
#define spdcalc(LVL,GLD,GEM)	max(0,((GLD + GEM/2) - 1000)/200.0 - LVL)
#define illspell()	mvaddstr(6,0,"Illegal spell.\n")
#define nomanna()	mvaddstr(6,0,"Not enough manna for that spell.\n")
#define somebetter()	addstr("But you already have something better.\n")

/* status constants */
#define OFF	0
#define PLAYING 1
#define CLOAKED 2
#define INBATTLE	3
#define DIE	4
#define QUIT	5

/* tampered constants */
#define NRGVOID 1
#define GRAIL	2
#define TRANSPORT	3
#define GOLD	4
#define CURSED	5
#define MONSTER 6
#define BLESS	7
#define MOVED	8
#define HEAL	9
#define VAPORIZED	10
#define STOLEN	11

/* structure definitions */
struct	stats		/* player stats */
	{
	char	name[21];	/* name */
	char	pswd[9];	/* password */
	char	login[10];	/* login */
	double	x;		/* x coord */
	double	y;		/* y coord */
	double	exp;		/* experience */
	int	lvl;		/* level */
	short	quk;		/* quick */
	double	str;		/* strength */
	double	sin;		/* sin */
	double	man;		/* manna */
	double	gld;		/* gold */
	double	nrg;		/* energy */
	double	mxn;		/* max. energy */
	double	mag;		/* magic level */
	double	brn;		/* brains */
	short	crn;		/* crowns */
	struct
		{
		short	type;
		short	duration;
		}	rng;	/* ring stuff */
	bool	pal;		/* palantir */
	double	psn;		/* poison */
	short	hw;		/* holy water */
	short	amu;		/* amulets */
	bool	bls;		/* blessing */
	short	chm;		/* charms */
	double	gem;		/* gems */
	short	quks;		/* quicksilver */
	double	swd;		/* sword */
	double	shd;		/* shield */
	short	typ;		/* character type */
	bool	vrg;		/* virgin */
	short	lastused;	/* day of year last used */
	short	status; 	/* playing, cloaked, etc. */
	short	tampered;	/* decree'd, etc. flag */
	double	scratch1, scratch2;	/* var's for above */
	bool	blind;		/* blindness */
	int	wormhole;	/* # of wormhole, 0 = none */
	long	age;		/* age in seconds */
	short	degen;		/* age/2500 last degenerated */
	};

struct	mstats		/* monster stats */
	{
	char	name[26];	/* name */
	double	str;		/* strength */
	double	brn;		/* brains */
	double	spd;		/* speed */
	double	hit;		/* hits (energy) */
	double	exp;		/* experience */
	int	trs;		/* treasure type */
	int	typ;		/* special type */
	int	flk;		/* % flock */
	};

struct	nrgvoid 	/* energy void */
	{
	bool	active; 	/* active or not */
	double	x,y;		/* coordinates */
	};

struct	worm_hole	/* worm hole */
	{
	char	f, b, l, r;	/* forward, back, left, right */
	};

/* files */
#define monsterfile	PATH/monsters"
#define peoplefile	PATH/characs"
#define gameprog	PATH/phantasia"
#define messfile	PATH/mess"
#define lastdead	PATH/lastdead"
#define helpfile	PATH/phant.help"
#define motd		PATH/motd"
#define goldfile	PATH/gold"
#define voidfile	PATH/void"
#define	enemyfile	PATH/enemy"

/* library functions and system calls */
unsigned sleep();
long	time(), ftell();
char	*getlogin(), *getpass(), *ctime();
struct	passwd	*getpwuid();
char	*strcpy(), *strncpy();

/* function and global variable declarations */
void	adjuststats(), callmonster(), checkinterm(), checkmov(), checktampered(),
	cstat(), death(), decree(), exit1(), fight(), genchar(), getstring(), init1(),
	initchar(), interm(), kingstuff(), leave(), movelvl(), neatstuf(),
	paws(), printhelp(), printmonster(), printplayers(), printstats(), purge(),
	showall(), showusers(), statread(), talk(), tampered(), titlestuff(),
	trade(), treasure(), trunc(), update(), voidupdate();
int	allocvoid(), findchar(), findspace(), gch(), interrupt(), rgetch(), rngcalc();
unsigned level();
double	inflt();
char	*printloc();
bool	findname();
#ifdef	OK_TO_PLAY
bool	ok_to_play();
#endif

extern	jmp_buf fightenv, mainenv;
extern	double	strength, speed;
extern	bool	beyond, marsh, throne, valhala, changed, fghting, su, wmhl;
extern	struct worm_hole	w_h[];
extern	long	secs;
extern	int	fileloc, users;