phantasia(6), from 44lite

1 files changed, 261 insertions, 0 deletions

diff --git a/phantasia/setup.c b/phantasia/setup.c
new file mode 100644
index 00000000..f916727f
--- /dev/null
+++ b/phantasia/setup.c
@@ -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);
+}