freebsd-dev/games/hack/hack.unix.c
Jordan K. Hubbard 554eb505f8 Bring in the 4.4 Lite games directory, modulo man page changes and segregation
of the x11 based games.  I'm not going to tag the originals with bsd_44_lite
and do this in two stages since it's just not worth it for this collection,
and I've got directory renames to deal with that way.  Bleah.
Submitted by:	jkh
1994-09-04 04:03:31 +00:00

431 lines
10 KiB
C

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.unix.c - version 1.0.3 */
/* This file collects some Unix dependencies; hack.pager.c contains some more */
/*
* The time is used for:
* - seed for random()
* - year on tombstone and yymmdd in record file
* - phase of the moon (various monsters react to NEW_MOON or FULL_MOON)
* - night and midnight (the undead are dangerous at midnight)
* - determination of what files are "very old"
*/
#include <stdio.h>
#include <errno.h>
#include "hack.h" /* mainly for index() which depends on BSD */
#include <sys/types.h> /* for time_t and stat */
#include <sys/stat.h>
#ifdef BSD
#include <sys/time.h>
#else
#include <time.h>
#endif BSD
extern char *getenv();
extern time_t time();
setrandom()
{
(void) srandom((int) time ((time_t *) 0));
}
struct tm *
getlt()
{
time_t date;
struct tm *localtime();
(void) time(&date);
return(localtime(&date));
}
getyear()
{
return(1900 + getlt()->tm_year);
}
char *
getdate()
{
static char datestr[7];
register struct tm *lt = getlt();
(void) sprintf(datestr, "%2d%2d%2d",
lt->tm_year, lt->tm_mon + 1, lt->tm_mday);
if(datestr[2] == ' ') datestr[2] = '0';
if(datestr[4] == ' ') datestr[4] = '0';
return(datestr);
}
phase_of_the_moon() /* 0-7, with 0: new, 4: full */
{ /* moon period: 29.5306 days */
/* year: 365.2422 days */
register struct tm *lt = getlt();
register int epact, diy, golden;
diy = lt->tm_yday;
golden = (lt->tm_year % 19) + 1;
epact = (11 * golden + 18) % 30;
if ((epact == 25 && golden > 11) || epact == 24)
epact++;
return( (((((diy + epact) * 6) + 11) % 177) / 22) & 7 );
}
night()
{
register int hour = getlt()->tm_hour;
return(hour < 6 || hour > 21);
}
midnight()
{
return(getlt()->tm_hour == 0);
}
struct stat buf, hbuf;
gethdate(name) char *name; {
/* old version - for people short of space */
/*
/* register char *np;
/* if(stat(name, &hbuf))
/* error("Cannot get status of %s.",
/* (np = rindex(name, '/')) ? np+1 : name);
/*
/* version using PATH from: seismo!gregc@ucsf-cgl.ARPA (Greg Couch) */
/*
* The problem with #include <sys/param.h> is that this include file
* does not exist on all systems, and moreover, that it sometimes includes
* <sys/types.h> again, so that the compiler sees these typedefs twice.
*/
#define MAXPATHLEN 1024
register char *np, *path;
char filename[MAXPATHLEN+1];
if (index(name, '/') != NULL || (path = getenv("PATH")) == NULL)
path = "";
for (;;) {
if ((np = index(path, ':')) == NULL)
np = path + strlen(path); /* point to end str */
if (np - path <= 1) /* %% */
(void) strcpy(filename, name);
else {
(void) strncpy(filename, path, np - path);
filename[np - path] = '/';
(void) strcpy(filename + (np - path) + 1, name);
}
if (stat(filename, &hbuf) == 0)
return;
if (*np == '\0')
break;
path = np + 1;
}
error("Cannot get status of %s.",
(np = rindex(name, '/')) ? np+1 : name);
}
uptodate(fd) {
if(fstat(fd, &buf)) {
pline("Cannot get status of saved level? ");
return(0);
}
if(buf.st_mtime < hbuf.st_mtime) {
pline("Saved level is out of date. ");
return(0);
}
return(1);
}
/* see whether we should throw away this xlock file */
veryold(fd) {
register int i;
time_t date;
if(fstat(fd, &buf)) return(0); /* cannot get status */
if(buf.st_size != sizeof(int)) return(0); /* not an xlock file */
(void) time(&date);
if(date - buf.st_mtime < 3L*24L*60L*60L) { /* recent */
extern int errno;
int lockedpid; /* should be the same size as hackpid */
if(read(fd, (char *)&lockedpid, sizeof(lockedpid)) !=
sizeof(lockedpid))
/* strange ... */
return(0);
/* From: Rick Adams <seismo!rick>
/* This will work on 4.1cbsd, 4.2bsd and system 3? & 5.
/* It will do nothing on V7 or 4.1bsd. */
if(!(kill(lockedpid, 0) == -1 && errno == ESRCH))
return(0);
}
(void) close(fd);
for(i = 1; i <= MAXLEVEL; i++) { /* try to remove all */
glo(i);
(void) unlink(lock);
}
glo(0);
if(unlink(lock)) return(0); /* cannot remove it */
return(1); /* success! */
}
getlock()
{
extern int errno, hackpid, locknum;
register int i = 0, fd;
(void) fflush(stdout);
/* we ignore QUIT and INT at this point */
if (link(HLOCK, LLOCK) == -1) {
register int errnosv = errno;
perror(HLOCK);
printf("Cannot link %s to %s\n", LLOCK, HLOCK);
switch(errnosv) {
case ENOENT:
printf("Perhaps there is no (empty) file %s ?\n", HLOCK);
break;
case EACCES:
printf("It seems you don't have write permission here.\n");
break;
case EEXIST:
printf("(Try again or rm %s.)\n", LLOCK);
break;
default:
printf("I don't know what is wrong.");
}
getret();
error("");
/*NOTREACHED*/
}
regularize(lock);
glo(0);
if(locknum > 25) locknum = 25;
do {
if(locknum) lock[0] = 'a' + i++;
if((fd = open(lock, 0)) == -1) {
if(errno == ENOENT) goto gotlock; /* no such file */
perror(lock);
(void) unlink(LLOCK);
error("Cannot open %s", lock);
}
if(veryold(fd)) /* if true, this closes fd and unlinks lock */
goto gotlock;
(void) close(fd);
} while(i < locknum);
(void) unlink(LLOCK);
error(locknum ? "Too many hacks running now."
: "There is a game in progress under your name.");
gotlock:
fd = creat(lock, FMASK);
if(unlink(LLOCK) == -1)
error("Cannot unlink %s.", LLOCK);
if(fd == -1) {
error("cannot creat lock file.");
} else {
if(write(fd, (char *) &hackpid, sizeof(hackpid))
!= sizeof(hackpid)){
error("cannot write lock");
}
if(close(fd) == -1) {
error("cannot close lock");
}
}
}
#ifdef MAIL
/*
* Notify user when new mail has arrived. [Idea from Merlyn Leroy, but
* I don't know the details of his implementation.]
* { Later note: he disliked my calling a general mailreader and felt that
* hack should do the paging itself. But when I get mail, I want to put it
* in some folder, reply, etc. - it would be unreasonable to put all these
* functions in hack. }
* The mail daemon '2' is at present not a real monster, but only a visual
* effect. Thus, makemon() is superfluous. This might become otherwise,
* however. The motion of '2' is less restrained than usual: diagonal moves
* from a DOOR are possible. He might also use SDOOR's. Also, '2' is visible
* in a ROOM, even when you are Blind.
* Its path should be longer when you are Telepat-hic and Blind.
*
* Interesting side effects:
* - You can get rich by sending yourself a lot of mail and selling
* it to the shopkeeper. Unfortunately mail isn't very valuable.
* - You might die in case '2' comes along at a critical moment during
* a fight and delivers a scroll the weight of which causes you to
* collapse.
*
* Possible extensions:
* - Open the file MAIL and do fstat instead of stat for efficiency.
* (But sh uses stat, so this cannot be too bad.)
* - Examine the mail and produce a scroll of mail called "From somebody".
* - Invoke MAILREADER in such a way that only this single letter is read.
*
* - Make him lose his mail when a Nymph steals the letter.
* - Do something to the text when the scroll is enchanted or cancelled.
*/
#include "def.mkroom.h"
static struct stat omstat,nmstat;
static char *mailbox;
static long laststattime;
getmailstatus() {
if(!(mailbox = getenv("MAIL")))
return;
if(stat(mailbox, &omstat)){
#ifdef PERMANENT_MAILBOX
pline("Cannot get status of MAIL=%s .", mailbox);
mailbox = 0;
#else
omstat.st_mtime = 0;
#endif PERMANENT_MAILBOX
}
}
ckmailstatus() {
if(!mailbox
#ifdef MAILCKFREQ
|| moves < laststattime + MAILCKFREQ
#endif MAILCKFREQ
)
return;
laststattime = moves;
if(stat(mailbox, &nmstat)){
#ifdef PERMANENT_MAILBOX
pline("Cannot get status of MAIL=%s anymore.", mailbox);
mailbox = 0;
#else
nmstat.st_mtime = 0;
#endif PERMANENT_MAILBOX
} else if(nmstat.st_mtime > omstat.st_mtime) {
if(nmstat.st_size)
newmail();
getmailstatus(); /* might be too late ... */
}
}
newmail() {
/* produce a scroll of mail */
register struct obj *obj;
register struct monst *md;
extern char plname[];
extern struct obj *mksobj(), *addinv();
extern struct monst *makemon();
extern struct permonst pm_mail_daemon;
obj = mksobj(SCR_MAIL);
if(md = makemon(&pm_mail_daemon, u.ux, u.uy)) /* always succeeds */
mdrush(md,0);
pline("\"Hello, %s! I have some mail for you.\"", plname);
if(md) {
if(dist(md->mx,md->my) > 2)
pline("\"Catch!\"");
more();
/* let him disappear again */
mdrush(md,1);
mondead(md);
}
obj = addinv(obj);
(void) identify(obj); /* set known and do prinv() */
}
/* make md run through the cave */
mdrush(md,away)
register struct monst *md;
boolean away;
{
register int uroom = inroom(u.ux, u.uy);
if(uroom >= 0) {
register int tmp = rooms[uroom].fdoor;
register int cnt = rooms[uroom].doorct;
register int fx = u.ux, fy = u.uy;
while(cnt--) {
if(dist(fx,fy) < dist(doors[tmp].x, doors[tmp].y)){
fx = doors[tmp].x;
fy = doors[tmp].y;
}
tmp++;
}
tmp_at(-1, md->data->mlet); /* open call */
if(away) { /* interchange origin and destination */
unpmon(md);
tmp = fx; fx = md->mx; md->mx = tmp;
tmp = fy; fy = md->my; md->my = tmp;
}
while(fx != md->mx || fy != md->my) {
register int dx,dy,nfx = fx,nfy = fy,d1,d2;
tmp_at(fx,fy);
d1 = DIST(fx,fy,md->mx,md->my);
for(dx = -1; dx <= 1; dx++) for(dy = -1; dy <= 1; dy++)
if(dx || dy) {
d2 = DIST(fx+dx,fy+dy,md->mx,md->my);
if(d2 < d1) {
d1 = d2;
nfx = fx+dx;
nfy = fy+dy;
}
}
if(nfx != fx || nfy != fy) {
fx = nfx;
fy = nfy;
} else {
if(!away) {
md->mx = fx;
md->my = fy;
}
break;
}
}
tmp_at(-1,-1); /* close call */
}
if(!away)
pmon(md);
}
readmail() {
#ifdef DEF_MAILREADER /* This implies that UNIX is defined */
register char *mr = 0;
more();
if(!(mr = getenv("MAILREADER")))
mr = DEF_MAILREADER;
if(child(1)){
execl(mr, mr, (char *) 0);
exit(1);
}
#else DEF_MAILREADER
(void) page_file(mailbox, FALSE);
#endif DEF_MAILREADER
/* get new stat; not entirely correct: there is a small time
window where we do not see new mail */
getmailstatus();
}
#endif MAIL
regularize(s) /* normalize file name - we don't like ..'s or /'s */
register char *s;
{
register char *lp;
while((lp = index(s, '.')) || (lp = index(s, '/')))
*lp = '_';
}