Merge branch 'vendor/LDNS'
[dragonfly.git] / games / phantasia / setup.c
CommitLineData
984263bc
MD
1/*
2 * setup.c - set up all files for Phantasia
3 *
4 * $FreeBSD: src/games/phantasia/setup.c,v 1.11 1999/11/16 02:57:34 billf Exp $
313fa7d1 5 * $DragonFly: src/games/phantasia/setup.c,v 1.3 2005/05/31 00:06:26 swildner Exp $
984263bc
MD
6 */
7#include "include.h"
8#include <sys/types.h>
9#include <sys/stat.h>
10#include <unistd.h>
313fa7d1
SW
11
12/* functions which we need to know about */
13/* phantglobs.c */
14extern double drandom(void);
15
16void Error(const char *, const char *);
17
18static const char *files[] = { /* all files to create */
19 _SPATH_MONST,
20 _SPATH_PEOPLE,
21 _SPATH_MESS,
22 _SPATH_LASTDEAD,
23 _SPATH_MOTD,
24 _SPATH_GOLD,
25 _SPATH_VOID,
26 _SPATH_SCORE,
27 NULL,
28};
29
6693db17
SW
30const char *monsterfile = "monsters.asc";
31
32/*
33 * FUNCTION: setup files for Phantasia 3.3.2
34 *
35 * GLOBAL INPUTS: Curmonster, _iob[], Databuf[], *Monstfp, Enrgyvoid
36 *
37 * GLOBAL OUTPUTS: Curmonster, Databuf[], *Monstfp, Enrgyvoid
38 *
39 * DESCRIPTION:
40 * This program tries to verify the parameters specified in
41 * the Makefile.
42 *
43 * Create all necessary files. Note that nothing needs to be
44 * put in these files.
45 * Also, the monster binary data base is created here.
46 */
984263bc 47
984263bc 48int
6693db17 49main(int argc, char *argv[])
984263bc 50{
313fa7d1 51 const char **filename; /* for pointing to file names */
6693db17 52 int fd; /* file descriptor */
984263bc
MD
53 FILE *fp; /* for opening files */
54 struct stat fbuf; /* for getting files statistics */
55 int ch;
56
57 while ((ch = getopt(argc, argv, "m:")) != -1)
58 switch(ch) {
59 case 'm':
60 monsterfile = optarg;
61 break;
62 case '?':
63 default:
64 break;
65 }
66 argc -= optind;
67 argv += optind;
68
6693db17 69 srandomdev();
984263bc
MD
70
71#if 0
6693db17 72 umask(0117); /* only owner can read/write created files */
984263bc
MD
73#endif
74
6693db17
SW
75 /* try to create data files */
76 filename = &files[0];
984263bc 77 /* create each file */
6693db17
SW
78 while (*filename != NULL) {
79 /* file exists; remove it */
80 if (stat(*filename, &fbuf) == 0) {
81 /* do not reset character file if it already exists */
82 if (!strcmp(*filename, _SPATH_PEOPLE)) {
83 ++filename;
84 continue;
85 }
86
87 if (unlink(*filename) < 0)
88 Error("Cannot unlink %s.\n", *filename);
89 /* NOTREACHED */
984263bc
MD
90 }
91
6693db17
SW
92 if ((fd = creat(*filename, 0666)) < 0)
93 Error("Cannot create %s.\n", *filename);
94 /* NOTREACHED */
984263bc 95
6693db17 96 close(fd); /* close newly created file */
984263bc 97
6693db17 98 ++filename; /* process next file */
984263bc
MD
99 }
100
6693db17
SW
101 /* put holy grail info into energy void file */
102 Enrgyvoid.ev_active = TRUE;
103 Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6);
104 Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6);
105 if ((fp = fopen(_SPATH_VOID, "w")) == NULL)
106 Error("Cannot update %s.\n", _SPATH_VOID);
107 else {
108 fwrite(&Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);
109 fclose(fp);
984263bc
MD
110 }
111
6693db17
SW
112 /* create binary monster data base */
113 if ((Monstfp = fopen(_SPATH_MONST, "w")) == NULL)
114 Error("Cannot update %s.\n", _SPATH_MONST);
115 else if ((fp = fopen(monsterfile, "r")) == NULL) {
116 fclose(Monstfp);
117 Error("cannot open %s to create monster database.\n", "monsters.asc");
118 } else {
119 Curmonster.m_o_strength =
120 Curmonster.m_o_speed =
121 Curmonster.m_maxspeed =
122 Curmonster.m_o_energy =
123 Curmonster.m_melee =
124 Curmonster.m_skirmish = 0.0;
125
984263bc 126 /* read in text file, convert to binary */
6693db17
SW
127 while (fgets(Databuf, SZ_DATABUF, fp) != NULL) {
128 sscanf(&Databuf[24], "%lf%lf%lf%lf%lf%d%d%lf",
129 &Curmonster.m_strength, &Curmonster.m_brains,
130 &Curmonster.m_speed, &Curmonster.m_energy,
131 &Curmonster.m_experience, &Curmonster.m_treasuretype,
132 &Curmonster.m_type, &Curmonster.m_flock);
133 Databuf[24] = '\0';
134 strcpy(Curmonster.m_name, Databuf);
135 fwrite((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
984263bc 136 }
6693db17
SW
137 fclose(fp);
138 fclose(Monstfp);
984263bc
MD
139 }
140
6693db17
SW
141 exit(0);
142 /* NOTREACHED */
984263bc 143}
6693db17
SW
144
145/*
146 * FUNCTION: print an error message, and exit
147 *
148 * ARGUMENTS:
149 * char *str - format string for printf()
150 * char *file - file which caused error
151 *
152 * GLOBAL INPUTS: _iob[]
153 *
154 * DESCRIPTION:
155 * Print an error message, then exit.
156 */
984263bc
MD
157
158void
313fa7d1 159Error(const char *str, const char *file)
984263bc 160{
6693db17
SW
161 fprintf(stderr, "Error: ");
162 fprintf(stderr, str, file);
163 perror(file);
164 exit(1);
165 /* NOTREACHED */
984263bc 166}