summaryrefslogtreecommitdiffstats
path: root/games/sail/misc.c
diff options
context:
space:
mode:
authorjkh <jkh@FreeBSD.org>1994-09-04 04:03:31 +0000
committerjkh <jkh@FreeBSD.org>1994-09-04 04:03:31 +0000
commit057afceb86e030ad65b0130436860d9a18066186 (patch)
treea0ced9c9b9278eb776d89cd2565c27ddcf020b51 /games/sail/misc.c
parenteedec95276cdb8aef98e92c5371000f10b8d6ba7 (diff)
downloadFreeBSD-src-057afceb86e030ad65b0130436860d9a18066186.zip
FreeBSD-src-057afceb86e030ad65b0130436860d9a18066186.tar.gz
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
Diffstat (limited to 'games/sail/misc.c')
-rw-r--r--games/sail/misc.c233
1 files changed, 233 insertions, 0 deletions
diff --git a/games/sail/misc.c b/games/sail/misc.c
new file mode 100644
index 0000000..29e7899
--- /dev/null
+++ b/games/sail/misc.c
@@ -0,0 +1,233 @@
+/*
+ * Copyright (c) 1983, 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.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)misc.c 8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+#include "externs.h"
+#include "pathnames.h"
+
+#define distance(x,y) (abs(x) >= abs(y) ? abs(x) + abs(y)/2 : abs(y) + abs(x)/2)
+
+/* XXX */
+range(from, to)
+struct ship *from, *to;
+{
+ register bow1r, bow1c, bow2r, bow2c;
+ int stern1r, stern1c, stern2c, stern2r;
+ register int bb, bs, sb, ss, result;
+
+ if (!to->file->dir)
+ return -1;
+ stern1r = bow1r = from->file->row;
+ stern1c = bow1c = from->file->col;
+ stern2r = bow2r = to->file->row;
+ stern2c = bow2c = to->file->col;
+ result = bb = distance(bow2r - bow1r, bow2c - bow1c);
+ if (bb < 5) {
+ stern2r += dr[to->file->dir];
+ stern2c += dc[to->file->dir];
+ stern1r += dr[from->file->dir];
+ stern1c += dc[from->file->dir];
+ bs = distance((bow2r - stern1r), (bow2c - stern1c));
+ sb = distance((bow1r - stern2r), (bow1c - stern2c));
+ ss = distance((stern2r - stern1r) ,(stern2c - stern1c));
+ result = min(bb, min(bs, min(sb, ss)));
+ }
+ return result;
+}
+
+struct ship *
+closestenemy(from, side, anyship)
+register struct ship *from;
+char side, anyship;
+{
+ register struct ship *sp;
+ register char a;
+ int olddist = 30000, dist;
+ struct ship *closest = 0;
+
+ a = capship(from)->nationality;
+ foreachship(sp) {
+ if (sp == from)
+ continue;
+ if (sp->file->dir == 0)
+ continue;
+ if (a == capship(sp)->nationality && !anyship)
+ continue;
+ if (side && gunsbear(from, sp) != side)
+ continue;
+ dist = range(from, sp);
+ if (dist < olddist) {
+ closest = sp;
+ olddist = dist;
+ }
+ }
+ return closest;
+}
+
+angle(dr, dc)
+register dr, dc;
+{
+ register i;
+
+ if (dc >= 0 && dr > 0)
+ i = 0;
+ else if (dr <= 0 && dc > 0)
+ i = 2;
+ else if (dc <= 0 && dr < 0)
+ i = 4;
+ else
+ i = 6;
+ dr = abs(dr);
+ dc = abs(dc);
+ if ((i == 0 || i == 4) && dc * 2.4 > dr) {
+ i++;
+ if (dc > dr * 2.4)
+ i++;
+ } else if ((i == 2 || i == 6) && dr * 2.4 > dc) {
+ i++;
+ if (dr > dc * 2.4)
+ i++;
+ }
+ return i % 8 + 1;
+}
+
+gunsbear(from, to) /* checks for target bow or stern */
+register struct ship *from, *to;
+{
+ int Dr, Dc, i;
+ register ang;
+
+ Dr = from->file->row - to->file->row;
+ Dc = to->file->col - from->file->col;
+ for (i = 2; i; i--) {
+ if ((ang = angle(Dr, Dc) - from->file->dir + 1) < 1)
+ ang += 8;
+ if (ang >= 2 && ang <= 4)
+ return 'r';
+ if (ang >= 6 && ang <= 7)
+ return 'l';
+ Dr += dr[to->file->dir];
+ Dc += dc[to->file->dir];
+ }
+ return 0;
+}
+
+portside(from, on, quick)
+register struct ship *from, *on;
+int quick; /* returns true if fromship is */
+{ /* shooting at onship's starboard side */
+ register ang;
+ register Dr, Dc;
+
+ Dr = from->file->row - on->file->row;
+ Dc = on->file->col - from->file->col;
+ if (quick == -1) {
+ Dr += dr[on->file->dir];
+ Dc += dc[on->file->dir];
+ }
+ ang = angle(Dr, Dc);
+ if (quick != 0)
+ return ang;
+ ang = (ang + 4 - on->file->dir - 1) % 8 + 1;
+ return ang < 5;
+}
+
+colours(sp)
+register struct ship *sp;
+{
+ register char flag;
+
+ if (sp->file->struck)
+ flag = '!';
+ if (sp->file->explode)
+ flag = '#';
+ if (sp->file->sink)
+ flag = '~';
+ if (sp->file->struck)
+ return flag;
+ flag = *countryname[capship(sp)->nationality];
+ return sp->file->FS ? flag : tolower(flag);
+}
+
+#include <sys/file.h>
+log(s)
+register struct ship *s;
+{
+ FILE *fp;
+ int persons;
+ int n;
+ struct logs log[NLOG];
+ float net;
+ register struct logs *lp;
+
+ if ((fp = fopen(_PATH_LOGFILE, "r+")) == NULL)
+ return;
+#ifdef LOCK_EX
+ if (flock(fileno(fp), LOCK_EX) < 0)
+ return;
+#endif
+ net = (float)s->file->points / s->specs->pts;
+ persons = getw(fp);
+ n = fread((char *)log, sizeof(struct logs), NLOG, fp);
+ for (lp = &log[n]; lp < &log[NLOG]; lp++)
+ lp->l_name[0] = lp->l_uid = lp->l_shipnum
+ = lp->l_gamenum = lp->l_netpoints = 0;
+ rewind(fp);
+ if (persons < 0)
+ (void) putw(1, fp);
+ else
+ (void) putw(persons + 1, fp);
+ for (lp = log; lp < &log[NLOG]; lp++)
+ if (net > (float)lp->l_netpoints
+ / scene[lp->l_gamenum].ship[lp->l_shipnum].specs->pts) {
+ (void) fwrite((char *)log,
+ sizeof (struct logs), lp - log, fp);
+ (void) strcpy(log[NLOG-1].l_name, s->file->captain);
+ log[NLOG-1].l_uid = getuid();
+ log[NLOG-1].l_shipnum = s->file->index;
+ log[NLOG-1].l_gamenum = game;
+ log[NLOG-1].l_netpoints = s->file->points;
+ (void) fwrite((char *)&log[NLOG-1],
+ sizeof (struct logs), 1, fp);
+ (void) fwrite((char *)lp,
+ sizeof (struct logs), &log[NLOG-1] - lp, fp);
+ break;
+ }
+#ifdef LOCK_EX
+ (void) flock(fileno(fp), LOCK_UN);
+#endif
+ (void) fclose(fp);
+}
OpenPOWER on IntegriCloud